diff --git a/Source/Informes/1/InformeListadoFacturasCliente.fr3 b/Source/Informes/1/InformeListadoFacturasCliente.fr3 index d13095a6..4e3e3dad 100644 --- a/Source/Informes/1/InformeListadoFacturasCliente.fr3 +++ b/Source/Informes/1/InformeListadoFacturasCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -17,22 +17,24 @@ - + - - + + + - + - + + diff --git a/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 index 6babad6a..34f48bee 100644 --- a/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 +++ b/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -17,22 +17,24 @@ - + - + + - - + + - + + diff --git a/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 index 016a766b..e9aa63eb 100644 --- a/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 +++ b/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -18,17 +18,19 @@ - + - + + - + - + - + + diff --git a/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 index e5694bb4..2f37a666 100644 --- a/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 +++ b/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -18,17 +18,19 @@ - + - + + - + - + - + + diff --git a/Source/Informes/1/InformeListadoFacturasProveedor.fr3 b/Source/Informes/1/InformeListadoFacturasProveedor.fr3 index 2dac3f10..96f8127b 100644 --- a/Source/Informes/1/InformeListadoFacturasProveedor.fr3 +++ b/Source/Informes/1/InformeListadoFacturasProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -17,22 +17,24 @@ - + - + + - + - + + diff --git a/Source/Informes/1/InformeListadoFacturasProveedorDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasProveedorDesglosado.fr3 index 65dd440a..99f39e7c 100644 --- a/Source/Informes/1/InformeListadoFacturasProveedorDesglosado.fr3 +++ b/Source/Informes/1/InformeListadoFacturasProveedorDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -17,22 +17,24 @@ - + - + + - - + + - + + diff --git a/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 index 8918fbdd..b4075e36 100644 --- a/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 +++ b/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -18,17 +18,19 @@ - + - + + - + - + - + + diff --git a/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 index e2871f82..95270a53 100644 --- a/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 +++ b/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -18,17 +18,19 @@ - + - + + - + - + - + + diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 6a851d25..9d64eccb 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -487,9 +487,9 @@ object RptFacturasCliente: TRptFacturasCliente #39' || extract (year from fecha_factura)'#10'when extract (month from ' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' + - 'UACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, IMP' + - 'ORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, ' + - 'MES, NOMBRE'#10#10 + 'UACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBL' + + 'E, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {wh' + + 'ere}'#10'order by ANO, MES, NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item @@ -546,6 +546,10 @@ object RptFacturasCliente: TRptFacturasCliente DatasetField = 'ANO' TableField = '' SQLOrigin = 'ANO' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' end> end> Name = 'InformeListadoFacturas' @@ -595,6 +599,10 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'FECHA_FACTURA' DataType = datDateTime end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end item Name = 'BASE_IMPONIBLE' DataType = datCurrency @@ -1394,67 +1402,17 @@ object RptFacturasCliente: TRptFacturasCliente PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 - ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39764.729456550930000000 + ReportOptions.CreateDate = 37800.807714351900000000 + ReportOptions.LastChange = 39821.581470081020000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( - '' - 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' Cadena: String;' + 'procedure frxReportOnStartReport(Sender: TfrxComponent);' 'begin' - '{ DatosEmpresa.Lines.Clear;' - ' if ( <> '#39#39') then' - ' Cadena := '#39'TLF: '#39' + ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' FAX: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - '}' + ' Set('#39'Pagina'#39', 0);' + ' Set('#39'TotalPaginas'#39', 0); ' 'end;' '' - 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'begin' - '{ NombreEmpresa.Lines.Clear;' - ' NombreEmpresa.Lines.Add();' - '}' - 'end;' - '' - 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' ACadena : String;' - 'begin' - '{ ACadena := '#39#39';' - ' DireccionEnvio.Lines.Clear;' - ' if ( <> '#39#39') then' - ' ACadena := ;' - '' - ' if ( <> '#39#39') then' - - ' ACadena := ACadena + '#39' '#39' + ;' - '' - ' DireccionEnvio.Lines.Add(ACadena);' - ' ACadena := '#39#39';' - ' DireccionEnvio.Lines.Add();' - ' if ( <> '#39#39') then' - ' ACadena := + '#39' '#39';' - ' if ( <> '#39#39') then' - ' ACadena := ACadena + ;' - '' - ' if (ACadena <> '#39#39') then' - ' DireccionEnvio.Lines.Add(ACadena);' - '' - ' if ( <> '#39#39') then' - ' DireccionEnvio.Lines.Add();' - '' - ' if ( <> '#39#39') then' - ' DireccionEnvio.Lines.Add();' - '}' - 'end;' - '' - 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' + 'procedure Band1OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if not Engine.FinalPass then' ' Set('#39'TotalPaginas'#39', ( + 1));' @@ -1463,56 +1421,26 @@ object RptFacturasCliente: TRptFacturasCliente ' Set('#39'Pagina'#39', ( + 1)); ' 'end;' '' - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' + 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0);' - ' Set('#39'Capitulo'#39', 0);' - ' Set('#39'NumCapitulos'#39', 0); ' - 'end;' - '' - 'procedure Memo4OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (Length() = 0) then' - ' Memo4.Visible := False; ' - 'end;' - '' - 'procedure Memo22OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if ( = 0) then' - ' begin ' - ' Memo22.Text := '#39'Base imponible:'#39';' - '' - ' Memo10.Text := '#39'Importe total:'#39';' - ' Memo10.Font.Style := fsBold; ' - '' + ' if Engine.FinalPass then' + ' begin' - ' Memo9.Text := FormatFloat('#39'#,##0.00 '#8364#39', );' - ' Memo9.Font.Style := fsBold; ' - ' ' - ' Memo23.Text := '#39'[]% IVA:'#39';' - ' Memo25.Text := '#39'[frxDBCabecera."IMPORTE_IVA"]'#39';' - ' Memo12.Visible := False;' - ' Memo14.Visible := False;' - ' Memo16.Visible := False; ' - '' - ' Memo13.Visible := False;' - ' Memo15.Visible := False;' - ' Memo17.Visible := False;' - ' Memo11.Color := $00CCFFCC;' - ' end; ' - 'end;' - '' - 'procedure Memo39OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' Memo39.Clear; ' - ' if ( = '#39'F'#39') then' - - ' Memo39.Text := '#39'FACTURA'#39' ' + - ' ' - ' else' - ' Memo39.Text := '#39'ABONO'#39'; ' + ' //A la vez que salta este salta la asignacion de pagina por ' + + 'lo que no coincide nunca si no suponemos +1 ' + + ' ' + + ' ' + + ' ' + + ' ' + ' if (( + 1) = ) then' + ' begin ' + ' mContinua.Visible := True;' + ' end ' + ' else' + ' begin ' + ' mContinua.Visible := False;' + ' end ' + ' end; ' 'end;' '' 'begin' @@ -1625,6 +1553,10 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'ID_EMPRESA' DataType = datInteger end + item + Name = 'ANO' + DataType = datSmallInt + end item Name = 'MES' DataType = datSmallInt @@ -1662,6 +1594,10 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'FECHA_FACTURA' DataType = datDateTime end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end item Name = 'BASE_IMPONIBLE' DataType = datCurrency diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm index d6bf9dd2..b09fedc7 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm @@ -55,6 +55,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente PropertiesClassName = 'TcxDateEditProperties' Width = 28 end + object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_VENCIMIENTO' + PropertiesClassName = 'TcxDateEditProperties' + end object cxGridViewNIF_CIF: TcxGridDBColumn DataBinding.FieldName = 'NIF_CIF' Visible = False @@ -151,21 +155,37 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente Width = 665 ExplicitWidth = 665 inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 568 Width = 568 end inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 144 Width = 144 end inherited edtFechaFinFiltro: TcxDateEdit Left = 248 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 248 ExplicitWidth = 273 Width = 273 end inherited eLista: TcxComboBox Left = 558 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 558 ExplicitWidth = 97 Width = 97 diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas index d5566196..eb33789b 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas @@ -55,6 +55,7 @@ type TBXItem3: TTBXItem; TBXSeparatorItem2: TTBXSeparatorItem; cxGridViewTIPO: TcxGridDBColumn; + cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm index 9fe9a405..6c5c1ad6 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm @@ -442,9 +442,9 @@ object RptFacturasProveedor: TRptFacturasProveedor #39' || extract (year from fecha_factura)'#10'when extract (month from ' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' + - 'ITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, I' + - 'MPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by A' + - 'NO, MES, NOMBRE'#10#10 + 'ITUACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONI' + + 'BLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where' + + ' {where}'#10'order by ANO, MES, NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item @@ -501,6 +501,10 @@ object RptFacturasProveedor: TRptFacturasProveedor DatasetField = 'ANO' TableField = '' SQLOrigin = 'ANO' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' end> end> Name = 'InformeListadoFacturas' @@ -550,6 +554,10 @@ object RptFacturasProveedor: TRptFacturasProveedor Name = 'FECHA_FACTURA' DataType = datDateTime end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end item Name = 'BASE_IMPONIBLE' DataType = datCurrency @@ -1452,6 +1460,10 @@ object RptFacturasProveedor: TRptFacturasProveedor Name = 'ID_EMPRESA' DataType = datInteger end + item + Name = 'ANO' + DataType = datSmallInt + end item Name = 'MES' DataType = datSmallInt @@ -1489,6 +1501,10 @@ object RptFacturasProveedor: TRptFacturasProveedor Name = 'FECHA_FACTURA' DataType = datDateTime end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end item Name = 'BASE_IMPONIBLE' DataType = datCurrency diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm index 9be8fc9b..2e8184e0 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm @@ -71,6 +71,10 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor PropertiesClassName = 'TcxDateEditProperties' Width = 27 end + object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_VENCIMIENTO' + PropertiesClassName = 'TcxDateEditProperties' + end object cxGridViewNIF_CIF: TcxGridDBColumn DataBinding.FieldName = 'NIF_CIF' Visible = False @@ -165,19 +169,41 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor Width = 531 ExplicitWidth = 531 inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 434 Width = 434 end inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 229 Width = 229 end inherited edtFechaFinFiltro: TcxDateEdit Left = 333 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 333 ExplicitWidth = 188 Width = 188 end + inherited eLista: TcxComboBox + Left = 558 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 558 + ExplicitWidth = 215 + Width = 215 + end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 531 diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas index cfaa5f4e..f69ada53 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas @@ -55,6 +55,7 @@ type TBXItem3: TTBXItem; TBXSeparatorItem2: TTBXSeparatorItem; cxGridViewTIPO: TcxGridDBColumn; + cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);