Version 2.5.1. Se pone campo situacion en facturas de cliente y proveedor dejándolas manuales como en el programa antiguo
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@40 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
parent
d2b4a4ee6b
commit
897836b291
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -2667,6 +2667,7 @@ CREATE VIEW V_FACTURAS_CLIENTE(
|
|||||||
IMPORTE_TOTAL,
|
IMPORTE_TOTAL,
|
||||||
OBSERVACIONES,
|
OBSERVACIONES,
|
||||||
ID_CLIENTE,
|
ID_CLIENTE,
|
||||||
|
REFERENCIA_CLIENTE,
|
||||||
NOMBRE_CLIENTE,
|
NOMBRE_CLIENTE,
|
||||||
NOMBRE_COMERCIAL_CLIENTE,
|
NOMBRE_COMERCIAL_CLIENTE,
|
||||||
NIF_CIF,
|
NIF_CIF,
|
||||||
@ -2716,6 +2717,7 @@ SELECT FACTURAS_CLIENTE.ID,
|
|||||||
FACTURAS_CLIENTE.IMPORTE_TOTAL,
|
FACTURAS_CLIENTE.IMPORTE_TOTAL,
|
||||||
FACTURAS_CLIENTE.OBSERVACIONES,
|
FACTURAS_CLIENTE.OBSERVACIONES,
|
||||||
FACTURAS_CLIENTE.ID_CLIENTE,
|
FACTURAS_CLIENTE.ID_CLIENTE,
|
||||||
|
CONTACTOS.REFERENCIA,
|
||||||
CONTACTOS.NOMBRE,
|
CONTACTOS.NOMBRE,
|
||||||
CLIENTES_DATOS.NOMBRE_COMERCIAL,
|
CLIENTES_DATOS.NOMBRE_COMERCIAL,
|
||||||
FACTURAS_CLIENTE.NIF_CIF,
|
FACTURAS_CLIENTE.NIF_CIF,
|
||||||
@ -2782,6 +2784,7 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
|
|||||||
IMPORTE_TOTAL,
|
IMPORTE_TOTAL,
|
||||||
OBSERVACIONES,
|
OBSERVACIONES,
|
||||||
ID_PROVEEDOR,
|
ID_PROVEEDOR,
|
||||||
|
REF_PROVEEDOR,
|
||||||
NOMBRE_PROVEEDOR,
|
NOMBRE_PROVEEDOR,
|
||||||
NOMBRE_COMERCIAL_PROVEEDOR,
|
NOMBRE_COMERCIAL_PROVEEDOR,
|
||||||
NIF_CIF,
|
NIF_CIF,
|
||||||
@ -2828,6 +2831,7 @@ SELECT FACTURAS_PROVEEDOR.ID,
|
|||||||
FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
||||||
FACTURAS_PROVEEDOR.OBSERVACIONES,
|
FACTURAS_PROVEEDOR.OBSERVACIONES,
|
||||||
FACTURAS_PROVEEDOR.ID_PROVEEDOR,
|
FACTURAS_PROVEEDOR.ID_PROVEEDOR,
|
||||||
|
CONTACTOS.REFERENCIA,
|
||||||
CONTACTOS.NOMBRE,
|
CONTACTOS.NOMBRE,
|
||||||
PROVEEDORES_DATOS.NOMBRE_COMERCIAL,
|
PROVEEDORES_DATOS.NOMBRE_COMERCIAL,
|
||||||
FACTURAS_PROVEEDOR.NIF_CIF,
|
FACTURAS_PROVEEDOR.NIF_CIF,
|
||||||
@ -2864,8 +2868,7 @@ SELECT FACTURAS_PROVEEDOR.ID,
|
|||||||
LEFT JOIN EMPRESAS_TIENDAS
|
LEFT JOIN EMPRESAS_TIENDAS
|
||||||
ON (EMPRESAS_TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA)
|
ON (EMPRESAS_TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA)
|
||||||
LEFT JOIN V_CONT_FAC_PRO_COMPRAS ON (V_CONT_FAC_PRO_COMPRAS.ID_FACTURA = FACTURAS_PROVEEDOR.ID)
|
LEFT JOIN V_CONT_FAC_PRO_COMPRAS ON (V_CONT_FAC_PRO_COMPRAS.ID_FACTURA = FACTURAS_PROVEEDOR.ID)
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
/* Create view: V_COMISIONES */
|
/* Create view: V_COMISIONES */
|
||||||
CREATE VIEW V_COMISIONES(
|
CREATE VIEW V_COMISIONES(
|
||||||
|
|||||||
@ -44,13 +44,6 @@
|
|||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||||
@ -65,55 +58,55 @@
|
|||||||
<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\Recibos de cliente\cxDataD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.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\dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.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_D11R.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="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
|
||||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||||
<Form>fConfigurarConexion</Form>
|
<Form>fConfigurarConexion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
@ -51,7 +51,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||||
|
|||||||
Binary file not shown.
@ -58,34 +58,34 @@
|
|||||||
<DelphiCompile Include="GUIBase.dpk">
|
<DelphiCompile Include="GUIBase.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\Base.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\ccpackD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxExportD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\dxPScxCommonD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\dxPScxGrid6LnkD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\frx11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\frxe11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\fs11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\JvAppFrmD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\JvGlobusD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\tb2k_d10.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
|
||||||
<DCCReference Include="uDialogBase.pas">
|
<DCCReference Include="uDialogBase.pas">
|
||||||
<Form>fDialogBase</Form>
|
<Form>fDialogBase</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
|||||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40886,4936875463" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40945,673748831" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxPageHeader Name="Band1" Height="144,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="144,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||||
@ -15,22 +15,24 @@
|
|||||||
</TfrxPageFooter>
|
</TfrxPageFooter>
|
||||||
<TfrxGroupHeader Name="" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Arial" Font.Style="0" Height="40" Left="0" ParentFont="False" Restrictions="2" Top="220" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
<TfrxGroupHeader Name="" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Arial" Font.Style="0" Height="40" Left="0" ParentFont="False" Restrictions="2" Top="220" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
||||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||||
<TfrxMemoView Name="Memo28" Left="87" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
<TfrxMemoView Name="Memo28" Align="baLeft" Left="178,77953" Top="25" Width="371,7480315" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||||
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
||||||
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||||
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
||||||
<TfrxMemoView Name="Memo52" Left="914,26771654" Top="25" Width="94,11023622" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
<TfrxMemoView Name="Memo52" Left="914,26771654" Top="25" Width="94,11023622" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||||
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="1,77953" Width="485,37013" Height="20,55906" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
<TfrxMemoView Name="Memo7" Left="7,55906" Top="1,77953" Width="485,37013" Height="20,55906" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||||
|
<TfrxMemoView Name="Memo5" Align="baLeft" Left="88,77953" Top="25" Width="90" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||||
</TfrxGroupHeader>
|
</TfrxGroupHeader>
|
||||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="280" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="280" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="86,95698" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="86,95698" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo4" Left="86,70872" Top="0" Width="464,25545" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo4" Align="baLeft" Left="176,95698" Top="0" Width="374,25545" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||||
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||||
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||||
|
<TfrxMemoView Name="Memo22" Align="baLeft" Left="86,95698" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."REFERENCIA_CLIENTE"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="317" Width="1009,13451">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="317" Width="1009,13451">
|
||||||
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40886,5301279745" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40945,6764394444" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
|
||||||
@ -16,21 +16,23 @@
|
|||||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas."NOMBRE"" ReprintOnNewPage="True">
|
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas."NOMBRE"" ReprintOnNewPage="True">
|
||||||
<TfrxMemoView Name="Memo1" Left="7,55906" Top="0,77953" Width="485,37013" Height="20,78740157" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo1" Left="7,55906" Top="0,77953" Width="485,37013" Height="20,78740157" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||||
<TfrxMemoView Name="Memo28" Left="87" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
<TfrxMemoView Name="Memo28" Align="baLeft" Left="178,77953" Top="25" Width="371,7480315" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||||
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
||||||
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||||
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
||||||
<TfrxMemoView Name="Memo52" Left="913,88976378" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
<TfrxMemoView Name="Memo52" Left="913,88976378" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||||
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||||
|
<TfrxMemoView Name="Memo9" Align="baLeft" Left="88,77953" Top="25" Width="90" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||||
</TfrxGroupHeader>
|
</TfrxGroupHeader>
|
||||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="315" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="86,95698" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="86,95698" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo4" Left="86,70872" Top="0" Width="464,25545" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo4" Align="baLeft" Left="176,95698" Top="0" Width="374,25545" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||||
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||||
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||||
|
<TfrxMemoView Name="Memo22" Align="baLeft" Left="86,95698" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."REFERENCIA_CLIENTE"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,14033677542">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,14033677542">
|
||||||
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40886,5307732292" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40945,6910242245" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||||
@ -13,23 +13,25 @@
|
|||||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||||
</TfrxPageFooter>
|
</TfrxPageFooter>
|
||||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
||||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="115,23624" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="129" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||||
<TfrxMemoView Name="Memo28" Left="113,45671" Top="25" Width="437,2913215" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
<TfrxMemoView Name="Memo28" Align="baRight" Left="250,67716535" Top="25" Width="300" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||||
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
||||||
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||||
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
||||||
<TfrxMemoView Name="Memo52" Left="914,26771654" Top="25" Width="94,11023622" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
<TfrxMemoView Name="Memo52" Left="914,26771654" Top="25" Width="94,11023622" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||||
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="3,77953" Width="485,37013" Height="16,77953" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
<TfrxMemoView Name="Memo7" Left="7,55906" Top="3,77953" Width="485,37013" Height="16,77953" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||||
|
<TfrxMemoView Name="Memo5" Align="baLeft" Left="129" Top="25" Width="122" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||||
</TfrxGroupHeader>
|
</TfrxGroupHeader>
|
||||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="113,41369" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."REFERENCIA_PROVEEDOR"]"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="129" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."REFERENCIA_PROVEEDOR"]"/>
|
||||||
<TfrxMemoView Name="Memo4" Left="113,16543" Top="0" Width="437,79874" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo4" Align="baRight" Left="250,81138" Top="0" Width="300" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||||
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||||
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||||
|
<TfrxMemoView Name="Memo22" Align="baLeft" Left="129" Top="0" Width="122" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."REF_PROVEEDOR"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
|
||||||
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40886,5315278935" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40945,6908869676" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
|
||||||
@ -14,22 +14,24 @@
|
|||||||
</TfrxPageFooter>
|
</TfrxPageFooter>
|
||||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas."NOMBRE"" ReprintOnNewPage="True">
|
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas."NOMBRE"" ReprintOnNewPage="True">
|
||||||
<TfrxMemoView Name="Memo1" Left="7,55906" Top="3,77953" Width="485,37013" Height="18,89764024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo1" Left="7,55906" Top="3,77953" Width="485,37013" Height="18,89764024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="115,23624" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="130" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||||
<TfrxMemoView Name="Memo28" Left="113,45671" Top="25" Width="437,2913215" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
<TfrxMemoView Name="Memo28" Align="baRight" Left="250,67716535" Top="25" Width="300" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||||
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
||||||
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||||
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
||||||
<TfrxMemoView Name="Memo52" Left="913,88976378" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
<TfrxMemoView Name="Memo52" Left="913,88976378" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||||
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||||
|
<TfrxMemoView Name="Memo9" Align="baLeft" Left="130" Top="25" Width="122" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||||
</TfrxGroupHeader>
|
</TfrxGroupHeader>
|
||||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="315" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="113,41369" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA_PROVEEDOR"]"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="130" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA_PROVEEDOR"]"/>
|
||||||
<TfrxMemoView Name="Memo4" Left="113,16543" Top="0" Width="437,79874" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo4" Align="baRight" Left="250,81138" Top="0" Width="300" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||||
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||||
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||||
|
<TfrxMemoView Name="Memo22" Align="baLeft" Left="130" Top="0" Width="121" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."REF_PROVEEDOR"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,14033677542">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,14033677542">
|
||||||
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40886,5321975694" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40945,5794583796" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||||
@ -15,22 +15,26 @@
|
|||||||
</TfrxPageFooter>
|
</TfrxPageFooter>
|
||||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
||||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||||
<TfrxMemoView Name="Memo28" Left="180" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
<TfrxMemoView Name="Memo28" Left="361" Top="25" Width="283,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||||
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||||
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||||
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
||||||
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||||
<TfrxMemoView Name="Memo8" Left="88" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
<TfrxMemoView Name="Memo8" Left="88" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||||
|
<TfrxMemoView Name="Memo5" Align="baLeft" Left="180,67718" Top="25" Width="90" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||||
|
<TfrxMemoView Name="Memo9" Align="baLeft" Left="270,67718" Top="25" Width="90" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
||||||
</TfrxGroupHeader>
|
</TfrxGroupHeader>
|
||||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||||
<TfrxMemoView Name="Memo4" Left="180,66141732" Top="0" Width="463,748031496063" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo4" Left="360,66141732" Top="0" Width="283,7480315" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="88,06299213" Top="0" Width="92,5984251968504" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo21" Left="88,06299213" Top="0" Width="92,5984252" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,0629921259843" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,0629921259843" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,488188976378" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,488188976378" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||||
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,244094488189" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,244094488189" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||||
<TfrxMemoView Name="Memo31" Left="912,755905511811" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo31" Left="912,755905511811" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||||
|
<TfrxMemoView Name="Memo22" Align="baLeft" Left="180,66141733" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."REFERENCIA_CLIENTE"]"/>
|
||||||
|
<TfrxMemoView Name="Memo40" Align="baLeft" Left="270,66141733" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
|
||||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||||
|
|||||||
63
Source/Informes/InformeListadoFacturasRecibosCliente.fr3
Normal file
63
Source/Informes/InformeListadoFacturasRecibosCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
@ -58,7 +58,8 @@ requires
|
|||||||
GUISDK_D11R,
|
GUISDK_D11R,
|
||||||
designide,
|
designide,
|
||||||
xmlrtl,
|
xmlrtl,
|
||||||
vclactnband;
|
vclactnband,
|
||||||
|
GestorInformes_controller;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uContactosViewRegister in 'uContactosViewRegister.pas',
|
uContactosViewRegister in 'uContactosViewRegister.pas',
|
||||||
|
|||||||
@ -47,40 +47,41 @@
|
|||||||
<DelphiCompile Include="Contactos_view.dpk">
|
<DelphiCompile Include="Contactos_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\adortl.dcp" />
|
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||||
<DCCReference Include="..\Base.dcp" />
|
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||||
<DCCReference Include="..\bdertl.dcp" />
|
<DCCReference Include="..\..\Lib\bdertl.dcp" />
|
||||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||||
<DCCReference Include="..\Contactos_model.dcp" />
|
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||||
<DCCReference Include="..\cxDataD11.dcp" />
|
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\dbrtl.dcp" />
|
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\designide.dcp" />
|
<DCCReference Include="..\..\Lib\designide.dcp" />
|
||||||
<DCCReference Include="..\dsnap.dcp" />
|
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\FormasPago_controller.dcp" />
|
<DCCReference Include="..\..\Lib\FormasPago_controller.dcp" />
|
||||||
<DCCReference Include="..\FormasPago_model.dcp" />
|
<DCCReference Include="..\..\Lib\FormasPago_model.dcp" />
|
||||||
<DCCReference Include="..\GUIBase.dcp" />
|
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||||
<DCCReference Include="..\GUISDK_D11R.dcp" />
|
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||||
<DCCReference Include="..\Jcl.dcp" />
|
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
|
||||||
<DCCReference Include="..\JclVcl.dcp" />
|
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
||||||
<DCCReference Include="..\JvCoreD11R.dcp" />
|
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
||||||
<DCCReference Include="..\JvGlobusD11R.dcp" />
|
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="..\JvSystemD11R.dcp" />
|
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
|
||||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
|
||||||
<DCCReference Include="..\rtl.dcp" />
|
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\TiposIVA_controller.dcp" />
|
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||||
<DCCReference Include="..\TiposIVA_model.dcp" />
|
<DCCReference Include="..\..\Lib\TiposIVA_controller.dcp" />
|
||||||
<DCCReference Include="..\vcl.dcp" />
|
<DCCReference Include="..\..\Lib\TiposIVA_model.dcp" />
|
||||||
<DCCReference Include="..\vclactnband.dcp" />
|
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||||
<DCCReference Include="..\vcldb.dcp" />
|
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||||
<DCCReference Include="..\vcljpg.dcp" />
|
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||||
<DCCReference Include="..\vclx.dcp" />
|
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||||
<DCCReference Include="..\xmlrtl.dcp" />
|
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
|
||||||
<DCCReference Include="uContactosViewRegister.pas" />
|
<DCCReference Include="uContactosViewRegister.pas" />
|
||||||
<DCCReference Include="uEditorCliente.pas">
|
<DCCReference Include="uEditorCliente.pas">
|
||||||
<Form>fEditorCliente</Form>
|
<Form>fEditorCliente</Form>
|
||||||
|
|||||||
@ -57,6 +57,17 @@ inherited fEditorClientes: TfEditorClientes
|
|||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 786
|
||||||
end
|
end
|
||||||
|
inherited TBXTMain2: TTBXToolbar
|
||||||
|
Left = 275
|
||||||
|
DockPos = 275
|
||||||
|
Visible = True
|
||||||
|
ExplicitLeft = 275
|
||||||
|
ExplicitWidth = 83
|
||||||
|
object TBXItem38: TTBXItem
|
||||||
|
Action = actInformes
|
||||||
|
DisplayMode = nbdmImageAndText
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 500
|
Top = 500
|
||||||
@ -180,6 +191,12 @@ inherited fEditorClientes: TfEditorClientes
|
|||||||
ImageIndex = 23
|
ImageIndex = 23
|
||||||
OnExecute = actGruposClienteExecute
|
OnExecute = actGruposClienteExecute
|
||||||
end
|
end
|
||||||
|
object actInformes: TAction
|
||||||
|
Category = 'Informes'
|
||||||
|
Caption = 'Informes'
|
||||||
|
ImageIndex = 24
|
||||||
|
OnExecute = actInformesExecute
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited SmallImages: TPngImageList [5]
|
inherited SmallImages: TPngImageList [5]
|
||||||
PngImages = <
|
PngImages = <
|
||||||
@ -723,6 +740,27 @@ inherited fEditorClientes: TfEditorClientes
|
|||||||
00000049454E44AE426082}
|
00000049454E44AE426082}
|
||||||
Name = 'PngImage23'
|
Name = 'PngImage23'
|
||||||
Background = clWindow
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000001A24944415478DA
|
||||||
|
63FC61C0F09F71F72C86FFAE690C307A76D176065C2037CE9311C6FEFFFF3F03
|
||||||
|
E3CFD7B3FEFFEF5DC7C0D0B003883D18188B8318D84452E11AFE0115FDFDFB0F
|
||||||
|
8CE7ACDACB306FE92686F33BA733C20D00B980E10403031BDB6F865FBF581918
|
||||||
|
2C1818D8CFFF47D1FC076AC082B5FB1974D455188AEAFAC086E07481FB5A3B0C
|
||||||
|
A7AF8F926358B2E12043B0A70DC3CD7B2FC0869CDB318D91115B18B09E45D8FA
|
||||||
|
F71F82BD7CF361B01760006C008C3379D1F6FF39B11E0C5316EF6020047C9CCC
|
||||||
|
1882926B300DC88C766330F5CA6138B26102D04654FF835C02A237EE39C9E061
|
||||||
|
67C210965E8769405A840B83856F1E5EDB93A2FD189CAD0D19A2B31A310D480A
|
||||||
|
7542B11542FF87DAFE1FC8FFCBF0E70F443C3EAF19D380B8400706FFA50F0986
|
||||||
|
419F2D374372511BA601D17E76105BFFC1FCFD1FC287DAFA1BC90519A51D9806
|
||||||
|
847BDB30ACDC7A84A00B8C74D419722ABB310D08F6B062F08EAD60583FAF151E
|
||||||
|
06C8FE06D1A72E5E63D0D3546528A8E9C53420C0D582C12FA18A602CC0923386
|
||||||
|
01BECEE6509BFE426D4762435D014AFF2080D500E4644A0C00190000D63E5BF0
|
||||||
|
41A130430000000049454E44AE426082}
|
||||||
|
Name = 'PngImage24'
|
||||||
|
Background = clWindow
|
||||||
end>
|
end>
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
@ -2480,4 +2518,310 @@ inherited fEditorClientes: TfEditorClientes
|
|||||||
Left = 328
|
Left = 328
|
||||||
Top = 144
|
Top = 144
|
||||||
end
|
end
|
||||||
|
object JSInformesDialog: TJSDialog
|
||||||
|
Content.Strings = (
|
||||||
|
'Seleccione el informe que desea realizar')
|
||||||
|
DialogOptions = [doCommandLinks, doModal]
|
||||||
|
Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Text = 'Nuevo informe'
|
||||||
|
Instruction.Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Icon = tdiCustom
|
||||||
|
CustomButtons = <
|
||||||
|
item
|
||||||
|
Caption = 'Listado facturas/cobros del cliente seleccionado'
|
||||||
|
Value = 400
|
||||||
|
end>
|
||||||
|
ButtonBar.Buttons = [cbCancel]
|
||||||
|
MainIcon = tdiCustom
|
||||||
|
Title = 'FactuGES'
|
||||||
|
Position = dpMainFormCenter
|
||||||
|
Icon.Data = {
|
||||||
|
0000010003002020100001000400E8020000360000002020000001000800A808
|
||||||
|
00001E0300002020000001002000A8100000C60B000028000000200000004000
|
||||||
|
0000010004000000000000020000000000000000000000000000000000000000
|
||||||
|
000000008000008000000080800080000000800080008080000080808000C0C0
|
||||||
|
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
||||||
|
0000000000000000000000000000000008777777777777777777777700000000
|
||||||
|
0877767777677776777767760000000008F88888888888888888888700000000
|
||||||
|
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
|
||||||
|
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
|
||||||
|
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
|
||||||
|
08F8676767677677677658E50000000008FF8888888887878787888700000000
|
||||||
|
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
|
||||||
|
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
|
||||||
|
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
|
||||||
|
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
|
||||||
|
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
|
||||||
|
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
|
||||||
|
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
|
||||||
|
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
|
||||||
|
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
|
||||||
|
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
|
||||||
|
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
|
||||||
|
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
|
||||||
|
0000200000004000000001000800000000000004000000000000000000000001
|
||||||
|
00000001000000000000694731007C5D49007E604C0081635000826451008567
|
||||||
|
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
|
||||||
|
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
|
||||||
|
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
|
||||||
|
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
|
||||||
|
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
|
||||||
|
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
|
||||||
|
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
|
||||||
|
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
|
||||||
|
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
|
||||||
|
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
|
||||||
|
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
|
||||||
|
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
|
||||||
|
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
|
||||||
|
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
|
||||||
|
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
|
||||||
|
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
|
||||||
|
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
|
||||||
|
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
|
||||||
|
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
|
||||||
|
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
|
||||||
|
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
|
||||||
|
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
|
||||||
|
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
|
||||||
|
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
|
||||||
|
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
|
||||||
|
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
|
||||||
|
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
|
||||||
|
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
|
||||||
|
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
|
||||||
|
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
|
||||||
|
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
|
||||||
|
0D0D0000000000000000009C9C19191919191919191919191919191919191919
|
||||||
|
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
|
||||||
|
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
|
||||||
|
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
|
||||||
|
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
|
||||||
|
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
|
||||||
|
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
|
||||||
|
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
|
||||||
|
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
|
||||||
|
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
|
||||||
|
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
|
||||||
|
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
|
||||||
|
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
|
||||||
|
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
|
||||||
|
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
|
||||||
|
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
|
||||||
|
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
|
||||||
|
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
|
||||||
|
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
|
||||||
|
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
|
||||||
|
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
|
||||||
|
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
|
||||||
|
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
|
||||||
|
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
|
||||||
|
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
|
||||||
|
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
|
||||||
|
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
|
||||||
|
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
|
||||||
|
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
|
||||||
|
0000000000000000000000003227000000000000000000000000000000000000
|
||||||
|
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
|
||||||
|
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
|
||||||
|
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000007067
|
||||||
|
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
|
||||||
|
A070000000000000000000000000000000000000000000000000000000005E54
|
||||||
|
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
|
||||||
|
967F000000000000000000000000000000000000000000000000000000006055
|
||||||
|
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
|
||||||
|
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
|
||||||
|
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006056
|
||||||
|
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
|
||||||
|
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
|
||||||
|
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006155
|
||||||
|
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
|
||||||
|
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
|
||||||
|
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006157
|
||||||
|
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
|
||||||
|
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
|
||||||
|
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
|
||||||
|
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
|
||||||
|
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
|
||||||
|
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
|
||||||
|
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006257
|
||||||
|
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
|
||||||
|
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
|
||||||
|
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
|
||||||
|
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
|
||||||
|
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
|
||||||
|
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
|
||||||
|
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
|
||||||
|
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
|
||||||
|
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
|
||||||
|
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
|
||||||
|
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006459
|
||||||
|
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
|
||||||
|
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
|
||||||
|
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
|
||||||
|
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
|
||||||
|
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
|
||||||
|
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
|
||||||
|
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000000000000000000000685A
|
||||||
|
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
|
||||||
|
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000007792910072A7A3001E33366957
|
||||||
|
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
|
||||||
|
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
|
||||||
|
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
|
||||||
|
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
|
||||||
|
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
|
||||||
|
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
|
||||||
|
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
|
||||||
|
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
|
||||||
|
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
|
||||||
|
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
|
||||||
|
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
|
||||||
|
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
|
||||||
|
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
|
||||||
|
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
|
||||||
|
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
|
||||||
|
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
|
||||||
|
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
|
||||||
|
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
|
||||||
|
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
|
||||||
|
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
|
||||||
|
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
|
||||||
|
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
|
||||||
|
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
|
||||||
|
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
|
||||||
|
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
|
||||||
|
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
|
||||||
|
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
|
||||||
|
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
|
||||||
|
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
|
||||||
|
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
|
||||||
|
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
|
||||||
|
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
|
||||||
|
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
|
||||||
|
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
|
||||||
|
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
|
||||||
|
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
|
||||||
|
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
|
||||||
|
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
|
||||||
|
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
|
||||||
|
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
|
||||||
|
0007C0000007C000000700000007000000070000000700000007C000000FC000
|
||||||
|
001F8000003F800000FFF8FFFFFF}
|
||||||
|
Width = 450
|
||||||
|
Left = 408
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -21,7 +21,11 @@ type
|
|||||||
actGruposCliente: TAction;
|
actGruposCliente: TAction;
|
||||||
JsListaContactosNoEliminados: TJSDialog;
|
JsListaContactosNoEliminados: TJSDialog;
|
||||||
frViewClientes1: TfrViewClientes;
|
frViewClientes1: TfrViewClientes;
|
||||||
|
actInformes: TAction;
|
||||||
|
TBXItem38: TTBXItem;
|
||||||
|
JSInformesDialog: TJSDialog;
|
||||||
procedure actGruposClienteExecute(Sender: TObject);
|
procedure actGruposClienteExecute(Sender: TObject);
|
||||||
|
procedure actInformesExecute(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
procedure ImprimirInterno; override;
|
procedure ImprimirInterno; override;
|
||||||
procedure PrevisualizarInterno; override;
|
procedure PrevisualizarInterno; override;
|
||||||
@ -36,7 +40,7 @@ implementation
|
|||||||
uses
|
uses
|
||||||
uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
|
uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
|
||||||
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
|
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
|
||||||
uGruposClienteController, uBizGruposCliente, uClientesController;
|
uGruposClienteController, uBizGruposCliente, uClientesController, uGestorInformesController;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -59,6 +63,31 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorClientes.actInformesExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
Respuesta : Integer;
|
||||||
|
AGestorInformesController : IGestorInformesController;
|
||||||
|
|
||||||
|
begin
|
||||||
|
AGestorInformesController := TGestorInformesController.Create;
|
||||||
|
try
|
||||||
|
|
||||||
|
Respuesta := JsInformesDialog.Execute;
|
||||||
|
|
||||||
|
if Respuesta <> IDCANCEL then
|
||||||
|
begin
|
||||||
|
case JsInformesDialog.CustomButtonResult of
|
||||||
|
400 : begin // Listado de facturas de cliente
|
||||||
|
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Contactos.ID);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
finally
|
||||||
|
AGestorInformesController := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
constructor TfEditorClientes.Create(AOwner: TComponent);
|
constructor TfEditorClientes.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|||||||
Binary file not shown.
@ -1,4 +1,5 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
|
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
|
||||||
<MainSource>FacturasCliente_controller.dpk</MainSource>
|
<MainSource>FacturasCliente_controller.dpk</MainSource>
|
||||||
@ -48,24 +49,25 @@
|
|||||||
<DelphiCompile Include="FacturasCliente_controller.dpk">
|
<DelphiCompile Include="FacturasCliente_controller.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
|
|
||||||
<DCCReference Include="uArticulosFacturaClienteController.pas" />
|
<DCCReference Include="uArticulosFacturaClienteController.pas" />
|
||||||
<DCCReference Include="uDetallesFacturaClienteController.pas" />
|
<DCCReference Include="uDetallesFacturaClienteController.pas" />
|
||||||
<DCCReference Include="uFacturasClienteController.pas" />
|
<DCCReference Include="uFacturasClienteController.pas" />
|
||||||
<DCCReference Include="uFacturasClienteReportController.pas" />
|
<DCCReference Include="uFacturasClienteReportController.pas" />
|
||||||
|
<DCCReference Include="View\AlbaranesCliente_controller.dcp" />
|
||||||
|
<DCCReference Include="View\AlbaranesCliente_model.dcp" />
|
||||||
|
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="View\Articulos_controller.dcp" />
|
||||||
|
<DCCReference Include="View\Contactos_controller.dcp" />
|
||||||
|
<DCCReference Include="View\FacturasCliente_data.dcp" />
|
||||||
|
<DCCReference Include="View\FacturasCliente_model.dcp" />
|
||||||
|
<DCCReference Include="View\FormasPago_controller.dcp" />
|
||||||
|
<DCCReference Include="View\RecibosCliente_controller.dcp" />
|
||||||
<DCCReference Include="View\uIEditorElegirArticulosFacturasCliente.pas" />
|
<DCCReference Include="View\uIEditorElegirArticulosFacturasCliente.pas" />
|
||||||
<DCCReference Include="View\uIEditorElegirFacturasCliente.pas" />
|
<DCCReference Include="View\uIEditorElegirFacturasCliente.pas" />
|
||||||
<DCCReference Include="View\uIEditorFacturaCliente.pas" />
|
<DCCReference Include="View\uIEditorFacturaCliente.pas" />
|
||||||
<DCCReference Include="View\uIEditorFacturasCliente.pas" />
|
<DCCReference Include="View\uIEditorFacturasCliente.pas" />
|
||||||
<DCCReference Include="View\uIEditorFacturasClientePreview.pas" />
|
<DCCReference Include="View\uIEditorFacturasClientePreview.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorFacturasRecibosClientePreview.pas" />
|
||||||
<DCCReference Include="View\uIEditorSituacionFacturaCliente.pas" />
|
<DCCReference Include="View\uIEditorSituacionFacturaCliente.pas" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
|
|||||||
@ -842,7 +842,7 @@ begin
|
|||||||
|
|
||||||
if not Assigned(AFactura) then
|
if not Assigned(AFactura) then
|
||||||
raise Exception.Create ('Factura no asignado: EsEliminable');
|
raise Exception.Create ('Factura no asignado: EsEliminable');
|
||||||
|
{
|
||||||
if (AFactura.SITUACION <> CTE_PENDIENTE) then
|
if (AFactura.SITUACION <> CTE_PENDIENTE) then
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
@ -858,6 +858,7 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser eliminada';
|
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser eliminada';
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TFacturasClienteController.EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
|
function TFacturasClienteController.EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
|
||||||
@ -866,7 +867,7 @@ begin
|
|||||||
|
|
||||||
if not Assigned(AFactura) then
|
if not Assigned(AFactura) then
|
||||||
raise Exception.Create ('Factura no asignado: EsModificable');
|
raise Exception.Create ('Factura no asignado: EsModificable');
|
||||||
|
{
|
||||||
if (AFactura.SITUACION <> CTE_PENDIENTE) then
|
if (AFactura.SITUACION <> CTE_PENDIENTE) then
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
@ -882,6 +883,7 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser modificada';
|
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser modificada';
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TFacturasClienteController.RecalcularImportes(
|
procedure TFacturasClienteController.RecalcularImportes(
|
||||||
@ -1192,9 +1194,9 @@ begin
|
|||||||
AFormasPagoController := TFormasPagoController.Create;
|
AFormasPagoController := TFormasPagoController.Create;
|
||||||
AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO);
|
AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO);
|
||||||
AFormaPago.DataTable.Active := True;
|
AFormaPago.DataTable.Active := True;
|
||||||
if AFormaPago.DataTable.RecordCount <> 1 then
|
if AFormaPago.Plazos.RecordCount = 0 then
|
||||||
Exit; //No hay forma de pago en la factura y por lo tanto no se generan recibos
|
Exit; //No hay plazos en la forma de pago en la factura y por lo tanto no se generan recibos
|
||||||
//raise Exception.Create('No existe la forma de pago de la factura');
|
|
||||||
|
|
||||||
ARecibosClienteController := TRecibosClienteController.Create;
|
ARecibosClienteController := TRecibosClienteController.Create;
|
||||||
//Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
|
//Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
|
||||||
|
|||||||
@ -9,9 +9,9 @@ const
|
|||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosFacturas = '{BB9857AE-8858-44B1-A10B-EEBF38D61518}';
|
RID_ListaAnosFacturas = '{9504B0C5-CF6C-47DF-9BF1-D6EE693A246B}';
|
||||||
RID_FacturasCliente = '{1746D02E-7BE8-4F08-9C96-54B091D8A1CA}';
|
RID_FacturasCliente = '{E530BBA1-8BD8-4003-B11A-79C99E13E981}';
|
||||||
RID_FacturasCliente_Detalles = '{9296DD27-5DC8-48DE-9830-53497C1AAF6B}';
|
RID_FacturasCliente_Detalles = '{C963E80A-9A8F-4A71-82C8-4901A98FA7CC}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||||
@ -159,7 +159,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IListaAnosFacturas }
|
{ IListaAnosFacturas }
|
||||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||||
['{4732CF5C-9ADB-4DF9-850E-DD63D351047D}']
|
['{C9EB259F-ABF4-4646-BAE3-BDEED080DB84}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetANOValue: String;
|
function GetANOValue: String;
|
||||||
procedure SetANOValue(const aValue: String);
|
procedure SetANOValue(const aValue: String);
|
||||||
@ -194,7 +194,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasCliente }
|
{ IFacturasCliente }
|
||||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{4E6CAD4C-CB1B-475E-B8E2-A8689D3CD0FA}']
|
['{8A5FD641-EA95-4CD6-9EAC-618D177DF7C0}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -793,7 +793,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasCliente_Detalles }
|
{ IFacturasCliente_Detalles }
|
||||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||||
['{C870BB3F-2BC1-4D03-866D-AE1901D32B6F}']
|
['{51E6D6A2-EFC9-404B-B0EA-454ED0E4FBA4}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
|
|||||||
@ -9,14 +9,14 @@ const
|
|||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosFacturasDelta = '{FEC79BF2-9523-44C6-8D31-052F8EB193E4}';
|
RID_ListaAnosFacturasDelta = '{21A2ECEC-6B0B-464C-8545-1F8D439F3DCA}';
|
||||||
RID_FacturasClienteDelta = '{02545CC3-5DF3-4C38-808E-85DE15E6A8DB}';
|
RID_FacturasClienteDelta = '{86F44C5A-7112-42F1-B15E-518660E2EAC2}';
|
||||||
RID_FacturasCliente_DetallesDelta = '{D1C6908F-F600-4774-BAB3-185998B8C0F7}';
|
RID_FacturasCliente_DetallesDelta = '{4FF3AB78-99DC-4F0F-B163-1155D2698082}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IListaAnosFacturasDelta }
|
{ IListaAnosFacturasDelta }
|
||||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||||
['{FEC79BF2-9523-44C6-8D31-052F8EB193E4}']
|
['{21A2ECEC-6B0B-464C-8545-1F8D439F3DCA}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldANOValue : String;
|
function GetOldANOValue : String;
|
||||||
|
|
||||||
@ -50,7 +50,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasClienteDelta }
|
{ IFacturasClienteDelta }
|
||||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||||
['{02545CC3-5DF3-4C38-808E-85DE15E6A8DB}']
|
['{86F44C5A-7112-42F1-B15E-518660E2EAC2}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_EMPRESAValue : Integer;
|
function GetOldID_EMPRESAValue : Integer;
|
||||||
@ -649,7 +649,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasCliente_DetallesDelta }
|
{ IFacturasCliente_DetallesDelta }
|
||||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||||
['{D1C6908F-F600-4774-BAB3-185998B8C0F7}']
|
['{4FF3AB78-99DC-4F0F-B163-1155D2698082}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_FACTURAValue : Integer;
|
function GetOldID_FACTURAValue : Integer;
|
||||||
|
|||||||
@ -255,6 +255,7 @@ begin
|
|||||||
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||||
FECHA_FACTURA := DateOf(Now);
|
FECHA_FACTURA := DateOf(Now);
|
||||||
TIPO := CTE_TIPO_FACTURA;
|
TIPO := CTE_TIPO_FACTURA;
|
||||||
|
SITUACION := 'PENDIENTE';
|
||||||
ID_CLIENTE := ID_NULO;
|
ID_CLIENTE := ID_NULO;
|
||||||
SIN_COMISION := 0;
|
SIN_COMISION := 0;
|
||||||
|
|
||||||
|
|||||||
@ -103,6 +103,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'NIF_CIF'
|
Name = 'NIF_CIF'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -478,9 +483,9 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
||||||
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
||||||
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
|
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
|
||||||
'UACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, IMP' +
|
'UACION, NIF_CIF, REFERENCIA_CLIENTE, FECHA_FACTURA, BASE_IMPONIB' +
|
||||||
'ORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, ' +
|
'LE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {w' +
|
||||||
'MES, FECHA_FACTURA, NOMBRE'#10#10
|
'here}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -534,6 +539,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'ANO'
|
DatasetField = 'ANO'
|
||||||
TableField = 'ANO'
|
TableField = 'ANO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA_CLIENTE'
|
||||||
|
TableField = 'REFERENCIA_CLIENTE'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'ListadoFacturas'
|
Name = 'ListadoFacturas'
|
||||||
@ -579,6 +588,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 15
|
Size = 15
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_FACTURA'
|
Name = 'FECHA_FACTURA'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
@ -618,23 +632,23 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' +
|
'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' +
|
||||||
'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
|
'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
|
||||||
'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' +
|
'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' +
|
||||||
'CTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CL' +
|
'CTURAS_CLIENTE.REFERENCIA_CLIENTE, V_FACTURAS_CLIENTE.NIF_CIF, V' +
|
||||||
'IENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENT' +
|
'_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10' V_FACTUR' +
|
||||||
'E.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTOS_DAT' +
|
'AS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTUR' +
|
||||||
'OS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACT' +
|
'AS_CLIENTE.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' CON' +
|
||||||
'OS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTA' +
|
'TACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10 +
|
||||||
'CTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF' +
|
' CONTACTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10 +
|
||||||
'_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE' +
|
' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RA' +
|
||||||
'_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.' +
|
'ZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLAC' +
|
||||||
'PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO' +
|
'ION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EM' +
|
||||||
'_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS' +
|
'PRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPR' +
|
||||||
'.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.RE' +
|
'ESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_' +
|
||||||
'GISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT' +
|
'1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESA' +
|
||||||
' JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO' +
|
'S.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESA' +
|
||||||
' ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOI' +
|
'S.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_F' +
|
||||||
'N CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = ' +
|
'ACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO O' +
|
||||||
'V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID' +
|
'N (CONTACTOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLI' +
|
||||||
#10
|
'ENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -824,6 +838,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'ID_TIENDA'
|
DatasetField = 'ID_TIENDA'
|
||||||
TableField = 'ID_TIENDA'
|
TableField = 'ID_TIENDA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA_CLIENTE'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'REFERENCIA_CLIENTE'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'InformeFacturasCliente'
|
Name = 'InformeFacturasCliente'
|
||||||
@ -912,6 +931,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'NIF_CIF'
|
Name = 'NIF_CIF'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -1203,6 +1227,100 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
Name = 'IMPORTE_TOTAL'
|
Name = 'IMPORTE_TOTAL'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
end>
|
end>
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
ConnectionType = 'Interbase'
|
||||||
|
Default = True
|
||||||
|
SQL =
|
||||||
|
'select ID_EMPRESA,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITU' +
|
||||||
|
'ACION, NIF_CIF, FECHA_EMISION, FECHA_VENCIMIENTO, IMPORTE_TOTAL'#10 +
|
||||||
|
#10'from V_RECIBOS_cliente'#10'where {where}'#10'order by FECHA_EMISION, NO' +
|
||||||
|
'MBRE_CLIENTE'#10#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA'
|
||||||
|
TableField = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_CLIENTE'
|
||||||
|
TableField = 'ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'SITUACION'
|
||||||
|
TableField = 'SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NIF_CIF'
|
||||||
|
TableField = 'NIF_CIF'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_TOTAL'
|
||||||
|
TableField = 'IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE_CLIENTE'
|
||||||
|
TableField = 'NOMBRE_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_EMISION'
|
||||||
|
TableField = 'FECHA_EMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_VENCIMIENTO'
|
||||||
|
TableField = 'FECHA_VENCIMIENTO'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'ListadoRecibos'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 9
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_EMISION'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end>
|
||||||
end>
|
end>
|
||||||
JoinDataTables = <>
|
JoinDataTables = <>
|
||||||
UnionDataTables = <>
|
UnionDataTables = <>
|
||||||
@ -1413,11 +1531,16 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
EngineOptions.DoublePass = True
|
EngineOptions.DoublePass = True
|
||||||
IniFile = '\Software\Fast Reports'
|
IniFile = '\Software\Fast Reports'
|
||||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||||
|
PreviewOptions.OutlineWidth = 180
|
||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Default'
|
||||||
PrintOptions.PrintOnSheet = 0
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 37800.807714351900000000
|
ReportOptions.CreateDate = 37871.995398692100000000
|
||||||
ReportOptions.LastChange = 40871.744534236110000000
|
ReportOptions.LastChange = 40946.583372962960000000
|
||||||
|
ReportOptions.VersionBuild = '1'
|
||||||
|
ReportOptions.VersionMajor = '12'
|
||||||
|
ReportOptions.VersionMinor = '13'
|
||||||
|
ReportOptions.VersionRelease = '1'
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ShowProgress = False
|
ShowProgress = False
|
||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
@ -1494,6 +1617,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
Name = 'ID_EMPRESA'
|
Name = 'ID_EMPRESA'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'ANO'
|
||||||
|
DataType = datSmallInt
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'MES'
|
Name = 'MES'
|
||||||
DataType = datSmallInt
|
DataType = datSmallInt
|
||||||
@ -1527,6 +1654,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 15
|
Size = 15
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_FACTURA'
|
Name = 'FECHA_FACTURA'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
@ -1594,4 +1726,72 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
Left = 584
|
Left = 584
|
||||||
Top = 192
|
Top = 192
|
||||||
end
|
end
|
||||||
|
object frxDBInformeListadoRecibos: TfrxDBDataset
|
||||||
|
UserName = 'frxDBInformeListadoRecibos'
|
||||||
|
CloseDataSource = True
|
||||||
|
DataSource = DADSInformeListadoRecibos
|
||||||
|
BCDToCurrency = False
|
||||||
|
Left = 736
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object DADSInformeListadoRecibos: TDADataSource
|
||||||
|
DataSet = tbl_InformeListadoRecibos.Dataset
|
||||||
|
DataTable = tbl_InformeListadoRecibos
|
||||||
|
Left = 736
|
||||||
|
Top = 72
|
||||||
|
end
|
||||||
|
object tbl_InformeListadoRecibos: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 9
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_EMISION'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
LogChanges = False
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteFetchEnabled = False
|
||||||
|
LocalSchema = schReport
|
||||||
|
LocalDataStreamer = Bin2DataStreamer
|
||||||
|
LogicalName = 'ListadoRecibos'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 736
|
||||||
|
Top = 128
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -36,6 +36,9 @@ type
|
|||||||
tbl_InformeListadoFacturasResumen: TDAMemDataTable;
|
tbl_InformeListadoFacturasResumen: TDAMemDataTable;
|
||||||
DADSInformeListadoFacturasResumen: TDADataSource;
|
DADSInformeListadoFacturasResumen: TDADataSource;
|
||||||
frxDBInformeListadoFacturasResumen: TfrxDBDataset;
|
frxDBInformeListadoFacturasResumen: TfrxDBDataset;
|
||||||
|
frxDBInformeListadoRecibos: TfrxDBDataset;
|
||||||
|
DADSInformeListadoRecibos: TDADataSource;
|
||||||
|
tbl_InformeListadoRecibos: TDAMemDataTable;
|
||||||
schReport: TDASchema;
|
schReport: TDASchema;
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
procedure DataModuleDestroy(Sender: TObject);
|
procedure DataModuleDestroy(Sender: TObject);
|
||||||
@ -66,6 +69,7 @@ type
|
|||||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
function GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -85,6 +89,8 @@ const
|
|||||||
rptInformeListadoFacturasClienteDesglosado = 'InformeListadoFacturasClienteDesglosado.fr3';
|
rptInformeListadoFacturasClienteDesglosado = 'InformeListadoFacturasClienteDesglosado.fr3';
|
||||||
rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3';
|
rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3';
|
||||||
rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3';
|
rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3';
|
||||||
|
rptInformeListadoFacturasRecibosCliente = 'InformeListadoFacturasRecibosCliente.fr3';
|
||||||
|
rptInformeListadoFacturasRecibosClienteDesglosado = 'InformeListadoFacturasRecibosClienteDesglosado.fr3';
|
||||||
|
|
||||||
ds_InformeListadoFacturasResumen = 'ListadoFacturasResumen';
|
ds_InformeListadoFacturasResumen = 'ListadoFacturasResumen';
|
||||||
|
|
||||||
@ -323,6 +329,58 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TRptFacturasCliente.GenerarInformeListadoFacturasRecibos(
|
||||||
|
const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray;
|
||||||
|
const Desglosado: Boolean): Binary;
|
||||||
|
var
|
||||||
|
ATipoInforme: String;
|
||||||
|
AStream: TMemoryStream;
|
||||||
|
dsMaster: IDADataset;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
|
|
||||||
|
AStream := TMemoryStream.Create;
|
||||||
|
try
|
||||||
|
//Inicializamos parametros
|
||||||
|
FIdEmpresa := IdEmpresa;
|
||||||
|
FFechaInicio := Null;
|
||||||
|
FFechaFin := Null;
|
||||||
|
|
||||||
|
if Assigned(FListaIDClientes) then
|
||||||
|
FListaIDClientes.Free;
|
||||||
|
FListaIDClientes := ListaIDClientes;
|
||||||
|
|
||||||
|
//Se prepara la tabla del listado general del informe
|
||||||
|
if tbl_InformeListadoFacturas.Active then
|
||||||
|
tbl_InformeListadoFacturas.Active := False;
|
||||||
|
PrepararTablaInforme(tbl_InformeListadoFacturas);
|
||||||
|
|
||||||
|
//Se prepara la tabla del listado general del informe
|
||||||
|
if tbl_InformeListadoRecibos.Active then
|
||||||
|
tbl_InformeListadoRecibos.Active := False;
|
||||||
|
PrepararTablaInforme(tbl_InformeListadoRecibos);
|
||||||
|
|
||||||
|
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
|
||||||
|
FDesglosado := Desglosado;
|
||||||
|
if FDesglosado then
|
||||||
|
ATipoInforme := rptInformeListadoFacturasRecibosClienteDesglosado
|
||||||
|
else
|
||||||
|
ATipoInforme := rptInformeListadoFacturasRecibosCliente;
|
||||||
|
|
||||||
|
//Finalmente se abren las tablas del informe
|
||||||
|
tbl_InformeListadoFacturas.Active := True;
|
||||||
|
tbl_InformeListadoRecibos.Active := True;
|
||||||
|
|
||||||
|
Result := _GenerarInforme(ATipoInforme);
|
||||||
|
|
||||||
|
finally
|
||||||
|
AStream.Free;
|
||||||
|
dsMaster := Nil;
|
||||||
|
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TRptFacturasCliente.IniciarParametrosInforme;
|
procedure TRptFacturasCliente.IniciarParametrosInforme;
|
||||||
var
|
var
|
||||||
ATextos : TStringList;
|
ATextos : TStringList;
|
||||||
@ -343,9 +401,9 @@ begin
|
|||||||
|
|
||||||
|
|
||||||
if (not VarIsNull(FFechaInicio)) and (not VarIsNull(FFechaFin)) then
|
if (not VarIsNull(FFechaInicio)) and (not VarIsNull(FFechaFin)) then
|
||||||
ACadena := Format('Fechas de factura desde el %s hasta el %s', [VarToStr(FFechaInicio), VarToStr(FFechaFin)])
|
ACadena := Format('Fechas de factura desde el %s hasta el %s', [VarToStr(FFechaInicio), VarToStr(FFechaFin)]);
|
||||||
else
|
// else
|
||||||
ACadena := 'Sin rango de fechas';
|
// ACadena := 'Sin rango de fechas';
|
||||||
ATextos.Add(ACadena);
|
ATextos.Add(ACadena);
|
||||||
ACadena := '';
|
ACadena := '';
|
||||||
|
|
||||||
@ -403,7 +461,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
// Filtrar el informe por fechas
|
// Filtrar el informe por fechas
|
||||||
if not VarIsNull(FFechaInicio)
|
if not VarIsNull(FFechaInicio)
|
||||||
and not VarIsNull(FFechaFin) then
|
and not VarIsNull(FFechaFin) then
|
||||||
begin
|
begin
|
||||||
with ATabla.DynamicWhere do
|
with ATabla.DynamicWhere do
|
||||||
|
|||||||
@ -1075,6 +1075,12 @@ object srvFacturasCliente: TsrvFacturasCliente
|
|||||||
Name = 'SIN_COMISION'
|
Name = 'SIN_COMISION'
|
||||||
DataType = datSmallInt
|
DataType = datSmallInt
|
||||||
Value = ''
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
end>
|
end>
|
||||||
Statements = <
|
Statements = <
|
||||||
item
|
item
|
||||||
@ -1091,16 +1097,17 @@ object srvFacturasCliente: TsrvFacturasCliente
|
|||||||
'A_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUI' +
|
'A_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUI' +
|
||||||
'VALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10 +
|
'VALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10 +
|
||||||
' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' +
|
' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' +
|
||||||
'N_COMISION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA' +
|
'N_COMISION,'#10' SITUACION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10 +
|
||||||
','#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBL' +
|
' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' +
|
||||||
'E,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORT' +
|
' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :I' +
|
||||||
'E_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERV' +
|
'VA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOT' +
|
||||||
'ACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,' +
|
'AL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMB' +
|
||||||
#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_' +
|
'RE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POST' +
|
||||||
'ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,' +
|
'AL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' +
|
||||||
#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,' +
|
':ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' ' +
|
||||||
#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10 +
|
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' ' +
|
||||||
' :ID_CONTRATO,'#10' :SIN_COMISION);'#10
|
' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUACI' +
|
||||||
|
'ON);'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
@ -1276,6 +1283,12 @@ object srvFacturasCliente: TsrvFacturasCliente
|
|||||||
DataType = datSmallInt
|
DataType = datSmallInt
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_ID'
|
Name = 'OLD_ID'
|
||||||
Value = ''
|
Value = ''
|
||||||
@ -1301,8 +1314,8 @@ object srvFacturasCliente: TsrvFacturasCliente
|
|||||||
'A = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_' +
|
'A = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_' +
|
||||||
'PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONT' +
|
'PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONT' +
|
||||||
'ABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_CONTRATO = :ID_CONT' +
|
'ABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_CONTRATO = :ID_CONT' +
|
||||||
'RATO,'#10' SIN_COMISION = :SIN_COMISION'#10' WHERE'#10' (ID = :OLD_ID);' +
|
'RATO,'#10' SIN_COMISION = :SIN_COMISION,'#10' SITUACION = :SITUACI' +
|
||||||
#10
|
'ON'#10' WHERE'#10' (ID = :OLD_ID);'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
|
|||||||
Binary file not shown.
@ -49,35 +49,48 @@
|
|||||||
<DelphiCompile Include="FacturasCliente_view.dpk">
|
<DelphiCompile Include="FacturasCliente_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Comisiones\adortl.dcp" />
|
<DCCReference Include="..\Controller\View\adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\AlbCli_FacCli_relation.dcp" />
|
<DCCReference Include="..\Controller\View\AlbCli_FacCli_relation.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\Articulos_view.dcp" />
|
<DCCReference Include="..\Controller\View\Articulos_view.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\Contabilidad_controller.dcp" />
|
<DCCReference Include="..\Controller\View\bdertl.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\Contabilidad_view.dcp" />
|
<DCCReference Include="..\Controller\View\Contabilidad_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\Contactos_view.dcp" />
|
<DCCReference Include="..\Controller\View\Contabilidad_view.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\cxDataD11.dcp" />
|
<DCCReference Include="..\Controller\View\Contactos_view.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\cxEditorsD11.dcp" />
|
<DCCReference Include="..\Controller\View\cxDataD11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\cxLibraryD11.dcp" />
|
<DCCReference Include="..\Controller\View\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\Controller\View\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\dbrtl.dcp" />
|
<DCCReference Include="..\Controller\View\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\dsnap.dcp" />
|
<DCCReference Include="..\Controller\View\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\dxComnD11.dcp" />
|
<DCCReference Include="..\Controller\View\dsnap.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\Controller\View\dxComnD11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\Controller\View\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\dxThemeD11.dcp" />
|
<DCCReference Include="..\Controller\View\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\FacturasCliente_controller.dcp" />
|
<DCCReference Include="..\Controller\View\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\FacturasCliente_model.dcp" />
|
<DCCReference Include="..\Controller\View\FacturasCliente_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\GestorInformes_controller.dcp" />
|
<DCCReference Include="..\Controller\View\FacturasCliente_model.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\GUIBase.dcp" />
|
<DCCReference Include="..\Controller\View\fqb110.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\PngComponentsD10.dcp" />
|
<DCCReference Include="..\Controller\View\frx11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\PNG_D10.dcp" />
|
<DCCReference Include="..\Controller\View\frxe11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\Controller\View\fs11.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\rtl.dcp" />
|
<DCCReference Include="..\Controller\View\GestorInformes_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\vcl.dcp" />
|
<DCCReference Include="..\Controller\View\GUIBase.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\vclactnband.dcp" />
|
<DCCReference Include="..\Controller\View\Jcl.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\vcldb.dcp" />
|
<DCCReference Include="..\Controller\View\JclVcl.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\vcljpg.dcp" />
|
<DCCReference Include="..\Controller\View\JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Comisiones\vclx.dcp" />
|
<DCCReference Include="..\Controller\View\JvPageCompsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\rtl.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\tb2k_d10.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\tbx_d10.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\Controller\View\vclx.dcp" />
|
||||||
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
|
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
|
||||||
<Form>fEditorElegirArticulosFacturaCliente</Form>
|
<Form>fEditorElegirArticulosFacturaCliente</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
@ -3792,6 +3792,11 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
|||||||
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
Instruction.Icon = tdiCustom
|
Instruction.Icon = tdiCustom
|
||||||
CustomButtons = <
|
CustomButtons = <
|
||||||
|
item
|
||||||
|
Caption = 'Listado de facturas'
|
||||||
|
Value = 300
|
||||||
|
Default = True
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Caption = 'Listado de facturas pendientes.'
|
Caption = 'Listado de facturas pendientes.'
|
||||||
Value = 100
|
Value = 100
|
||||||
@ -3802,8 +3807,8 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
|||||||
Value = 200
|
Value = 200
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Caption = 'Listado de facturas'
|
Caption = 'Listado facturas/cobros del cliente seleccionado'
|
||||||
Value = 300
|
Value = 400
|
||||||
end>
|
end>
|
||||||
ButtonBar.Buttons = [cbCancel]
|
ButtonBar.Buttons = [cbCancel]
|
||||||
MainIcon = tdiCustom
|
MainIcon = tdiCustom
|
||||||
|
|||||||
@ -34,7 +34,7 @@ type
|
|||||||
JsListaFacturasNoEliminadas: TJSDialog;
|
JsListaFacturasNoEliminadas: TJSDialog;
|
||||||
actInformes: TAction;
|
actInformes: TAction;
|
||||||
JSInformesDialog: TJSDialog;
|
JSInformesDialog: TJSDialog;
|
||||||
TBXItem40: TTBXItem;
|
TBXItem40: TTBXItem;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure actEliminarUpdate(Sender: TObject);
|
procedure actEliminarUpdate(Sender: TObject);
|
||||||
procedure actNuevaFacturaExecute(Sender: TObject);
|
procedure actNuevaFacturaExecute(Sender: TObject);
|
||||||
@ -112,13 +112,15 @@ begin
|
|||||||
300 : begin // Listado de facturas de cliente
|
300 : begin // Listado de facturas de cliente
|
||||||
AGestorInformesController.VerInformeListadoFacturasCli;
|
AGestorInformesController.VerInformeListadoFacturasCli;
|
||||||
end;
|
end;
|
||||||
|
400 : begin // Listado de facturas de cliente
|
||||||
|
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Facturas.ID_CLIENTE);
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
finally
|
finally
|
||||||
AGestorInformesController := NIL;
|
AGestorInformesController := NIL;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject);
|
procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject);
|
||||||
|
|||||||
@ -26,7 +26,7 @@ begin
|
|||||||
EditorRegistry.UnRegisterClass(TfEditorFacturasCliente);
|
EditorRegistry.UnRegisterClass(TfEditorFacturasCliente);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorFacturaCliente);
|
EditorRegistry.UnRegisterClass(TfEditorFacturaCliente);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente);
|
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente);
|
EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorFacturasClientePreview);
|
EditorRegistry.UnRegisterClass(TfEditorFacturasClientePreview);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -64,7 +64,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
end
|
end
|
||||||
object cbFormaPago: TcxDBLookupComboBox
|
object cbFormaPago: TcxDBLookupComboBox
|
||||||
Left = 135
|
Left = 135
|
||||||
Top = 108
|
Top = 135
|
||||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Properties.DropDownListStyle = lsFixedList
|
Properties.DropDownListStyle = lsFixedList
|
||||||
@ -92,21 +92,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
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 = 2
|
TabOrder = 3
|
||||||
Width = 78
|
Width = 78
|
||||||
end
|
end
|
||||||
object bFormasPago: TButton
|
object bFormasPago: TButton
|
||||||
Left = 241
|
Left = 241
|
||||||
Top = 108
|
Top = 135
|
||||||
Width = 132
|
Width = 132
|
||||||
Height = 23
|
Height = 23
|
||||||
Caption = 'Ver las formas de pago...'
|
Caption = 'Ver las formas de pago...'
|
||||||
TabOrder = 3
|
TabOrder = 4
|
||||||
OnClick = bFormasPagoClick
|
OnClick = bFormasPagoClick
|
||||||
end
|
end
|
||||||
inline frViewTienda1: TfrViewTienda
|
inline frViewTienda1: TfrViewTienda
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 188
|
Top = 215
|
||||||
Width = 351
|
Width = 351
|
||||||
Height = 48
|
Height = 48
|
||||||
Enabled = False
|
Enabled = False
|
||||||
@ -116,10 +116,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 5
|
TabOrder = 6
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 22
|
ExplicitLeft = 22
|
||||||
ExplicitTop = 188
|
ExplicitTop = 215
|
||||||
ExplicitWidth = 351
|
ExplicitWidth = 351
|
||||||
ExplicitHeight = 48
|
ExplicitHeight = 48
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
@ -144,7 +144,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 7
|
TabOrder = 8
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 401
|
ExplicitLeft = 401
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
@ -153,7 +153,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 398
|
Width = 398
|
||||||
Height = 265
|
Height = 265
|
||||||
ExplicitWidth = 101
|
ExplicitWidth = 398
|
||||||
ExplicitHeight = 265
|
ExplicitHeight = 265
|
||||||
inherited edtlNombre: TcxDBTextEdit
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 276
|
||||||
@ -191,7 +191,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
end
|
end
|
||||||
object edtFechaVencimiento: TcxDBDateEdit
|
object edtFechaVencimiento: TcxDBDateEdit
|
||||||
Left = 135
|
Left = 135
|
||||||
Top = 137
|
Top = 164
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
@ -208,12 +208,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
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 = 4
|
TabOrder = 5
|
||||||
Width = 310
|
Width = 310
|
||||||
end
|
end
|
||||||
inline frViewObservaciones1: TfrViewObservaciones
|
inline frViewObservaciones1: TfrViewObservaciones
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 325
|
Top = 344
|
||||||
Width = 521
|
Width = 521
|
||||||
Height = 228
|
Height = 228
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -222,22 +222,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 8
|
TabOrder = 9
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 22
|
ExplicitLeft = 22
|
||||||
ExplicitTop = 325
|
ExplicitTop = 344
|
||||||
ExplicitHeight = 228
|
ExplicitHeight = 228
|
||||||
inherited memObservaciones: TcxDBMemo
|
inherited memObservaciones: TcxDBMemo
|
||||||
DataBinding.DataField = 'OBSERVACIONES'
|
DataBinding.DataField = 'OBSERVACIONES'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
ExplicitWidth = 480
|
ExplicitHeight = 228
|
||||||
ExplicitHeight = 20
|
|
||||||
Height = 228
|
Height = 228
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cbRecargoEquivalencia: TcxDBCheckBox
|
object cbRecargoEquivalencia: TcxDBCheckBox
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 266
|
Top = 293
|
||||||
Caption = ' No acogida a comisiones'
|
Caption = ' No acogida a comisiones'
|
||||||
DataBinding.DataField = 'SIN_COMISION'
|
DataBinding.DataField = 'SIN_COMISION'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
@ -263,9 +262,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 6
|
TabOrder = 7
|
||||||
Width = 158
|
Width = 158
|
||||||
end
|
end
|
||||||
|
object edtSituacion: TcxDBComboBox
|
||||||
|
Left = 135
|
||||||
|
Top = 84
|
||||||
|
DataBinding.DataField = 'SITUACION'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
'PENDIENTE'
|
||||||
|
'PAGADA')
|
||||||
|
TabOrder = 2
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
@ -295,6 +307,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
|||||||
Control = edtFecha
|
Control = edtFecha
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
object dxLayoutControl1Item8: TdxLayoutItem
|
||||||
|
Caption = 'Situaci'#243'n:'
|
||||||
|
Control = edtSituacion
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||||
Caption = 'Forma de pago'
|
Caption = 'Forma de pago'
|
||||||
|
|||||||
@ -58,6 +58,8 @@ type
|
|||||||
dxLayoutControl1Item7: TdxLayoutItem;
|
dxLayoutControl1Item7: TdxLayoutItem;
|
||||||
cbRecargoEquivalencia: TcxDBCheckBox;
|
cbRecargoEquivalencia: TcxDBCheckBox;
|
||||||
dxLayoutControl1Group9: TdxLayoutGroup;
|
dxLayoutControl1Group9: TdxLayoutGroup;
|
||||||
|
edtSituacion: TcxDBComboBox;
|
||||||
|
dxLayoutControl1Item8: TdxLayoutItem;
|
||||||
procedure bFormasPagoClick(Sender: TObject);
|
procedure bFormasPagoClick(Sender: TObject);
|
||||||
procedure CustomViewDestroy(Sender: TObject);
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
procedure CustomViewCreate(Sender: TObject);
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
|||||||
@ -164,9 +164,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
|||||||
object cxGridPendientes: TcxGridLevel
|
object cxGridPendientes: TcxGridLevel
|
||||||
Caption = 'Pendientes'
|
Caption = 'Pendientes'
|
||||||
end
|
end
|
||||||
object cxGridParcial: TcxGridLevel
|
|
||||||
Caption = 'Parcialmente pagadas'
|
|
||||||
end
|
|
||||||
object cxGridPagadas: TcxGridLevel
|
object cxGridPagadas: TcxGridLevel
|
||||||
Caption = 'Pagadas'
|
Caption = 'Pagadas'
|
||||||
end
|
end
|
||||||
|
|||||||
@ -43,7 +43,6 @@ type
|
|||||||
cxGridViewPOBLACION: TcxGridDBColumn;
|
cxGridViewPOBLACION: TcxGridDBColumn;
|
||||||
cxStylePagada: TcxStyle;
|
cxStylePagada: TcxStyle;
|
||||||
cxGridPendientes: TcxGridLevel;
|
cxGridPendientes: TcxGridLevel;
|
||||||
cxGridParcial: TcxGridLevel;
|
|
||||||
cxStyleAbono: TcxStyle;
|
cxStyleAbono: TcxStyle;
|
||||||
cxGridPagadas: TcxGridLevel;
|
cxGridPagadas: TcxGridLevel;
|
||||||
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
|
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
|
||||||
@ -207,9 +206,7 @@ begin
|
|||||||
if (ASituacion = CTE_PAGADA) then
|
if (ASituacion = CTE_PAGADA) then
|
||||||
AStyle := cxStylePagada
|
AStyle := cxStylePagada
|
||||||
else if (ASituacion = CTE_PENDIENTE) then
|
else if (ASituacion = CTE_PENDIENTE) then
|
||||||
AStyle := cxStylePendientes
|
AStyle := cxStylePendientes;
|
||||||
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
|
|
||||||
AStyle := cxStyleParciales;
|
|
||||||
|
|
||||||
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
|
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
|
||||||
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
|
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
|
||||||
|
|||||||
@ -700,7 +700,7 @@ begin
|
|||||||
|
|
||||||
//De esta forma obligaremos siempre a tener un recibo asociado a la factura,
|
//De esta forma obligaremos siempre a tener un recibo asociado a la factura,
|
||||||
//porque si la forma de pago no tiene plazos es obligatorio la fecha de vencimiento
|
//porque si la forma de pago no tiene plazos es obligatorio la fecha de vencimiento
|
||||||
with TFormasPagoController.Create do
|
{ with TFormasPagoController.Create do
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
AFormaPago := Buscar(AFactura.ID_FORMA_PAGO);
|
AFormaPago := Buscar(AFactura.ID_FORMA_PAGO);
|
||||||
@ -713,7 +713,7 @@ begin
|
|||||||
Free;
|
Free;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
//En caso de ser un Abono no podra tener un importe total positivo
|
//En caso de ser un Abono no podra tener un importe total positivo
|
||||||
if (AFactura.TIPO = CTE_TIPO_ABONO) then
|
if (AFactura.TIPO = CTE_TIPO_ABONO) then
|
||||||
if (AFactura.IMPORTE_TOTAL >= 0) then
|
if (AFactura.IMPORTE_TOTAL >= 0) then
|
||||||
@ -901,10 +901,10 @@ function TFacturasProveedorController.EsEliminable(AFactura: IBizFacturaProveedo
|
|||||||
begin
|
begin
|
||||||
Result := True;
|
Result := True;
|
||||||
AComentario := Null;
|
AComentario := Null;
|
||||||
|
|
||||||
if not Assigned(AFactura) then
|
if not Assigned(AFactura) then
|
||||||
raise Exception.Create ('Factura no asignado: EsEliminable');
|
raise Exception.Create ('Factura no asignado: EsEliminable');
|
||||||
|
{
|
||||||
if (AFactura.SITUACION <> CTE_PENDIENTE) then
|
if (AFactura.SITUACION <> CTE_PENDIENTE) then
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
@ -920,6 +920,7 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser eliminada';
|
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser eliminada';
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TFacturasProveedorController.EsModificable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
|
function TFacturasProveedorController.EsModificable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
|
||||||
@ -929,7 +930,7 @@ begin
|
|||||||
|
|
||||||
if not Assigned(AFactura) then
|
if not Assigned(AFactura) then
|
||||||
raise Exception.Create ('Factura no asignado: EsModificable');
|
raise Exception.Create ('Factura no asignado: EsModificable');
|
||||||
|
{
|
||||||
if (AFactura.SITUACION <> CTE_PENDIENTE) then
|
if (AFactura.SITUACION <> CTE_PENDIENTE) then
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
@ -945,6 +946,7 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser modificada';
|
AComentario := 'La factura tiene un asiento asociado en la parte contable y está punteado, por lo que no puede ser modificada';
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TFacturasProveedorController.RecalcularImportes(FFactura: IBizFacturaProveedor);
|
procedure TFacturasProveedorController.RecalcularImportes(FFactura: IBizFacturaProveedor);
|
||||||
@ -1258,6 +1260,8 @@ begin
|
|||||||
AFormasPagoController := TFormasPagoController.Create;
|
AFormasPagoController := TFormasPagoController.Create;
|
||||||
AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO);
|
AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO);
|
||||||
AFormaPago.DataTable.Active := True;
|
AFormaPago.DataTable.Active := True;
|
||||||
|
if AFormaPago.Plazos.RecordCount = 0 then
|
||||||
|
Exit; //No hay plazos en la forma de pago en la factura y por lo tanto no se generan recibos
|
||||||
|
|
||||||
ARecibosProveedorController := TRecibosProveedorController.Create;
|
ARecibosProveedorController := TRecibosProveedorController.Create;
|
||||||
//Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
|
//Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
|
||||||
|
|||||||
@ -9,11 +9,11 @@ const
|
|||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosFacturas = '{7B9F91D4-906B-4935-A6E5-7E5E73CFB8F2}';
|
RID_ListaAnosFacturas = '{C7DA1898-B917-4186-82B9-EF7F3688C121}';
|
||||||
RID_FacturasProveedor_Contratos = '{7E19810B-9DA8-42DE-826F-B33D7DBDCD51}';
|
RID_FacturasProveedor_Contratos = '{3BA8F2FD-0730-4766-B593-D8B413B5905B}';
|
||||||
RID_TiposFacturaProveedor = '{E83ABFBC-6F47-4597-979C-3224CC00DBDC}';
|
RID_TiposFacturaProveedor = '{99A70923-CC81-401B-A06C-3AEFA31F1956}';
|
||||||
RID_FacturasProveedor = '{26602041-C101-4CAC-824C-C6B0A3705AE8}';
|
RID_FacturasProveedor = '{703B7E51-6194-4F69-B9BC-849C4821B81B}';
|
||||||
RID_FacturasProveedor_Detalles = '{C7E32006-F921-4ADB-BB08-ED1080FBE6DB}';
|
RID_FacturasProveedor_Detalles = '{355A9F5B-B76A-4ED7-AD99-723ECC24197E}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||||
@ -183,7 +183,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IListaAnosFacturas }
|
{ IListaAnosFacturas }
|
||||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||||
['{E98FAB1D-C712-4BC4-AAE2-5E272B360182}']
|
['{39519A2A-11BC-4AFA-B812-3055340CAE84}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetANOValue: String;
|
function GetANOValue: String;
|
||||||
procedure SetANOValue(const aValue: String);
|
procedure SetANOValue(const aValue: String);
|
||||||
@ -218,7 +218,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasProveedor_Contratos }
|
{ IFacturasProveedor_Contratos }
|
||||||
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
|
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
|
||||||
['{0948BC64-862D-4801-9685-1E3C97546BDF}']
|
['{42B0326B-8965-4E74-AC91-64D82C5ABCAA}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -325,7 +325,7 @@ type
|
|||||||
|
|
||||||
{ ITiposFacturaProveedor }
|
{ ITiposFacturaProveedor }
|
||||||
ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
|
ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
|
||||||
['{41EB9AC4-EFD3-4658-8A2C-0CE7201B01F6}']
|
['{940D609C-16AA-442E-84A1-6C0181D4F10D}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -372,7 +372,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasProveedor }
|
{ IFacturasProveedor }
|
||||||
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
|
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
|
||||||
['{53426A0C-9DB7-48CF-9BBF-67D257B9ED00}']
|
['{07C8CFF1-8C44-4C84-9171-83E0C9AF81FE}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -935,7 +935,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasProveedor_Detalles }
|
{ IFacturasProveedor_Detalles }
|
||||||
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||||
['{ECA81852-45B3-412C-A605-B45F1B613919}']
|
['{97EF127B-7478-45C9-B15F-832618C17F19}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
|
|||||||
@ -9,16 +9,16 @@ const
|
|||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosFacturasDelta = '{79CD54D1-C44E-46EE-A1AF-51519F94D7DF}';
|
RID_ListaAnosFacturasDelta = '{B5BAE581-991C-4B73-9455-984D9A5AB62B}';
|
||||||
RID_FacturasProveedor_ContratosDelta = '{32634786-2D30-4A75-8340-98AD18294F4B}';
|
RID_FacturasProveedor_ContratosDelta = '{F3AA3D9B-47DB-4B66-914C-ADF42111EAFB}';
|
||||||
RID_TiposFacturaProveedorDelta = '{D717E826-757A-4ECC-B805-D23971441080}';
|
RID_TiposFacturaProveedorDelta = '{72320F2D-F96B-42D2-8046-226C5F0CFF90}';
|
||||||
RID_FacturasProveedorDelta = '{2B0FBE68-9C7D-495D-AF70-0C9328D36439}';
|
RID_FacturasProveedorDelta = '{56EEC02F-6B35-4538-A885-E3FD6408F13B}';
|
||||||
RID_FacturasProveedor_DetallesDelta = '{40BDCDE5-A538-4805-BB46-239472F69265}';
|
RID_FacturasProveedor_DetallesDelta = '{918408EE-23B5-4145-B189-D7B8CC62E7F6}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IListaAnosFacturasDelta }
|
{ IListaAnosFacturasDelta }
|
||||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||||
['{79CD54D1-C44E-46EE-A1AF-51519F94D7DF}']
|
['{B5BAE581-991C-4B73-9455-984D9A5AB62B}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldANOValue : String;
|
function GetOldANOValue : String;
|
||||||
|
|
||||||
@ -52,7 +52,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasProveedor_ContratosDelta }
|
{ IFacturasProveedor_ContratosDelta }
|
||||||
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
|
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
|
||||||
['{32634786-2D30-4A75-8340-98AD18294F4B}']
|
['{F3AA3D9B-47DB-4B66-914C-ADF42111EAFB}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_FACTURAValue : Integer;
|
function GetOldID_FACTURAValue : Integer;
|
||||||
@ -158,7 +158,7 @@ type
|
|||||||
|
|
||||||
{ ITiposFacturaProveedorDelta }
|
{ ITiposFacturaProveedorDelta }
|
||||||
ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
|
ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
|
||||||
['{D717E826-757A-4ECC-B805-D23971441080}']
|
['{72320F2D-F96B-42D2-8046-226C5F0CFF90}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldDESCRIPCIONValue : String;
|
function GetOldDESCRIPCIONValue : String;
|
||||||
@ -204,7 +204,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasProveedorDelta }
|
{ IFacturasProveedorDelta }
|
||||||
IFacturasProveedorDelta = interface(IFacturasProveedor)
|
IFacturasProveedorDelta = interface(IFacturasProveedor)
|
||||||
['{2B0FBE68-9C7D-495D-AF70-0C9328D36439}']
|
['{56EEC02F-6B35-4538-A885-E3FD6408F13B}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_EMPRESAValue : Integer;
|
function GetOldID_EMPRESAValue : Integer;
|
||||||
@ -767,7 +767,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasProveedor_DetallesDelta }
|
{ IFacturasProveedor_DetallesDelta }
|
||||||
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
|
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
|
||||||
['{40BDCDE5-A538-4805-BB46-239472F69265}']
|
['{918408EE-23B5-4145-B189-D7B8CC62E7F6}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_FACTURAValue : Integer;
|
function GetOldID_FACTURAValue : Integer;
|
||||||
|
|||||||
@ -14,7 +14,6 @@ const
|
|||||||
CTE_TIPO_FACTURA = 'F';
|
CTE_TIPO_FACTURA = 'F';
|
||||||
|
|
||||||
CTE_PENDIENTE = 'PENDIENTE';
|
CTE_PENDIENTE = 'PENDIENTE';
|
||||||
CTE_PARCIAMENTE_PAGADA = 'PARCIALMENTE PAGADA';
|
|
||||||
CTE_PAGADA = 'PAGADA';
|
CTE_PAGADA = 'PAGADA';
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -155,10 +155,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
||||||
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
||||||
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, REFERENCIA_PROVEEDOR, ID' +
|
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, REFERENCIA_PROVEEDOR, ID' +
|
||||||
'_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF,'#10'FECHA_FACTURA, FECHA_VEN' +
|
'_PROVEEDOR, REF_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF,'#10'FECHA_FAC' +
|
||||||
'CIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_fac' +
|
'TURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_TO' +
|
||||||
'turas_proveedor'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, ' +
|
'TAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, MES, ' +
|
||||||
'NOMBRE'#10#10
|
'FECHA_FACTURA, NOMBRE'#10#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -223,6 +223,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
item
|
item
|
||||||
DatasetField = 'REFERENCIA_PROVEEDOR'
|
DatasetField = 'REFERENCIA_PROVEEDOR'
|
||||||
TableField = 'REFERENCIA_PROVEEDOR'
|
TableField = 'REFERENCIA_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REF_PROVEEDOR'
|
||||||
|
TableField = 'REF_PROVEEDOR'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'ListadoFacturasProveedor'
|
Name = 'ListadoFacturasProveedor'
|
||||||
@ -258,6 +262,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
Name = 'ID_PROVEEDOR'
|
Name = 'ID_PROVEEDOR'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'REF_PROVEEDOR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'NOMBRE'
|
Name = 'NOMBRE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -507,7 +516,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Por defecto'
|
||||||
PrintOptions.PrintOnSheet = 0
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 37800.807714351900000000
|
ReportOptions.CreateDate = 37800.807714351900000000
|
||||||
ReportOptions.LastChange = 39884.811485821760000000
|
ReportOptions.LastChange = 40945.691024224540000000
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ShowProgress = False
|
ShowProgress = False
|
||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
@ -540,10 +549,20 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA_PROVEEDOR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'ID_PROVEEDOR'
|
Name = 'ID_PROVEEDOR'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'REF_PROVEEDOR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'NOMBRE'
|
Name = 'NOMBRE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -560,11 +579,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
Size = 15
|
Size = 15
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA'
|
Name = 'FECHA_FACTURA'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_FACTURA'
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
|
|||||||
@ -1008,6 +1008,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
|||||||
Name = 'ID_TIPO_FACTURA'
|
Name = 'ID_TIPO_FACTURA'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
Value = ''
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
end>
|
end>
|
||||||
Statements = <
|
Statements = <
|
||||||
item
|
item
|
||||||
@ -1023,16 +1029,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
|||||||
', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION' +
|
', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION' +
|
||||||
', USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IV' +
|
', USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IV' +
|
||||||
'A, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TI' +
|
'A, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TI' +
|
||||||
'ENDA, ID_TIPO_FACTURA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENC' +
|
'ENDA, ID_TIPO_FACTURA, SITUACION)'#10' VALUES'#10' (:ID, :ID_EMPRESA' +
|
||||||
'IA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIEN' +
|
', :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECH' +
|
||||||
'TO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, ' +
|
'A_VENCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUE' +
|
||||||
':IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPO' +
|
'NTO, :IVA, :IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORT' +
|
||||||
'RTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE' +
|
'E_RE, :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' ' +
|
||||||
', :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_A' +
|
' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' +
|
||||||
'LTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECAR' +
|
' :FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10 +
|
||||||
'GO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_POR' +
|
' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :' +
|
||||||
'TE, :IGNORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTURA)'#10' '#10' ' +
|
'IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTU' +
|
||||||
' '#10#10
|
'RA, :SITUACION)'#10' '#10' '#10#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
@ -1243,6 +1249,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
|||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_ID'
|
Name = 'OLD_ID'
|
||||||
Value = ''
|
Value = ''
|
||||||
@ -1271,7 +1283,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
|||||||
', '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_' +
|
', '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_' +
|
||||||
'NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILI' +
|
'NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILI' +
|
||||||
'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_' +
|
'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_' +
|
||||||
'TIPO_FACTURA = :ID_TIPO_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
'TIPO_FACTURA = :ID_TIPO_FACTURA,'#10' SITUACION = :SITUACION'#10' WH' +
|
||||||
|
'ERE'#10' (ID = :OLD_ID)'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
|
|||||||
@ -41,6 +41,9 @@
|
|||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||||
</Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
</Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
@ -49,37 +52,42 @@
|
|||||||
<DelphiCompile Include="FacturasProveedor_view.dpk">
|
<DelphiCompile Include="FacturasProveedor_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="adortl.dcp" />
|
<DCCReference Include="..\adortl.dcp" />
|
||||||
<DCCReference Include="Articulos_view.dcp" />
|
<DCCReference Include="..\Articulos_view.dcp" />
|
||||||
<DCCReference Include="Contabilidad_controller.dcp" />
|
<DCCReference Include="..\Contabilidad_controller.dcp" />
|
||||||
<DCCReference Include="Contabilidad_view.dcp" />
|
<DCCReference Include="..\Contabilidad_view.dcp" />
|
||||||
<DCCReference Include="Contactos_controller.dcp" />
|
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||||
<DCCReference Include="Contactos_model.dcp" />
|
<DCCReference Include="..\Contactos_model.dcp" />
|
||||||
<DCCReference Include="ContratosCliente_controller.dcp" />
|
<DCCReference Include="..\ContratosCliente_controller.dcp" />
|
||||||
<DCCReference Include="ContratosCliente_model.dcp" />
|
<DCCReference Include="..\ContratosCliente_model.dcp" />
|
||||||
<DCCReference Include="cxDataD11.dcp" />
|
<DCCReference Include="..\cxDataD11.dcp" />
|
||||||
<DCCReference Include="cxEditorsD11.dcp" />
|
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="cxExportD11.dcp" />
|
<DCCReference Include="..\cxExportD11.dcp" />
|
||||||
<DCCReference Include="cxExtEditorsD11.dcp" />
|
<DCCReference Include="..\cxExtEditorsD11.dcp" />
|
||||||
<DCCReference Include="cxGridD11.dcp" />
|
<DCCReference Include="..\cxGridD11.dcp" />
|
||||||
<DCCReference Include="cxLibraryD11.dcp" />
|
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="cxPageControlD11.dcp" />
|
<DCCReference Include="..\cxPageControlD11.dcp" />
|
||||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="dbrtl.dcp" />
|
<DCCReference Include="..\dbrtl.dcp" />
|
||||||
<DCCReference Include="dsnap.dcp" />
|
<DCCReference Include="..\dsnap.dcp" />
|
||||||
<DCCReference Include="dxComnD11.dcp" />
|
<DCCReference Include="..\dxComnD11.dcp" />
|
||||||
<DCCReference Include="dxCoreD11.dcp" />
|
<DCCReference Include="..\dxCoreD11.dcp" />
|
||||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="dxThemeD11.dcp" />
|
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="FacturasProveedor_controller.dcp" />
|
<DCCReference Include="..\FacturasProveedor_controller.dcp" />
|
||||||
<DCCReference Include="FacturasProveedor_model.dcp" />
|
<DCCReference Include="..\FacturasProveedor_model.dcp" />
|
||||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
||||||
<DCCReference Include="GUIBase.dcp" />
|
<DCCReference Include="..\GUIBase.dcp" />
|
||||||
<DCCReference Include="PngComponentsD10.dcp" />
|
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="PNG_D10.dcp" />
|
<DCCReference Include="..\PNG_D10.dcp" />
|
||||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="rtl.dcp" />
|
<DCCReference Include="..\rtl.dcp" />
|
||||||
|
<DCCReference Include="..\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="..\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\vclx.dcp" />
|
||||||
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
|
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
|
||||||
<Form>fEditorElegirArticulosFacturaProveedor</Form>
|
<Form>fEditorElegirArticulosFacturaProveedor</Form>
|
||||||
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
|
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
|
||||||
@ -121,11 +129,6 @@
|
|||||||
<Form>frViewProveedorFactura</Form>
|
<Form>frViewProveedorFactura</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="vcl.dcp" />
|
|
||||||
<DCCReference Include="vclactnband.dcp" />
|
|
||||||
<DCCReference Include="vcldb.dcp" />
|
|
||||||
<DCCReference Include="vcljpg.dcp" />
|
|
||||||
<DCCReference Include="vclx.dcp" />
|
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||||
Width = 451
|
Width = 740
|
||||||
Height = 304
|
Height = 479
|
||||||
Align = alClient
|
Align = alClient
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
@ -9,17 +9,19 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 451
|
Width = 740
|
||||||
Height = 304
|
Height = 479
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
|
ExplicitWidth = 451
|
||||||
|
ExplicitHeight = 304
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
451
|
740
|
||||||
304)
|
479)
|
||||||
object eReferencia: TcxDBTextEdit
|
object eReferencia: TcxDBTextEdit
|
||||||
Left = 124
|
Left = 124
|
||||||
Top = 30
|
Top = 30
|
||||||
@ -63,7 +65,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
end
|
end
|
||||||
object cbFormaPago: TcxDBLookupComboBox
|
object cbFormaPago: TcxDBLookupComboBox
|
||||||
Left = 124
|
Left = 124
|
||||||
Top = 162
|
Top = 189
|
||||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Properties.DropDownListStyle = lsFixedList
|
Properties.DropDownListStyle = lsFixedList
|
||||||
@ -91,16 +93,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
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 = 4
|
TabOrder = 5
|
||||||
Width = 169
|
Width = 169
|
||||||
end
|
end
|
||||||
object bFormasPago: TButton
|
object bFormasPago: TButton
|
||||||
Left = 150
|
Left = 246
|
||||||
Top = 162
|
Top = 189
|
||||||
Width = 132
|
Width = 132
|
||||||
Height = 23
|
Height = 23
|
||||||
Caption = 'Ver las formas de pago...'
|
Caption = 'Ver las formas de pago...'
|
||||||
TabOrder = 5
|
TabOrder = 6
|
||||||
OnClick = bFormasPagoClick
|
OnClick = bFormasPagoClick
|
||||||
end
|
end
|
||||||
object eReferenciaProveedor: TcxDBTextEdit
|
object eReferenciaProveedor: TcxDBTextEdit
|
||||||
@ -125,7 +127,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
end
|
end
|
||||||
inline frViewTienda1: TfrViewTienda
|
inline frViewTienda1: TfrViewTienda
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 242
|
Top = 269
|
||||||
Width = 320
|
Width = 320
|
||||||
Height = 36
|
Height = 36
|
||||||
Enabled = False
|
Enabled = False
|
||||||
@ -135,10 +137,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 7
|
TabOrder = 8
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 22
|
ExplicitLeft = 22
|
||||||
ExplicitTop = 242
|
ExplicitTop = 269
|
||||||
ExplicitWidth = 320
|
ExplicitWidth = 320
|
||||||
ExplicitHeight = 36
|
ExplicitHeight = 36
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
@ -152,7 +154,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
end
|
end
|
||||||
object edtFechaVencimiento: TcxDBDateEdit
|
object edtFechaVencimiento: TcxDBDateEdit
|
||||||
Left = 124
|
Left = 124
|
||||||
Top = 191
|
Top = 218
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
@ -168,11 +170,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
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
|
||||||
Width = 158
|
Width = 158
|
||||||
end
|
end
|
||||||
inline frViewProveedorFactura1: TfrViewProveedorFactura
|
inline frViewProveedorFactura1: TfrViewProveedorFactura
|
||||||
Left = 310
|
Left = 406
|
||||||
Top = 30
|
Top = 30
|
||||||
Width = 312
|
Width = 312
|
||||||
Height = 260
|
Height = 260
|
||||||
@ -182,9 +184,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 8
|
TabOrder = 9
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 310
|
ExplicitLeft = 406
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 312
|
ExplicitWidth = 312
|
||||||
ExplicitHeight = 260
|
ExplicitHeight = 260
|
||||||
@ -231,7 +233,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
end
|
end
|
||||||
inline frViewObservaciones1: TfrViewObservaciones
|
inline frViewObservaciones1: TfrViewObservaciones
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 320
|
Top = 335
|
||||||
Width = 521
|
Width = 521
|
||||||
Height = 228
|
Height = 228
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -240,10 +242,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 9
|
TabOrder = 10
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 22
|
ExplicitLeft = 22
|
||||||
ExplicitTop = 320
|
ExplicitTop = 335
|
||||||
ExplicitHeight = 228
|
ExplicitHeight = 228
|
||||||
inherited memObservaciones: TcxDBMemo
|
inherited memObservaciones: TcxDBMemo
|
||||||
DataBinding.DataField = 'OBSERVACIONES'
|
DataBinding.DataField = 'OBSERVACIONES'
|
||||||
@ -254,7 +256,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
end
|
end
|
||||||
object cbTipoFactura: TcxDBLookupComboBox
|
object cbTipoFactura: TcxDBLookupComboBox
|
||||||
Left = 124
|
Left = 124
|
||||||
Top = 111
|
Top = 138
|
||||||
DataBinding.DataField = 'ID_TIPO_FACTURA'
|
DataBinding.DataField = 'ID_TIPO_FACTURA'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Properties.DropDownListStyle = lsFixedList
|
Properties.DropDownListStyle = lsFixedList
|
||||||
@ -282,9 +284,21 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
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 = 3
|
TabOrder = 4
|
||||||
Width = 209
|
Width = 209
|
||||||
end
|
end
|
||||||
|
object edtSituacion: TcxDBComboBox
|
||||||
|
Left = 124
|
||||||
|
Top = 111
|
||||||
|
DataBinding.DataField = 'SITUACION'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
'PENDIENTE'
|
||||||
|
'PAGADA')
|
||||||
|
TabOrder = 3
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
@ -320,6 +334,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
|||||||
Control = edtFecha
|
Control = edtFecha
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
object dxLayoutControl1Item9: TdxLayoutItem
|
||||||
|
Caption = 'Situaci'#243'n:'
|
||||||
|
Control = edtSituacion
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
object dxLayoutControl1Item8: TdxLayoutItem
|
object dxLayoutControl1Item8: TdxLayoutItem
|
||||||
Caption = 'Tipo operaci'#243'n:'
|
Caption = 'Tipo operaci'#243'n:'
|
||||||
Control = cbTipoFactura
|
Control = cbTipoFactura
|
||||||
|
|||||||
@ -63,6 +63,8 @@ type
|
|||||||
dxLayoutControl1Item8: TdxLayoutItem;
|
dxLayoutControl1Item8: TdxLayoutItem;
|
||||||
cbTipoFactura: TcxDBLookupComboBox;
|
cbTipoFactura: TcxDBLookupComboBox;
|
||||||
dsTiposFactura: TDADataSource;
|
dsTiposFactura: TDADataSource;
|
||||||
|
edtSituacion: TcxDBComboBox;
|
||||||
|
dxLayoutControl1Item9: TdxLayoutItem;
|
||||||
procedure bFormasPagoClick(Sender: TObject);
|
procedure bFormasPagoClick(Sender: TObject);
|
||||||
procedure CustomViewDestroy(Sender: TObject);
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
procedure CustomViewCreate(Sender: TObject);
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
|||||||
@ -198,9 +198,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
|||||||
object cxGridPendientes: TcxGridLevel
|
object cxGridPendientes: TcxGridLevel
|
||||||
Caption = 'Pendientes'
|
Caption = 'Pendientes'
|
||||||
end
|
end
|
||||||
object cxGridParcial: TcxGridLevel
|
|
||||||
Caption = 'Parcialmente pagadas'
|
|
||||||
end
|
|
||||||
object cxGridPagadas: TcxGridLevel
|
object cxGridPagadas: TcxGridLevel
|
||||||
Caption = 'Pagadas'
|
Caption = 'Pagadas'
|
||||||
end
|
end
|
||||||
|
|||||||
@ -45,7 +45,6 @@ type
|
|||||||
cxGridViewPOBLACION: TcxGridDBColumn;
|
cxGridViewPOBLACION: TcxGridDBColumn;
|
||||||
cxStylePagada: TcxStyle;
|
cxStylePagada: TcxStyle;
|
||||||
cxGridPendientes: TcxGridLevel;
|
cxGridPendientes: TcxGridLevel;
|
||||||
cxGridParcial: TcxGridLevel;
|
|
||||||
cxStyleAbono: TcxStyle;
|
cxStyleAbono: TcxStyle;
|
||||||
cxGridPagadas: TcxGridLevel;
|
cxGridPagadas: TcxGridLevel;
|
||||||
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
|
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
|
||||||
@ -163,7 +162,6 @@ begin
|
|||||||
|
|
||||||
case cxGrid.ActiveLevel.Index of
|
case cxGrid.ActiveLevel.Index of
|
||||||
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
|
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
|
||||||
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA);
|
|
||||||
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
|
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -206,9 +204,7 @@ begin
|
|||||||
if (ASituacion = CTE_PAGADA) then
|
if (ASituacion = CTE_PAGADA) then
|
||||||
AStyle := cxStylePagada
|
AStyle := cxStylePagada
|
||||||
else if (ASituacion = CTE_PENDIENTE) then
|
else if (ASituacion = CTE_PENDIENTE) then
|
||||||
AStyle := cxStylePendientes
|
AStyle := cxStylePendientes;
|
||||||
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
|
|
||||||
AStyle := cxStyleParciales;
|
|
||||||
|
|
||||||
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
|
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
|
||||||
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
|
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
|
||||||
|
|||||||
@ -66,6 +66,7 @@ object fEditorFormaPago: TfEditorFormaPago
|
|||||||
Font.Name = 'MS Sans Serif'
|
Font.Name = 'MS Sans Serif'
|
||||||
Font.Style = [fsBold]
|
Font.Style = [fsBold]
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
end
|
end
|
||||||
object Bevel3: TBevel
|
object Bevel3: TBevel
|
||||||
Left = 113
|
Left = 113
|
||||||
@ -73,6 +74,7 @@ object fEditorFormaPago: TfEditorFormaPago
|
|||||||
Width = 272
|
Width = 272
|
||||||
Height = 10
|
Height = 10
|
||||||
Shape = bsBottomLine
|
Shape = bsBottomLine
|
||||||
|
Visible = False
|
||||||
end
|
end
|
||||||
object Bevel4: TBevel
|
object Bevel4: TBevel
|
||||||
Left = 8
|
Left = 8
|
||||||
@ -132,6 +134,7 @@ object fEditorFormaPago: TfEditorFormaPago
|
|||||||
Height = 23
|
Height = 23
|
||||||
Action = actAnadir
|
Action = actAnadir
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
Visible = False
|
||||||
end
|
end
|
||||||
object bEliminar: TButton
|
object bEliminar: TButton
|
||||||
Left = 290
|
Left = 290
|
||||||
@ -140,6 +143,7 @@ object fEditorFormaPago: TfEditorFormaPago
|
|||||||
Height = 23
|
Height = 23
|
||||||
Action = actEliminar
|
Action = actEliminar
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
end
|
end
|
||||||
object ListaFormasPago: TcxGrid
|
object ListaFormasPago: TcxGrid
|
||||||
Left = 32
|
Left = 32
|
||||||
@ -147,6 +151,7 @@ object fEditorFormaPago: TfEditorFormaPago
|
|||||||
Width = 252
|
Width = 252
|
||||||
Height = 150
|
Height = 150
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
Visible = False
|
||||||
LookAndFeel.Kind = lfStandard
|
LookAndFeel.Kind = lfStandard
|
||||||
LookAndFeel.NativeStyle = True
|
LookAndFeel.NativeStyle = True
|
||||||
object ListaFormasPagoDBTableView1: TcxGridDBTableView
|
object ListaFormasPagoDBTableView1: TcxGridDBTableView
|
||||||
|
|||||||
@ -43,6 +43,9 @@ contains
|
|||||||
uIEditorInformeFacturasProveedorReport in 'View\uIEditorInformeFacturasProveedorReport.pas',
|
uIEditorInformeFacturasProveedorReport in 'View\uIEditorInformeFacturasProveedorReport.pas',
|
||||||
uIEditorInformePresupuestosReport in 'View\uIEditorInformePresupuestosReport.pas',
|
uIEditorInformePresupuestosReport in 'View\uIEditorInformePresupuestosReport.pas',
|
||||||
uIEditorInformeRecibosProveedorReport in 'View\uIEditorInformeRecibosProveedorReport.pas',
|
uIEditorInformeRecibosProveedorReport in 'View\uIEditorInformeRecibosProveedorReport.pas',
|
||||||
uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas';
|
uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas',
|
||||||
|
uIEditorInformeFacturasRecibosClienteReport in 'View\uIEditorInformeFacturasRecibosClienteReport.pas',
|
||||||
|
uIViewParametrosInforme in 'View\uIViewParametrosInforme.pas',
|
||||||
|
uIViewFiltroClientes in 'View\uIViewFiltroClientes.pas';
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -47,6 +47,7 @@
|
|||||||
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
|
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
|
||||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" />
|
<DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" />
|
||||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" />
|
<DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorInformeFacturasRecibosClienteReport.pas" />
|
||||||
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
|
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
|
||||||
<DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" />
|
<DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" />
|
||||||
<DCCReference Include="View\uIEditorInformePedidosReport.pas" />
|
<DCCReference Include="View\uIEditorInformePedidosReport.pas" />
|
||||||
@ -55,11 +56,13 @@
|
|||||||
<DCCReference Include="View\uIEditorInformeRecibosCliPendientesReport.pas" />
|
<DCCReference Include="View\uIEditorInformeRecibosCliPendientesReport.pas" />
|
||||||
<DCCReference Include="View\uIEditorInformeRecibosProveedorReport.pas" />
|
<DCCReference Include="View\uIEditorInformeRecibosProveedorReport.pas" />
|
||||||
<DCCReference Include="View\uIEditorInformeRecibosProvPendientesReport.pas" />
|
<DCCReference Include="View\uIEditorInformeRecibosProvPendientesReport.pas" />
|
||||||
|
<DCCReference Include="View\uIViewFiltroClientes.pas" />
|
||||||
|
<DCCReference Include="View\uIViewParametrosInforme.pas" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=6011
|
EurekaLog Version=6006
|
||||||
Activate=0
|
Activate=0
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
|
|||||||
@ -0,0 +1,22 @@
|
|||||||
|
unit uIEditorInformeFacturasRecibosClienteReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
FactuGES_Intf, uIEditorInformeBase, uIViewFiltroClientes;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorInformeFacturasRecibosClienteReport = interface(IEditorInformeBase)
|
||||||
|
['{270CCA92-D676-44A1-8AE5-6B9833627CD6}']
|
||||||
|
function GetListaIDClientes: TIntegerArray;
|
||||||
|
function GetDesglosadoCliente: Boolean;
|
||||||
|
function getViewFiltroCliente: IViewFiltroClientes;
|
||||||
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
|
property viewFiltroCliente: IViewFiltroClientes read getViewFiltroCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,18 @@
|
|||||||
|
unit uIViewFiltroClientes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uIViewParametrosInforme;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewFiltroClientes = interface(IViewParametrosInforme)
|
||||||
|
['{129906DA-8E64-4312-8095-A04F8007CF7F}']
|
||||||
|
procedure setIdCliente(const IdCliente:Integer);
|
||||||
|
function getIdCliente: Integer;
|
||||||
|
property IdCliente : Integer read getIdCliente write setIdCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,15 @@
|
|||||||
|
unit uIViewParametrosInforme;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uViewBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewParametrosInforme = interface(IViewBase)
|
||||||
|
['{2578FF9E-F084-4603-81D8-32450E3865B7}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -22,6 +22,7 @@ type
|
|||||||
procedure VerInformeIVAClientes;
|
procedure VerInformeIVAClientes;
|
||||||
procedure VerInformeListadoFacturasCli;
|
procedure VerInformeListadoFacturasCli;
|
||||||
procedure VerInformeListadoFacturasCliPendientes;
|
procedure VerInformeListadoFacturasCliPendientes;
|
||||||
|
procedure VerInformeListadoFacturasRecibosCli(const ID_CLIENTE: Integer);
|
||||||
|
|
||||||
//MODULO RECIBOS DE CLIENTE
|
//MODULO RECIBOS DE CLIENTE
|
||||||
procedure VerInformeListadoRecibosCliPendientes;
|
procedure VerInformeListadoRecibosCliPendientes;
|
||||||
@ -68,6 +69,7 @@ type
|
|||||||
procedure VerInformeIVAClientes;
|
procedure VerInformeIVAClientes;
|
||||||
procedure VerInformeListadoFacturasCli;
|
procedure VerInformeListadoFacturasCli;
|
||||||
procedure VerInformeListadoFacturasCliPendientes;
|
procedure VerInformeListadoFacturasCliPendientes;
|
||||||
|
procedure VerInformeListadoFacturasRecibosCli(const ID_CLIENTE: Integer);
|
||||||
|
|
||||||
//MODULO RECIBOS DE CLIENTE
|
//MODULO RECIBOS DE CLIENTE
|
||||||
procedure VerInformeListadoRecibosCliPendientes;
|
procedure VerInformeListadoRecibosCliPendientes;
|
||||||
@ -98,7 +100,7 @@ uses
|
|||||||
uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport,
|
uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport,
|
||||||
uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport,
|
uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport,
|
||||||
uIEditorInformeRecibosProvPendientesReport,
|
uIEditorInformeRecibosProvPendientesReport,
|
||||||
uIEditorInformePedidosReport;
|
uIEditorInformePedidosReport, uIEditorInformeFacturasRecibosClienteReport;
|
||||||
|
|
||||||
|
|
||||||
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
||||||
@ -411,6 +413,30 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TGestorInformesController.VerInformeListadoFacturasRecibosCli(const ID_CLIENTE: Integer);
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
AEditor : IEditorInformeFacturasRecibosClienteReport;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
|
||||||
|
CreateEditor('EditorInformeFacturasRecibosClienteReport', IEditorInformeFacturasRecibosClienteReport, AEditor);
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
try
|
||||||
|
AEditor.Controller := Self;
|
||||||
|
AEditor.Title := 'Listado de facturas/recibos de cliente';
|
||||||
|
AEditor.viewFiltroCliente.IdCliente := ID_CLIENTE;
|
||||||
|
AStream := FDataModule.GenerarInformeListadoFacturasRecibosCli(AppFactuGES.EmpresaActiva.ID, AEditor.ListaIDClientes,
|
||||||
|
AEditor.DesglosadoCliente);
|
||||||
|
AEditor.LoadFromStream(AStream);
|
||||||
|
AEditor.Preview;
|
||||||
|
finally
|
||||||
|
AEditor.Release;
|
||||||
|
AEditor := Nil;
|
||||||
|
FreeAndNil(AStream);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGestorInformesController.VerInformeListadoPresupuestos;
|
procedure TGestorInformesController.VerInformeListadoPresupuestos;
|
||||||
var
|
var
|
||||||
AStream: Binary;
|
AStream: Binary;
|
||||||
|
|||||||
@ -10,12 +10,12 @@ inherited DataModuleGestorInformes: TDataModuleGestorInformes
|
|||||||
Top = 16
|
Top = 16
|
||||||
end
|
end
|
||||||
object rda_GestorInformes: TDARemoteDataAdapter
|
object rda_GestorInformes: TDARemoteDataAdapter
|
||||||
|
DataStreamer = Bin2DataStreamer
|
||||||
GetSchemaCall.RemoteService = RORemoteService
|
GetSchemaCall.RemoteService = RORemoteService
|
||||||
GetDataCall.RemoteService = RORemoteService
|
GetDataCall.RemoteService = RORemoteService
|
||||||
UpdateDataCall.RemoteService = RORemoteService
|
UpdateDataCall.RemoteService = RORemoteService
|
||||||
GetScriptsCall.RemoteService = RORemoteService
|
GetScriptsCall.RemoteService = RORemoteService
|
||||||
RemoteService = RORemoteService
|
RemoteService = RORemoteService
|
||||||
DataStreamer = Bin2DataStreamer
|
|
||||||
Left = 43
|
Left = 43
|
||||||
Top = 135
|
Top = 135
|
||||||
end
|
end
|
||||||
@ -47,8 +47,6 @@ inherited DataModuleGestorInformes: TDataModuleGestorInformes
|
|||||||
end>
|
end>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_GestorInformes
|
RemoteDataAdapter = rda_GestorInformes
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'DirectoryData'
|
LogicalName = 'DirectoryData'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 184
|
Left = 184
|
||||||
|
|||||||
@ -29,6 +29,7 @@ type
|
|||||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS DE CLIENTE
|
//MODULO RECIBOS DE CLIENTE
|
||||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
@ -127,6 +128,16 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TDataModuleGestorInformes.GenerarInformeListadoFacturasRecibosCli(
|
||||||
|
const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray;
|
||||||
|
const Desglosado: Boolean): Binary;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosCli(IdEmpresa, ListaIdClientes, Desglosado);
|
||||||
|
finally
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoPresupuestos(
|
function TDataModuleGestorInformes.GenerarInformeListadoPresupuestos(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
|
|||||||
@ -18,6 +18,7 @@ type
|
|||||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS DE CLIENTE
|
//MODULO RECIBOS DE CLIENTE
|
||||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|||||||
@ -52,6 +52,7 @@ type
|
|||||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS CLIENTE
|
//MODULO RECIBOS CLIENTE
|
||||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
@ -248,6 +249,20 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TsrvGestorInformes.GenerarInformeListadoFacturasRecibosCli(
|
||||||
|
const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray;
|
||||||
|
const Desglosado: Boolean): Binary;
|
||||||
|
var
|
||||||
|
AReportGenerator : TRptFacturasCliente;
|
||||||
|
begin
|
||||||
|
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||||
|
try
|
||||||
|
Result := AReportGenerator.GenerarInformeListadoFacturasRecibos(IdEmpresa, ListadoIDClientes, Desglosado);
|
||||||
|
finally
|
||||||
|
FreeAndNIL(AReportGenerator);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
|
function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
|
|||||||
@ -31,7 +31,39 @@ requires
|
|||||||
Contactos_view,
|
Contactos_view,
|
||||||
GestorInformes_controller,
|
GestorInformes_controller,
|
||||||
Contactos_model,
|
Contactos_model,
|
||||||
Contactos_controller;
|
Contactos_controller,
|
||||||
|
rtl,
|
||||||
|
vcl,
|
||||||
|
PNG_D10,
|
||||||
|
PngComponentsD10,
|
||||||
|
vclactnband,
|
||||||
|
vclx,
|
||||||
|
tb2k_d10,
|
||||||
|
tbx_d10,
|
||||||
|
JvStdCtrlsD11R,
|
||||||
|
vcljpg,
|
||||||
|
JclVcl,
|
||||||
|
Jcl,
|
||||||
|
JvCoreD11R,
|
||||||
|
vcldb,
|
||||||
|
dbrtl,
|
||||||
|
JvSystemD11R,
|
||||||
|
JvPageCompsD11R,
|
||||||
|
frx11,
|
||||||
|
fs11,
|
||||||
|
fqb110,
|
||||||
|
bdertl,
|
||||||
|
frxe11,
|
||||||
|
RemObjects_Core_D11,
|
||||||
|
GUISDK_D11R,
|
||||||
|
designide,
|
||||||
|
xmlrtl,
|
||||||
|
cxLibraryD11,
|
||||||
|
dxThemeD11,
|
||||||
|
dxGDIPlusD11,
|
||||||
|
dxCoreD11,
|
||||||
|
dxLayoutControlD11,
|
||||||
|
dxComnD11;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
|
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
|
||||||
@ -50,6 +82,7 @@ contains
|
|||||||
uEditorInformeRecibosProvPendientesReport in 'uEditorInformeRecibosProvPendientesReport.pas' {fEditorInformeRecibosProvPendientesReport: TForm},
|
uEditorInformeRecibosProvPendientesReport in 'uEditorInformeRecibosProvPendientesReport.pas' {fEditorInformeRecibosProvPendientesReport: TForm},
|
||||||
uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: TForm},
|
uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: TForm},
|
||||||
uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: TForm},
|
uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: TForm},
|
||||||
uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm};
|
uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm},
|
||||||
|
uEditorInformeFacturasRecibosClienteReport in 'uEditorInformeFacturasRecibosClienteReport.pas' {fEditorInformeFacturasRecibosClienteReport: TForm};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -38,13 +38,39 @@
|
|||||||
<DelphiCompile Include="GestorInformes_view.dpk">
|
<DelphiCompile Include="GestorInformes_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
<DCCReference Include="ApplicationBase.dcp" />
|
||||||
<DCCReference Include="..\Base.dcp" />
|
<DCCReference Include="Base.dcp" />
|
||||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
<DCCReference Include="bdertl.dcp" />
|
||||||
<DCCReference Include="..\Contactos_model.dcp" />
|
<DCCReference Include="Contactos_controller.dcp" />
|
||||||
<DCCReference Include="..\Contactos_view.dcp" />
|
<DCCReference Include="Contactos_model.dcp" />
|
||||||
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
<DCCReference Include="Contactos_view.dcp" />
|
||||||
<DCCReference Include="..\GUIBase.dcp" />
|
<DCCReference Include="cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="dbrtl.dcp" />
|
||||||
|
<DCCReference Include="designide.dcp" />
|
||||||
|
<DCCReference Include="dxComnD11.dcp" />
|
||||||
|
<DCCReference Include="dxCoreD11.dcp" />
|
||||||
|
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||||
|
<DCCReference Include="dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="fqb110.dcp" />
|
||||||
|
<DCCReference Include="frx11.dcp" />
|
||||||
|
<DCCReference Include="frxe11.dcp" />
|
||||||
|
<DCCReference Include="fs11.dcp" />
|
||||||
|
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||||
|
<DCCReference Include="GUIBase.dcp" />
|
||||||
|
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||||
|
<DCCReference Include="Jcl.dcp" />
|
||||||
|
<DCCReference Include="JclVcl.dcp" />
|
||||||
|
<DCCReference Include="JvCoreD11R.dcp" />
|
||||||
|
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||||
|
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="rtl.dcp" />
|
||||||
|
<DCCReference Include="tb2k_d10.dcp" />
|
||||||
|
<DCCReference Include="tbx_d10.dcp" />
|
||||||
<DCCReference Include="uEditorInformeBase.pas">
|
<DCCReference Include="uEditorInformeBase.pas">
|
||||||
<Form>fEditorInformeBase</Form>
|
<Form>fEditorInformeBase</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
@ -65,6 +91,10 @@
|
|||||||
<Form>fEditorInformeFacturasProveedorReport</Form>
|
<Form>fEditorInformeFacturasProveedorReport</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="uEditorInformeFacturasRecibosClienteReport.pas">
|
||||||
|
<Form>fEditorInformeRecibosProveedorReport</Form>
|
||||||
|
<DesignClass>TForm</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
|
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
|
||||||
<Form>fEditorInformeIVAClientesReport</Form>
|
<Form>fEditorInformeIVAClientesReport</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
@ -110,6 +140,12 @@
|
|||||||
<Form>frViewPeriodoFechas</Form>
|
<Form>frViewPeriodoFechas</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="vcl.dcp" />
|
||||||
|
<DCCReference Include="vclactnband.dcp" />
|
||||||
|
<DCCReference Include="vcldb.dcp" />
|
||||||
|
<DCCReference Include="vcljpg.dcp" />
|
||||||
|
<DCCReference Include="vclx.dcp" />
|
||||||
|
<DCCReference Include="xmlrtl.dcp" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -0,0 +1,252 @@
|
|||||||
|
inherited fEditorInformeFacturasRecibosClienteReport: TfEditorInformeFacturasRecibosClienteReport
|
||||||
|
Caption = 'fEditorInformeFacturasRecibosClienteReport'
|
||||||
|
ClientHeight = 655
|
||||||
|
ClientWidth = 895
|
||||||
|
ExplicitWidth = 903
|
||||||
|
ExplicitHeight = 689
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 895
|
||||||
|
ExplicitWidth = 895
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 868
|
||||||
|
ExplicitLeft = 868
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Width = 895
|
||||||
|
ExplicitWidth = 895
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 895
|
||||||
|
end
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
ExplicitWidth = 591
|
||||||
|
object TBXItem58: TTBXItem [0]
|
||||||
|
Action = actRefrescar
|
||||||
|
DisplayMode = nbdmImageAndText
|
||||||
|
Images = SmallImages
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Top = 636
|
||||||
|
Width = 895
|
||||||
|
ExplicitTop = 636
|
||||||
|
ExplicitWidth = 895
|
||||||
|
end
|
||||||
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
|
Height = 534
|
||||||
|
ExplicitHeight = 534
|
||||||
|
end
|
||||||
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
|
Left = 703
|
||||||
|
Width = 192
|
||||||
|
Height = 534
|
||||||
|
ExplicitLeft = 703
|
||||||
|
ExplicitWidth = 192
|
||||||
|
ExplicitHeight = 534
|
||||||
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
|
DockedWidth = 188
|
||||||
|
ExplicitWidth = 192
|
||||||
|
ExplicitHeight = 518
|
||||||
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 188
|
||||||
|
Height = 136
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
Visible = False
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 136
|
||||||
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
Height = 98
|
||||||
|
ExplicitWidth = 182
|
||||||
|
ExplicitHeight = 98
|
||||||
|
inherited Label3: TLabel
|
||||||
|
Width = 172
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 74
|
||||||
|
Top = 77
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 74
|
||||||
|
ExplicitTop = 77
|
||||||
|
ExplicitWidth = 99
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 170
|
||||||
|
Width = 170
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Top = 136
|
||||||
|
Width = 182
|
||||||
|
Visible = False
|
||||||
|
ExplicitTop = 136
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 172
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 99
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
Top = 368
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitTop = 368
|
||||||
|
ExplicitWidth = 188
|
||||||
|
inherited TBXButton1: TTBXButton
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 3
|
||||||
|
Top = 3
|
||||||
|
Width = 182
|
||||||
|
Height = 37
|
||||||
|
Margins.Left = 8
|
||||||
|
Margins.Top = 8
|
||||||
|
Margins.Right = 8
|
||||||
|
Margins.Bottom = 8
|
||||||
|
Align = alTop
|
||||||
|
ExplicitLeft = 3
|
||||||
|
ExplicitTop = 3
|
||||||
|
ExplicitWidth = 182
|
||||||
|
ExplicitHeight = 37
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
|
Left = 0
|
||||||
|
Top = 136
|
||||||
|
Width = 188
|
||||||
|
Height = 77
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
Visible = False
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 136
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 77
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited eImporte: TcxSpinEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||||
|
Left = 0
|
||||||
|
Top = 213
|
||||||
|
Width = 188
|
||||||
|
Height = 146
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 213
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 146
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited bElegirCliente: TBitBtn
|
||||||
|
Width = 108
|
||||||
|
ExplicitWidth = 108
|
||||||
|
end
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited edtCliente: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 141
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
inherited rbTodosClientes: TRadioButton
|
||||||
|
Checked = False
|
||||||
|
TabStop = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited rbUnCliente: TRadioButton
|
||||||
|
Checked = True
|
||||||
|
TabStop = True
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,139 @@
|
|||||||
|
unit uEditorInformeFacturasRecibosClienteReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||||
|
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||||
|
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||||
|
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||||
|
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
|
JvExControls, JvNavigationPane, uCustomView,
|
||||||
|
uViewBase, uViewPeriodoFechas,
|
||||||
|
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIViewFiltroClientes,
|
||||||
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasRecibosClienteReport;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorInformeFacturasRecibosClienteReport = class(TfEditorInformeBase, IEditorInformeFacturasRecibosClienteReport)
|
||||||
|
TBXItem58: TTBXItem;
|
||||||
|
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||||
|
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||||
|
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||||
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
|
private
|
||||||
|
FListaIDClientes: TIntegerArray;
|
||||||
|
function GetFechaFin: Variant;
|
||||||
|
function GetFechaInicio: Variant;
|
||||||
|
function GetListaIDClientes: TIntegerArray;
|
||||||
|
function GetImporteMinimo: Currency;
|
||||||
|
function GetDesglosadoCliente: Boolean;
|
||||||
|
function GetViewFiltroCliente: IViewFiltroClientes;
|
||||||
|
|
||||||
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
|
public
|
||||||
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
|
property viewFiltroCliente: IViewFiltroClientes read GetViewFiltroCliente;
|
||||||
|
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
|
||||||
|
|
||||||
|
{ TfEditorGestorInformesReport }
|
||||||
|
|
||||||
|
procedure TfEditorInformeFacturasRecibosClienteReport.actRefrescarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarInforme;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorInformeFacturasRecibosClienteReport.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FListaIDClientes := TIntegerArray.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorInformeFacturasRecibosClienteReport.Destroy;
|
||||||
|
begin
|
||||||
|
FListaIDClientes.Free;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasRecibosClienteReport.GetDesglosadoCliente: Boolean;
|
||||||
|
begin
|
||||||
|
if frViewFiltroImportes1.cbxDesglosado.Enabled then
|
||||||
|
Result := frViewFiltroClientes1.cbxDesglosado.Checked
|
||||||
|
else
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasRecibosClienteReport.GetFechaFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
|
|
||||||
|
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
|
||||||
|
if not VarIsNull(Result) then
|
||||||
|
Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasRecibosClienteReport.GetFechaInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasRecibosClienteReport.GetImporteMinimo: Currency;
|
||||||
|
begin
|
||||||
|
if frViewFiltroImportes1.eImporte.Enabled then
|
||||||
|
Result := frViewFiltroImportes1.eImporte.Value
|
||||||
|
else
|
||||||
|
Result := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasRecibosClienteReport.GetListaIDClientes: TIntegerArray;
|
||||||
|
begin
|
||||||
|
FListaIDClientes.Clear;
|
||||||
|
if Assigned(frViewFiltroClientes1.Cliente) then
|
||||||
|
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
|
||||||
|
|
||||||
|
Result := FListaIDClientes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasRecibosClienteReport.getViewFiltroCliente: IViewFiltroClientes;
|
||||||
|
begin
|
||||||
|
Result := (frViewFiltroClientes1 as IViewFiltroClientes);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorInformeFacturasRecibosClienteReport.RefrescarInforme;
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasRecibosCli(
|
||||||
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
|
ListaIDClientes,
|
||||||
|
DesglosadoCliente);
|
||||||
|
|
||||||
|
LoadFromStream(AStream);
|
||||||
|
Report.ShowPreparedReport;
|
||||||
|
finally
|
||||||
|
FreeAndNil(AStream);
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -70,7 +70,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
|||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
inherited Label3: TLabel
|
inherited Label3: TLabel
|
||||||
Width = 172
|
Width = 85
|
||||||
end
|
end
|
||||||
inherited edtFechaFin: TcxDateEdit
|
inherited edtFechaFin: TcxDateEdit
|
||||||
Left = 77
|
Left = 77
|
||||||
@ -110,7 +110,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
|||||||
Visible = False
|
Visible = False
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
inherited Label4: TLabel
|
inherited Label4: TLabel
|
||||||
Width = 172
|
Width = 160
|
||||||
end
|
end
|
||||||
inherited edtFechaVenFin: TcxDateEdit
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
|||||||
@ -9,7 +9,8 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
uEditorRegistryUtils,
|
uEditorRegistryUtils,
|
||||||
uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport,
|
uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasRecibosClienteReport,
|
||||||
|
uEditorInformeFacturasClientePendientesReport,
|
||||||
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport,
|
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport,
|
||||||
uEditorInformePresupuestosReport,
|
uEditorInformePresupuestosReport,
|
||||||
|
|
||||||
@ -21,6 +22,7 @@ begin
|
|||||||
EditorRegistry.RegisterClass(TfEditorInformePresupuestosReport, 'EditorInformePresupuestosReport');
|
EditorRegistry.RegisterClass(TfEditorInformePresupuestosReport, 'EditorInformePresupuestosReport');
|
||||||
EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
|
EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
|
||||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');
|
EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');
|
||||||
|
EditorRegistry.RegisterClass(TfEditorInformeFacturasRecibosClienteReport, 'EditorInformeFacturasRecibosClienteReport');
|
||||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasClientePendientesReport, 'EditorInformeFacturasClientePendientesReport');
|
EditorRegistry.RegisterClass(TfEditorInformeFacturasClientePendientesReport, 'EditorInformeFacturasClientePendientesReport');
|
||||||
EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport');
|
EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport');
|
||||||
EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport');
|
EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport');
|
||||||
@ -37,6 +39,7 @@ begin
|
|||||||
EditorRegistry.UnRegisterClass(TfEditorInformePresupuestosReport);
|
EditorRegistry.UnRegisterClass(TfEditorInformePresupuestosReport);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorInformeIVAClientesReport);
|
EditorRegistry.UnRegisterClass(TfEditorInformeIVAClientesReport);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReport);
|
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReport);
|
||||||
|
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasRecibosClienteReport);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClientePendientesReport);
|
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClientePendientesReport);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosClienteReport);
|
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosClienteReport);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosCliPendientesReport);
|
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosCliPendientesReport);
|
||||||
|
|||||||
@ -6,13 +6,11 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||||
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
||||||
uClientesController;
|
uClientesController, uIViewFiltroClientes;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewFiltroClientes = interface(IViewParametrosInforme)
|
|
||||||
['{129906DA-8E64-4312-8095-A04F8007CF7F}']
|
|
||||||
end;
|
|
||||||
|
|
||||||
TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
|
TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
|
||||||
TBXLabel2: TTBXLabel;
|
TBXLabel2: TTBXLabel;
|
||||||
rbTodosClientes: TRadioButton;
|
rbTodosClientes: TRadioButton;
|
||||||
@ -27,9 +25,12 @@ type
|
|||||||
procedure CustomViewDestroy(Sender: TObject);
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
private
|
private
|
||||||
FCliente : IBizCliente;
|
FCliente : IBizCliente;
|
||||||
FClientesController : IClientesController;
|
FClientesController : IClientesController;
|
||||||
|
function getIdCliente: Integer;
|
||||||
|
procedure setIdCliente(const IdCliente:Integer);
|
||||||
public
|
public
|
||||||
property Cliente : IBizCliente read FCliente;
|
property IdCliente : Integer read getIdCliente write setIdCliente;
|
||||||
|
property Cliente : IBizCliente read FCliente;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -68,6 +69,11 @@ begin
|
|||||||
FClientesController := NIL;
|
FClientesController := NIL;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewFiltroClientes.getIdCliente: Integer;
|
||||||
|
begin
|
||||||
|
Result := FCliente.ID;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewFiltroClientes.rbTodosClientesClick(Sender: TObject);
|
procedure TfrViewFiltroClientes.rbTodosClientesClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if rbTodosClientes.Checked then
|
if rbTodosClientes.Checked then
|
||||||
@ -92,4 +98,17 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroClientes.setIdCliente(const IdCliente: Integer);
|
||||||
|
begin
|
||||||
|
if not Assigned(FClientesController) then
|
||||||
|
FClientesController := TClientesController.Create;
|
||||||
|
|
||||||
|
FCliente := IBizCliente(FClientesController.Buscar(IdCliente));
|
||||||
|
if Assigned(FCliente) then
|
||||||
|
begin
|
||||||
|
FCliente.Open;
|
||||||
|
edtCliente.Text := FCliente.NOMBRE;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -5,7 +5,8 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit,
|
Dialogs, uViewBase, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit,
|
||||||
dxLayoutControl, StdCtrls, cxControls, TBXDkPanels, uViewParametrosInforme;
|
dxLayoutControl, StdCtrls, cxControls, TBXDkPanels, uViewParametrosInforme,
|
||||||
|
uIViewParametrosInforme;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewFiltroImportes = interface(IViewParametrosInforme)
|
IViewFiltroImportes = interface(IViewParametrosInforme)
|
||||||
|
|||||||
@ -6,7 +6,7 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||||
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
||||||
uProveedoresController;
|
uProveedoresController, uIViewParametrosInforme;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewFiltroProveedores = interface(IViewParametrosInforme)
|
IViewFiltroProveedores = interface(IViewParametrosInforme)
|
||||||
|
|||||||
@ -4,18 +4,12 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase;
|
Dialogs, uViewBase, uIViewParametrosInforme;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewParametrosInforme = interface(IViewBase)
|
|
||||||
['{2578FF9E-F084-4603-81D8-32450E3865B7}']
|
|
||||||
end;
|
|
||||||
|
|
||||||
TfrViewParametrosInforme = class(TfrViewBase, IViewParametrosInforme)
|
TfrViewParametrosInforme = class(TfrViewBase, IViewParametrosInforme)
|
||||||
private
|
|
||||||
{ Private declarations }
|
|
||||||
public
|
|
||||||
{ Public declarations }
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -7,7 +7,7 @@ uses
|
|||||||
Dialogs, cxGraphics, cxEdit, cxDropDownEdit, cxCalendar, StdCtrls,
|
Dialogs, cxGraphics, cxEdit, cxDropDownEdit, cxCalendar, StdCtrls,
|
||||||
cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels,
|
cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels,
|
||||||
cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase,
|
cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase,
|
||||||
Mask, JvExMask, JvToolEdit, TB2Dock, uViewParametrosInforme;
|
Mask, JvExMask, JvToolEdit, TB2Dock, uViewParametrosInforme, uIViewParametrosInforme;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewPeriodoFechas = interface(IViewParametrosInforme)
|
IViewPeriodoFechas = interface(IViewParametrosInforme)
|
||||||
|
|||||||
@ -292,15 +292,15 @@ begin
|
|||||||
{
|
{
|
||||||
with Result.DataTable.DynamicWhere do
|
with Result.DataTable.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
//No podrá compensarse recibos que estan cobrados
|
//Solo se compensacion es como restar importe al recibo, solo podrán compensarse recibos que estan cobrados
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteSITUACION), NewConstant(CTE_COBRADO, datString), dboNotEqual);
|
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteSITUACION), NewConstant(CTE_COBRADO, datString), dboEqual);
|
||||||
|
|
||||||
if IsEmpty then
|
if IsEmpty then
|
||||||
Expression := Condicion
|
Expression := Condicion
|
||||||
else
|
else
|
||||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||||
end;
|
end;
|
||||||
}
|
}
|
||||||
finally
|
finally
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -61,7 +61,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 879
|
Width = 879
|
||||||
Height = 331
|
Height = 331
|
||||||
ActivePage = pagCompensados
|
ActivePage = pagPagos
|
||||||
OnChanging = pgPaginasChanging
|
OnChanging = pgPaginasChanging
|
||||||
ExplicitWidth = 879
|
ExplicitWidth = 879
|
||||||
ExplicitHeight = 331
|
ExplicitHeight = 331
|
||||||
@ -371,6 +371,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
object pagCompensados: TTabSheet
|
object pagCompensados: TTabSheet
|
||||||
Caption = 'Recibos compensados'
|
Caption = 'Recibos compensados'
|
||||||
ImageIndex = 1
|
ImageIndex = 1
|
||||||
|
TabVisible = False
|
||||||
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
|
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
@ -390,6 +391,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 871
|
Width = 871
|
||||||
Height = 278
|
Height = 278
|
||||||
|
ExplicitTop = 26
|
||||||
ExplicitWidth = 871
|
ExplicitWidth = 871
|
||||||
ExplicitHeight = 278
|
ExplicitHeight = 278
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
|||||||
@ -91,8 +91,8 @@ begin
|
|||||||
|
|
||||||
frViewReciboCliImportes1.eImporteTotalRecibo.Value := frViewReciboCliImportes1.eImporte.Value + frViewReciboCliImportes1.eOtrosGastos.Value; // + ImporteAux;
|
frViewReciboCliImportes1.eImporteTotalRecibo.Value := frViewReciboCliImportes1.eImporte.Value + frViewReciboCliImportes1.eOtrosGastos.Value; // + ImporteAux;
|
||||||
|
|
||||||
if (ImporteAux > frViewReciboCliImportes1.eImporteTotalRecibo.Value) then
|
// if (ImporteAux > frViewReciboCliImportes1.eImporteTotalRecibo.Value) then
|
||||||
raise Exception.Create ('El importe de los recibos compensados es superior al importe del recibo');
|
// raise Exception.Create ('El importe de los recibos compensados es superior al importe del recibo');
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -125,8 +125,13 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
|||||||
Kind = skSum
|
Kind = skSum
|
||||||
Column = frViewRecibosCliente1.cxGridViewOTROS_GASTOS
|
Column = frViewRecibosCliente1.cxGridViewOTROS_GASTOS
|
||||||
end>
|
end>
|
||||||
inherited cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
|
inherited cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn
|
||||||
Visible = True
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
inherited cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -83,7 +83,7 @@ uses
|
|||||||
procedure TfrViewRecibosCliCompensados.actAnadirUpdate(Sender: TObject);
|
procedure TfrViewRecibosCliCompensados.actAnadirUpdate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
(Sender as TAction).Enabled := not (ReciboCliente.ID_RECIBO_COMPENSADO > 0); //(ReciboCliente.SITUACION <> CTE_COBRADO);
|
(Sender as TAction).Enabled := (not (ReciboCliente.ID_RECIBO_COMPENSADO > 0)) and (ReciboCliente.SITUACION = CTE_COBRADO);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewRecibosCliCompensados.actContraerExecute(Sender: TObject);
|
procedure TfrViewRecibosCliCompensados.actContraerExecute(Sender: TObject);
|
||||||
@ -103,8 +103,8 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
(Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
|
(Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
|
||||||
and (cxGridView.Controller.SelectedRows[0].HasCells)
|
and (cxGridView.Controller.SelectedRows[0].HasCells)
|
||||||
and not (ReciboCliente.ID_RECIBO_COMPENSADO > 0));
|
and not (ReciboCliente.ID_RECIBO_COMPENSADO > 0)
|
||||||
// and (ReciboCliente.SITUACION <> CTE_COBRADO));
|
and (ReciboCliente.SITUACION <> CTE_PENDIENTE));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewRecibosCliCompensados.actExpandirExecute(Sender: TObject);
|
procedure TfrViewRecibosCliCompensados.actExpandirExecute(Sender: TObject);
|
||||||
|
|||||||
@ -705,6 +705,18 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
</Parameters>
|
</Parameters>
|
||||||
</Operation>
|
</Operation>
|
||||||
|
<Operation Name="GenerarInformeListadoFacturasRecibosCli" UID="{DCC81A9E-2ABE-4AF2-BBE2-F1D29D3F9317}">
|
||||||
|
<Parameters>
|
||||||
|
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="Desglosado" DataType="Boolean" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
</Parameters>
|
||||||
|
</Operation>
|
||||||
<Operation Name="GenerarInformeListadoFacturasProv" UID="{65AC9CE1-960E-4427-A70F-BE55AA4A8F96}">
|
<Operation Name="GenerarInformeListadoFacturasProv" UID="{65AC9CE1-960E-4427-A70F-BE55AA4A8F96}">
|
||||||
<Parameters>
|
<Parameters>
|
||||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||||
|
|||||||
@ -796,6 +796,7 @@ type
|
|||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary;
|
||||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
@ -830,6 +831,7 @@ type
|
|||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary;
|
||||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
@ -2491,6 +2493,25 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
result := nil;
|
||||||
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasRecibosCli');
|
||||||
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
|
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
||||||
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
|
__Message.Finalize;
|
||||||
|
|
||||||
|
__TransportChannel.Dispatch(__Message);
|
||||||
|
|
||||||
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
||||||
|
finally
|
||||||
|
__Message.UnsetAttributes(__TransportChannel);
|
||||||
|
__Message.FreeStream;
|
||||||
|
end
|
||||||
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -305,6 +305,7 @@ type
|
|||||||
procedure Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
procedure Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
procedure Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
|
procedure Invoke_GenerarInformeListadoFacturasRecibosCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
procedure Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
procedure Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
procedure Invoke_GenerarInformeListadoFacturasProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure Invoke_GenerarInformeListadoFacturasProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
@ -1806,6 +1807,40 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasRecibosCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
|
{ function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; }
|
||||||
|
var
|
||||||
|
IdEmpresa: Integer;
|
||||||
|
ListadoIDClientes: FactuGES_Intf.TIntegerArray;
|
||||||
|
Desglosado: Boolean;
|
||||||
|
lResult: Binary;
|
||||||
|
__lObjectDisposer: TROObjectDisposer;
|
||||||
|
begin
|
||||||
|
ListadoIDClientes := nil;
|
||||||
|
lResult := nil;
|
||||||
|
try
|
||||||
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
|
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
||||||
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
|
|
||||||
|
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosCli(IdEmpresa, ListadoIDClientes, Desglosado);
|
||||||
|
|
||||||
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasRecibosCliResponse');
|
||||||
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
|
__Message.Finalize;
|
||||||
|
__Message.UnsetAttributes(__Transport);
|
||||||
|
|
||||||
|
finally
|
||||||
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
||||||
|
try
|
||||||
|
__lObjectDisposer.Add(ListadoIDClientes);
|
||||||
|
__lObjectDisposer.Add(lResult);
|
||||||
|
finally
|
||||||
|
__lObjectDisposer.Free();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
{ function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
|
|||||||
Binary file not shown.
@ -131,12 +131,12 @@ uses
|
|||||||
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
|
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
|
||||||
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
|
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
|
||||||
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
|
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
|
||||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
|
||||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
|
||||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||||
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
|
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
|
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
{$R ..\Servicios\RODLFile.res}
|
{$R ..\Servicios\RODLFile.res}
|
||||||
|
|||||||
@ -28,7 +28,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType/>
|
<Borland.ProjectType/>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 01 de febrero de 2012 15:46</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 07 de febrero de 2012 17:20</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
|
|||||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user