Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Peticiones varias

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@158 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2012-04-10 10:10:07 +00:00
parent 73d2a1d739
commit e9b52a06ef
19 changed files with 359 additions and 121 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
Source/Informes/1/InfComisiones.fr3
View File

File diff suppressed because one or more lines are too long

96
Source/Informes/1/InfComisionesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

5
Source/Informes/2/InfComisiones.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40445,4376351389" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo26OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;FechaIni&#62; &#60;&#62; '') then&#13;&#10; Memo31.Visible := True&#13;&#10; else&#13;&#10; Memo31.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;BEGIN&#13;&#10;&#13;&#10;END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41009,4732199537" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo26OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;FechaIni&#62; &#60;&#62; '') then&#13;&#10; Memo31.Visible := True&#13;&#10; else&#13;&#10; Memo31.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;BEGIN&#13;&#10;&#13;&#10;END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="115,08652142" Left="0" Top="16" Width="1046,92981"> <TfrxPageHeader Name="Band2" Height="115,08652142" Left="0" Top="16" Width="1046,92981">
@ -44,7 +44,8 @@
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="330" Width="1046,92981"> <TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="330" Width="1046,92981">
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/> <TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo30" Left="733,22882" Top="3,77953000000002" Width="301,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total comisión: [frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo30" Left="871,22882" Top="3,77953" Width="163,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisión: [frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="647" Top="5" Width="225" Height="16" ShowHint="False" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisionable: [SUM(&#60;frxDBCabecera.&#34;IMPORTE_COMISIONABLE&#34;&#62;,MasterData1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

5
Source/Informes/2/InfComisionesDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40445,4377365394" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo26OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;FechaIni&#62; &#60;&#62; '') then&#13;&#10; Memo31.Visible := True&#13;&#10; else&#13;&#10; Memo31.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;BEGIN&#13;&#10;&#13;&#10;END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41009,4739597801" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo26OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;FechaIni&#62; &#60;&#62; '') then&#13;&#10; Memo31.Visible := True&#13;&#10; else&#13;&#10; Memo31.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;BEGIN&#13;&#10;&#13;&#10;END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="115,08652142" Left="0" Top="16" Width="1046,92981"> <TfrxPageHeader Name="Band2" Height="115,08652142" Left="0" Top="16" Width="1046,92981">
@ -50,7 +50,8 @@
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="330" Width="1046,92981"> <TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="330" Width="1046,92981">
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/> <TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo30" Left="733,22882" Top="3,77953000000002" Width="301,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total comisión: [frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo30" Left="877,22882" Top="3,77953" Width="157,953" Height="19" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisión: [frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo26" Left="627" Top="3,77953" Width="247" Height="19" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="[SUM(&#60;frxDBCabecera.&#34;IMPORTE_COMISIONABLE&#34;&#62;,MasterData1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

64
Source/Informes/4/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

44
Source/Informes/4/InfAlbaranProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

48
Source/Informes/4/InfPedidoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

46
Source/Informes/4/InfPedidoProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

9
Source/Modulos/Comisiones/Views/uEditorComision.dfm
View File

@ -208,15 +208,6 @@ inherited fEditorComision: TfEditorComision
ExplicitWidth = 607 ExplicitWidth = 607
ExplicitHeight = 240 ExplicitHeight = 240
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
end>
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end

2
Source/Modulos/Comisiones/Views/uViewComision.pas
View File

@ -81,7 +81,7 @@ end;
procedure TfrViewComision.CustomViewShow(Sender: TObject); procedure TfrViewComision.CustomViewShow(Sender: TObject);
begin begin
inherited; inherited;
FAgentes := FAgentesController.BuscarTodos; FAgentes := FAgentesController.BuscarActivos;
dsAgentes.DataTable := FAgentes.DataTable; dsAgentes.DataTable := FAgentes.DataTable;
dsAgentes.DataTable.Active := True; dsAgentes.DataTable.Active := True;
end; end;

7
Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
View File

@ -19,6 +19,11 @@ inherited frViewFacturasComision: TfrViewFacturasComision
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_COMISION Column = cxGridViewIMPORTE_COMISION
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_COMISIONABLE
end> end>
OptionsCustomize.ColumnMoving = True OptionsCustomize.ColumnMoving = True
OptionsData.Appending = False OptionsData.Appending = False
@ -90,6 +95,7 @@ inherited frViewFacturasComision: TfrViewFacturasComision
DataBinding.FieldName = 'IMPORTE_COMISIONABLE' DataBinding.FieldName = 'IMPORTE_COMISIONABLE'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewCOMISION: TcxGridDBColumn object cxGridViewCOMISION: TcxGridDBColumn
@ -106,6 +112,7 @@ inherited frViewFacturasComision: TfrViewFacturasComision
DataBinding.FieldName = 'IMPORTE_COMISION' DataBinding.FieldName = 'IMPORTE_COMISION'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
end end

28
Source/Modulos/Contactos/Controller/uAgentesController.pas
View File

@ -14,6 +14,7 @@ type
function Eliminar(AAgente: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(AAgente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
function DarListaAnosObjetivosAlbaranesAgente(ID_AGENTE: Integer): TStringList; function DarListaAnosObjetivosAlbaranesAgente(ID_AGENTE: Integer): TStringList;
function DarListaAnosObjetivosFacturasAgente(ID_AGENTE: Integer): TStringList; function DarListaAnosObjetivosFacturasAgente(ID_AGENTE: Integer): TStringList;
function BuscarActivos: IBizContacto;
end; end;
TAgentesController = class(TContactosController, IAgentesController) TAgentesController = class(TContactosController, IAgentesController)
@ -27,6 +28,7 @@ type
function Buscar(const ID: Integer): IBizContacto; override; function Buscar(const ID: Integer): IBizContacto; override;
function BuscarTodos: IBizContacto; override; function BuscarTodos: IBizContacto; override;
function BuscarActivos: IBizContacto;
function Nuevo : IBizContacto; override; function Nuevo : IBizContacto; override;
function Guardar(AContacto : IBizContacto): Boolean; override; function Guardar(AContacto : IBizContacto): Boolean; override;
procedure Ver(AContacto : IBizContacto); override; procedure Ver(AContacto : IBizContacto); override;
@ -44,7 +46,7 @@ type
implementation implementation
uses uses
Windows, SysUtils, Forms, cxControls, Controls, Dialogs, uDataModuleAgentes, uEditorRegistryUtils, uDAInterfaces, Windows, SysUtils, Forms, cxControls, Controls, Dialogs, uDataModuleAgentes, uEditorRegistryUtils,
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf,
uEditorGridBase, uIntegerListUtils, uIEditorElegirAgentes; uEditorGridBase, uIntegerListUtils, uIEditorElegirAgentes;
@ -56,6 +58,30 @@ begin
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
end; end;
function TAgentesController.BuscarActivos: IBizContacto;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// INACTIVOS
Condicion := NewBinaryExpression(NewField('', fld_AgentesFECHA_BAJA), NewNull(), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
function TAgentesController.BuscarTodos: IBizContacto; function TAgentesController.BuscarTodos: IBizContacto;
begin begin
Result := (FDataModule as IDataModuleAgentes).GetItems; Result := (FDataModule as IDataModuleAgentes).GetItems;

BIN
Source/Modulos/Contactos/Views/Contactos_view.identcache
View File

Binary file not shown.

2
Source/Modulos/Contactos/Views/uEditorAgentes.dfm
View File

@ -57,7 +57,7 @@ inherited fEditorAgentes: TfEditorAgentes
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 775
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
ImageIndex = 22 ImageIndex = 22
Images = SmallImages Images = SmallImages

10
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -138,12 +138,6 @@ inherited fEditorClientes: TfEditorClientes
ExplicitWidth = 857 ExplicitWidth = 857
ExplicitHeight = 270 ExplicitHeight = 270
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 clientes'
Kind = skCount
Column = frViewClientes1.cxGridViewBLOQUEADO
end>
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -260,10 +254,6 @@ inherited fEditorClientes: TfEditorClientes
Enabled = True Enabled = True
Visible = True Visible = True
end end
inherited actExportarExcel: TAction
Enabled = True
Visible = True
end
object actDocumentosPresupuestos: TAction object actDocumentosPresupuestos: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Presupuestos' Caption = 'Presupuestos'

1
Source/Modulos/Contactos/Views/uViewAgentes.dfm
View File

@ -1,4 +1,5 @@
inherited frViewAgentes: TfrViewAgentes inherited frViewAgentes: TfrViewAgentes
OnShow = CustomViewShow
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged

7
Source/Modulos/Contactos/Views/uViewAgentes.pas
View File

@ -29,6 +29,7 @@ type
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);
procedure CustomViewShow(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
procedure AnadirFiltroSituaciones; procedure AnadirFiltroSituaciones;
@ -68,6 +69,12 @@ begin
cxGrid.ActiveLevel.GridView := cxGridView; cxGrid.ActiveLevel.GridView := cxGridView;
end; end;
procedure TfrViewAgentes.CustomViewShow(Sender: TObject);
begin
inherited;
cxGridLevel1.Active := True;
end;
procedure TfrViewAgentes.cxGridActiveTabChanged(Sender: TcxCustomGrid; procedure TfrViewAgentes.cxGridActiveTabChanged(Sender: TcxCustomGrid;
ALevel: TcxGridLevel); ALevel: TcxGridLevel);
begin begin

2
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas
View File

@ -140,7 +140,7 @@ begin
if Assigned(FContacto) then if Assigned(FContacto) then
begin begin
dsDatosComerciales.DataTable := FContacto.DataTable; dsDatosComerciales.DataTable := FContacto.DataTable;
dsAgentes.DataTable := FAgentesController.BuscarTodos.DataTable; dsAgentes.DataTable := FAgentesController.BuscarActivos.DataTable;
dsAgentes.DataTable.Active := True; dsAgentes.DataTable.Active := True;
FFormasPago := FFormasPagoController.BuscarTodos; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;

20
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -9,12 +9,20 @@ inherited frViewClientes: TfrViewClientes
ExplicitWidth = 793 ExplicitWidth = 793
ExplicitHeight = 321 ExplicitHeight = 321
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0 clientes'
Kind = skCount
Position = spFooter
Column = cxGridViewREFERENCIA
end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 clientes' Format = '0 clientes'
Kind = skCount Kind = skCount
Column = cxGridViewREFERENCIA Column = cxGridViewREFERENCIA
end> end>
OptionsView.GroupFooters = gfAlwaysVisible
inherited cxGridViewICONO: TcxGridDBColumn inherited cxGridViewICONO: TcxGridDBColumn
OnGetCellHint = cxGridViewICONOGetCellHint OnGetCellHint = cxGridViewICONOGetCellHint
end end
@ -128,24 +136,24 @@ inherited frViewClientes: TfrViewClientes
Width = 154 Width = 154
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 201 Left = 214
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 201 ExplicitLeft = 214
ExplicitWidth = 525 ExplicitWidth = 525
Width = 525 Width = 525
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 630 Left = 675
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 630 ExplicitLeft = 675
ExplicitWidth = 215 ExplicitWidth = 140
Width = 215 Width = 140
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel