Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de recibos para que funcionen de forma autónoma sin necesidad de Facturas de (Ultima parte rematado (Falta la relación con contabilidad))

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@149 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-02-26 16:06:26 +00:00
parent 04e6004730
commit 6fb18ab4da
10 changed files with 408 additions and 242 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
Source/Base/Base.dproj
View File

@ -58,47 +58,47 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D10R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

14
Source/Informes/InfReciboCliente.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.3" 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="Demonstrates how to create simple list report." ReportOptions.LastChange="39455,7920207523" 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; + ' - ' + &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; + ' ' + &#60;frxDBCabecera.&#34;POBLACION_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;end;&#13;&#10;&#13;&#10;procedure Memo54OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCompensados.&#34;REFERENCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; Memo54.Text := 'Recibos compensados';&#13;&#10;end;&#13;&#10;&#13;&#10;procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;REFERENCIA_REC_COMPENSADO&#34;&#62; = '') then&#13;&#10; begin&#13;&#10; EtiCompensado.Visible := False;&#13;&#10; EtiCompensado2.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo55OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;REFERENCIA_REC_COMPENSADO&#34;&#62; &#60;&#62; '') then&#13;&#10; begin&#13;&#10; Memo55.Text := '( Compensado en el recibo ' + &#60;frxDBCabecera.&#34;REFERENCIA_REC_COMPENSADO&#34;&#62; + ' )';&#13;&#10; Memo1.Text := '( Compensado en el recibo ' + &#60;frxDBCabecera.&#34;REFERENCIA_REC_COMPENSADO&#34;&#62; + ' )';&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C1F00000020446174615365744E616D653D226672784442436F6D70656E7361646F73220000095661726961626C65730100055374796C650100"> <TfrxReport Version="4.3" 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="Demonstrates how to create simple list report." ReportOptions.LastChange="39504,7112854398" 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; + ' - ' + &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; + ' ' + &#60;frxDBCabecera.&#34;POBLACION_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;end;&#13;&#10;&#13;&#10;procedure Memo54OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCompensados.&#34;REFERENCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; Memo54.Text := 'Recibos compensados';&#13;&#10;end;&#13;&#10;&#13;&#10;procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;REFERENCIA_REC_COMPENSADO&#34;&#62; = '') then&#13;&#10; begin&#13;&#10; EtiCompensado.Visible := False;&#13;&#10; EtiCompensado2.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo55OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;REFERENCIA_REC_COMPENSADO&#34;&#62; &#60;&#62; '') then&#13;&#10; begin&#13;&#10; Memo55.Text := '( Compensado en el recibo ' + &#60;frxDBCabecera.&#34;REFERENCIA_REC_COMPENSADO&#34;&#62; + ' )';&#13;&#10; Memo1.Text := '( Compensado en el recibo ' + &#60;frxDBCabecera.&#34;REFERENCIA_REC_COMPENSADO&#34;&#62; + ' )';&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo40OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;ID_FACTURA&#34;&#62; &#60; 1) then&#13;&#10; begin&#13;&#10; Memo40.visible := False;&#13;&#10; Memo25.visible := False; &#13;&#10; eFormaPagoFactura.visible := False;&#13;&#10; Memo26.visible := False; &#13;&#10; end&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo35OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;ID_FACTURA&#34;&#62; &#60; 1) then&#13;&#10; begin&#13;&#10; Memo35.visible := False;&#13;&#10; Memo44.visible := False; &#13;&#10; eFechaFactura.visible := False;&#13;&#10; Memo47.visible := False; &#13;&#10; end&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo42OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;ID_FACTURA&#34;&#62; &#60; 1) then&#13;&#10; begin&#13;&#10; Memo42.visible := False; &#13;&#10; Memo45.visible := False;&#13;&#10; Memo38.visible := False;&#13;&#10; Memo39.visible := False;&#13;&#10; Memo43.visible := False;&#13;&#10;&#13;&#10; Memo27.visible := False; &#13;&#10; Memo28.visible := False;&#13;&#10; Memo48.visible := False;&#13;&#10; Memo49.visible := False;&#13;&#10; Memo52.visible := False; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3A00000020446174615365743D226672784442436F6D70656E7361646F732220446174615365744E616D653D226672784442436F6D70656E7361646F73220000095661726961626C65730100055374796C650100">
<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" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" LargeDesignHeight="True" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" LargeDesignHeight="True" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData2" Height="1005,35498" Left="0" Top="18,89765" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0"> <TfrxMasterData Name="MasterData2" Height="1005,35498" Left="0" Top="18,89765" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0">
@ -27,13 +27,13 @@
<TfrxMemoView Name="Memo33" Left="12,22047" Top="185,19697" Width="61,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Situación:"/> <TfrxMemoView Name="Memo33" Left="12,22047" Top="185,19697" Width="61,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Situación:"/>
<TfrxMemoView Name="Memo34" Left="92,25201" Top="185,19697" Width="161,85838" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SITUACION&#34;]"/> <TfrxMemoView Name="Memo34" Left="92,25201" Top="185,19697" Width="161,85838" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo37" Left="333,48052" Top="139,84261" Width="369,73253" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo37" Left="333,48052" Top="139,84261" Width="369,73253" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo40" Left="333,48052" Top="162,51979" Width="113,3859" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Forma pago factura:"/> <TfrxMemoView Name="Memo40" Left="333,48052" Top="162,51979" Width="113,3859" Height="18,89765" OnBeforePrint="Memo40OnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Forma pago factura:"/>
<TfrxMemoView Name="Memo41" Left="446,64595" Top="162,51979" Width="257,22851" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FORMA_PAGO_FACTURA&#34;]"/> <TfrxMemoView Name="eFormaPagoFactura" Left="446,64595" Top="162,51979" Width="257,22851" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FORMA_PAGO_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo42" Left="333,48052" Top="207,87415" Width="79,37013" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº de cuenta:"/> <TfrxMemoView Name="Memo42" Left="333,48052" Top="207,87415" Width="79,37013" Height="18,89765" OnBeforePrint="Memo42OnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº de cuenta:"/>
<TfrxMemoView Name="Memo45" Left="416,40971" Top="207,87415" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo45" Left="416,40971" Top="207,87415" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo46" Left="333,48052" Top="117,16543" Width="369,73253" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="NIF / CIF: [frxDBCabecera.&#34;NIF_CIF_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo46" Left="333,48052" Top="117,16543" Width="369,73253" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="NIF / CIF: [frxDBCabecera.&#34;NIF_CIF_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo35" Left="333,48052" Top="185,19697" Width="113,3859" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha factura:"/> <TfrxMemoView Name="Memo35" Left="333,48052" Top="185,19697" Width="113,3859" Height="18,89765" OnBeforePrint="Memo35OnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha factura:"/>
<TfrxMemoView Name="Memo36" Left="446,64595" Top="185,19697" Width="257,22851" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_FACTURA&#34;]"/> <TfrxMemoView Name="eFechaFactura" Left="446,64595" Top="185,19697" Width="257,22851" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo38" Left="473,32313" Top="207,87415" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo38" Left="473,32313" Top="207,87415" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo39" Left="530,01608" Top="207,87415" Width="26,67718" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo39" Left="530,01608" Top="207,87415" Width="26,67718" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo43" Left="560,25232" Top="207,87415" Width="143,84261" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo43" Left="560,25232" Top="207,87415" Width="143,84261" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA_CLIENTE&#34;]"/>
@ -83,7 +83,7 @@
<TfrxHeader Name="Header1" Height="22,67718" Left="0" Top="18,89765" Width="718,1107"> <TfrxHeader Name="Header1" Height="22,67718" Left="0" Top="18,89765" Width="718,1107">
<TfrxMemoView Name="Memo54" Left="0" Top="0" Width="264,5671" Height="18,89765" OnBeforePrint="Memo54OnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="4" ParentFont="False" Text=""/> <TfrxMemoView Name="Memo54" Left="0" Top="0" Width="264,5671" Height="18,89765" OnBeforePrint="Memo54OnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="4" ParentFont="False" Text=""/>
</TfrxHeader> </TfrxHeader>
<TfrxMasterData Name="MasterData1" Height="26,45671" Left="0" Top="64,25201" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBCompensados" RowCount="0"> <TfrxMasterData Name="MasterData1" Height="26,45671" Left="0" Top="64,25201" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCompensados" DataSetName="frxDBCompensados" RowCount="0">
<TfrxMemoView Name="Memo56" Left="7,55906" Top="3,77952999999999" Width="699,21305" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBCompensados.&#34;DESCRIPCION&#34;]"/> <TfrxMemoView Name="Memo56" Left="7,55906" Top="3,77952999999999" Width="699,21305" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBCompensados.&#34;DESCRIPCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
</TfrxReportPage> </TfrxReportPage>

