Se pone fecha de vencimiento en las facturas de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@452 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Base/Base.dproj

@@ -53,58 +53,58 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm

@@ -37,18 +37,74 @@ object RptFacturasCliente: TRptFacturasCliente
               'TE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
+              item
+                DatasetField = 'FECHA_FACTURA'
+                TableField = 'FECHA_FACTURA'
+              end
+              item
+                DatasetField = 'BASE_IMPONIBLE'
+                TableField = 'BASE_IMPONIBLE'
+              end
+              item
+                DatasetField = 'SITUACION'
+                TableField = 'SITUACION'
+              end
               item
                 DatasetField = 'DESCUENTO'
                 TableField = 'DESCUENTO'
               end
+              item
+                DatasetField = 'IMPORTE_DESCUENTO'
+                TableField = 'IMPORTE_DESCUENTO'
+              end
               item
                 DatasetField = 'IVA'
                 TableField = 'IVA'
               end
+              item
+                DatasetField = 'IMPORTE_IVA'
+                TableField = 'IMPORTE_IVA'
+              end
+              item
+                DatasetField = 'RE'
+                TableField = 'RE'
+              end
+              item
+                DatasetField = 'IMPORTE_RE'
+                TableField = 'IMPORTE_RE'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
               item
                 DatasetField = 'OBSERVACIONES'
                 TableField = 'OBSERVACIONES'
               end
+              item
+                DatasetField = 'NIF_CIF'
+                TableField = 'NIF_CIF'
+              end
+              item
+                DatasetField = 'ID_CLIENTE'
+                TableField = 'ID_CLIENTE'
+              end
               item
                 DatasetField = 'NOMBRE'
                 TableField = 'NOMBRE'
@@ -65,66 +121,10 @@ object RptFacturasCliente: TRptFacturasCliente
                 DatasetField = 'POBLACION'
                 TableField = 'POBLACION'
               end
-              item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
-              end
-              item
-                DatasetField = 'ID'
-                TableField = 'ID'
-              end
-              item
-                DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
-              end
-              item
-                DatasetField = 'FECHA_FACTURA'
-                TableField = 'FECHA_FACTURA'
-              end
-              item
-                DatasetField = 'BASE_IMPONIBLE'
-                TableField = 'BASE_IMPONIBLE'
-              end
-              item
-                DatasetField = 'IMPORTE_DESCUENTO'
-                TableField = 'IMPORTE_DESCUENTO'
-              end
-              item
-                DatasetField = 'IMPORTE_IVA'
-                TableField = 'IMPORTE_IVA'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
-              end
-              item
-                DatasetField = 'ID_CLIENTE'
-                TableField = 'ID_CLIENTE'
-              end
-              item
-                DatasetField = 'NIF_CIF'
-                TableField = 'NIF_CIF'
-              end
               item
                 DatasetField = 'CODIGO_POSTAL'
                 TableField = 'CODIGO_POSTAL'
               end
-              item
-                DatasetField = 'RE'
-                TableField = 'RE'
-              end
-              item
-                DatasetField = 'IMPORTE_RE'
-                TableField = 'IMPORTE_RE'
-              end
-              item
-                DatasetField = 'TIPO'
-                TableField = 'TIPO'
-              end
-              item
-                DatasetField = 'SITUACION'
-                TableField = 'SITUACION'
-              end
               item
                 DatasetField = 'RECARGO_EQUIVALENCIA'
                 TableField = 'RECARGO_EQUIVALENCIA'
@@ -309,14 +309,6 @@ object RptFacturasCliente: TRptFacturasCliente
               'ET.POSICION;'#10
             StatementType = stSQL
             ColumnMappings = <
-              item
-                DatasetField = 'CANTIDAD'
-                TableField = 'CANTIDAD'
-              end
-              item
-                DatasetField = 'POSICION'
-                TableField = 'POSICION'
-              end
               item
                 DatasetField = 'ID'
                 TableField = 'ID'
@@ -325,18 +317,34 @@ object RptFacturasCliente: TRptFacturasCliente
                 DatasetField = 'ID_FACTURA'
                 TableField = 'ID_FACTURA'
               end
+              item
+                DatasetField = 'POSICION'
+                TableField = 'POSICION'
+              end
               item
                 DatasetField = 'TIPO_DETALLE'
                 TableField = 'TIPO_DETALLE'
               end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
               item
                 DatasetField = 'CONCEPTO'
                 TableField = 'CONCEPTO'
               end
