Presupuestos de cliente: en el generador del informe del servidor poner la relación capítulos-detalle por código para que no se pierda.

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

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm

@@ -790,166 +790,21 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
   object frxReport: TfrxReport
     Version = '4.3'
     DotMatrixReport = False
-    EngineOptions.DoublePass = True
     IniFile = '\Software\Fast Reports'
     PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
-    ReportOptions.CreateDate = 39065.872423495400000000
+    ReportOptions.CreateDate = 39794.451322581020000000
-    ReportOptions.LastChange = 39785.571812581020000000
+    ReportOptions.LastChange = 39794.451322581020000000
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
-      ''
-      'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
-      'var'
-      '  Cadena: String;'
-      'begin'
-      '{  DatosEmpresa.Lines.Clear;'
-      '  if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
-      '       Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
-      '  if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
-      
-        '       Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
-        '">;'
-      '  DatosEmpresa.Lines.Add(Cadena);'
-      '}'
-      'end;'
-      ''
-      'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '{  NombreEmpresa.Lines.Clear;'
-      '  NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
-      '}'
-      'end;'
-      ''
-      'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
-      'var'
-      '  ACadena : String;'
-      'begin'
-      '{  ACadena := '#39#39';'
-      '  DireccionEnvio.Lines.Clear;'
-      '  if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
-      '     ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
-      ''
-      '  if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
-      
-        '     ACadena := ACadena + '#39'  '#39' + <frxDBCabecera."PERSONA_CONTACT' +
-        'O">;'
-      ''
-      '  DireccionEnvio.Lines.Add(ACadena);'
-      '  ACadena := '#39#39';'
-      '  DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
-      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
-      '     ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
-      '  if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
-      '     ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
-      ''
-      '  if (ACadena <> '#39#39') then'
-      '       DireccionEnvio.Lines.Add(ACadena);'
-      ''
-      '  if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
-      '       DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
-      ''
-      '  if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
-      '       DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
-      '}'
-      'end;'
-      ''
-      'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if not Engine.FinalPass then'
-      '     Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
-      ''
-      '  if Engine.FinalPass then'
-      '     Set('#39'Pagina'#39', (<Pagina> + 1));  '
-      'end;'
-      ''
-      'procedure frxReportOnStartReport(Sender: TfrxComponent);'
-      'begin'
-      '  Set('#39'Pagina'#39', 0);'
-      '  Set('#39'TotalPaginas'#39', 0);'
-      '  Set('#39'Capitulo'#39', '#39'0'#39');'
-      '  Set('#39'NumCapitulos'#39', 0);'
-      '  Set('#39'TextoNumCapitulo'#39', '#39#39#39' '#39#39#39');      '
-      'end;'
-      ''
-      'procedure Rich3OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if Engine.FinalPass then'
-      '  begin              '
-      '     Set('#39'Capitulo'#39', (<Capitulo> + 1));'
-      '     if (<NumCapitulos> = 1) then'
-      
-        '       MasterData1.Visible := False;                            ' +
-        '                                       '
-      '  end'
-      '  else'
-      '     Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1));               '
-      'end;'
-      ''
-      'procedure Page2OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if (Length(<frxDBCabecera."MEMORIA">) = 0) then'
-      
-        '       Page2.Visible := False;                                  ' +
-        '               '
-      'end;'
-      ''
-      'procedure Memo45OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if Engine.FinalPass then'
-      '  begin'
-      
-        '     Set('#39'Capitulo'#39', (<Capitulo> + 1));                         ' +
-        '        '
-      '     Set('#39'TextoNumCapitulo'#39', <Capitulo>);'
-      ''
-      
-        '     if ((<NumCapitulos> = 1) and (<frxDBCapitulos."CONCEPTO"> =' +
-        ' '#39'General'#39')) then'
-      '       MasterData1.Visible := False'
-      '     else begin                                     '
-      
-        '       if (<frxDBCapitulos."TIPO_DETALLE"> = '#39'Titulo opcional'#39') ' +
-        'then'
-      '       begin'
-      '         Set('#39'TextoNumCapitulo'#39', '#39#39#39'OPCIONAL'#39#39#39');'
-      '       end'
-      '     end                      '
-      '  end'
-      '  else             '
-      '     Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1));'
-      'end;'
-      ''
-      'procedure Memo47OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '    if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
-      '    begin'
-      
-        '       Rich8.Visible := False;                                  ' +
-        '                                                    '
-      '       Memo47.Visible := False;'
-      '    end                               '
-      'end;'
-      ''
-      'procedure Footer2OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if not ((<frxDBCabecera."DESCUENTO">) > 0) then'
-      '  begin'
-      '    mBonificacion.Visible := False;'
-      
-        '    mImporteFinal.Visible := False;                             ' +
-        '                                         '
-      '  end;            '
-      'end;'
       ''
       'begin'
       ''
       'end.')
     ShowProgress = False
     StoreInDFM = False
-    OnStartReport = 'frxReportOnStartReport'
     Left = 169
     Top = 16
   end
@@ -1191,6 +1046,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
     RemoteFetchEnabled = False
     LocalSchema = schReport
     LocalDataStreamer = DABin2DataStreamer1
+    MasterSource = DADSCapitulos
+    MasterFields = 'ID'
     DetailFields = 'ID_CAPITULO'
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas

@@ -118,6 +118,13 @@ begin
   frxDBCapitulos.DataSource := DADSCapitulos;
   frxDBDetalles.DataSource := DADSDetalles;
   frxDBResumen.DataSource := DADSResumen;
+
+  with tbl_Detalles do
+  begin
+    MasterSource := DADSCapitulos;
+    MasterFields := 'ID';
+    DetailFields := 'ID_CAPITULO';
+  end;
 end;
 
 function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray): Binary;