Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se saca la columna de subcuenta en la lista de pagos para que ellos puedan ver en que subcuenta se hizo el asiento

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@517 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2010-06-16 11:45:02 +00:00
parent 938622c77a
commit e089575aa1
7 changed files with 201 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas
View File

@ -20,6 +20,7 @@ type
procedure Delete_Asiento_Pago(aChange: TDADeltaChange); virtual; procedure Delete_Asiento_Pago(aChange: TDADeltaChange); virtual;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override; procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
end; end;
implementation implementation

91
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -61,6 +61,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 879 Width = 879
Height = 331 Height = 331
ActivePage = pagPagos
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 879 ExplicitWidth = 879
ExplicitHeight = 331 ExplicitHeight = 331
@ -94,58 +95,102 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
871 871
303) 303)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited eSituacion: TcxDBTextEdit inherited eSituacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Left = 326 Left = 326
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 326 ExplicitLeft = 326
ExplicitWidth = 67 ExplicitWidth = 67
Width = 67 Width = 67
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eRemesa: TcxDBTextEdit inherited eRemesa: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
DataBinding.DataField = 'FECHA_EMISION' DataBinding.DataField = 'FECHA_EMISION'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 62 ExplicitWidth = 62
Width = 62 Width = 62
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
@ -156,6 +201,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 201 Width = 201
ExplicitWidth = 201 ExplicitWidth = 201
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 181 ExplicitWidth = 181
Width = 181 Width = 181
end end
@ -175,32 +224,56 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 153
Width = 153 Width = 153
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 228 Left = 228
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 228 ExplicitLeft = 228
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
@ -208,6 +281,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitLeft = 118 ExplicitLeft = 118
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
@ -220,8 +297,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitHeight = 150 ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 521
ExplicitHeight = 150
Height = 150 Height = 150
Width = 521 Width = 521
end end
@ -372,13 +447,25 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 150 ExplicitWidth = 150
Width = 150 Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited eImporteTotalRecibo: TcxCurrencyEdit inherited eImporteTotalRecibo: TcxCurrencyEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end

36
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
View File

@ -139,7 +139,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Value = 'Devoluci'#243'n' Value = 'Devoluci'#243'n'
end> end>
Options.Focusing = False Options.Focusing = False
Width = 389 Width = 100
IsCaptionAssigned = True IsCaptionAssigned = True
end end
object ListaPagosClienteDBTableView1FECHA_PAGO: TcxGridDBColumn object ListaPagosClienteDBTableView1FECHA_PAGO: TcxGridDBColumn
@ -147,40 +147,18 @@ inherited frViewPagosCliente: TfrViewPagosCliente
DataBinding.FieldName = 'FECHA_PAGO' DataBinding.FieldName = 'FECHA_PAGO'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Options.Focusing = False Options.Focusing = False
Width = 231 Width = 100
end end
object ListaPagosClienteDBTableView1TITULAR: TcxGridDBColumn object ListaPagosClienteDBTableView1SUBCUENTA: TcxGridDBColumn
DataBinding.FieldName = 'TITULAR' Caption = 'Caja/Banco'
Visible = False DataBinding.FieldName = 'SUBCUENTA'
end HeaderAlignmentVert = vaBottom
object ListaPagosClienteDBTableView1ENTIDAD: TcxGridDBColumn Width = 200
DataBinding.FieldName = 'ENTIDAD'
Visible = False
end
object ListaPagosClienteDBTableView1SUCURSAL: TcxGridDBColumn
DataBinding.FieldName = 'SUCURSAL'
Visible = False
end
object ListaPagosClienteDBTableView1DC: TcxGridDBColumn
DataBinding.FieldName = 'DC'
Visible = False
end end
object ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn object ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn
DataBinding.FieldName = 'CUENTA' DataBinding.FieldName = 'CUENTA'
Visible = False Visible = False
end end
object ListaPagosClienteDBTableView1FECHA_ALTA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ALTA'
Visible = False
end
object ListaPagosClienteDBTableView1FECHA_MODIFICACION: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_MODIFICACION'
Visible = False
end
object ListaPagosClienteDBTableView1USUARIO: TcxGridDBColumn
DataBinding.FieldName = 'USUARIO'
Visible = False
end
end end
object ListaPagosClienteLevel1: TcxGridLevel object ListaPagosClienteLevel1: TcxGridLevel
GridView = ListaPagosClienteDBTableView1 GridView = ListaPagosClienteDBTableView1

8
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
View File