+              item
+                DatasetField = 'CANTIDAD'
+                TableField = 'CANTIDAD'
+              end
               item
                 DatasetField = 'IMPORTE_UNIDAD'
                 TableField = 'IMPORTE_UNIDAD'
               end
+              item
+                DatasetField = 'DESCUENTO'
+                TableField = 'DESCUENTO'
+              end
               item
                 DatasetField = 'IMPORTE_TOTAL'
                 TableField = 'IMPORTE_TOTAL'
@@ -344,14 +352,6 @@ object RptFacturasCliente: TRptFacturasCliente
               item
                 DatasetField = 'VISIBLE'
                 TableField = 'VISIBLE'
-              end
-              item
-                DatasetField = 'DESCUENTO'
-                TableField = 'DESCUENTO'
-              end
-              item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
               end>
           end>
         Name = 'InformeFacturasCliente_Detalles'
@@ -424,28 +424,39 @@ object RptFacturasCliente: TRptFacturasCliente
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'V_RECIBOS_CLIENTE'
             SQL = 
-              'SELECT'#10'    V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENT' +
+              'SELECT'#10'    V_RECIBOS_CLIENTE.ID_FACTURA, V_RECIBOS_CLIENTE.FECHA' +
-              'E.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'WHERE V_RECIBOS_CLIENTE.I' +
+              '_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLI' +
-              'D_FACTURA = :ID_FACTURA'#10'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMI' +
+              'ENTE'#10'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = :ID_FACTURA'#10'ORDER BY V' +
-              'ENTO'
+              '_RECIBOS_CLIENTE.FECHA_VENCIMIENTO'#10
             StatementType = stSQL
             ColumnMappings = <
+              item
+                DatasetField = 'ID_FACTURA'
+                TableField = 'ID_FACTURA'
+              end
               item
                 DatasetField = 'FECHA_VENCIMIENTO'
                 TableField = 'FECHA_VENCIMIENTO'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
               end>
           end>
         Name = 'InformeFacturasCliente_Vencimientos'
         Fields = <
+          item
+            Name = 'ID_FACTURA'
+            DataType = datInteger
+          end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
           end
           item
             Name = 'IMPORTE_TOTAL'
-            DataType = datFloat
+            DataType = datCurrency
           end>
       end>
     JoinDataTables = <>
@@ -660,7 +671,7 @@ object RptFacturasCliente: TRptFacturasCliente
   end
   object frxDBDetalles: TfrxDBDataset
     UserName = 'frxDBDetalles'
-    CloseDataSource = False
+    CloseDataSource = True
     DataSource = DADSDetalles
     Left = 344
     Top = 16
@@ -717,7 +728,8 @@ object RptFacturasCliente: TRptFacturasCliente
         'mporte_neto,'
       
         '   v_facturas_cliente.importe_porte, formas_pago.descripcion as ' +
-        'FORMA_PAGO'
+        'FORMA_PAGO,'
+      '   v_facturas_cliente.DATOS_BANCARIOS'
       'from v_facturas_cliente'
       
         '   left outer join formas_pago on (formas_pago.id = v_facturas_c' +
@@ -864,6 +876,11 @@ object RptFacturasCliente: TRptFacturasCliente
       Origin = '"FORMAS_PAGO"."DESCRIPCION"'
       Size = 255
     end
+    object cabeceraDATOS_BANCARIOS: TIBStringField
+      FieldName = 'DATOS_BANCARIOS'
+      Origin = '"V_FACTURAS_CLIENTE"."DATOS_BANCARIOS"'
+      Size = 255
+    end
   end
   object detalles: TIBQuery
     Database = IBDatabase1
@@ -1173,6 +1190,11 @@ object RptFacturasCliente: TRptFacturasCliente
         Name = 'FORMA_PAGO'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'DATOS_BANCARIOS'
+        DataType = datString
+        Size = 255
       end>
     Params = <
       item
@@ -1231,7 +1253,7 @@ object RptFacturasCliente: TRptFacturasCliente
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 39604.801510335640000000
+    ReportOptions.LastChange = 39610.732841435190000000
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
       ''
@@ -1340,6 +1362,17 @@ object RptFacturasCliente: TRptFacturasCliente
       '  end;                       '
       'end;'
       ''