377
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -312,23 +312,37 @@ object RptRecibosCliente: TRptRecibosCliente
'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' + 'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' +
'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' + 'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' +
'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' + 'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' +
'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_REC' + 'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIB' +
'IBOS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,' + 'OS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTA' +
#10' V_RECIBOS_CLIENTE.CUENTA_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as ' + 'L_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10' V_RECIBO' +
'NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CA' + 'S_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENT' +
'LLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRES' + 'E,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENT' +
'AS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as COD' + 'A_CLIENTE,'#10' V_RECIBOS_CLIENTE.ID_TIENDA,'#10' V_RECIBOS_CLIENT' +
'IGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRE' + 'E.TIENDA,'#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZO' +
'SAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS' + 'N_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACIO' +
'.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE' + 'N as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPR' +
#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.' + 'ESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRES' +
'ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID' 'AS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,' +
#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.' +
'LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON' +
' (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_' +
'CLIENTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'ID' DatasetField = 'ID'
TableField = 'ID' TableField = 'ID'
end end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = '<unknown>'
SQLOrigin = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_REC_COMPENSADO'
end
item item
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
@ -339,23 +353,33 @@ object RptRecibosCliente: TRptRecibosCliente
end end
item item
DatasetField = 'SITUACION' DatasetField = 'SITUACION'
TableField = 'SITUACION' TableField = '<unknown>'
SQLOrigin = 'SITUACION'
end end
item item
DatasetField = 'ID_FACTURA' DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA' TableField = '<unknown>'
SQLOrigin = 'ID_FACTURA'
end end
item item
DatasetField = 'ID_REMESA' DatasetField = 'ID_REMESA'
TableField = 'ID_REMESA' TableField = '<unknown>'
SQLOrigin = 'ID_REMESA'
end end
item item
DatasetField = 'REFERENCIA_REMESA' DatasetField = 'REFERENCIA_REMESA'
TableField = 'REFERENCIA_REMESA' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_REMESA'
end
item
DatasetField = 'FECHA_EMISION'
TableField = '<unknown>'
SQLOrigin = 'FECHA_EMISION'
end end
item item
DatasetField = 'FECHA_VENCIMIENTO' DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO' TableField = '<unknown>'
SQLOrigin = 'FECHA_VENCIMIENTO'
end end
item item
DatasetField = 'DESCRIPCION' DatasetField = 'DESCRIPCION'
@ -363,119 +387,162 @@ object RptRecibosCliente: TRptRecibosCliente
end end
item item
DatasetField = 'OBSERVACIONES' DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES' TableField = '<unknown>'
SQLOrigin = 'OBSERVACIONES'
end end
item item
DatasetField = 'IMPORTE' DatasetField = 'IMPORTE'
TableField = 'IMPORTE' TableField = '<unknown>'
end SQLOrigin = 'IMPORTE'
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'FORMA_PAGO_FACTURA'
TableField = 'FORMA_PAGO_FACTURA'
end
item
DatasetField = 'IMPORTE_FACTURA'
TableField = 'IMPORTE_FACTURA'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
end
item
DatasetField = 'SUCURSAL_CLIENTE'
TableField = 'SUCURSAL_CLIENTE'
end
item
DatasetField = 'DC_CLIENTE'
TableField = 'DC_CLIENTE'
end
item
DatasetField = 'CUENTA_CLIENTE'
TableField = 'CUENTA_CLIENTE'
end
item
DatasetField = 'NIF_CIF_EMPRESA'
TableField = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL'
TableField = 'RAZON_SOCIAL'
end
item
DatasetField = 'CALLE_EMPRESA'
TableField = 'CALLE_EMPRESA'
end
item
DatasetField = 'POBLACION_EMPRESA'
TableField = 'POBLACION_EMPRESA'
end
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'CODIGO_POSTAL_EMPRESA'
TableField = 'CODIGO_POSTAL_EMPRESA'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'REGISTRO_MERCANTIL'
TableField = 'REGISTRO_MERCANTIL'
end
item
DatasetField = 'LOGOTIPO'
TableField = 'LOGOTIPO'
end end
item item
DatasetField = 'OTROS_GASTOS' DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS' TableField = '<unknown>'
SQLOrigin = 'OTROS_GASTOS'
end end
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end end
item item
DatasetField = 'FECHA_EMISION' DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_EMISION' TableField = '<unknown>'
SQLOrigin = 'FECHA_FACTURA'
end end
item item
DatasetField = 'ID_RECIBO_COMPENSADO' DatasetField = 'FORMA_PAGO_FACTURA'
TableField = 'ID_RECIBO_COMPENSADO' TableField = '<unknown>'
SQLOrigin = 'FORMA_PAGO_FACTURA'
end end
item item
DatasetField = 'REFERENCIA_REC_COMPENSADO' DatasetField = 'IMPORTE_FACTURA'
TableField = 'REFERENCIA_REC_COMPENSADO' TableField = '<unknown>'
SQLOrigin = 'IMPORTE_FACTURA'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'CALLE_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'CALLE_CLIENTE'
end
item
DatasetField = 'PROVINCIA_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'PROVINCIA_CLIENTE'
end
item
DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'CODIGO_POSTAL_CLIENTE'
end
item
DatasetField = 'POBLACION_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'POBLACION_CLIENTE'
end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'ENTIDAD_CLIENTE'
end
item
DatasetField = 'SUCURSAL_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'SUCURSAL_CLIENTE'
end
item
DatasetField = 'DC_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'DC_CLIENTE'
end
item
DatasetField = 'CUENTA_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'CUENTA_CLIENTE'
end
item
DatasetField = 'ID_TIENDA'
TableField = '<unknown>'
SQLOrigin = 'ID_TIENDA'
end
item
DatasetField = 'TIENDA'
TableField = '<unknown>'
SQLOrigin = 'TIENDA'
end
item
DatasetField = 'NIF_CIF_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL'
TableField = '<unknown>'
SQLOrigin = 'RAZON_SOCIAL'
end
item
DatasetField = 'CALLE_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'CALLE_EMPRESA'
end
item
DatasetField = 'POBLACION_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'POBLACION_EMPRESA'
end
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'CODIGO_POSTAL_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'CODIGO_POSTAL_EMPRESA'
end
item
DatasetField = 'TELEFONO_1'
TableField = '<unknown>'
SQLOrigin = 'TELEFONO_1'
end
item
DatasetField = 'FAX'
TableField = '<unknown>'
SQLOrigin = 'FAX'
end
item
DatasetField = 'MOVIL_1'
TableField = '<unknown>'
SQLOrigin = 'MOVIL_1'
end
item
DatasetField = 'EMAIL_1'
TableField = '<unknown>'
SQLOrigin = 'EMAIL_1'
end
item
DatasetField = 'PAGINA_WEB'
TableField = '<unknown>'
SQLOrigin = 'PAGINA_WEB'
end
item
DatasetField = 'REGISTRO_MERCANTIL'
TableField = '<unknown>'
SQLOrigin = 'REGISTRO_MERCANTIL'
end
item
DatasetField = 'LOGOTIPO'
TableField = '<unknown>'
SQLOrigin = 'LOGOTIPO'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -540,15 +607,15 @@ object RptRecibosCliente: TRptRecibosCliente
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
@ -561,7 +628,7 @@ object RptRecibosCliente: TRptRecibosCliente
end end
item item
Name = 'IMPORTE_FACTURA' Name = 'IMPORTE_FACTURA'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
@ -573,6 +640,26 @@ object RptRecibosCliente: TRptRecibosCliente
DataType = datString DataType = datString
Size = 15 Size = 15
end end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'ENTIDAD_CLIENTE'
DataType = datString DataType = datString
@ -593,6 +680,15 @@ object RptRecibosCliente: TRptRecibosCliente
DataType = datString DataType = datString
Size = 15 Size = 15
end end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
@ -685,7 +781,7 @@ object RptRecibosCliente: TRptRecibosCliente
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = ( ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.') 'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 39276.413526655100000000 ReportOptions.LastChange = 39504.692557326390000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
@ -698,7 +794,10 @@ object RptRecibosCliente: TRptRecibosCliente
'begin' 'begin'
' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);' ' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA"> + '#39' - '#39 +
' + <frxDBCabecera."CODIGO_POSTAL_EMPRESA"> + '#39' '#39' + <frxDBCabecer' +
'a."POBLACION_EMPRESA">);'
'' ''
' Cadena := '#39#39';' ' Cadena := '#39#39';'
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then' ' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
@ -706,19 +805,6 @@ object RptRecibosCliente: TRptRecibosCliente
' if (<frxDBCabecera."FAX"> <> '#39#39') then' ' if (<frxDBCabecera."FAX"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;' ' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
' DatosEmpresa.Lines.Add(Cadena);' ' DatosEmpresa.Lines.Add(Cadena);'
''
' Cadena := '#39#39';'
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' '#39' + <frxDBCabecera."POBLACION_EMPRES' +
'A">;'
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
'ESA">;'
' DatosEmpresa.Lines.Add(Cadena);'
'end;' 'end;'
'' ''
'procedure Memo54OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo54OnBeforePrint(Sender: TfrxComponent);'
@ -730,7 +816,34 @@ object RptRecibosCliente: TRptRecibosCliente
'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);' 'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> = '#39#39') then' ' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> = '#39#39') then'
' begin'
' EtiCompensado.Visible := False;' ' EtiCompensado.Visible := False;'
' EtiCompensado2.Visible := False;'
' end;'
'end;'
''
'procedure Memo55OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> <> '#39#39') then'
' begin'
' Memo55.Text := '#39'( Compensado en el recibo '#39' + <frxDBCabecer' +
'a."REFERENCIA_REC_COMPENSADO"> + '#39' )'#39';'
' Memo1.Text := '#39'( Compensado en el recibo '#39' + <frxDBCabecera' +
'."REFERENCIA_REC_COMPENSADO"> + '#39' )'#39';'
' end;'
'end;'
''
'procedure Memo40OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
' begin'
' Memo40.Lines.Clear; '
'// Memo40.Lines.Add('#39'Calle: '#39'); ' +
' '
' end'
'end;' 'end;'
'' ''
'begin' 'begin'

4
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
View File

@ -24,10 +24,10 @@ type
DADataCompensados: TDADataSource; DADataCompensados: TDADataSource;
frxDBCompensados: TfrxDBDataset; frxDBCompensados: TfrxDBDataset;
tbl_Compensados: TDAMemDataTable; tbl_Compensados: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxReport: TfrxReport; frxReport: TfrxReport;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;

65
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -103,57 +103,43 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 293 Width = 293
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 441
ExplicitLeft = 441
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 441
ExplicitLeft = 441
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 441
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 441
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 441
ExplicitLeft = 441
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 441
ExplicitLeft = 441
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Left = 441
ExplicitLeft = 441
ExplicitWidth = 84 ExplicitWidth = 84
Width = 84 Width = 84
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 531 Left = 736
ExplicitLeft = 531 ExplicitLeft = 736
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Left = 602 Left = 785
ExplicitLeft = 602 ExplicitLeft = 785
ExplicitWidth = 37 ExplicitWidth = 37
Width = 37 Width = 37
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 441
ExplicitLeft = 441
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
@ -166,12 +152,37 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited rRefReciboCompensado: TcxDBTextEdit
ExplicitWidth = 191
Width = 191
end
inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 365
Top = 272 Top = 272
ExplicitLeft = 365 Width = 350
ExplicitTop = 272 ExplicitTop = 272
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 192 Left = 192
ExplicitLeft = 192 ExplicitLeft = 192
@ -284,18 +295,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 677 Width = 677
ExplicitWidth = 677 ExplicitWidth = 677
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end
@ -338,6 +337,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable

3
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -93,6 +93,9 @@ begin
inherited; inherited;
FImporteRestante := 0; FImporteRestante := 0;
pgPaginas.ActivePageIndex := 0; pgPaginas.ActivePageIndex := 0;
//RECIBOS COMPENSADOS DESHABILITADOS
pagCompensados.TabVisible := False;
ViewRecibo := frViewReciboCliente1; ViewRecibo := frViewReciboCliente1;
end; end;

88
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -92,7 +92,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 240 Top = 267
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -104,12 +104,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Height = 49 Height = 49
Width = 274 Width = 274
end end
object eFechaEmision: TcxDBTextEdit object eFechaEmision: TcxDBTextEdit
Left = 440 Left = 661
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
@ -131,11 +131,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 8
Width = 20 Width = 20
end end
object eFormaPago: TcxDBTextEdit object eFormaPago: TcxDBTextEdit
Left = 440 Left = 661
Top = 57 Top = 57
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA' DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@ -157,11 +157,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 9
Width = 42 Width = 42
end end
object eImporteTotal: TcxDBCurrencyEdit object eImporteTotal: TcxDBCurrencyEdit
Left = 440 Left = 661
Top = 84 Top = 84
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataField = 'IMPORTE_FACTURA'
@ -188,12 +188,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Height = 21 Height = 21
Width = 182 Width = 182
end end
object eNombreCliente: TcxDBTextEdit object eNombreCliente: TcxDBTextEdit
Left = 440 Left = 661
Top = 167 Top = 167
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_CLIENTE' DataBinding.DataField = 'NOMBRE_CLIENTE'
@ -215,11 +215,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 12
Width = 171 Width = 171
end end
object eNifCif: TcxDBTextEdit object eNifCif: TcxDBTextEdit
Left = 440 Left = 661
Top = 140 Top = 140
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_CLIENTE' DataBinding.DataField = 'NIF_CIF_CLIENTE'
@ -241,11 +241,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Width = 147 Width = 147
end end
object eEntidad: TcxDBTextEdit object eEntidad: TcxDBTextEdit
Left = 440 Left = 661
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ENTIDAD_CLIENTE' DataBinding.DataField = 'ENTIDAD_CLIENTE'
@ -267,11 +267,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 13
Width = 90 Width = 90
end end
object eSucursal: TcxDBTextEdit object eSucursal: TcxDBTextEdit
Left = 674 Left = 768
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SUCURSAL_CLIENTE' DataBinding.DataField = 'SUCURSAL_CLIENTE'
@ -293,7 +293,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 TabOrder = 14
Width = 75 Width = 75
end end
object eDC: TcxDBTextEdit object eDC: TcxDBTextEdit
@ -319,11 +319,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14 TabOrder = 15
Width = 33 Width = 33
end end
object eCuenta: TcxDBTextEdit object eCuenta: TcxDBTextEdit
Left = 440 Left = 661
Top = 221 Top = 221
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CUENTA_CLIENTE' DataBinding.DataField = 'CUENTA_CLIENTE'
@ -345,7 +345,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15 TabOrder = 16
Width = 83 Width = 83
end end
object eRemesa: TcxDBTextEdit object eRemesa: TcxDBTextEdit
@ -401,7 +401,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
object rRefReciboCompensado: TcxDBTextEdit object rRefReciboCompensado: TcxDBTextEdit
Left = 120 Left = 120
Top = 189 Top = 216
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -422,11 +422,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 6
Width = 191 Width = 191
end end
inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 364 Left = 585
Top = 281 Top = 281
Width = 350 Width = 350
Height = 212 Height = 212
@ -436,9 +436,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 16 TabOrder = 17
ReadOnly = False ReadOnly = False
ExplicitLeft = 364 ExplicitLeft = 585
ExplicitTop = 281 ExplicitTop = 281
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -462,15 +462,41 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 421 Left = 200
ExplicitLeft = 421 ExplicitLeft = 200
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 311 Left = 90
ExplicitLeft = 311 ExplicitLeft = 90
end end
end end
end end
object eDescripcion: TcxDBTextEdit
Left = 120
Top = 165
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 437
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -515,9 +541,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eRemesa Control = eRemesa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'Descripci'#243'n:'
Control = eDescripcion
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Compensado en recibo' Caption = 'Compensado en recibo'
Visible = False
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Ref. recibo:' Caption = 'Ref. recibo:'
Control = rRefReciboCompensado Control = rRefReciboCompensado

4
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

@ -72,6 +72,8 @@ type
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteRecibo: TfrViewDatosYSeleccionCliente; frViewClienteRecibo: TfrViewDatosYSeleccionCliente;
dxLayoutControlClienteModif: TdxLayoutGroup; dxLayoutControlClienteModif: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
eDescripcion: TcxDBTextEdit;
private private
FRecibo : IBizRecibosCliente; FRecibo : IBizRecibosCliente;
FController : IRecibosClienteController; FController : IRecibosClienteController;
@ -121,6 +123,7 @@ begin
dxLayoutControlFactura.Visible := true; dxLayoutControlFactura.Visible := true;
dxLayoutControlCliente.Visible := true; dxLayoutControlCliente.Visible := true;
dxLayoutControlClienteModif.Visible := false; dxLayoutControlClienteModif.Visible := false;
eDescripcion.Enabled := False;
if Assigned(FRecibo) then if Assigned(FRecibo) then
begin begin
@ -130,6 +133,7 @@ begin
dxLayoutControlFactura.Visible := false; dxLayoutControlFactura.Visible := false;
dxLayoutControlCliente.Visible := false; dxLayoutControlCliente.Visible := false;
dxLayoutControlClienteModif.Visible := true; dxLayoutControlClienteModif.Visible := true;
eDescripcion.Enabled := True;
end; end;
end end
else else

13
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -51,11 +51,14 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
Caption = 'Compensado' Caption = 'Compensado'
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
Visible = False
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
Caption = 'Ref. recibo compensado' Caption = 'Ref. recibo compensado'
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
VisibleForCustomization = False
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n' Caption = 'Situaci'#243'n'
@ -157,7 +160,17 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 229
ExplicitLeft = 229
ExplicitWidth = 287 ExplicitWidth = 287
Width = 287 Width = 287
end end