@ -32,14 +32,8 @@ type
ListaPagosClienteDBTableView1ID_RECIBO: TcxGridDBColumn; ListaPagosClienteDBTableView1ID_RECIBO: TcxGridDBColumn;
ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn; ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn;
ListaPagosClienteDBTableView1FECHA_PAGO: TcxGridDBColumn; ListaPagosClienteDBTableView1FECHA_PAGO: TcxGridDBColumn;
ListaPagosClienteDBTableView1TITULAR: TcxGridDBColumn; ListaPagosClienteDBTableView1SUBCUENTA: TcxGridDBColumn;
ListaPagosClienteDBTableView1ENTIDAD: TcxGridDBColumn;
ListaPagosClienteDBTableView1SUCURSAL: TcxGridDBColumn;
ListaPagosClienteDBTableView1DC: TcxGridDBColumn;
ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn; ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn;
ListaPagosClienteDBTableView1FECHA_ALTA: TcxGridDBColumn;
ListaPagosClienteDBTableView1FECHA_MODIFICACION: TcxGridDBColumn;
ListaPagosClienteDBTableView1USUARIO: TcxGridDBColumn;
ActionListContenido: TActionList; ActionListContenido: TActionList;
actAnadir: TAction; actAnadir: TAction;
actEliminar: TAction; actEliminar: TAction;

97
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -61,7 +61,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 323 Height = 323
ActivePage = pagPagos
ExplicitWidth = 685 ExplicitWidth = 685
ExplicitHeight = 323 ExplicitHeight = 323
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -94,57 +93,101 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
677 677
295) 295)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited eSituacion: TcxDBTextEdit inherited eSituacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Left = 228 Left = 228
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 228 ExplicitLeft = 228
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited eRemesa: TcxDBTextEdit inherited eRemesa: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited rReferenciaFacturaProv: TcxDBTextEdit inherited rReferenciaFacturaProv: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
@ -155,17 +198,29 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 112 Width = 112
ExplicitWidth = 112 ExplicitWidth = 112
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
end end
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
@ -184,32 +239,56 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 282 Left = 282
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 282 ExplicitLeft = 282
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
@ -217,6 +296,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitLeft = 166 ExplicitLeft = 166
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
@ -384,13 +467,25 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 150 ExplicitWidth = 150
Width = 150 Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited eImporteTotalRecibo: TcxCurrencyEdit inherited eImporteTotalRecibo: TcxCurrencyEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 315 ExplicitWidth = 315
Width = 315 Width = 315
end end

34
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
View File

@ -76,6 +76,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
Value = 'Devoluci'#243'n' Value = 'Devoluci'#243'n'
end> end>
Options.Focusing = False Options.Focusing = False
Width = 100
IsCaptionAssigned = True IsCaptionAssigned = True
end end
object ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn object ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn
@ -83,40 +84,17 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
DataBinding.FieldName = 'FECHA_PAGO' DataBinding.FieldName = 'FECHA_PAGO'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Options.Focusing = False Options.Focusing = False
Width = 100 Width = 200
end end
object ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn object ListaPagosProveedorDBTableView1SUBCUENTA: TcxGridDBColumn
DataBinding.FieldName = 'TITULAR' Caption = 'Caja/Banco'
Visible = False DataBinding.FieldName = 'SUBCUENTA'
end Width = 300
object ListaPagosProveedorDBTableView1ENTIDAD: TcxGridDBColumn
DataBinding.FieldName = 'ENTIDAD'
Visible = False
end
object ListaPagosProveedorDBTableView1SUCURSAL: TcxGridDBColumn
DataBinding.FieldName = 'SUCURSAL'
Visible = False
end
object ListaPagosProveedorDBTableView1DC: TcxGridDBColumn
DataBinding.FieldName = 'DC'
Visible = False
end end
object ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn object ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn
DataBinding.FieldName = 'CUENTA' DataBinding.FieldName = 'CUENTA'
Visible = False Visible = False
end end
object ListaPagosProveedorDBTableView1FECHA_ALTA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ALTA'
Visible = False
end
object ListaPagosProveedorDBTableView1FECHA_MODIFICACION: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_MODIFICACION'
Visible = False
end
object ListaPagosProveedorDBTableView1USUARIO: TcxGridDBColumn
DataBinding.FieldName = 'USUARIO'
Visible = False
end
end end
object ListaPagosProveedorLevel1: TcxGridLevel object ListaPagosProveedorLevel1: TcxGridLevel
GridView = ListaPagosProveedorDBTableView1 GridView = ListaPagosProveedorDBTableView1

8
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
View File

@ -36,14 +36,8 @@ type
ListaPagosProveedorDBTableView1ID_RECIBO: TcxGridDBColumn; ListaPagosProveedorDBTableView1ID_RECIBO: TcxGridDBColumn;
ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn; ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn;
ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn; ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn;
ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn; ListaPagosProveedorDBTableView1SUBCUENTA: TcxGridDBColumn;
ListaPagosProveedorDBTableView1ENTIDAD: TcxGridDBColumn;
ListaPagosProveedorDBTableView1SUCURSAL: TcxGridDBColumn;
ListaPagosProveedorDBTableView1DC: TcxGridDBColumn;
ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn; ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn;
ListaPagosProveedorDBTableView1FECHA_ALTA: TcxGridDBColumn;
ListaPagosProveedorDBTableView1FECHA_MODIFICACION: TcxGridDBColumn;
ListaPagosProveedorDBTableView1USUARIO: TcxGridDBColumn;
ActionListContenido: TActionList; ActionListContenido: TActionList;
actAnadir: TAction; actAnadir: TAction;
actEliminar: TAction; actEliminar: TAction;