diff --git a/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas b/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas index e1003d3e..948f2fe6 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas @@ -20,6 +20,7 @@ type procedure Delete_Asiento_Pago(aChange: TDADeltaChange); virtual; procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override; + end; implementation diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index abe064f0..ba490b4c 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -61,6 +61,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited pgPaginas: TPageControl Width = 879 Height = 331 + ActivePage = pagPagos OnChanging = pgPaginasChanging ExplicitWidth = 879 ExplicitHeight = 331 @@ -94,58 +95,102 @@ inherited fEditorReciboCliente: TfEditorReciboCliente 871 303) inherited eReferencia: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 201 Width = 201 end inherited eSituacion: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 201 Width = 201 end inherited edtFechaVencimiento: TcxDBDateEdit Left = 326 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 326 ExplicitWidth = 67 Width = 67 end inherited eFechaEmision: TcxDBTextEdit Left = 588 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 588 ExplicitWidth = 286 Width = 286 end inherited eImporteTotal: TcxDBCurrencyEdit Left = 588 + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 588 ExplicitWidth = 286 Width = 286 end inherited eNombreCliente: TcxDBTextEdit Left = 588 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 588 ExplicitWidth = 286 Width = 286 end inherited eNifCif: TcxDBTextEdit Left = 588 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 588 ExplicitWidth = 286 Width = 286 end inherited eRemesa: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 201 Width = 201 end inherited edtFechaEmision: TcxDBDateEdit DataBinding.DataField = 'FECHA_EMISION' + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 62 Width = 62 end inherited rRefReciboCompensado: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 201 Width = 201 end inherited eDescripcion: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 201 Width = 201 end @@ -156,6 +201,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Width = 201 ExplicitWidth = 201 inherited cbTienda: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 181 Width = 181 end @@ -175,32 +224,56 @@ inherited fEditorReciboCliente: TfEditorReciboCliente end inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 271 Width = 271 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 271 Width = 271 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 271 Width = 271 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 153 Width = 153 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 271 Width = 271 end inherited edtCodigoPostal: TcxDBTextEdit Left = 228 DataBinding.DataSource = frViewReciboCliente1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 228 end inherited Button3: TBitBtn @@ -208,6 +281,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitLeft = 118 end inherited cxDBTextEdit1: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 271 Width = 271 end @@ -220,8 +297,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitHeight = 150 inherited memObservaciones: TcxDBMemo DataBinding.DataSource = frViewReciboCliente1.DADataSource - ExplicitWidth = 521 - ExplicitHeight = 150 Height = 150 Width = 521 end @@ -372,13 +447,25 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited eImporte: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 150 Width = 150 end inherited eOtrosGastos: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' end inherited eImporteTotalRecibo: TcxCurrencyEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 366 Width = 366 end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm index dd6037ad..a71f4c51 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm @@ -139,7 +139,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente Value = 'Devoluci'#243'n' end> Options.Focusing = False - Width = 389 + Width = 100 IsCaptionAssigned = True end object ListaPagosClienteDBTableView1FECHA_PAGO: TcxGridDBColumn @@ -147,40 +147,18 @@ inherited frViewPagosCliente: TfrViewPagosCliente DataBinding.FieldName = 'FECHA_PAGO' PropertiesClassName = 'TcxDateEditProperties' Options.Focusing = False - Width = 231 + Width = 100 end - object ListaPagosClienteDBTableView1TITULAR: TcxGridDBColumn - DataBinding.FieldName = 'TITULAR' - Visible = False - end - object ListaPagosClienteDBTableView1ENTIDAD: TcxGridDBColumn - DataBinding.FieldName = 'ENTIDAD' - Visible = False - end - object ListaPagosClienteDBTableView1SUCURSAL: TcxGridDBColumn - DataBinding.FieldName = 'SUCURSAL' - Visible = False - end - object ListaPagosClienteDBTableView1DC: TcxGridDBColumn - DataBinding.FieldName = 'DC' - Visible = False + object ListaPagosClienteDBTableView1SUBCUENTA: TcxGridDBColumn + Caption = 'Caja/Banco' + DataBinding.FieldName = 'SUBCUENTA' + HeaderAlignmentVert = vaBottom + Width = 200 end object ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn DataBinding.FieldName = 'CUENTA' Visible = False 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 object ListaPagosClienteLevel1: TcxGridLevel GridView = ListaPagosClienteDBTableView1 diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas index 300b61f0..c1b306a0 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas @@ -32,14 +32,8 @@ type ListaPagosClienteDBTableView1ID_RECIBO: TcxGridDBColumn; ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn; ListaPagosClienteDBTableView1FECHA_PAGO: TcxGridDBColumn; - ListaPagosClienteDBTableView1TITULAR: TcxGridDBColumn; - ListaPagosClienteDBTableView1ENTIDAD: TcxGridDBColumn; - ListaPagosClienteDBTableView1SUCURSAL: TcxGridDBColumn; - ListaPagosClienteDBTableView1DC: TcxGridDBColumn; + ListaPagosClienteDBTableView1SUBCUENTA: TcxGridDBColumn; ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn; - ListaPagosClienteDBTableView1FECHA_ALTA: TcxGridDBColumn; - ListaPagosClienteDBTableView1FECHA_MODIFICACION: TcxGridDBColumn; - ListaPagosClienteDBTableView1USUARIO: TcxGridDBColumn; ActionListContenido: TActionList; actAnadir: TAction; actEliminar: TAction; diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm index 1daf6986..28fe3682 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm @@ -61,7 +61,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited pgPaginas: TPageControl Width = 685 Height = 323 - ActivePage = pagPagos ExplicitWidth = 685 ExplicitHeight = 323 inherited pagGeneral: TTabSheet @@ -94,57 +93,101 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor 677 295) inherited eReferencia: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 112 Width = 112 end inherited eSituacion: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 112 Width = 112 end inherited edtFechaVencimiento: TcxDBDateEdit Left = 228 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 228 ExplicitWidth = 20 Width = 20 end inherited eFechaEmision: TcxDBTextEdit Left = 384 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 384 ExplicitWidth = 255 Width = 255 end inherited eImporteTotal: TcxDBCurrencyEdit Left = 384 + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 384 ExplicitWidth = 255 Width = 255 end inherited eNombreCliente: TcxDBTextEdit Left = 384 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 384 ExplicitWidth = 255 Width = 255 end inherited eRemesa: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 112 Width = 112 end inherited edtFechaEmision: TcxDBDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 20 Width = 20 end inherited eReferenciaProveedor: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 112 Width = 112 end inherited rReferenciaFacturaProv: TcxDBTextEdit Left = 384 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 384 ExplicitWidth = 255 Width = 255 end inherited rRefReciboCompensado: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 112 Width = 112 end @@ -155,17 +198,29 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Width = 112 ExplicitWidth = 112 inherited cbTienda: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 92 Width = 92 end end end inherited eDescripcion: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 112 Width = 112 end inherited eNifCif: TcxDBTextEdit Left = 384 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 384 ExplicitWidth = 255 Width = 255 @@ -184,32 +239,56 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor end inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 165 Width = 165 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtCodigoPostal: TcxDBTextEdit Left = 282 DataBinding.DataSource = frViewReciboProveedor1.DADataSource + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 282 end inherited Button3: TBitBtn @@ -217,6 +296,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ExplicitLeft = 166 end inherited cxDBTextEdit1: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end @@ -384,13 +467,25 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited eImporte: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 150 Width = 150 end inherited eOtrosGastos: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' end inherited eImporteTotalRecibo: TcxCurrencyEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 315 Width = 315 end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm index 8b527eda..c3dc24ad 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm @@ -76,6 +76,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor Value = 'Devoluci'#243'n' end> Options.Focusing = False + Width = 100 IsCaptionAssigned = True end object ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn @@ -83,40 +84,17 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor DataBinding.FieldName = 'FECHA_PAGO' PropertiesClassName = 'TcxDateEditProperties' Options.Focusing = False - Width = 100 + Width = 200 end - object ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn - DataBinding.FieldName = 'TITULAR' - Visible = False - end - 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 + object ListaPagosProveedorDBTableView1SUBCUENTA: TcxGridDBColumn + Caption = 'Caja/Banco' + DataBinding.FieldName = 'SUBCUENTA' + Width = 300 end object ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn DataBinding.FieldName = 'CUENTA' Visible = False 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 object ListaPagosProveedorLevel1: TcxGridLevel GridView = ListaPagosProveedorDBTableView1 diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas index 9f137710..d1c4f85c 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas @@ -36,14 +36,8 @@ type ListaPagosProveedorDBTableView1ID_RECIBO: TcxGridDBColumn; ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn; ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn; - ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn; - ListaPagosProveedorDBTableView1ENTIDAD: TcxGridDBColumn; - ListaPagosProveedorDBTableView1SUCURSAL: TcxGridDBColumn; - ListaPagosProveedorDBTableView1DC: TcxGridDBColumn; + ListaPagosProveedorDBTableView1SUBCUENTA: TcxGridDBColumn; ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn; - ListaPagosProveedorDBTableView1FECHA_ALTA: TcxGridDBColumn; - ListaPagosProveedorDBTableView1FECHA_MODIFICACION: TcxGridDBColumn; - ListaPagosProveedorDBTableView1USUARIO: TcxGridDBColumn; ActionListContenido: TActionList; actAnadir: TAction; actEliminar: TAction;