Arreglo de recibos para que funcionen de forma autónoma sin necesidad de Facturas de (Ultima parte rematado (Falta la relación con contabilidad))
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@149 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
04e6004730
commit
6fb18ab4da
@ -58,47 +58,47 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
Binary file not shown.
@ -1,5 +1,5 @@
|
||||
<?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); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA"> + ' - ' + <frxDBCabecera."CODIGO_POSTAL_EMPRESA"> + ' ' + <frxDBCabecera."POBLACION_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); end; procedure Memo54OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCompensados."REFERENCIA"> <> '') then Memo54.Text := 'Recibos compensados'; end; procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> = '') then begin EtiCompensado.Visible := False; EtiCompensado2.Visible := False; end; end; procedure Memo55OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> <> '') then begin Memo55.Text := '( Compensado en el recibo ' + <frxDBCabecera."REFERENCIA_REC_COMPENSADO"> + ' )'; Memo1.Text := '( Compensado en el recibo ' + <frxDBCabecera."REFERENCIA_REC_COMPENSADO"> + ' )'; end; end; begin 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); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA"> + ' - ' + <frxDBCabecera."CODIGO_POSTAL_EMPRESA"> + ' ' + <frxDBCabecera."POBLACION_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); end; procedure Memo54OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCompensados."REFERENCIA"> <> '') then Memo54.Text := 'Recibos compensados'; end; procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> = '') then begin EtiCompensado.Visible := False; EtiCompensado2.Visible := False; end; end; procedure Memo55OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> <> '') then begin Memo55.Text := '( Compensado en el recibo ' + <frxDBCabecera."REFERENCIA_REC_COMPENSADO"> + ' )'; Memo1.Text := '( Compensado en el recibo ' + <frxDBCabecera."REFERENCIA_REC_COMPENSADO"> + ' )'; end; end; procedure Memo40OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."ID_FACTURA"> < 1) then begin Memo40.visible := False; Memo25.visible := False; eFormaPagoFactura.visible := False; Memo26.visible := False; end end; procedure Memo35OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."ID_FACTURA"> < 1) then begin Memo35.visible := False; Memo44.visible := False; eFechaFactura.visible := False; Memo47.visible := False; end end; procedure Memo42OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."ID_FACTURA"> < 1) then begin Memo42.visible := False; Memo45.visible := False; Memo38.visible := False; Memo39.visible := False; Memo43.visible := False; Memo27.visible := False; Memo28.visible := False; Memo48.visible := False; Memo49.visible := False; Memo52.visible := False; end; end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3A00000020446174615365743D226672784442436F6D70656E7361646F732220446174615365744E616D653D226672784442436F6D70656E7361646F73220000095661726961626C65730100055374796C650100">
|
||||
<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="">
|
||||
<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="Memo34" Left="92,25201" Top="185,19697" Width="161,85838" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."SITUACION"]"/>
|
||||
<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."NOMBRE_CLIENTE"]"/>
|
||||
<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="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."FORMA_PAGO_FACTURA"]"/>
|
||||
<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="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="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."FORMA_PAGO_FACTURA"]"/>
|
||||
<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."ENTIDAD_CLIENTE"]"/>
|
||||
<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."NIF_CIF_CLIENTE"]"/>
|
||||
<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="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."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="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."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo38" Left="473,32313" Top="207,87415" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."SUCURSAL_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo39" Left="530,01608" Top="207,87415" Width="26,67718" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."DC_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo43" Left="560,25232" Top="207,87415" Width="143,84261" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."CUENTA_CLIENTE"]"/>
|
||||
@ -83,7 +83,7 @@
|
||||
<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=""/>
|
||||
</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."DESCRIPCION"]"/>
|
||||
</TfrxMasterData>
|
||||
</TfrxReportPage>
|
||||
|
||||
@ -312,23 +312,37 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' +
|
||||
'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' +
|
||||
'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' +
|
||||
'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_REC' +
|
||||
'IBOS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,' +
|
||||
#10' V_RECIBOS_CLIENTE.CUENTA_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as ' +
|
||||
'NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CA' +
|
||||
'LLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRES' +
|
||||
'AS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as COD' +
|
||||
'IGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRE' +
|
||||
'SAS.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'
|
||||
'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIB' +
|
||||
'OS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTA' +
|
||||
'L_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10' V_RECIBO' +
|
||||
'S_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENT' +
|
||||
'E,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENT' +
|
||||
'A_CLIENTE,'#10' V_RECIBOS_CLIENTE.ID_TIENDA,'#10' V_RECIBOS_CLIENT' +
|
||||
'E.TIENDA,'#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZO' +
|
||||
'N_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACIO' +
|
||||
'N as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPR' +
|
||||
'ESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRES' +
|
||||
'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
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
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
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
@ -339,23 +353,33 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
end
|
||||
item
|
||||
DatasetField = 'SITUACION'
|
||||
TableField = 'SITUACION'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'SITUACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_FACTURA'
|
||||
TableField = 'ID_FACTURA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'ID_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_REMESA'
|
||||
TableField = 'ID_REMESA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'ID_REMESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_REMESA'
|
||||
TableField = 'REFERENCIA_REMESA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'REFERENCIA_REMESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_EMISION'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'FECHA_EMISION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_VENCIMIENTO'
|
||||
TableField = 'FECHA_VENCIMIENTO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'FECHA_VENCIMIENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
@ -363,119 +387,162 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
end
|
||||
item
|
||||
DatasetField = 'OBSERVACIONES'
|
||||
TableField = 'OBSERVACIONES'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'OBSERVACIONES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE'
|
||||
TableField = 'IMPORTE'
|
||||
end
|
||||
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'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'IMPORTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'OTROS_GASTOS'
|
||||
TableField = 'OTROS_GASTOS'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'OTROS_GASTOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_EMISION'
|
||||
TableField = 'FECHA_EMISION'
|
||||
DatasetField = 'FECHA_FACTURA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_RECIBO_COMPENSADO'
|
||||
TableField = 'ID_RECIBO_COMPENSADO'
|
||||
DatasetField = 'FORMA_PAGO_FACTURA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'FORMA_PAGO_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_REC_COMPENSADO'
|
||||
TableField = 'REFERENCIA_REC_COMPENSADO'
|
||||
DatasetField = 'IMPORTE_FACTURA'
|
||||
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>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -540,15 +607,15 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE'
|
||||
DataType = datFloat
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'OTROS_GASTOS'
|
||||
DataType = datFloat
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
@ -561,7 +628,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_FACTURA'
|
||||
DataType = datFloat
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_CLIENTE'
|
||||
@ -573,6 +640,26 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
DataType = datString
|
||||
Size = 15
|
||||
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
|
||||
Name = 'ENTIDAD_CLIENTE'
|
||||
DataType = datString
|
||||
@ -593,6 +680,15 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF_EMPRESA'
|
||||
DataType = datString
|
||||
@ -685,7 +781,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.Description.Strings = (
|
||||
'Demonstrates how to create simple list report.')
|
||||
ReportOptions.LastChange = 39276.413526655100000000
|
||||
ReportOptions.LastChange = 39504.692557326390000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
@ -698,7 +794,10 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
'begin'
|
||||
' DatosEmpresa.Lines.Clear;'
|
||||
' 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';'
|
||||
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
|
||||
@ -706,19 +805,6 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
' if (<frxDBCabecera."FAX"> <> '#39#39') then'
|
||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
|
||||
' 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;'
|
||||
''
|
||||
'procedure Memo54OnBeforePrint(Sender: TfrxComponent);'
|
||||
@ -730,7 +816,34 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> = '#39#39') then'
|
||||
' begin'
|
||||
' 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;'
|
||||
''
|
||||
'begin'
|
||||
|
||||
@ -24,10 +24,10 @@ type
|
||||
DADataCompensados: TDADataSource;
|
||||
frxDBCompensados: TfrxDBDataset;
|
||||
tbl_Compensados: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
frxReport: TfrxReport;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
|
||||
@ -103,57 +103,43 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
Width = 293
|
||||
end
|
||||
inherited eFechaEmision: TcxDBTextEdit
|
||||
Left = 441
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited eFormaPago: TcxDBTextEdit
|
||||
Left = 441
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 441
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited eNombreCliente: TcxDBTextEdit
|
||||
Left = 441
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
inherited eNifCif: TcxDBTextEdit
|
||||
Left = 441
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
Left = 441
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 84
|
||||
Width = 84
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 531
|
||||
ExplicitLeft = 531
|
||||
Left = 736
|
||||
ExplicitLeft = 736
|
||||
ExplicitWidth = 81
|
||||
Width = 81
|
||||
end
|
||||
inherited eDC: TcxDBTextEdit
|
||||
Left = 602
|
||||
ExplicitLeft = 602
|
||||
Left = 785
|
||||
ExplicitLeft = 785
|
||||
ExplicitWidth = 37
|
||||
Width = 37
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
Left = 441
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
@ -166,12 +152,37 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ExplicitWidth = 217
|
||||
Width = 217
|
||||
end
|
||||
inherited rRefReciboCompensado: TcxDBTextEdit
|
||||
ExplicitWidth = 191
|
||||
Width = 191
|
||||
end
|
||||
inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
|
||||
Left = 365
|
||||
Top = 272
|
||||
ExplicitLeft = 365
|
||||
Width = 350
|
||||
ExplicitTop = 272
|
||||
ExplicitWidth = 350
|
||||
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
|
||||
Left = 192
|
||||
ExplicitLeft = 192
|
||||
@ -284,18 +295,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
ExplicitWidth = 98
|
||||
end
|
||||
@ -338,6 +337,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
inherited eImporte: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
|
||||
ExplicitWidth = 150
|
||||
Width = 150
|
||||
end
|
||||
inherited eOtrosGastos: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
|
||||
@ -93,6 +93,9 @@ begin
|
||||
inherited;
|
||||
FImporteRestante := 0;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
//RECIBOS COMPENSADOS DESHABILITADOS
|
||||
pagCompensados.TabVisible := False;
|
||||
|
||||
ViewRecibo := frViewReciboCliente1;
|
||||
end;
|
||||
|
||||
|
||||
@ -92,7 +92,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 240
|
||||
Top = 267
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -104,12 +104,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
Height = 49
|
||||
Width = 274
|
||||
end
|
||||
object eFechaEmision: TcxDBTextEdit
|
||||
Left = 440
|
||||
Left = 661
|
||||
Top = 30
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_FACTURA'
|
||||
@ -131,11 +131,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Width = 20
|
||||
end
|
||||
object eFormaPago: TcxDBTextEdit
|
||||
Left = 440
|
||||
Left = 661
|
||||
Top = 57
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
|
||||
@ -157,11 +157,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
Width = 42
|
||||
end
|
||||
object eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 440
|
||||
Left = 661
|
||||
Top = 84
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_FACTURA'
|
||||
@ -188,12 +188,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
Height = 21
|
||||
Width = 182
|
||||
end
|
||||
object eNombreCliente: TcxDBTextEdit
|
||||
Left = 440
|
||||
Left = 661
|
||||
Top = 167
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NOMBRE_CLIENTE'
|
||||
@ -215,11 +215,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Width = 171
|
||||
end
|
||||
object eNifCif: TcxDBTextEdit
|
||||
Left = 440
|
||||
Left = 661
|
||||
Top = 140
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NIF_CIF_CLIENTE'
|
||||
@ -241,11 +241,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Width = 147
|
||||
end
|
||||
object eEntidad: TcxDBTextEdit
|
||||
Left = 440
|
||||
Left = 661
|
||||
Top = 194
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'ENTIDAD_CLIENTE'
|
||||
@ -267,11 +267,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
Width = 90
|
||||
end
|
||||
object eSucursal: TcxDBTextEdit
|
||||
Left = 674
|
||||
Left = 768
|
||||
Top = 194
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'SUCURSAL_CLIENTE'
|
||||
@ -293,7 +293,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 13
|
||||
TabOrder = 14
|
||||
Width = 75
|
||||
end
|
||||
object eDC: TcxDBTextEdit
|
||||
@ -319,11 +319,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 14
|
||||
TabOrder = 15
|
||||
Width = 33
|
||||
end
|
||||
object eCuenta: TcxDBTextEdit
|
||||
Left = 440
|
||||
Left = 661
|
||||
Top = 221
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'CUENTA_CLIENTE'
|
||||
@ -345,7 +345,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 15
|
||||
TabOrder = 16
|
||||
Width = 83
|
||||
end
|
||||
object eRemesa: TcxDBTextEdit
|
||||
@ -401,7 +401,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
end
|
||||
object rRefReciboCompensado: TcxDBTextEdit
|
||||
Left = 120
|
||||
Top = 189
|
||||
Top = 216
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -422,11 +422,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 191
|
||||
end
|
||||
inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
|
||||
Left = 364
|
||||
Left = 585
|
||||
Top = 281
|
||||
Width = 350
|
||||
Height = 212
|
||||
@ -436,9 +436,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 16
|
||||
TabOrder = 17
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 364
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 281
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
@ -462,15 +462,41 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 421
|
||||
ExplicitLeft = 421
|
||||
Left = 200
|
||||
ExplicitLeft = 200
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 311
|
||||
ExplicitLeft = 311
|
||||
Left = 90
|
||||
ExplicitLeft = 90
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -515,9 +541,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Control = eRemesa
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item17: TdxLayoutItem
|
||||
Caption = 'Descripci'#243'n:'
|
||||
Control = eDescripcion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
Caption = 'Compensado en recibo'
|
||||
Visible = False
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
Caption = 'Ref. recibo:'
|
||||
Control = rRefReciboCompensado
|
||||
|
||||
@ -72,6 +72,8 @@ type
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
frViewClienteRecibo: TfrViewDatosYSeleccionCliente;
|
||||
dxLayoutControlClienteModif: TdxLayoutGroup;
|
||||
dxLayoutControl1Item17: TdxLayoutItem;
|
||||
eDescripcion: TcxDBTextEdit;
|
||||
private
|
||||
FRecibo : IBizRecibosCliente;
|
||||
FController : IRecibosClienteController;
|
||||
@ -121,6 +123,7 @@ begin
|
||||
dxLayoutControlFactura.Visible := true;
|
||||
dxLayoutControlCliente.Visible := true;
|
||||
dxLayoutControlClienteModif.Visible := false;
|
||||
eDescripcion.Enabled := False;
|
||||
|
||||
if Assigned(FRecibo) then
|
||||
begin
|
||||
@ -130,6 +133,7 @@ begin
|
||||
dxLayoutControlFactura.Visible := false;
|
||||
dxLayoutControlCliente.Visible := false;
|
||||
dxLayoutControlClienteModif.Visible := true;
|
||||
eDescripcion.Enabled := True;
|
||||
end;
|
||||
end
|
||||
else
|
||||
|
||||
@ -51,11 +51,14 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
|
||||
Caption = 'Compensado'
|
||||
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
|
||||
Visible = False
|
||||
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
|
||||
Caption = 'Ref. recibo compensado'
|
||||
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewSITUACION: TcxGridDBColumn
|
||||
Caption = 'Situaci'#243'n'
|
||||
@ -157,7 +160,17 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 531
|
||||
ExplicitWidth = 531
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 229
|
||||
ExplicitLeft = 229
|
||||
ExplicitWidth = 287
|
||||
Width = 287
|
||||
end
|
||||
|
||||
Loading…
Reference in New Issue
Block a user