+      'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  Memo39.Clear;              '
+      '  if (<frxDBCabecera."TIPO"> = '#39'F'#39') then'
+      
+        '     Memo39.Text := '#39'FACTURA'#39'                                   ' +
+        '     '
+      '  else'
+      '     Memo39.Text := '#39'ABONO'#39';        '
+      'end;'
+      ''
       'begin'
       ''
       'end.')
@@ -1349,4 +1382,87 @@ object RptFacturasCliente: TRptFacturasCliente
     Left = 145
     Top = 16
   end
+  object frxDBVencimientos: TfrxDBDataset
+    UserName = 'frxDBVencimientos'
+    CloseDataSource = True
+    DataSource = DADSVencimientos
+    Left = 440
+    Top = 16
+  end
+  object DADSVencimientos: TDADataSource
+    DataSet = tbl_Vencimientos.Dataset
+    DataTable = tbl_Vencimientos
+    Left = 440
+    Top = 72
+  end
+  object tbl_Vencimientos: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID_FACTURA'
+        DataType = datInteger
+      end
+      item
+        Name = 'FECHA_VENCIMIENTO'
+        DataType = datDateTime
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datCurrency
+      end>
+    Params = <
+      item
+        Name = 'ID_FACTURA'
+        Value = ''
+        ParamType = daptInput
+      end>
+    MasterParamsMappings.Strings = (
+      'ID_FACTURA=ID')
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = schReport
+    LocalDataStreamer = DABINAdapter
+    MasterSource = DADSCabecera
+    MasterFields = 'ID'
+    DetailFields = 'ID_FACTURA'
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'InformeFacturasCliente_Vencimientos'
+    IndexDefs = <>
+    Left = 440
+    Top = 128
+  end
+  object vencimientos: TIBQuery
+    Database = IBDatabase1
+    Transaction = IBTransaction1
+    SQL.Strings = (
+      'SELECT'
+      
+        '    V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPOR' +
+        'TE_TOTAL'
+      'FROM V_RECIBOS_CLIENTE'
+      'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = 2'
+      'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO')
+    Left = 136
+    Top = 408
+    object vencimientosFECHA_VENCIMIENTO: TDateField
+      FieldName = 'FECHA_VENCIMIENTO'
+      Origin = '"V_RECIBOS_CLIENTE"."FECHA_VENCIMIENTO"'
+    end
+    object vencimientosIMPORTE_TOTAL: TIBBCDField
+      FieldKind = fkInternalCalc
+      FieldName = 'IMPORTE_TOTAL'
+      Origin = '"V_RECIBOS_CLIENTE"."IMPORTE_TOTAL"'
+      ProviderFlags = []
+      ReadOnly = True
+      Precision = 18
+      Size = 2
+    end
+  end
+  object DataSource3: TDataSource
+    DataSet = vencimientos
+    Left = 216
+    Top = 408
+  end
 end

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas

@@ -71,6 +71,14 @@ type
     detallesIMPORTE_TOTAL: TIBBCDField;
     detallesVISIBLE: TSmallintField;
     detallesREFERENCIA: TIBStringField;
+    frxDBVencimientos: TfrxDBDataset;
+    DADSVencimientos: TDADataSource;
+    tbl_Vencimientos: TDAMemDataTable;
+    vencimientos: TIBQuery;
+    DataSource3: TDataSource;
+    cabeceraDATOS_BANCARIOS: TIBStringField;
+    vencimientosFECHA_VENCIMIENTO: TDateField;
+    vencimientosIMPORTE_TOTAL: TIBBCDField;
     schReport: TDASchema;
     procedure DataModuleCreate(Sender: TObject);
   private
@@ -132,31 +140,34 @@ begin
 end;
 
 procedure TRptFacturasCliente.GenerarFactura(const ID: integer);
-var
+//var
-  AStream: TMemoryStream;
+//  AStream: TMemoryStream;
-  dsMaster: IDADataset;
+//  dsMaster: IDADataset;
-  dsDetail: IDADataset;
+//  dsDetail: IDADataset;
-  dsVencimientos : IDADataset;
+//  dsVencimientos : IDADataset;
 begin
-  AStream := TMemoryStream.Create;
+//  AStream := TMemoryStream.Create;
 
   try
     frxDBCabecera.DataSource := DADSCabecera;
     frxDBDetalles.DataSource := DADSDetalles;
+    frxDBVencimientos.DataSource := DADSVencimientos;
 
     tbl_Cabecera.ParamByName('ID').AsInteger := ID;
     tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID;
+    tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID;
 
     tbl_Cabecera.Active := True;
     tbl_Detalles.Active := True;
+    tbl_Vencimientos.Active := True;
 
     frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
     frxReport.PrepareReport(False);
 
   finally
-    AStream.Free;
+//    AStream.Free;
-    dsMaster := Nil;
+//    dsMaster := Nil;
-    dsDetail := Nil;
+//    dsDetail := Nil;
   end;
 end;
 

Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm

@@ -398,6 +398,51 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
             DataType = datSmallInt
           end>
         ReadOnly = True
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_FACTURA'
+            Value = '2'
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            SQL = 
+              'SELECT'#10'    V_RECIBOS_CLIENTE.ID_FACTURA, V_RECIBOS_CLIENTE.FECHA' +
+              '_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLI' +
+              'ENTE'#10'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = :ID_FACTURA'#10'ORDER BY V' +
+              '_RECIBOS_CLIENTE.FECHA_VENCIMIENTO'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID_FACTURA'
+                TableField = 'ID_FACTURA'
+              end
+              item
+                DatasetField = 'FECHA_VENCIMIENTO'
+                TableField = 'FECHA_VENCIMIENTO'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end>
+          end>
+        Name = 'Informe_Vencimientos'
+        Fields = <
+          item
+            Name = 'ID_FACTURA'
+            DataType = datInteger
+          end
+          item
+            Name = 'FECHA_VENCIMIENTO'
+            DataType = datDateTime
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
+          end>
       end>
     JoinDataTables = <>
     UnionDataTables = <>
@@ -644,4 +689,39 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
     Left = 168
     Top = 80
   end
+  object tbl_Vencimientos: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID_FACTURA'
+        DataType = datInteger
+      end
+      item
+        Name = 'FECHA_VENCIMIENTO'
+        DataType = datDateTime
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datCurrency
+      end>
+    Params = <
+      item
+        Name = 'ID_FACTURA'
+        Value = '2'
+        ParamType = daptInput
+      end>
+    MasterParamsMappings.Strings = (
+      'ID_PRESUPUESTO=ID_PRESUPUESTO')
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = schReport
+    LocalDataStreamer = DABin2DataStreamer
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Informe_Vencimientos'
+    IndexDefs = <>
+    Left = 352
+    Top = 16
+  end
 end

Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas

@@ -16,6 +16,7 @@ type
     tbl_Empresa: TDAMemDataTable;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
+    tbl_Vencimientos: TDAMemDataTable;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;  
@@ -175,6 +176,7 @@ var
   Imagen : InlineShape;
   _ShiftCells : OleVariant;
   ImporteAux : Double;
+  Cadena : String;
 begin
 
   //PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA
@@ -209,7 +211,16 @@ begin
     else
       ReplaceBookmark('CodigoFacturaCab', 'ABONO ' + FieldByName('REFERENCIA').AsString);
     ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString);
-    ReplaceBookmark('VencimientoCab', ''{FieldByName('FECHAVENCIMIENTO').AsString});
+
+    tbl_Vencimientos.First;
+    Cadena := '';
+    while not tbl_Vencimientos.eof do
+    begin
+      Cadena := Cadena + tbl_Vencimientos.FieldByName('FECHA_VENCIMIENTO').AsString + '  ';
+      tbl_Vencimientos.Next;
+    end;
+
+    ReplaceBookmark('VencimientoCab', Cadena);
     ReplaceBookmark('FormaPagoCab', FieldByName('FORMA_PAGO').AsString);
     ReplaceBookmark('BancoCab', FieldByName('DATOS_BANCARIOS').AsString);
 
@@ -344,9 +355,11 @@ var
 begin
   tbl_Cabecera.ParamByName('ID').AsString := AID;
   tbl_Detalles.ParamByName('ID_FACTURA').AsString := AID;
+  tbl_Vencimientos.ParamByName('ID_FACTURA').AsString := AID;
 
   tbl_Cabecera.Active := True;
   tbl_Detalles.Active := True;
+  tbl_Vencimientos.Active := True;  
 
   FCodigoFactura := AID;
 

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.7.0\0"
               VALUE "ProductVersion", "1.0.7.0\0"
-              VALUE "CompileDate", "miércoles, 11 de junio de 2008 12:23\0"
+              VALUE "CompileDate", "miércoles, 11 de junio de 2008 18:15\0"
          END
     END
     BLOCK "VarFileInfo"