Version 4.0.0 - Firma digital de contratos y facturas, poder hacer plantillas
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@690 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
da99600dbc
commit
4d991d0e50
@ -48,8 +48,10 @@ function GetSpecialFolderPath(folder : integer) : string;
|
||||
function PreguntarRuta(const ATitulo: String; const AComentario: String; var ARuta: String): Boolean;
|
||||
function PreguntarFicheroWordExportar (var Fichero : String) : Boolean;
|
||||
function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
|
||||
function PreguntarFicheroPDFExportar (var Fichero : String) : Boolean;
|
||||
function EscapeIllegalChars(AFileName: string): string;
|
||||
function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
|
||||
function ExecAndWait(sCommandLine: string): Boolean;
|
||||
|
||||
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
|
||||
|
||||
@ -66,6 +68,34 @@ uses
|
||||
StdCtrls, SHFolder, cxShellBrowserDialog,
|
||||
cxLookAndFeels, uStringsUtils;
|
||||
|
||||
function ExecAndWait(sCommandLine: string): Boolean;
|
||||
var
|
||||
dwExitCode: DWORD;
|
||||
tpiProcess: TProcessInformation;
|
||||
tsiStartup: TStartupInfo;
|
||||
begin
|
||||
Result := False;
|
||||
FillChar(tsiStartup, SizeOf(TStartupInfo), 0);
|
||||
tsiStartup.cb := SizeOf(TStartupInfo);
|
||||
if CreateProcess(nil, PChar(sCommandLine), nil, nil, False, 0,
|
||||
nil, nil, tsiStartup, tpiProcess) then
|
||||
begin
|
||||
if WAIT_OBJECT_0 = WaitForSingleObject(tpiProcess.hProcess, INFINITE) then
|
||||
begin
|
||||
if GetExitCodeProcess(tpiProcess.hProcess, dwExitCode) then
|
||||
begin
|
||||
if dwExitCode = 0 then
|
||||
Result := True
|
||||
else
|
||||
SetLastError(dwExitCode + $2000);
|
||||
end;
|
||||
end;
|
||||
dwExitCode := GetLastError;
|
||||
CloseHandle(tpiProcess.hProcess);
|
||||
CloseHandle(tpiProcess.hThread);
|
||||
SetLastError(dwExitCode);
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetSpecialFolderPath(folder : integer) : string;
|
||||
const
|
||||
@ -465,6 +495,27 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function PreguntarFicheroPDFExportar (var Fichero : String) : Boolean;
|
||||
var
|
||||
DialogoSalvar : TSaveDialog;
|
||||
begin
|
||||
DialogoSalvar := TSaveDialog.Create(NIL);
|
||||
try
|
||||
with DialogoSalvar do
|
||||
begin
|
||||
DefaultExt := 'pdf';
|
||||
Filter := 'Documento pdf (*.pdf)|*.pdf';
|
||||
FileName := Fichero;
|
||||
FilterIndex := 0;
|
||||
Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing];
|
||||
end;
|
||||
Result := DialogoSalvar.Execute;
|
||||
if Result then
|
||||
Fichero := DialogoSalvar.FileName;
|
||||
finally
|
||||
DialogoSalvar.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure SetDefaultFonts(const AFont: TFont);
|
||||
|
||||
@ -52,7 +52,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<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">3</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">7</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">3.6.7.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">3.6.7.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">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.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">4.0.0.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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 3,6,7,0
|
||||
PRODUCTVERSION 3,6,7,0
|
||||
FILEVERSION 4,0,0,0
|
||||
PRODUCTVERSION 4,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "3.6.7.0\0"
|
||||
VALUE "FileVersion", "4.0.0.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "3.6.7.0\0"
|
||||
VALUE "ProductVersion", "4.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -58,34 +58,34 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
48
Source/Informes/5/1/firma_contrato.bat
Normal file
48
Source/Informes/5/1/firma_contrato.bat
Normal file
@ -0,0 +1,48 @@
|
||||
@ECHO off
|
||||
title firmadocumento
|
||||
cls
|
||||
|
||||
set LOGFILE=D:\Rodax\Servidor\Informes\5\1\log_factura.txt
|
||||
|
||||
set ARCHIVO=%1
|
||||
set city=MADRID
|
||||
set province=MADRID
|
||||
set postalcode=28010
|
||||
set PositionOnPageLowerLeftX=30
|
||||
set PositionOnPageLowerLeftY=90
|
||||
set PositionOnPageUpperRightX=200
|
||||
set PositionOnPageUpperRigthY=170
|
||||
set signaturePage=-1
|
||||
set signatureRubricImage="D:\Rodax\Servidor\Informes\5\1\sello.jpg"
|
||||
set layer2text="Firmado digitalmente por $$ORGANIZATION$$ Fecha: $$SIGNDATE=dd/MM/yyyy$$"
|
||||
SET l2FontColor=black
|
||||
SET l2FontSize=7
|
||||
SET l2FontFamily=1
|
||||
SET l2FontStyle=0
|
||||
|
||||
REM Asegura que autofirma no muestra ninguna GUI
|
||||
set headless=true
|
||||
|
||||
REM incluir únicamente el certificado del firmante
|
||||
set "includeOnlySignningCertificate=true"
|
||||
|
||||
REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
|
||||
REM "alwaysCreateRevision=true"
|
||||
|
||||
REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
|
||||
REM \nsignaturePage=%signaturePage%
|
||||
|
||||
|
||||
set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nincludeOnlySignningCertificate=true\nsignatureRubricImage=%signatureRubricImage%"
|
||||
|
||||
REM echo %CONFIG% > %LOGFILE%
|
||||
REM echo %ARCHIVO% > %LOGFILE%
|
||||
echo %TEMP% > %LOGFILE%
|
||||
echo %PASSCRIS% > %LOGFILE%
|
||||
|
||||
call :FIRMA >> %LOGFILE%
|
||||
exit /b
|
||||
|
||||
:FIRMA
|
||||
"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\Rodax\Servidor\PDFS\cert-cris.pfx" -password %PASSCRIS% -filter subject.contains:59828 -config %CONFIG%
|
||||
|
||||
48
Source/Informes/5/1/firma_factura.bat
Normal file
48
Source/Informes/5/1/firma_factura.bat
Normal file
@ -0,0 +1,48 @@
|
||||
@ECHO off
|
||||
title firmadocumento
|
||||
cls
|
||||
|
||||
set LOGFILE=D:\Rodax\Servidor\Informes\5\1\log_factura.txt
|
||||
|
||||
set ARCHIVO=%1
|
||||
set city=MADRID
|
||||
set province=MADRID
|
||||
set postalcode=28010
|
||||
set PositionOnPageLowerLeftX=200
|
||||
set PositionOnPageLowerLeftY=80
|
||||
set PositionOnPageUpperRightX=370
|
||||
set PositionOnPageUpperRigthY=200
|
||||
set signaturePage=-1
|
||||
set signatureRubricImage="D:\Rodax\Servidor\Informes\5\1\sello.jpg"
|
||||
set layer2text="Firmado digitalmente por $$ORGANIZATION$$ Fecha: $$SIGNDATE=dd/MM/yyyy$$"
|
||||
SET l2FontColor=black
|
||||
SET l2FontSize=7
|
||||
SET l2FontFamily=1
|
||||
SET l2FontStyle=0
|
||||
|
||||
REM Asegura que autofirma no muestra ninguna GUI
|
||||
set headless=true
|
||||
|
||||
REM incluir únicamente el certificado del firmante
|
||||
set "includeOnlySignningCertificate=true"
|
||||
|
||||
REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
|
||||
REM "alwaysCreateRevision=true"
|
||||
|
||||
REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
|
||||
REM \nsignaturePage=%signaturePage%
|
||||
|
||||
|
||||
set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nincludeOnlySignningCertificate=true\nsignatureRubricImage=%signatureRubricImage%"
|
||||
|
||||
REM echo %CONFIG% > %LOGFILE%
|
||||
REM echo %ARCHIVO% > %LOGFILE%
|
||||
echo %TEMP% > %LOGFILE%
|
||||
echo %PASSCRIS% > %LOGFILE%
|
||||
|
||||
call :FIRMA >> %LOGFILE%
|
||||
exit /b
|
||||
|
||||
:FIRMA
|
||||
"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\Rodax\Servidor\PDFS\cert-cris.pfx" -password %PASSCRIS% -filter subject.contains:59828 -config %CONFIG%
|
||||
|
||||
BIN
Source/Informes/5/1/sello.jpg
Normal file
BIN
Source/Informes/5/1/sello.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 14 KiB |
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
47
Source/Informes/5/3/firma_contrato.bat
Normal file
47
Source/Informes/5/3/firma_contrato.bat
Normal file
@ -0,0 +1,47 @@
|
||||
@ECHO off
|
||||
title firmadocumento
|
||||
cls
|
||||
|
||||
set LOGFILE=D:\Rodax\Servidor\Informes\5\3\log_contrato.txt
|
||||
|
||||
set ARCHIVO=%1
|
||||
set city=RIVAS
|
||||
set province=MADRID
|
||||
set postalcode=28522
|
||||
set PositionOnPageLowerLeftX=80
|
||||
set PositionOnPageLowerLeftY=163
|
||||
set PositionOnPageUpperRightX=240
|
||||
set PositionOnPageUpperRigthY=253
|
||||
set signaturePage=-1
|
||||
set signatureRubricImage="D:\Rodax\Servidor\Informes\5\3\sello.jpg"
|
||||
set layer2text="Firmado digitalmente por $$ORGANIZATION$$ Fecha: $$SIGNDATE=dd/MM/yyyy$$"
|
||||
SET l2FontColor=black
|
||||
SET l2FontSize=7
|
||||
SET l2FontFamily=1
|
||||
SET l2FontStyle=0
|
||||
|
||||
REM Asegura que autofirma no muestra ninguna GUI
|
||||
set headless=true
|
||||
|
||||
REM incluir únicamente el certificado del firmante
|
||||
set "includeOnlySignningCertificate=true"
|
||||
|
||||
REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
|
||||
REM "alwaysCreateRevision=true"
|
||||
|
||||
REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
|
||||
REM \nsignaturePage=%signaturePage%
|
||||
|
||||
|
||||
set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nincludeOnlySignningCertificate=true\nsignatureRubricImage=%signatureRubricImage%"
|
||||
|
||||
REM echo %CONFIG% > %LOGFILE%
|
||||
REM echo %ARCHIVO% > %LOGFILE%
|
||||
echo %TEMP% > %LOGFILE%
|
||||
|
||||
call :FIRMA >> %LOGFILE%
|
||||
exit /b
|
||||
|
||||
:FIRMA
|
||||
"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\Rodax\Servidor\PDFS\cert-alis.pfx" -password %PASSALIS% -filter subject.contains:13910 -config %CONFIG%
|
||||
|
||||
47
Source/Informes/5/3/firma_factura.bat
Normal file
47
Source/Informes/5/3/firma_factura.bat
Normal file
@ -0,0 +1,47 @@
|
||||
@ECHO off
|
||||
title firmadocumento
|
||||
cls
|
||||
|
||||
set LOGFILE=D:\Rodax\Servidor\Informes\5\3\log_factura.txt
|
||||
|
||||
set ARCHIVO=%1
|
||||
set city=RIVAS
|
||||
set province=MADRID
|
||||
set postalcode=28522
|
||||
set PositionOnPageLowerLeftX=150
|
||||
set PositionOnPageLowerLeftY=100
|
||||
set PositionOnPageUpperRightX=310
|
||||
set PositionOnPageUpperRigthY=190
|
||||
set signaturePage=-1
|
||||
set signatureRubricImage="D:\Rodax\Servidor\Informes\5\3\sello.jpg"
|
||||
set layer2text="Firmado digitalmente por $$ORGANIZATION$$ Fecha: $$SIGNDATE=dd/MM/yyyy$$"
|
||||
SET l2FontColor=black
|
||||
SET l2FontSize=7
|
||||
SET l2FontFamily=1
|
||||
SET l2FontStyle=0
|
||||
|
||||
REM Asegura que autofirma no muestra ninguna GUI
|
||||
set headless=true
|
||||
|
||||
REM incluir únicamente el certificado del firmante
|
||||
set "includeOnlySignningCertificate=true"
|
||||
|
||||
REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
|
||||
REM "alwaysCreateRevision=true"
|
||||
|
||||
REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
|
||||
REM \nsignaturePage=%signaturePage%
|
||||
|
||||
|
||||
set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nincludeOnlySignningCertificate=true\nsignatureRubricImage=%signatureRubricImage%"
|
||||
|
||||
REM echo %CONFIG% > %LOGFILE%
|
||||
REM echo %ARCHIVO% > %LOGFILE%
|
||||
echo %TEMP% > %LOGFILE%
|
||||
|
||||
call :FIRMA >> %LOGFILE%
|
||||
exit /b
|
||||
|
||||
:FIRMA
|
||||
"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\Rodax\Servidor\PDFS\cert-alis.pfx" -password %PASSALIS% -filter subject.contains:13910 -config %CONFIG%
|
||||
|
||||
BIN
Source/Informes/5/3/sello.jpg
Normal file
BIN
Source/Informes/5/3/sello.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 43 KiB |
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"?>
|
||||
<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="42143,654991412" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="45226,5031582755" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -14,31 +14,31 @@
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="476" Width="1009,13451" PrintOnLastPage="False">
|
||||
<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>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="256" Width="1009,13451" Condition="frxDBInformeListadoRecibos."NOMBRE_CLIENTE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="275" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||
<TfrxMemoView Name="Memo49" Left="739" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Left="180" Top="25" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Left="871,77953" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" 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="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoRecibos."NOMBRE_CLIENTE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="510" Top="25" Width="250" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="410" Top="25" Width="100" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="760" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="310" Top="25" Width="100" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<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="[frxDBInformeListadoRecibos."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="110" Top="25" Width="200" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Tienda"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="316" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Left="180,66141732" Top="0" Width="94,86614173" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="275,52755906" Top="0" Width="463,7480315" 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=" [frxDBInformeListadoRecibos."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="738,81138" Top="0" Width="133,03937008" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="88,44094488" 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=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,44094488" 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=" [frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="871,55905512" Top="0" Width="136,21759" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="410" Top="0" Width="100" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="510" Top="0" Width="250" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="310" Top="0" Width="100" 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=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="110" 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=" [frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="760" Top="0" Width="136,21759" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo9" Align="baLeft" Left="110" Top="0" Width="200" 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=" [frxDBInformeListadoRecibos."TIENDA"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="871,55905512" Top="0,37774772" Width="136,57483" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="871,55905512" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="760" Top="0,37774772" Width="136,57483" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="760" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"]:"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos."MES"">
|
||||
<TfrxMemoView Name="Memo4" Left="1" Top="2" 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="[frxDBInformeListadoRecibos."TITULO"]"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="392" Width="1009,13451"/>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="393" Width="1009,13451"/>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
||||
<?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="42143,6548203357" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="45226,516038588" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -14,31 +14,31 @@
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="476" Width="1009,13451" PrintOnLastPage="False">
|
||||
<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>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="256" Width="1009,13451" Condition="frxDBInformeListadoRecibos."NOMBRE_CLIENTE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="275" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||
<TfrxMemoView Name="Memo49" Left="739" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Left="180" Top="25" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Left="871,77953" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" 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="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoRecibos."NOMBRE_CLIENTE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="540" Top="25" Width="200" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="430" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="740" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="320" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<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="[frxDBInformeListadoRecibos."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="120" Top="25" Width="200" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Tienda"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="316" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Left="180,66141732" Top="0" Width="94,48818898" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="275,52755906" 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=" [frxDBInformeListadoRecibos."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="738,81138" Top="0" Width="133,03937007874" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="88,44094488" Top="0" Width="92,29901" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,4409448818898" 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=" [frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="871,55905511811" Top="0" Width="136,21759" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="430" Top="0" Width="110" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="540" Top="0" Width="200" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="320" Top="0" Width="110" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="120" 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=" [frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="740" Top="0" Width="136,21759" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="120" Top="0" Width="200" 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=" [frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="871,55905512" Top="0,37774772" Width="136,57483" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="871,55905512" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="740" Top="0,37774772" Width="136,57483" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="740" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"]:"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos."MES"">
|
||||
<TfrxMemoView Name="Memo4" Left="1" 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="[frxDBInformeListadoRecibos."TITULO"]"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="392" Width="1009,13451"/>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="393" Width="1009,13451"/>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?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="45055,7580918403" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E2200010C10000000204E616D653D222046696C74726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<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="45226,4609584722" ScriptLanguage="PascalScript" ScriptText.Text="begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E2200010C10000000204E616D653D222046696C74726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<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="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -13,27 +13,29 @@
|
||||
<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>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos."MES"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="437,67718" Top="25" Width="300" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="737,67718" Top="25" Width="135" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="342,67718" Top="25" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="872,67718" Top="25" Width="135" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="250" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="500" Top="25" Width="265" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="765" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="415" Top="25" Width="85" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="875" Top="25" Width="135" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="330" Top="25" Width="85" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,1181102362205" 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="[frxDBInformeListadoRecibos."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo4" Align="baLeft" Left="120" Top="25" Width="130" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura prov"/>
|
||||
<TfrxMemoView Name="Memo4" Align="baLeft" Left="250" Top="25" Width="80" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº fact. prov."/>
|
||||
<TfrxMemoView Name="Memo3" Align="baLeft" Left="110" Top="25" Width="140" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Tienda"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="342,5984252" Top="0" Width="94,86614173" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="437,46456693" 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=" [frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="737,46456693" Top="0" Width="135" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="250" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="120" 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="[frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="872,46456693" Top="0" Width="135" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="120" 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="[frxDBInformeListadoRecibos."REFERENCIA_FACTURA_PROV"]"/>
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="415" Top="0" Width="85" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="500" Top="0" Width="265" 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=" [frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="765" Top="0" Width="110" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="330" Top="0" Width="85" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="110" 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="[frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="875" Top="0" Width="135" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="250" Top="0" Width="80" 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="[frxDBInformeListadoRecibos."REFERENCIA_FACTURA_PROV"]"/>
|
||||
<TfrxMemoView Name="Memo10" Align="baLeft" Left="110" Top="0" Width="140" 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="[frxDBInformeListadoRecibos."TIENDA"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="872" Top="0,37774772" Width="135" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="872" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"] "/>
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="875" Top="0,37774772" Width="135" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"] "/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
</TfrxReportPage>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?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="45055,7630435532" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="45226,4665286806" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -12,27 +12,29 @@
|
||||
<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>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="437,67718" Top="25" Width="300" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="737,67718" Top="25" Width="132" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="342,67718" Top="25" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="869,67718" Top="25" Width="136" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="250" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="502,67718" Top="25" Width="275" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="777,67718" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="417,67718" Top="25" Width="85" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="887,67718" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="325" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<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="[frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="120" Top="25" Width="130" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura prov"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="240" Top="25" Width="85" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº fact. prov."/>
|
||||
<TfrxMemoView Name="Memo10" Align="baLeft" Left="110" Top="25" Width="130" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Tienda"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="341,27561008" Top="0" Width="94,86614173" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="436,14175181" 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=" [frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="736,14175181" Top="0" Width="132" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="248,67718488" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="118,67718488" 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="[frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="868,14175181" Top="0" Width="136" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo9" Align="baLeft" Left="118,67718488" 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="[frxDBInformeListadoRecibos."REFERENCIA_FACTURA_PROV"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="417,5984252" Top="0" Width="85" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="502,5984252" Top="0" Width="275" 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=" [frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="777,5984252" Top="0" Width="110" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="325" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="110" 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="[frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="887,5984252" Top="0" Width="120" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo9" Align="baLeft" Left="240" Top="0" Width="85" 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="[frxDBInformeListadoRecibos."REFERENCIA_FACTURA_PROV"]"/>
|
||||
<TfrxMemoView Name="Memo11" Align="baLeft" Left="110" 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="[frxDBInformeListadoRecibos."TIENDA"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="870" Top="0,37774772" Width="136" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="870" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"] "/>
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="887" Top="0,37774772" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="887" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"] "/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos."MES"">
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?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="45055,7437106944" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F73220000055374796C650100">
|
||||
<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="45226,5220269097" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F73220000055374796C650100">
|
||||
<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="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -13,27 +13,29 @@
|
||||
<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>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos."MES"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="345" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="420" Top="25" Width="90" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="437,67718" Top="25" Width="300" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="737,67718" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="250" Top="25" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="871,92919" Top="25" Width="136" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="510" Top="25" Width="265" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="775" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="330" Top="25" Width="90" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="895" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,1181102362205" 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="[frxDBInformeListadoRecibos."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo4" Align="baLeft" Left="120" Top="25" Width="130" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura prov"/>
|
||||
<TfrxMemoView Name="Memo4" Align="baLeft" Left="240" Top="25" Width="90" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura prov"/>
|
||||
<TfrxMemoView Name="Memo3" Align="baLeft" Left="120" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Tienda"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="344,48818898" Top="0" Width="92,29901" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="250" Top="0" Width="94,48818898" 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=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="436,78719898" 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=" [frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="736,78719898" Top="0" Width="133,03937008" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="420" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="330" 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=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="510" Top="0" Width="265" 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=" [frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="775" Top="0" Width="120" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="120" 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="[frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="869,82656906" Top="0" Width="136" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="120" 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="[frxDBInformeListadoRecibos."REFERENCIA_FACTURA_PROV"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="895" Top="0" Width="110" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="240" 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="[frxDBInformeListadoRecibos."REFERENCIA_FACTURA_PROV"]"/>
|
||||
<TfrxMemoView Name="Memo10" Align="baLeft" Left="120" Top="0" Width="120" 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="[frxDBInformeListadoRecibos."TIENDA"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="871" Top="0,37774772" Width="136" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="871" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"] "/>
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="895" Top="0,37774772" Width="110" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="895" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"] "/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
</TfrxReportPage>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?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="45055,7634473843" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="45226,5276097685" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -13,27 +13,27 @@
|
||||
<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>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="115" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="435" Top="25" Width="300" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="735" Top="25" Width="134" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="335" Top="25" Width="100" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="869" Top="25" Width="136" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="235" Top="25" Width="100" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="110" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo49" Align="baLeft" Left="620" Top="25" Width="150" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo50" Align="baLeft" Left="500" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
<TfrxMemoView Name="Memo52" Align="baLeft" Left="770" Top="25" Width="150" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="380" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
|
||||
<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="[frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="115" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura prov"/>
|
||||
<TfrxMemoView Name="Memo5" Align="baLeft" Left="260" Top="25" Width="120" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura prov"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="110" Top="25" Width="150" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Tienda"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="335" Top="0" Width="100" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="435" 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=" [frxDBInformeListadoRecibos."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="735" Top="0" Width="134" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="235" Top="0" Width="100" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="115" 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="[frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="869" Top="0" Width="136" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo9" Align="baLeft" Left="115" Top="0" Width="120" 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="[frxDBInformeListadoRecibos."REFERENCIA_FACTURA_PROV"]"/>
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="500" Top="0" Width="120" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="620" Top="0" Width="150" 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="[frxDBInformeListadoRecibos."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="380" Top="0" Width="120" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="110" 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="[frxDBInformeListadoRecibos."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="770" Top="0" Width="150" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo9" Align="baLeft" Left="260" Top="0" Width="120" 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="[frxDBInformeListadoRecibos."REFERENCIA_FACTURA_PROV"]"/>
|
||||
<TfrxMemoView Name="Memo10" Align="baLeft" Left="110" Top="0" Width="150" 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="[frxDBInformeListadoRecibos."TIENDA"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="870" Top="0,37774772" Width="136" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="870" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"] "/>
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="770" Top="0,37774772" Width="150" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="770" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos."TITULO"] "/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos."MES"">
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
48
Source/Informes/6/1/firma_contrato.bat
Normal file
48
Source/Informes/6/1/firma_contrato.bat
Normal file
@ -0,0 +1,48 @@
|
||||
@ECHO off
|
||||
title firmadocumento
|
||||
cls
|
||||
|
||||
set LOGFILE=D:\Rodax\Servidor\Informes\6\1\log_contrato.txt
|
||||
|
||||
set ARCHIVO=%1
|
||||
set city=MADRID
|
||||
set province=MADRID
|
||||
set postalcode=28010
|
||||
set PositionOnPageLowerLeftX=30
|
||||
set PositionOnPageLowerLeftY=90
|
||||
set PositionOnPageUpperRightX=200
|
||||
set PositionOnPageUpperRigthY=170
|
||||
set signaturePage=-1
|
||||
set signatureRubricImage="D:\Rodax\Servidor\Informes\6\1\sello.jpg"
|
||||
set layer2text="Firmado digitalmente por $$ORGANIZATION$$ Fecha: $$SIGNDATE=dd/MM/yyyy$$"
|
||||
SET l2FontColor=black
|
||||
SET l2FontSize=7
|
||||
SET l2FontFamily=1
|
||||
SET l2FontStyle=0
|
||||
|
||||
REM Asegura que autofirma no muestra ninguna GUI
|
||||
set headless=true
|
||||
|
||||
REM incluir únicamente el certificado del firmante
|
||||
set "includeOnlySignningCertificate=true"
|
||||
|
||||
REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
|
||||
REM "alwaysCreateRevision=true"
|
||||
|
||||
REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
|
||||
REM \nsignaturePage=%signaturePage%
|
||||
|
||||
|
||||
set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nincludeOnlySignningCertificate=true\nsignatureRubricImage=%signatureRubricImage%"
|
||||
|
||||
REM echo %CONFIG% > %LOGFILE%
|
||||
REM echo %ARCHIVO% > %LOGFILE%
|
||||
echo %TEMP% > %LOGFILE%
|
||||
echo %PASSCRIS% > %LOGFILE%
|
||||
|
||||
call :FIRMA >> %LOGFILE%
|
||||
exit /b
|
||||
|
||||
:FIRMA
|
||||
"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\Rodax\Servidor\PDFS\cert-cris.pfx" -password %PASSCRIS% -filter subject.contains:59828 -config %CONFIG%
|
||||
|
||||
48
Source/Informes/6/1/firma_factura.bat
Normal file
48
Source/Informes/6/1/firma_factura.bat
Normal file
@ -0,0 +1,48 @@
|
||||
@ECHO off
|
||||
title firmadocumento
|
||||
cls
|
||||
|
||||
set LOGFILE=D:\Rodax\Servidor\Informes\6\1\log_factura.txt
|
||||
|
||||
set ARCHIVO=%1
|
||||
set city=MADRID
|
||||
set province=MADRID
|
||||
set postalcode=28010
|
||||
set PositionOnPageLowerLeftX=200
|
||||
set PositionOnPageLowerLeftY=80
|
||||
set PositionOnPageUpperRightX=370
|
||||
set PositionOnPageUpperRigthY=200
|
||||
set signaturePage=-1
|
||||
set signatureRubricImage="D:\Rodax\Servidor\Informes\6\1\sello.jpg"
|
||||
set layer2text="Firmado digitalmente por $$ORGANIZATION$$ Fecha: $$SIGNDATE=dd/MM/yyyy$$"
|
||||
SET l2FontColor=black
|
||||
SET l2FontSize=7
|
||||
SET l2FontFamily=1
|
||||
SET l2FontStyle=0
|
||||
|
||||
REM Asegura que autofirma no muestra ninguna GUI
|
||||
set headless=true
|
||||
|
||||
REM incluir únicamente el certificado del firmante
|
||||
set "includeOnlySignningCertificate=true"
|
||||
|
||||
REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
|
||||
REM "alwaysCreateRevision=true"
|
||||
|
||||
REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
|
||||
REM \nsignaturePage=%signaturePage%
|
||||
|
||||
|
||||
set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nincludeOnlySignningCertificate=true\nsignatureRubricImage=%signatureRubricImage%"
|
||||
|
||||
REM echo %CONFIG% > %LOGFILE%
|
||||
REM echo %ARCHIVO% > %LOGFILE%
|
||||
echo %TEMP% > %LOGFILE%
|
||||
echo %PASSCRIS% > %LOGFILE%
|
||||
|
||||
call :FIRMA >> %LOGFILE%
|
||||
exit /b
|
||||
|
||||
:FIRMA
|
||||
"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\Rodax\Servidor\PDFS\cert-cris.pfx" -password %PASSCRIS% -filter subject.contains:59828 -config %CONFIG%
|
||||
|
||||
BIN
Source/Informes/6/1/sello.jpg
Normal file
BIN
Source/Informes/6/1/sello.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 14 KiB |
File diff suppressed because one or more lines are too long
@ -88,7 +88,8 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
// Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA); //Referencia diferente según tienda
|
||||
end;
|
||||
|
||||
|
||||
@ -108,7 +109,8 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
// Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA); //Referencia diferente según tienda
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -191,6 +191,7 @@ begin
|
||||
SITUACION := SITUACION_ALBARAN_PENDIENTE;
|
||||
REFERENCIA := '';
|
||||
TIPO := CTE_TIPO_ALBARAN;
|
||||
|
||||
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
|
||||
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
|
||||
|
||||
@ -241,13 +242,13 @@ begin
|
||||
ID_CLIENTE := FCliente.ID;
|
||||
if FCliente.ID_FORMA_PAGO > 0 then
|
||||
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
||||
|
||||
{
|
||||
if FCliente.ID_TIENDA > 0 then
|
||||
begin
|
||||
ID_TIENDA := FCliente.ID_TIENDA;
|
||||
TIENDA := FCliente.TIENDA;
|
||||
end;
|
||||
|
||||
}
|
||||
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
|
||||
//si se quita el id de la cabecera y los detalles se desincroniza
|
||||
if bEnEdicion then
|
||||
|
||||
@ -239,6 +239,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 781
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -276,6 +278,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actAlmacenes
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actTienda
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -311,6 +318,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
OnExecute = actAlmacenesExecute
|
||||
OnUpdate = actAlmacenesUpdate
|
||||
end
|
||||
object actTienda: TAction
|
||||
Caption = 'Tienda'
|
||||
OnExecute = actTiendaExecute
|
||||
OnUpdate = actTiendaUpdate
|
||||
end
|
||||
end
|
||||
inherited cxStyleRepositoryInforme: TcxStyleRepository
|
||||
Left = 360
|
||||
|
||||
@ -61,6 +61,9 @@ type
|
||||
cxGridViewTIENDA: TcxGridDBColumn;
|
||||
cxGridViewREF_CONTRATO: TcxGridDBColumn;
|
||||
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
|
||||
actTienda: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
@ -76,6 +79,8 @@ type
|
||||
procedure actAlmacenesUpdate(Sender: TObject);
|
||||
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure actTiendaExecute(Sender: TObject);
|
||||
procedure actTiendaUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -140,6 +145,26 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.actTiendaExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewTIENDA.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := -1;
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.actTiendaUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.AnadirFiltroFechas;
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
|
||||
@ -85,7 +85,8 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
// Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA); //Referencia diferente según tienda
|
||||
end;
|
||||
|
||||
function TBizAlbaranProveedorServer.IncrementarReferencia: Boolean;
|
||||
@ -104,7 +105,8 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
// Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA); //Referencia diferente según tienda
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -216,6 +216,11 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actAlmacen
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actTienda
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -238,6 +243,11 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
|
||||
OnExecute = actAlmacenExecute
|
||||
OnUpdate = actAlmacenUpdate
|
||||
end
|
||||
object actTienda: TAction
|
||||
Caption = 'Tienda'
|
||||
OnExecute = actTiendaExecute
|
||||
OnUpdate = actTiendaUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
Left = 352
|
||||
|
||||
@ -47,6 +47,9 @@ type
|
||||
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
|
||||
cxGridViewREF_FACTURA_PROV: TcxGridDBColumn;
|
||||
cxGridViewTIENDA: TcxGridDBColumn;
|
||||
actTienda: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
@ -61,6 +64,8 @@ type
|
||||
procedure actAlmacenUpdate(Sender: TObject);
|
||||
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure actTiendaExecute(Sender: TObject);
|
||||
procedure actTiendaUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -122,6 +127,26 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesProveedor.actTiendaExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewTIENDA.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := -1;
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesProveedor.actTiendaUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesProveedor.AnadirFiltroFechas;
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
|
||||
@ -187,14 +187,13 @@ begin
|
||||
JsDialog.Instruction.Text := 'Elija una direcci'#243'n.';
|
||||
JsDialog.DialogOptions := [doCommandLinks, doModal];
|
||||
JsDialog.ButtonBar.Buttons := [cbOk];
|
||||
JsDialog.Width := 600;
|
||||
JsDialog.Width := 1280;
|
||||
JsDialog.BorderStyle := bsSizeable;
|
||||
|
||||
//Añadimos la direccion principal del contacto
|
||||
with JsDialog.CustomButtons.Add do
|
||||
begin
|
||||
Caption := AContacto.NOMBRE + ' ' + AContacto.NIF_CIF;
|
||||
Info.Add(AContacto.CALLE);
|
||||
Info.Add(AContacto.CODIGO_POSTAL + ' ' + AContacto.POBLACION + ' ' + AContacto.PROVINCIA);
|
||||
Caption := AContacto.NOMBRE + ' - ' + AContacto.NIF_CIF + ' - ' + AContacto.CALLE + ' ' + AContacto.POBLACION + ' ' + AContacto.PROVINCIA;
|
||||
Value := -1;
|
||||
Default := True;
|
||||
end;
|
||||
@ -205,9 +204,7 @@ begin
|
||||
begin
|
||||
with JsDialog.CustomButtons.Add do
|
||||
begin
|
||||
Caption := AContacto.Direcciones.NOMBRE + ' ' + AContacto.Direcciones.NIF_CIF;
|
||||
Info.Add(AContacto.Direcciones.CALLE);
|
||||
Info.Add(AContacto.Direcciones.CODIGO_POSTAL + ' ' + AContacto.Direcciones.POBLACION + ' ' + AContacto.Direcciones.PROVINCIA);
|
||||
Caption := AContacto.Direcciones.NOMBRE + ' - ' + AContacto.Direcciones.NIF_CIF + ' - ' + AContacto.Direcciones.CALLE + ' ' + AContacto.Direcciones.POBLACION + ' ' + AContacto.Direcciones.PROVINCIA;
|
||||
Value := AContacto.Direcciones.ID;
|
||||
end;
|
||||
AContacto.Direcciones.DataTable.Next;
|
||||
|
||||
@ -24,16 +24,42 @@ inherited frViewVendedores: TfrViewVendedores
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 460
|
||||
Width = 460
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 237
|
||||
Width = 237
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 341
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 341
|
||||
ExplicitWidth = 206
|
||||
Width = 206
|
||||
end
|
||||
inherited txtFiltroTodo2: TcxTextEdit
|
||||
Left = 397
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 397
|
||||
ExplicitWidth = 223
|
||||
Width = 223
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -11,7 +11,8 @@ uses
|
||||
cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDADataTable,
|
||||
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item,
|
||||
TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces;
|
||||
TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces,
|
||||
uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewVendedores = interface(IViewContactos)
|
||||
|
||||
@ -57,6 +57,7 @@ type
|
||||
|
||||
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false);
|
||||
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false);
|
||||
procedure GenerarPDF(AContrato : IBizContratoCliente; AllItems: Boolean = false; AFirmado: Boolean = False);
|
||||
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
|
||||
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
|
||||
|
||||
@ -68,6 +69,7 @@ type
|
||||
procedure VerBeneficio(const ID: Integer);
|
||||
|
||||
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
|
||||
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
|
||||
end;
|
||||
|
||||
TContratosClienteController = class(TControllerBase, IContratosClienteController)
|
||||
@ -135,6 +137,7 @@ type
|
||||
|
||||
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false);
|
||||
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false);
|
||||
procedure GenerarPDF(AContrato : IBizContratoCliente; AllItems: Boolean = false; AFirmado: Boolean = False);
|
||||
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
|
||||
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
|
||||
|
||||
@ -146,6 +149,7 @@ type
|
||||
procedure VerBeneficio(const ID: Integer);
|
||||
|
||||
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
|
||||
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -990,6 +994,32 @@ begin
|
||||
Result := ASeleccionados;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteController.FechaUltimaActualizacionToday(AContrato: IBizContratoCliente);
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
begin
|
||||
if not Assigned(AContrato) then
|
||||
raise Exception.Create ('Contrato no asignado (CopiarDireccion)');
|
||||
|
||||
if AContrato.DataTable.Active then
|
||||
AContrato.DataTable.Active := True;
|
||||
|
||||
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AContrato.Edit;
|
||||
|
||||
ShowHourglassCursor;
|
||||
AContrato.Edit;
|
||||
try
|
||||
AContrato.FECHA_ULT_PRESENTACION_CLIENTE := DateOf(Date);
|
||||
|
||||
if not bEnEdicion then
|
||||
AContrato.Post;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteController.FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString;const Ano: String);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -1184,6 +1214,63 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteController.GenerarPDF(AContrato: IBizContratoCliente; AllItems, AFirmado: Boolean);
|
||||
var
|
||||
AReportController : IContratosClienteReportController;
|
||||
AFile : String;
|
||||
bEliminado: Boolean;
|
||||
ACausa: Variant;
|
||||
|
||||
begin
|
||||
if not Assigned(AContrato) then
|
||||
raise Exception.Create ('Factura no asignado (GenerarPDF)');
|
||||
|
||||
if AContrato.DataTable.Active then
|
||||
AContrato.DataTable.Active := True;
|
||||
|
||||
//En el caso de querer eliminar todos los items del objeto AAlbaran
|
||||
if AllItems then
|
||||
begin
|
||||
with AContrato.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
AFile := EscapeIllegalChars(AContrato.REFERENCIA + ' - ' + AContrato.NOMBRE_CLIENTE);
|
||||
if (not PreguntarFicheroPDFExportar(AFile)) then
|
||||
Next
|
||||
else
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AReportController := TContratosClienteReportController.Create;
|
||||
AReportController.ExportToPDF(AContrato.ID, AFile, AFirmado);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
AFile := EscapeIllegalChars(AContrato.REFERENCIA + ' - ' + AContrato.NOMBRE_CLIENTE);
|
||||
if (not PreguntarFicheroPDFExportar(AFile)) then
|
||||
Exit;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AReportController := TContratosClienteReportController.Create;
|
||||
AReportController.ExportToPDF(AContrato.ID, AFile, AFirmado);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TContratosClienteController.GetClienteController: IClientesController;
|
||||
begin
|
||||
Result := FClienteController;
|
||||
|
||||
@ -12,7 +12,7 @@ type
|
||||
['{FEF47B69-26A3-462A-AF6D-4B2073D4F9DC}']
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''; const AFirmado: Boolean = False): Boolean;
|
||||
end;
|
||||
|
||||
TContratosClienteReportController = class(TControllerBase, IContratosClienteReportController)
|
||||
@ -25,7 +25,7 @@ type
|
||||
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''; const AFirmado: Boolean = False): Boolean;
|
||||
end;
|
||||
|
||||
|
||||
@ -57,8 +57,7 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TContratosClienteReportController.ExportToPDF(const AID: Integer;
|
||||
const AFileName: String): Boolean;
|
||||
function TContratosClienteReportController.ExportToPDF(const AID: Integer; const AFileName : String = ''; const AFirmado: Boolean = False): Boolean;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
@ -68,7 +67,7 @@ begin
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptPDFContrato(AID);
|
||||
AStream := FDataModule.GetRptPDFContrato(AID, AFirmado);
|
||||
try
|
||||
AStream.SaveToFile(AFileName);
|
||||
Result := True;
|
||||
|
||||
@ -49,18 +49,18 @@
|
||||
<DelphiCompile Include="ContratosCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="uDataModuleContratosCliente.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
@ -346,6 +346,10 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
Size = 255
|
||||
DisplayLabel = 'Otros nombres'
|
||||
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -46,7 +46,7 @@ type
|
||||
|
||||
// Report
|
||||
function GetRptContratos(const AListaID: TIntegerList): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer; const Firmado: Boolean): Binary;
|
||||
|
||||
function GetAnosItems : TStringList;
|
||||
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
|
||||
@ -58,7 +58,7 @@ implementation
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
cxControls, FactuGES_Intf, uDataModuleConexion, Dialogs, DataAbstract4_Intf,
|
||||
cxControls, uFactuGES_App, FactuGES_Intf, uDataModuleConexion, Dialogs, DataAbstract4_Intf,
|
||||
uDataTableUtils, schContratosClienteClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmContratosCliente }
|
||||
@ -74,15 +74,14 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleContratosCliente.GetRptPDFContrato(
|
||||
const AID: Integer): Binary;
|
||||
function TDataModuleContratosCliente.GetRptPDFContrato(const AID: Integer; const Firmado: Boolean): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := TIntegerArray.Create;
|
||||
try
|
||||
AParam.Add(AID);
|
||||
Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam)
|
||||
Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, AppFactuGES.UsuarioActivo.USERNAME, Firmado)
|
||||
finally
|
||||
FreeANDNIL(AParam)
|
||||
end;
|
||||
|
||||
@ -9,7 +9,7 @@ type
|
||||
IDataModuleContratosClienteReport = interface
|
||||
['{6AB7469B-842A-413E-AF33-9506477A9666}']
|
||||
function GetRptContratos(const AListaID: TIntegerList): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer; const Firmado: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{4A855BE2-1E27-410A-8350-ACF29C53F151}';
|
||||
RID_Propiedades = '{41570D1D-ED23-49DE-9131-AE3093CC8765}';
|
||||
RID_ListaAnosContratos = '{D5EA6576-1B2F-4111-A91D-BFFC1FDF10F8}';
|
||||
RID_ContratosClienteBeneficios = '{F424B9B6-07F8-463E-B4A0-1BA7AA6ED4E0}';
|
||||
RID_ContratosCliente = '{15CCCCE9-CCB4-446E-BAEF-19862E2DFB78}';
|
||||
RID_TiposCapitulos = '{CBD0C09A-5DEA-4BCD-BFF4-D416AE6A10D4}';
|
||||
RID_ContratosCliente_Detalles = '{7875CEEB-1D15-46A1-93CD-1FF70AE1624F}';
|
||||
RID_ContratoClienteFacturasProv = '{F4C72497-51E7-4AA6-ADD6-A1B25CD1FA91}';
|
||||
RID_Valores = '{07040A27-DD19-4D93-B5DA-C9C49C1822CA}';
|
||||
RID_Propiedades = '{3006A5CE-2DB4-46FD-97B3-65E9CBA7AD2A}';
|
||||
RID_ListaAnosContratos = '{09600C3F-3F5A-4DB6-87A9-12C67B9AC2F1}';
|
||||
RID_ContratosClienteBeneficios = '{B58A588F-6D51-43FB-B318-5F9ABE371CBE}';
|
||||
RID_ContratosCliente = '{AFEF7F44-F9AD-4DCC-82CE-A441F94C7B6E}';
|
||||
RID_TiposCapitulos = '{C4F51BD4-AB1F-4564-8370-E83BDA635D61}';
|
||||
RID_ContratosCliente_Detalles = '{E45B94F9-C284-41CE-A73F-69E835616CBC}';
|
||||
RID_ContratoClienteFacturasProv = '{4884E75F-7CFE-4300-B53A-7F8F87745F99}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -140,6 +140,7 @@ const
|
||||
fld_ContratosClienteCALIDADES = 'CALIDADES';
|
||||
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
|
||||
fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 'FECHA_ULT_PRESENTACION_CLIENTE';
|
||||
|
||||
{ ContratosCliente field indexes }
|
||||
idx_ContratosClienteID = 0;
|
||||
@ -191,6 +192,7 @@ const
|
||||
idx_ContratosClienteCALIDADES = 46;
|
||||
idx_ContratosClienteREFERENCIA_CLIENTE = 47;
|
||||
idx_ContratosClienteLISTA_NOMBRES = 48;
|
||||
idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 49;
|
||||
|
||||
{ TiposCapitulos fields }
|
||||
fld_TiposCapitulosID = 'ID';
|
||||
@ -267,7 +269,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{13277775-D26C-4C37-8D1A-93F331210A30}']
|
||||
['{72662564-0D03-463E-94DA-D8D703FC7FFD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -326,7 +328,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{EEFEAABF-251E-4913-AC03-72EC40D49314}']
|
||||
['{F1B345B8-6699-4700-8097-BFC5BDFD8537}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -385,7 +387,7 @@ type
|
||||
|
||||
{ IListaAnosContratos }
|
||||
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
|
||||
['{72262AA4-E2B8-4359-AB2E-ED2F1CE60AAF}']
|
||||
['{36FADA3D-628F-480A-B077-EA8D6676A7C1}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -420,7 +422,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficios }
|
||||
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
|
||||
['{B769A1EC-6BF4-4753-BD9D-33065C8BA7E5}']
|
||||
['{BBC61983-3B64-4845-A47B-F8511BBF7A73}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -635,7 +637,7 @@ type
|
||||
|
||||
{ IContratosCliente }
|
||||
IContratosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{1A06CC8E-8C33-4DF9-B6DB-55FBABAA3E21}']
|
||||
['{5ECD7363-96C7-4393-AADE-B82526538C1E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -827,6 +829,10 @@ type
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String);
|
||||
function GetLISTA_NOMBRESIsNull: Boolean;
|
||||
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -928,6 +934,8 @@ type
|
||||
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
|
||||
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
end;
|
||||
|
||||
{ TContratosClienteDataTableRules }
|
||||
@ -1137,6 +1145,10 @@ type
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
|
||||
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
|
||||
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1237,6 +1249,8 @@ type
|
||||
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
|
||||
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1249,7 +1263,7 @@ type
|
||||
}
|
||||
{ ITiposCapitulos }
|
||||
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
|
||||
['{40EC6583-F105-4DC0-9181-38C309355EDF}']
|
||||
['{9303AF23-576A-4218-A01D-460C960EE4B3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1344,7 +1358,7 @@ type
|
||||
|
||||
{ IContratosCliente_Detalles }
|
||||
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{9660A725-EBFD-413A-B413-5FC6C4BA26EF}']
|
||||
['{7DA1AFC7-EB2B-4195-8CC5-0AB9E9B72906}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1595,7 +1609,7 @@ type
|
||||
|
||||
{ IContratoClienteFacturasProv }
|
||||
IContratoClienteFacturasProv = interface(IDAStronglyTypedDataTable)
|
||||
['{4BA8132B-EFEA-44CF-86F8-5BE79AD5A663}']
|
||||
['{92725D42-6696-45DF-9DB5-D9606DF194DD}']
|
||||
{ Property getters and setters }
|
||||
function GetID_CONTRATOValue: Integer;
|
||||
procedure SetID_CONTRATOValue(const aValue: Integer);
|
||||
@ -3283,6 +3297,27 @@ begin
|
||||
DataTable.Fields[idx_ContratosClienteLISTA_NOMBRES].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposCapitulosDataTableRules }
|
||||
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,19 +9,19 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{F5BA3630-406E-40FE-97E7-4BC91132C5C8}';
|
||||
RID_PropiedadesDelta = '{A595FE24-F858-4D75-9446-36289739B617}';
|
||||
RID_ListaAnosContratosDelta = '{E1E216DE-7155-4F81-867C-3884DAD7D803}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{A5795708-FD64-43F9-8BFB-9790F4704A05}';
|
||||
RID_ContratosClienteDelta = '{DB9934DA-3136-4D8C-8207-684254C4E5ED}';
|
||||
RID_TiposCapitulosDelta = '{BC8F6452-CA5B-4003-8BC5-6DC010737C59}';
|
||||
RID_ContratosCliente_DetallesDelta = '{5E3953D6-994F-4C13-BD75-D73DB9D7B437}';
|
||||
RID_ContratoClienteFacturasProvDelta = '{E4D089BC-21D9-4983-900F-8F82272F74AF}';
|
||||
RID_ValoresDelta = '{D65A1140-B47F-4E5C-9F78-5E23024E699F}';
|
||||
RID_PropiedadesDelta = '{6F61B397-916F-47F9-8B1F-143BBE4D8761}';
|
||||
RID_ListaAnosContratosDelta = '{E49B48FF-2E1A-4370-9CA7-31E903528445}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}';
|
||||
RID_ContratosClienteDelta = '{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}';
|
||||
RID_TiposCapitulosDelta = '{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}';
|
||||
RID_ContratosCliente_DetallesDelta = '{8CE89C32-E498-4B5A-9083-8C056ABE340F}';
|
||||
RID_ContratoClienteFacturasProvDelta = '{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{F5BA3630-406E-40FE-97E7-4BC91132C5C8}']
|
||||
['{D65A1140-B47F-4E5C-9F78-5E23024E699F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -79,7 +79,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{A595FE24-F858-4D75-9446-36289739B617}']
|
||||
['{6F61B397-916F-47F9-8B1F-143BBE4D8761}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -137,7 +137,7 @@ type
|
||||
|
||||
{ IListaAnosContratosDelta }
|
||||
IListaAnosContratosDelta = interface(IListaAnosContratos)
|
||||
['{E1E216DE-7155-4F81-867C-3884DAD7D803}']
|
||||
['{E49B48FF-2E1A-4370-9CA7-31E903528445}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -171,7 +171,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficiosDelta }
|
||||
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
|
||||
['{A5795708-FD64-43F9-8BFB-9790F4704A05}']
|
||||
['{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -385,7 +385,7 @@ type
|
||||
|
||||
{ IContratosClienteDelta }
|
||||
IContratosClienteDelta = interface(IContratosCliente)
|
||||
['{DB9934DA-3136-4D8C-8207-684254C4E5ED}']
|
||||
['{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -436,6 +436,7 @@ type
|
||||
function GetOldCALIDADESValue : IROStrings;
|
||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||
function GetOldLISTA_NOMBRESValue : String;
|
||||
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue : DateTime;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -487,6 +488,7 @@ type
|
||||
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
end;
|
||||
|
||||
{ TContratosClienteBusinessProcessorRules }
|
||||
@ -794,6 +796,12 @@ type
|
||||
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
|
||||
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
|
||||
function GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -992,6 +1000,10 @@ type
|
||||
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1001,7 +1013,7 @@ type
|
||||
|
||||
{ ITiposCapitulosDelta }
|
||||
ITiposCapitulosDelta = interface(ITiposCapitulos)
|
||||
['{BC8F6452-CA5B-4003-8BC5-6DC010737C59}']
|
||||
['{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -1095,7 +1107,7 @@ type
|
||||
|
||||
{ IContratosCliente_DetallesDelta }
|
||||
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
|
||||
['{5E3953D6-994F-4C13-BD75-D73DB9D7B437}']
|
||||
['{8CE89C32-E498-4B5A-9083-8C056ABE340F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
@ -1345,7 +1357,7 @@ type
|
||||
|
||||
{ IContratoClienteFacturasProvDelta }
|
||||
IContratoClienteFacturasProvDelta = interface(IContratoClienteFacturasProv)
|
||||
['{E4D089BC-21D9-4983-900F-8F82272F74AF}']
|
||||
['{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -3759,6 +3771,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLISTA_NOMBRES] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposCapitulosBusinessProcessorRules }
|
||||
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -265,6 +265,7 @@ begin
|
||||
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
|
||||
|
||||
FECHA_CONTRATO := DateOf(Date);
|
||||
FECHA_ULT_PRESENTACION_CLIENTE := DateOf(Date);
|
||||
|
||||
INCIDENCIAS_ACTIVAS := 0;
|
||||
RE := 0;
|
||||
@ -358,13 +359,15 @@ begin
|
||||
ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
|
||||
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
|
||||
|
||||
if FCliente.ID_TIENDA > 0 then
|
||||
|
||||
//OJO en empresa cristina no existen tiendas solo es la tienda cristina por lo que no se cambia asignación si estamos en esa empresa, falla si de cogen un cliente de acana los contadores
|
||||
if (AppFactuGES.EmpresaActiva.ID <> CTE_EMPRESA_CRISTINA)
|
||||
and (FCliente.ID_TIENDA > 0) then
|
||||
begin
|
||||
ID_TIENDA := FCliente.ID_TIENDA;
|
||||
TIENDA := FCliente.TIENDA;
|
||||
end;
|
||||
|
||||
|
||||
// En acana la ficha de cliente no tiene descuento aplicado por defecto
|
||||
// DESCUENTO := FCliente.DESCUENTO;
|
||||
|
||||
|
||||
@ -14,7 +14,7 @@ type
|
||||
private
|
||||
FReferenciaAutomatica : Boolean;
|
||||
function DarReferencia : String;
|
||||
function IncrementarReferencia : Boolean;
|
||||
function IncrementarReferencia : Boolean;
|
||||
protected
|
||||
procedure BeforeProcessDelta(Sender: TDABusinessProcessor;
|
||||
const aDelta: IDADelta); override;
|
||||
@ -84,7 +84,8 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
// Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA); //Referencia diferente según tienda
|
||||
end;
|
||||
|
||||
function TBizContratosClienteServer.IncrementarReferencia: Boolean;
|
||||
@ -99,7 +100,8 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
// Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA); //Referencia diferente según tienda
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -205,8 +205,9 @@ object RptContratosCliente: TRptContratosCliente
|
||||
'IENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
|
||||
' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' V_CONTRATOS_CLIENTE.TIPO_CO' +
|
||||
'NTRATO,'#10' V_CONTRATOS_CLIENTE.CONDICIONES,'#10' V_CONTRATOS_CLI' +
|
||||
'ENTE.ID_TIENDA'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATO' +
|
||||
'S_CLIENTE.ID = :ID'#10
|
||||
'ENTE.ID_TIENDA,'#10' V_CONTRATOS_CLIENTE.FECHA_ULT_PRESENTACION_C' +
|
||||
'LIENTE'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENT' +
|
||||
'E.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -340,6 +341,10 @@ object RptContratosCliente: TRptContratosCliente
|
||||
item
|
||||
DatasetField = 'ID_TIENDA'
|
||||
TableField = 'ID_TIENDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
TableField = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -488,6 +493,10 @@ object RptContratosCliente: TRptContratosCliente
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
ReadOnly = True
|
||||
end
|
||||
@ -1230,6 +1239,10 @@ object RptContratosCliente: TRptContratosCliente
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
@ -1523,6 +1536,7 @@ object RptContratosCliente: TRptContratosCliente
|
||||
UseFileCache = True
|
||||
ShowProgress = False
|
||||
OverwritePrompt = False
|
||||
EmbeddedFonts = True
|
||||
PrintOptimized = True
|
||||
Outline = False
|
||||
Background = False
|
||||
@ -1530,7 +1544,7 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Author = 'FactuGES'
|
||||
Subject = 'FactuGES'
|
||||
Creator = 'FactuGES'
|
||||
ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
|
||||
ProtectionFlags = [ePrint, eAnnot]
|
||||
HideToolbar = False
|
||||
HideMenubar = False
|
||||
HideWindowUI = False
|
||||
|
||||
@ -76,6 +76,7 @@ type
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
FIdEmpresa: Integer;
|
||||
FIdTienda: Integer;
|
||||
FFechaInicio: Variant;
|
||||
FFechaFin: Variant;
|
||||
FListaIDClientes: TIntegerArray;
|
||||
@ -93,7 +94,7 @@ type
|
||||
procedure RecuperarNombresClientes;
|
||||
public
|
||||
function GenerarContrato(const ListaID : TIntegerArray): Binary;
|
||||
function GenerarContratoEnPDF(const ListaID : TIntegerArray): Binary;
|
||||
function GenerarContratoEnPDF(const ListaID : TIntegerArray; const Usuario: AnsiString; const Firmado: Boolean): Binary;
|
||||
function GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
@ -141,18 +142,39 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const Usuario: AnsiString; const Firmado: Boolean): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
AStream : Binary;
|
||||
ARutaFichero, ANombreFichero, LlamadaBat : String;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
try
|
||||
//Vamos generando todos y cada uno de los Contratos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
_GenerarContrato(ListaID.Items[i]);
|
||||
//Inicializamos parametros
|
||||
|
||||
frxPDFExport1.Stream := Result;
|
||||
frxReport.Export(frxPDFExport1)
|
||||
//Vamos generando todos y cada uno de los contratos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
begin
|
||||
_GenerarContrato(ListaID.Items[i]);
|
||||
ANombreFichero := frxReport.ReportOptions.Name + '_' + FormatDateTime('yyyymmdd_hhnnss_', now) + Usuario;
|
||||
if Firmado then
|
||||
ANombreFichero := ANombreFichero + 'firmado.pdf'
|
||||
else
|
||||
ANombreFichero := ANombreFichero + '.pdf';
|
||||
|
||||
ANombreFichero := DarRutaPDFS + EscapeIllegalChars(ANombreFichero);
|
||||
frxPDFExport1.Stream := Result;
|
||||
frxReport.Export(frxPDFExport1);
|
||||
Result.SaveToFile(ANombreFichero);
|
||||
|
||||
if Firmado then
|
||||
begin
|
||||
ARutaFichero := DarRutaFichero(DarRutaInformes, 'firma_contrato.bat ', IntToStr(FIdEmpresa), IntToStr(FIdTienda));
|
||||
LlamadaBat := ARutaFichero + '"' + ANombreFichero + '"';
|
||||
if ExecAndWait(LlamadaBat) then
|
||||
Result.LoadFromFile(ANombreFichero);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
@ -531,9 +553,10 @@ begin
|
||||
tbl_Cabecera.Active := True;
|
||||
tbl_Capitulos.Active := True;
|
||||
tbl_Detalles.Active := True;
|
||||
|
||||
tbl_DetallesArticulos.Active := True;
|
||||
|
||||
FIdEmpresa := tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger;
|
||||
FIdTienda := tbl_Cabecera.FieldByName('ID_TIENDA').AsInteger;
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarContrato, no encuentra informe ' + rptInforme));
|
||||
|
||||
@ -487,6 +487,10 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
DatasetField = 'LISTA_NOMBRES'
|
||||
TableField = 'LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
TableField = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'ContratosCliente'
|
||||
@ -761,6 +765,10 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1308,6 +1316,11 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1324,17 +1337,18 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
|
||||
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
|
||||
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
|
||||
'ENCIA_CLIENTE, ID_EMPRESA)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_' +
|
||||
'CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' ' +
|
||||
' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FOR' +
|
||||
'MA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INC' +
|
||||
'IDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NET' +
|
||||
'O, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IM' +
|
||||
'PONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_F' +
|
||||
'ORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE' +
|
||||
', :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :T' +
|
||||
'IPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCIA_CLIENTE, :ID' +
|
||||
'_EMPRESA)'#10#10
|
||||
'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE)'#10' VAL' +
|
||||
'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' +
|
||||
'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' +
|
||||
'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' +
|
||||
'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' +
|
||||
'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' +
|
||||
'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' +
|
||||
'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' +
|
||||
'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' +
|
||||
'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' +
|
||||
'IDADES, :REFERENCIA_CLIENTE, :ID_EMPRESA, :FECHA_ULT_PRESENTACIO' +
|
||||
'N_CLIENTE)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1579,6 +1593,11 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1609,7 +1628,8 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
|
||||
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
|
||||
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' ID_EMPRESA' +
|
||||
' = :ID_EMPRESA'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
' = :ID_EMPRESA,'#10' FECHA_ULT_PRESENTACION_CLIENTE = :FECHA_ULT_' +
|
||||
'PRESENTACION_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -34,7 +34,7 @@ type
|
||||
protected
|
||||
{ IsrvContratosCliente methods }
|
||||
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const Usuario: AnsiString; const Firmado: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -89,13 +89,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const Usuario: AnsiString; const Firmado: Boolean): Binary;
|
||||
var
|
||||
AReportGenerator : TRptContratosCliente;
|
||||
begin
|
||||
AReportGenerator := TRptContratosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarContratoEnPDF(ListaID);
|
||||
Result := AReportGenerator.GenerarContratoEnPDF(ListaID, Usuario, Firmado);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -223,49 +223,49 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Width = 122
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 122
|
||||
Width = 122
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 305
|
||||
Top = 138
|
||||
Top = 165
|
||||
ExplicitLeft = 305
|
||||
ExplicitTop = 138
|
||||
ExplicitTop = 165
|
||||
end
|
||||
inherited cbSituacion: TcxDBImageComboBox
|
||||
Top = 111
|
||||
ExplicitTop = 111
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited memFormaPago: TcxDBMemo
|
||||
Top = 287
|
||||
ExplicitTop = 287
|
||||
Top = 314
|
||||
ExplicitTop = 314
|
||||
ExplicitWidth = 396
|
||||
ExplicitHeight = 100
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
inherited memPlazoEntrega: TcxDBMemo
|
||||
Top = 373
|
||||
ExplicitTop = 373
|
||||
Top = 387
|
||||
ExplicitTop = 387
|
||||
ExplicitWidth = 396
|
||||
ExplicitHeight = 100
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
inherited cbVendedor: TcxDBLookupComboBox
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
Top = 192
|
||||
ExplicitTop = 192
|
||||
ExplicitWidth = 27
|
||||
Width = 27
|
||||
end
|
||||
inherited cbTipoContrato: TcxDBComboBox
|
||||
Left = 318
|
||||
Left = 331
|
||||
Top = 84
|
||||
ExplicitLeft = 318
|
||||
ExplicitLeft = 331
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 113
|
||||
Width = 113
|
||||
@ -378,9 +378,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Top = 216
|
||||
Top = 243
|
||||
Width = 451
|
||||
ExplicitTop = 216
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 451
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 451
|
||||
@ -390,6 +390,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited edtFechaUltRevision: TcxDBDateEdit
|
||||
Top = 111
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 123
|
||||
Width = 123
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -427,51 +433,51 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
inherited FontSize: TEdit [5]
|
||||
Left = 0
|
||||
ExplicitLeft = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Left = 145
|
||||
Width = 110
|
||||
ExplicitLeft = 145
|
||||
ExplicitLeft = 0
|
||||
ExplicitWidth = 110
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 271
|
||||
ExplicitLeft = 271
|
||||
inherited UpDown1: TUpDown [6]
|
||||
Left = 110
|
||||
ExplicitLeft = 110
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [7]
|
||||
Left = 127
|
||||
ExplicitLeft = 127
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 288
|
||||
ExplicitLeft = 288
|
||||
Left = 272
|
||||
ExplicitLeft = 272
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 296
|
||||
ExplicitLeft = 296
|
||||
Left = 280
|
||||
ExplicitLeft = 280
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 330
|
||||
ExplicitLeft = 330
|
||||
Left = 314
|
||||
ExplicitLeft = 314
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 364
|
||||
ExplicitLeft = 364
|
||||
Left = 348
|
||||
ExplicitLeft = 348
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 398
|
||||
ExplicitLeft = 398
|
||||
Left = 382
|
||||
ExplicitLeft = 382
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 406
|
||||
ExplicitLeft = 406
|
||||
Left = 390
|
||||
ExplicitLeft = 390
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 440
|
||||
ExplicitLeft = 440
|
||||
Left = 424
|
||||
ExplicitLeft = 424
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 474
|
||||
ExplicitLeft = 474
|
||||
Left = 458
|
||||
ExplicitLeft = 458
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
|
||||
@ -276,6 +276,12 @@ begin
|
||||
frViewDetallesContratoCliente1.BeginUpdate;
|
||||
try
|
||||
bEsNuevo := FContrato.EsNuevo;
|
||||
|
||||
if not bEsNuevo then
|
||||
if (FContrato.FECHA_ULT_PRESENTACION_CLIENTE < Date) then
|
||||
if ShowConfirmMessage('Cambio fecha actualización', '¿Desea cambiar la fecha de última actualización del contrato por la de hoy?') = IDYES then
|
||||
Controller.FechaUltimaActualizacionToday(FContrato);
|
||||
|
||||
//GESTION_DOCUMENTOS
|
||||
if FController.Guardar(FContrato) then
|
||||
frViewDocumentosContratoCliente1.actActualizarServidor.Execute;
|
||||
|
||||
@ -126,7 +126,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Width = 1119
|
||||
ExplicitWidth = 1119
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 888
|
||||
ExplicitWidth = 1119
|
||||
object TBXSubmenuItem3: TTBXSubmenuItem [0]
|
||||
Caption = 'Nuevo'
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -163,7 +163,11 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Action = ActDuplicarAPresupuesto
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXItem47: TTBXItem [14]
|
||||
object TBXItem51: TTBXItem [14]
|
||||
Action = actGenerarPDF
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXItem47: TTBXItem [15]
|
||||
Action = actEnviarEMail
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
@ -324,6 +328,13 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
OnExecute = ActDuplicarAPresupuestoExecute
|
||||
OnUpdate = ActDuplicarAPresupuestoUpdate
|
||||
end
|
||||
object actGenerarPDF: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Generar PDF'
|
||||
ImageIndex = 30
|
||||
OnExecute = actGenerarPDFExecute
|
||||
OnUpdate = actGenerarPDFUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
@ -1076,6 +1087,29 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
AE426082}
|
||||
Name = 'PngImage29'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001F04944415478DA
|
||||
633CC0C0F09F0109C83939313CDAB70F5988C181818191C1600644DD850C4664
|
||||
3946900162D7AEC1053872721838972E85F36F4A4A323818CC60A82CF062689F
|
||||
B00DB7011C1C1C0C9C9C9C0CDFA3A31924B76E65F8F1E307184B7A6E64583825
|
||||
99E1C69DE70C4B561C64F8F1F3EFC5D7EF7F78030D7A8A6280A0A020D890F7C1
|
||||
C10C826BD7824D17745C09D70C03627C2C0C959D5BBF000DD20019023640FDF9
|
||||
7314CD201AE48DF7EFDF3368451D62F075D365D0D19265B872ED3198FEF3F90D
|
||||
C3C2F597B7BEDA17EF0337000440CEC70694DE85810DD9BCEB32DC305878800D
|
||||
00853C08806CFDFEFD3B42674A0A38462E2FDACE90DBF7102CB4A0568361ED49
|
||||
568663276F31BC3D98883000E66474F04A4B8BC1F6DF3F14B182CEDD0CF3363D
|
||||
66F87A3C8591B15842F33F0301D0F5EC2A0ABF6DC6368629EBDE3148311F6760
|
||||
24A479F2A2EDFFB362DC19983E9D67B8BFDC98412AF402C3EC6DCF19E62DDD04
|
||||
4907C41AF0772D1303AB453CC3FD2D0B197823BE307CFFF18BC13FA19A380372
|
||||
FC2480B61B3228DA3330DC3FC8C0C0E27E95E13B83284344663D7106787FF564
|
||||
50F4896760F8BC90E1FD3B06860F9719183EDA3F61482A6C25CE00BD279E18E2
|
||||
CCEEF71872ABBA893320C4D30AE8E7DF0CDFBEFF66F8FAFD17C337A0FF41A0A8
|
||||
AE8F380360218E0D000074D3EB115697A8140000000049454E44AE426082}
|
||||
Name = 'PngImage30'
|
||||
Background = clWindow
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
|
||||
@ -56,6 +56,8 @@ type
|
||||
TBXItem49: TTBXItem;
|
||||
ActDuplicarAPresupuesto: TAction;
|
||||
TBXItem50: TTBXItem;
|
||||
actGenerarPDF: TAction;
|
||||
TBXItem51: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actGenerarAlbaranCliExecute(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
@ -85,6 +87,8 @@ type
|
||||
procedure actVerFacturasProveedorExecute(Sender: TObject);
|
||||
procedure ActDuplicarAPresupuestoExecute(Sender: TObject);
|
||||
procedure ActDuplicarAPresupuestoUpdate(Sender: TObject);
|
||||
procedure actGenerarPDFExecute(Sender: TObject);
|
||||
procedure actGenerarPDFUpdate(Sender: TObject);
|
||||
|
||||
protected
|
||||
FContratos: IBizContratoCliente;
|
||||
@ -334,6 +338,53 @@ begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosCliente.actGenerarPDFExecute(Sender: TObject);
|
||||
var
|
||||
ACadena : String;
|
||||
AContratos: IBizContratoCliente;
|
||||
AllItems: Boolean;
|
||||
AListaCausas: TStringList;
|
||||
AFirmar: Boolean;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
AContratos := Nil;
|
||||
AFirmar := False;
|
||||
AllItems := False;
|
||||
AListaCausas := TStringList.Create;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
|
||||
if AllItems then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contratos as ISeleccionable).SelectedRecords);
|
||||
AContratos := (Controller as IContratosClienteController).ExtraerSeleccionados(Contratos) as IBizContratoCliente;
|
||||
|
||||
if (Application.MessageBox('¿Desea firmar digitalmente las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
|
||||
AFirmar := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
AContratos := Contratos;
|
||||
ACadena := '¿Desea firmar digitalmente este contrato de cliente?';
|
||||
if (Application.MessageBox(PChar(ACadena), 'Atención', MB_YESNO) = IDYES) then
|
||||
AFirmar := True;
|
||||
end;
|
||||
|
||||
FController.GenerarPDF(AContratos, AllItems, AFirmar);
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosCliente.actGenerarPDFUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if HayDatos and Assigned(ViewGrid) then
|
||||
(Sender as TAction).Enabled := ViewGrid.EsSeleccionCeldaDatos
|
||||
and (ViewGrid.NumSeleccionados > 0)
|
||||
else
|
||||
(Sender as TAction).Enabled := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosCliente.actGenerarPedidoProvExecute(Sender: TObject);
|
||||
var
|
||||
ACopiarDetalles: Boolean;
|
||||
@ -412,14 +463,23 @@ end;
|
||||
procedure TfEditorContratosCliente.bArmarioClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
|
||||
if (ShowConfirmMessage('Atención CIF - CRISTINA', 'No hagas el presupuesto en esta empresa si no va a ser facturado con el CIF de Cristina Puerta Estudio, ¿Desea continuar con el presupuesto?') = IDNO) then
|
||||
exit;
|
||||
|
||||
if FController.Anadir(Contratos, teArmario) then
|
||||
FController.Ver(Contratos);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosCliente.bBanoClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
|
||||
if (ShowConfirmMessage('Atención CIF - CRISTINA', 'No hagas el presupuesto en esta empresa si no va a ser facturado con el CIF de Cristina Puerta Estudio, ¿Desea continuar con el presupuesto?') = IDNO) then
|
||||
exit;
|
||||
|
||||
if FController.Anadir(Contratos, teBano) then
|
||||
FController.Ver(Contratos);
|
||||
end;
|
||||
@ -427,6 +487,11 @@ end;
|
||||
procedure TfEditorContratosCliente.bCocinaClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
|
||||
if (ShowConfirmMessage('Atención CIF - CRISTINA', 'No hagas el presupuesto en esta empresa si no va a ser facturado con el CIF de Cristina Puerta Estudio, ¿Desea continuar con el presupuesto?') = IDNO) then
|
||||
exit;
|
||||
|
||||
if FController.Anadir(Contratos, teCocina) then
|
||||
FController.Ver(Contratos);
|
||||
end;
|
||||
@ -434,6 +499,11 @@ end;
|
||||
procedure TfEditorContratosCliente.bElectrodomesticoClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
|
||||
if (ShowConfirmMessage('Atención CIF - CRISTINA', 'No hagas el presupuesto en esta empresa si no va a ser facturado con el CIF de Cristina Puerta Estudio, ¿Desea continuar con el presupuesto?') = IDNO) then
|
||||
exit;
|
||||
|
||||
if FController.Anadir(Contratos, teElectrodomestico) then
|
||||
FController.Ver(Contratos);
|
||||
end;
|
||||
@ -441,6 +511,11 @@ end;
|
||||
procedure TfEditorContratosCliente.bObraClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
|
||||
if (ShowConfirmMessage('Atención CIF - CRISTINA', 'No hagas el presupuesto en esta empresa si no va a ser facturado con el CIF de Cristina Puerta Estudio, ¿Desea continuar con el presupuesto?') = IDNO) then
|
||||
exit;
|
||||
|
||||
if FController.Anadir(Contratos, teObra) then
|
||||
FController.Ver(Contratos);
|
||||
end;
|
||||
@ -448,6 +523,11 @@ end;
|
||||
procedure TfEditorContratosCliente.bVariosClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
|
||||
if (ShowConfirmMessage('Atención CIF - CRISTINA', 'No hagas el presupuesto en esta empresa si no va a ser facturado con el CIF de Cristina Puerta Estudio, ¿Desea continuar con el presupuesto?') = IDNO) then
|
||||
exit;
|
||||
|
||||
if FController.Anadir(Contratos, teVarios) then
|
||||
FController.Ver(Contratos);
|
||||
end;
|
||||
|
||||
@ -19,7 +19,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
817
|
||||
491)
|
||||
object edtFechaContrato: TcxDBDateEdit
|
||||
Left = 104
|
||||
Left = 131
|
||||
Top = 82
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_CONTRATO'
|
||||
@ -59,12 +59,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
Height = 139
|
||||
Width = 404
|
||||
end
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 104
|
||||
Left = 131
|
||||
Top = 28
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
@ -89,8 +89,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 122
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 104
|
||||
Top = 136
|
||||
Left = 131
|
||||
Top = 163
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -115,21 +115,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 122
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 282
|
||||
Top = 136
|
||||
Top = 163
|
||||
Width = 132
|
||||
Height = 21
|
||||
Caption = 'Ver las formas de pago...'
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object cbSituacion: TcxDBImageComboBox
|
||||
Left = 104
|
||||
Top = 109
|
||||
Left = 131
|
||||
Top = 136
|
||||
DataBinding.DataField = 'SITUACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.Items = <
|
||||
@ -154,12 +154,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 260
|
||||
end
|
||||
object memFormaPago: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 297
|
||||
Top = 324
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -175,35 +175,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
object memPlazoEntrega: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 401
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'PLAZO_ENTREGA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ScrollBars = ssVertical
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
object memPlazoEntrega: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 415
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'PLAZO_ENTREGA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ScrollBars = ssVertical
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
object cbVendedor: TcxDBLookupComboBox
|
||||
Left = 104
|
||||
Top = 163
|
||||
Left = 131
|
||||
Top = 190
|
||||
DataBinding.DataField = 'ID_VENDEDOR'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -228,11 +228,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Width = 27
|
||||
end
|
||||
object cbTipoContrato: TcxDBComboBox
|
||||
Left = 306
|
||||
Left = 318
|
||||
Top = 82
|
||||
DataBinding.DataField = 'TIPO_CONTRATO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -258,7 +258,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 113
|
||||
end
|
||||
object edtlREF_CLIENTE: TcxDBTextEdit
|
||||
Left = 104
|
||||
Left = 131
|
||||
Top = 55
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
@ -284,7 +284,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Top = 28
|
||||
Width = 366
|
||||
Height = 270
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 444
|
||||
ExplicitTop = 28
|
||||
@ -331,13 +331,36 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
end
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
Left = 22
|
||||
Top = 220
|
||||
Top = 247
|
||||
Width = 451
|
||||
Height = 41
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 220
|
||||
ExplicitTop = 247
|
||||
end
|
||||
object edtFechaUltRevision: TcxDBDateEdit
|
||||
Left = 131
|
||||
Top = 109
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.DateButtons = [btnToday]
|
||||
Properties.ImmediatePost = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 123
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
@ -386,6 +409,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item14: TdxLayoutItem
|
||||
Caption = 'Fecha '#250'ltima revisi'#243'n:'
|
||||
Control = edtFechaUltRevision
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
|
||||
@ -70,6 +70,8 @@ type
|
||||
dxLayoutControl1Item13: TdxLayoutItem;
|
||||
frViewTienda1: TfrViewTienda;
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
dxLayoutControl1Item14: TdxLayoutItem;
|
||||
edtFechaUltRevision: TcxDBDateEdit;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
|
||||
@ -119,6 +119,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
BestFitMaxWidth = 25
|
||||
Width = 105
|
||||
end
|
||||
object cxGridViewFECHA_ULT_PRESENTACION_CLIENTE: TcxGridDBColumn
|
||||
Caption = 'Fecha '#250'lt. actualizaci'#243'n'
|
||||
DataBinding.FieldName = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
end
|
||||
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||
Caption = 'NIF/CIF'
|
||||
DataBinding.FieldName = 'NIF_CIF'
|
||||
@ -210,12 +214,16 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 515
|
||||
@ -224,6 +232,8 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 515
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited txtFiltroTodo2: TcxTextEdit
|
||||
Left = 515
|
||||
@ -232,6 +242,8 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 515
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||
|
||||
@ -53,6 +53,7 @@ type
|
||||
actTienda: TAction;
|
||||
TBXItem2: TTBXItem;
|
||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
||||
cxGridViewFECHA_ULT_PRESENTACION_CLIENTE: TcxGridDBColumn;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
|
||||
@ -27,7 +27,7 @@ type
|
||||
function Nuevo (WithInsert: Boolean = True) : IBizFacturaCliente;
|
||||
function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload;
|
||||
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function AnadirProforma(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function AnadirProforma: IBizFacturaCliente;
|
||||
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; Const ATipo: String = CTE_TIPO_FACTURA): Boolean; overload;
|
||||
|
||||
function Eliminar(const ID : Integer): Boolean; overload;
|
||||
@ -42,6 +42,7 @@ type
|
||||
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
procedure EnviarFacturaPorEMail(AFactura : IBizFacturaCliente);
|
||||
procedure GenerarPDF(AFactura : IBizFacturaCliente; AllItems: Boolean = false; AFirmado: Boolean = False);
|
||||
|
||||
procedure RecalcularImportes(AFactura: IBizFacturaCliente);
|
||||
|
||||
@ -93,7 +94,7 @@ type
|
||||
function Existe(const ID: Integer) : Boolean; virtual;
|
||||
function Anadir(AFactura : IBizFacturaCliente): Boolean; overload;
|
||||
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function AnadirProforma(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function AnadirProforma: IBizFacturaCliente;
|
||||
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; Const ATipo: String = CTE_TIPO_FACTURA): Boolean; overload;
|
||||
function Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente;
|
||||
@ -108,6 +109,7 @@ type
|
||||
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
procedure EnviarFacturaPorEMail(AFactura : IBizFacturaCliente);
|
||||
procedure GenerarPDF(AFactura : IBizFacturaCliente; AllItems: Boolean = false; AFirmado: Boolean = False);
|
||||
|
||||
procedure RecalcularImportes(AFactura: IBizFacturaCliente);
|
||||
function EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
|
||||
@ -195,9 +197,12 @@ end;
|
||||
{ TFacturasClienteController }
|
||||
|
||||
function TFacturasClienteController.Anadir(AFactura: IBizFacturaCliente) : Boolean;
|
||||
var
|
||||
bEnEdicion: Boolean;
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
raise Exception.Create ('Factura no asignada (Anadir)');
|
||||
|
||||
AFactura.Insert;
|
||||
Result := True;
|
||||
end;
|
||||
@ -209,12 +214,14 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.AnadirProforma(
|
||||
AFactura: IBizFacturaCliente): Boolean;
|
||||
function TFacturasClienteController.AnadirProforma: IBizFacturaCliente;
|
||||
var
|
||||
AFactura : IBizFacturaCliente;
|
||||
|
||||
begin
|
||||
Anadir(AFactura);
|
||||
AFactura := Nuevo(True);
|
||||
AFactura.TIPO := CTE_TIPO_PROFORMA;
|
||||
Result := True;
|
||||
Result := AFactura;
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.Anadir(AFacturas: IBizFacturaCliente;
|
||||
@ -268,7 +275,10 @@ begin
|
||||
AAlbaranesController.RecuperarCliente(AListaAlbaranes);
|
||||
AListaAlbaranes.Cliente.DataTable.Active := True;
|
||||
AFacturas.Cliente := AListaAlbaranes.Cliente;
|
||||
AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO;
|
||||
if AListaAlbaranes.datatable.fieldbyname(fld_facturasClienteID_FORMA_PAGO).isnull then
|
||||
AFacturas.ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO
|
||||
else
|
||||
AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO;
|
||||
AFacturas.TIPO := ATipo;
|
||||
AFacturas.DataTable.FieldByName(fld_FacturasClienteOBSERVACIONES).AsString := AListaAlbaranes.DataTable.FieldByName(fld_FacturasClienteOBSERVACIONES).AsString;
|
||||
|
||||
@ -781,6 +791,11 @@ begin
|
||||
if (AFactura.IMPORTE_TOTAL > 0) then
|
||||
raise Exception.Create('Un abono nunca no puede tener un importe positivo, asegurese que las cantidades sean negativas');
|
||||
|
||||
//En caso de ser una Factura no podra tener un importe total negativo
|
||||
if (AFactura.TIPO = CTE_TIPO_FACTURA) then
|
||||
if (AFactura.IMPORTE_TOTAL < 0) then
|
||||
raise Exception.Create('Una factura nunca no puede tener un importe total negativo, asegurese que la factura esté correcta');
|
||||
|
||||
{ Esta validación puede saltar cuando se generan facturas automáticamente
|
||||
por albaranes o pedidos y el cliente no tiene Tipo de IVA puesto, se cambia,
|
||||
para signar automáticamente por defecto a la factura la primera forma de pago,
|
||||
@ -1370,6 +1385,63 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteController.GenerarPDF(AFactura: IBizFacturaCliente; AllItems, AFirmado: Boolean);
|
||||
var
|
||||
AReportController : IFacturasClienteReportController;
|
||||
AFile : String;
|
||||
bEliminado: Boolean;
|
||||
ACausa: Variant;
|
||||
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
raise Exception.Create ('Factura no asignado (GenerarPDF)');
|
||||
|
||||
if AFactura.DataTable.Active then
|
||||
AFactura.DataTable.Active := True;
|
||||
|
||||
//En el caso de querer eliminar todos los items del objeto AAlbaran
|
||||
if AllItems then
|
||||
begin
|
||||
with AFactura.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
AFile := EscapeIllegalChars(AFactura.REFERENCIA + ' - ' + AFactura.NOMBRE_CLIENTE);
|
||||
if (not PreguntarFicheroPDFExportar(AFile)) then
|
||||
Next
|
||||
else
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AReportController := TFacturasClienteReportController.Create;
|
||||
AReportController.ExportToPDF(AFactura.ID, AFile, AFirmado);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
AFile := EscapeIllegalChars(AFactura.REFERENCIA + ' - ' + AFactura.NOMBRE_CLIENTE);
|
||||
if (not PreguntarFicheroPDFExportar(AFile)) then
|
||||
Exit;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AReportController := TFacturasClienteReportController.Create;
|
||||
AReportController.ExportToPDF(AFactura.ID, AFile, AFirmado);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteController.GenerarRecibos(AFactura: IBizFacturaCliente);
|
||||
var
|
||||
AFormasPagoController : IFormasPagoController;
|
||||
|
||||
@ -12,7 +12,7 @@ type
|
||||
['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''; const AFirmado: Boolean = False): Boolean;
|
||||
end;
|
||||
|
||||
TFacturasClienteReportController = class(TControllerBase, IFacturasClienteReportController)
|
||||
@ -25,7 +25,7 @@ type
|
||||
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''; const AFirmado: Boolean = False): Boolean;
|
||||
end;
|
||||
|
||||
|
||||
@ -57,8 +57,7 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TFacturasClienteReportController.ExportToPDF(const AID: Integer;
|
||||
const AFileName: String): Boolean;
|
||||
function TFacturasClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; const AFirmado: Boolean): Boolean;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
@ -68,7 +67,7 @@ begin
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptPDFFactura(AID);
|
||||
AStream := FDataModule.GetRptPDFFactura(AID, AFirmado);
|
||||
try
|
||||
AStream.SaveToFile(AFileName);
|
||||
Result := True;
|
||||
|
||||
@ -34,7 +34,7 @@ type
|
||||
|
||||
// Report
|
||||
function GetReport(const AListaID: TIntegerList): Binary;
|
||||
function GetRptPDFFactura(const AID: Integer): Binary;
|
||||
function GetRptPDFFactura(const AID: Integer; const Firmado: Boolean = false): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -42,7 +42,7 @@ implementation
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
FactuGES_Intf, uFactuGES_App, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
schFacturasClienteClient_Intf, uBizContactos, Dialogs;
|
||||
|
||||
{ TdmPresupuestos }
|
||||
@ -65,18 +65,17 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.GetRptPDFFactura(const AID: Integer): Binary;
|
||||
function TDataModuleFacturasCliente.GetRptPDFFactura(const AID: Integer; const Firmado: Boolean): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := TIntegerArray.Create;
|
||||
try
|
||||
AParam.Add(AID);
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam)
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, AppFactuGES.UsuarioActivo.USERNAME, Firmado)
|
||||
finally
|
||||
FreeANDNIL(AParam)
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente;
|
||||
|
||||
@ -198,6 +198,15 @@
|
||||
<Target Name="Contabilidad_view:Make">
|
||||
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_view">
|
||||
<MSBuild Projects="Views\FacturasCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -252,23 +261,14 @@
|
||||
<Target Name="PresupuestosCliente_view:Make">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;PedidosProveedor_view;PresupuestosCliente_view;AlbCli_FacCli_relation" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;PedidosProveedor_view;PresupuestosCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;AlbCli_FacCli_relation:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;AlbCli_FacCli_relation:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -9,7 +9,7 @@ type
|
||||
IDataModuleFacturasClienteReport = interface
|
||||
['{F498AC70-AA38-4C06-B301-85A4AC0B210B}']
|
||||
function GetReport(const AListaID: TIntegerList): Binary;
|
||||
function GetRptPDFFactura(const AID: Integer): Binary;
|
||||
function GetRptPDFFactura(const AID: Integer; const Firmado: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturas = '{35EC352F-3CB5-431C-941C-773B56FC9C17}';
|
||||
RID_FacturasCliente = '{EE5C9C18-5B51-475E-9CFC-A2F163B0F368}';
|
||||
RID_FacturasCliente_Detalles = '{CECC09E5-CA18-4B27-A693-F38FD2708E6E}';
|
||||
RID_ListaAnosFacturas = '{AA9E9DF8-6E40-4A04-9F56-47B64CB31051}';
|
||||
RID_FacturasCliente = '{35ABCCE5-A88B-4859-859C-7D64631B8A39}';
|
||||
RID_FacturasCliente_Detalles = '{A1647325-0E90-4395-B301-CA5855F4360C}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
@ -167,7 +167,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{35B9CF8B-1998-4510-99B1-1EC13710F8AB}']
|
||||
['{6F39FFB6-319E-466C-A13F-451029BC363F}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -202,7 +202,7 @@ type
|
||||
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{ADFA571C-3DA5-4B91-A0A9-35AFF4CC2018}']
|
||||
['{7C87FE37-C098-4355-990B-2693BC995665}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -849,7 +849,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{1DBA415D-060E-4E81-99F9-6BBC34A48D3E}']
|
||||
['{8FE5D0B5-031E-4B7C-9CEB-B2ED7A7201D5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturasDelta = '{AF9DCBE5-965F-4954-B3E3-028464D75916}';
|
||||
RID_FacturasClienteDelta = '{F7ACAA8D-6710-4ECA-8FBF-0341136DF2CB}';
|
||||
RID_FacturasCliente_DetallesDelta = '{D779175D-1E98-4B6B-9059-BEC7DCD94A11}';
|
||||
RID_ListaAnosFacturasDelta = '{625CABDC-50D6-4944-B22B-D3348700AFA2}';
|
||||
RID_FacturasClienteDelta = '{1B6A177E-8B9C-415E-94B1-5CBD0CF0FF05}';
|
||||
RID_FacturasCliente_DetallesDelta = '{A116A70B-8E0A-4216-9D6E-97820C5EB891}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{AF9DCBE5-965F-4954-B3E3-028464D75916}']
|
||||
['{625CABDC-50D6-4944-B22B-D3348700AFA2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{F7ACAA8D-6710-4ECA-8FBF-0341136DF2CB}']
|
||||
['{1B6A177E-8B9C-415E-94B1-5CBD0CF0FF05}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -697,7 +697,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{D779175D-1E98-4B6B-9059-BEC7DCD94A11}']
|
||||
['{A116A70B-8E0A-4216-9D6E-97820C5EB891}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
|
||||
@ -341,12 +341,15 @@ begin
|
||||
ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
|
||||
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
|
||||
|
||||
//OJO en empresa cristina no existe el la tienda de acana por lo que falla si cogen un cliente de acana
|
||||
//por eso comentamos esta asignación
|
||||
{
|
||||
if FCliente.ID_TIENDA > 0 then
|
||||
begin
|
||||
ID_TIENDA := FCliente.ID_TIENDA;
|
||||
TIENDA := FCliente.TIENDA;
|
||||
end;
|
||||
|
||||
}
|
||||
//Si el cliente tiene la contabilidad desactivada la factura que realizamos la desactivamos también.
|
||||
if (FCliente.IGNORAR_CONTABILIDAD = 1) then
|
||||
IGNORAR_CONTABILIDAD := 1;
|
||||
|
||||
@ -8,6 +8,12 @@ uses
|
||||
|
||||
const
|
||||
BIZ_SERVER_FACTURAS_CLIENTE = 'Server.FacturasCliente';
|
||||
REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
|
||||
REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
|
||||
REF_FACTURAS_PROFORMA = 'REF_FACTURAS_PROFORMA';
|
||||
CTE_TIPO_ABONO = 'A';
|
||||
CTE_TIPO_FACTURA = 'F';
|
||||
CTE_TIPO_PROFORMA = 'P';
|
||||
|
||||
type
|
||||
TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules)
|
||||
@ -30,13 +36,6 @@ uses
|
||||
Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer,
|
||||
schFacturasClienteClient_Intf, FactuGES_Intf, uROServer, SysUtils;
|
||||
|
||||
const
|
||||
REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
|
||||
REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
|
||||
REF_FACTURAS_PROFORMA = 'REF_FACTURAS_PROFORMA';
|
||||
CTE_TIPO_ABONO = 'A';
|
||||
CTE_TIPO_FACTURA = 'F';
|
||||
CTE_TIPO_PROFORMA = 'P';
|
||||
|
||||
{ TBizFacturasClienteServer }
|
||||
|
||||
|
||||
@ -377,7 +377,8 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'L'#10'from V_facturas_cliente'#10'left join contactos on (contactos.ID =' +
|
||||
' V_facturas_cliente.ID_CLIENTE)'#10'LEFT OUTER JOIN v_contactos_nomb' +
|
||||
'res ON (v_contactos_nombres.id = v_facturas_cliente.id_cliente)'#10 +
|
||||
'group by 1,2,3,4,5,6,7'#10'order by 1,5,6,7,2,4'#10
|
||||
'where (V_facturas_cliente.TIPO <> '#39'P'#39')'#10'group by 1,2,3,4,5,6,7'#10'or' +
|
||||
'der by 1,5,6,7,2,4'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -448,8 +449,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
@ -511,7 +511,8 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IVA, IMPORTE_IVA, RE, I' +
|
||||
'MPORTE_RE, IMPORTE_TOTAL'#10'from v_facturas_cliente'#10'LEFT OUTER JOIN' +
|
||||
' v_contactos_nombres ON (v_contactos_nombres.id = v_facturas_cli' +
|
||||
'ente.id_cliente)'#10'where {where}'#10'order by ANO, MES, REFERENCIA'#10#10
|
||||
'ente.id_cliente)'#10'where (V_facturas_cliente.TIPO <> '#39'P'#39')'#10'and {whe' +
|
||||
're}'#10#10'order by ANO, MES, REFERENCIA'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -795,32 +796,33 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
TargetTable = 'FACTURAS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' +
|
||||
' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.TIENDA' +
|
||||
', V_FACTURAS_CLIENTE.ID_TIENDA,'#10' V_FACTURAS_CLIENTE.IMPORTE_N' +
|
||||
'ETO,'#10' V_FACTURAS_CLIENTE.BASE_IMPONIBLE, V_FACTURAS_CLIENTE.D' +
|
||||
'ESCUENTO, V_FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_FACTURAS_C' +
|
||||
'LIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10' V_FACTURAS_CLIEN' +
|
||||
'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' +
|
||||
'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
|
||||
'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' +
|
||||
'CTURAS_CLIENTE.NIF_CIF,'#10' V_FACTURAS_CLIENTE.NOMBRE as NOMBRE,' +
|
||||
#10' V_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA,' +
|
||||
' V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,' +
|
||||
#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.EN' +
|
||||
'TIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_B' +
|
||||
'ANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRE' +
|
||||
'SAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRE' +
|
||||
'SAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPR' +
|
||||
'ESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIG' +
|
||||
'O_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPR' +
|
||||
'ESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGIN' +
|
||||
'A_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FAC' +
|
||||
'TURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEF' +
|
||||
'T JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FO' +
|
||||
'RMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BA' +
|
||||
'NCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'LEFT OUTER JOIN' +
|
||||
' v_contactos_nombres ON (v_contactos_nombres.id = V_FACTURAS_CLI' +
|
||||
'ENTE.id_cliente)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
|
||||
' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.TIPO,'#10 +
|
||||
' V_FACTURAS_CLIENTE.TIENDA, V_FACTURAS_CLIENTE.ID_TIENDA,'#10' ' +
|
||||
' V_FACTURAS_CLIENTE.IMPORTE_NETO,'#10' V_FACTURAS_CLIENTE.BASE_IM' +
|
||||
'PONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPORT' +
|
||||
'E_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPO' +
|
||||
'RTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_R' +
|
||||
'E,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.' +
|
||||
'OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS' +
|
||||
'_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.NIF_CIF,'#10' V_FACTU' +
|
||||
'RAS_CLIENTE.NOMBRE as NOMBRE,'#10' V_FACTURAS_CLIENTE.CALLE,'#10' ' +
|
||||
'V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, ' +
|
||||
'V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,' +
|
||||
#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SU' +
|
||||
'CURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.' +
|
||||
'CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMP' +
|
||||
'RESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESA' +
|
||||
'S.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROV' +
|
||||
'INCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10 +
|
||||
' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESA' +
|
||||
'S.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL,' +
|
||||
' EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON' +
|
||||
' EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.' +
|
||||
'ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS' +
|
||||
'_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENT' +
|
||||
'E.ID_CLIENTE)'#10'LEFT OUTER JOIN v_contactos_nombres ON (v_contacto' +
|
||||
's_nombres.id = V_FACTURAS_CLIENTE.id_cliente)'#10'WHERE V_FACTURAS_C' +
|
||||
'LIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -1010,6 +1012,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
DatasetField = 'ID_TIENDA'
|
||||
TableField = 'ID_TIENDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeFacturasCliente'
|
||||
@ -1031,6 +1037,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
@ -1815,6 +1826,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
UseFileCache = True
|
||||
ShowProgress = False
|
||||
OverwritePrompt = False
|
||||
EmbeddedFonts = True
|
||||
PrintOptimized = True
|
||||
Outline = False
|
||||
Background = False
|
||||
@ -1822,7 +1834,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Author = 'FactuGES'
|
||||
Subject = 'FactuGES'
|
||||
Creator = 'FactuGES'
|
||||
ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
|
||||
ProtectionFlags = [ePrint, eAnnot]
|
||||
HideToolbar = False
|
||||
HideMenubar = False
|
||||
HideWindowUI = False
|
||||
|
||||
@ -46,6 +46,7 @@ type
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
FIdEmpresa: Integer;
|
||||
FIdTienda: Integer;
|
||||
FFechaInicio: Variant;
|
||||
FFechaFin: Variant;
|
||||
FFechaVenInicio: Variant;
|
||||
@ -55,7 +56,7 @@ type
|
||||
FImporteMinimo: Currency;
|
||||
FDesglosado : Boolean;
|
||||
|
||||
//Genera cada uno de los albaranes a imprimir
|
||||
//Genera cada uno de las facturas a imprimir
|
||||
procedure _GenerarFactura(const ID: integer); overload;
|
||||
|
||||
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
|
||||
@ -66,7 +67,7 @@ type
|
||||
|
||||
public
|
||||
function GenerarFactura(const ListaID : TIntegerArray): Binary; overload;
|
||||
function GenerarFacturaEnPDF(const ListaID : TIntegerArray): Binary;
|
||||
function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const Usuario: AnsiString; const Firmado: Boolean): 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 GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -78,12 +79,12 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
|
||||
uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf, uBizFacturasClienteServer,
|
||||
uDataModuleServer, schFacturasClienteClient_Intf, schRecibosClienteClient_Intf;
|
||||
|
||||
const
|
||||
rptFacturaCliente = 'InfFacturaCliente.fr3';
|
||||
|
||||
rptFacturaProformaCliente = 'InfFacturaCliente_proforma.fr3';
|
||||
rptInformeIVA = 'InformeIVAClientes.fr3';
|
||||
rptInformeIVADesglosado = 'InformeIVAClientesDesglosado.fr3';
|
||||
rptInformeListadoFacturasCliente = 'InformeListadoFacturasCliente.fr3';
|
||||
@ -127,19 +128,39 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarFacturaEnPDF(
|
||||
const ListaID: TIntegerArray): Binary;
|
||||
function TRptFacturasCliente.GenerarFacturaEnPDF(const ListaID: TIntegerArray; const Usuario: AnsiString; const Firmado: Boolean): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
AStream : Binary;
|
||||
ARutaFichero, ANombreFichero, LlamadaBat : String;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
try
|
||||
//Inicializamos parametros
|
||||
|
||||
//Vamos generando todos y cada uno de los presupuestos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
_GenerarFactura(ListaID.Items[i]);
|
||||
begin
|
||||
_GenerarFactura(ListaID.Items[i]);
|
||||
ANombreFichero := frxReport.ReportOptions.Name + '_' + FormatDateTime('yyyymmdd_hhnnss_', now) + Usuario;
|
||||
if Firmado then
|
||||
ANombreFichero := ANombreFichero + 'firmado.pdf'
|
||||
else
|
||||
ANombreFichero := ANombreFichero + '.pdf';
|
||||
|
||||
frxPDFExport1.Stream := Result;
|
||||
frxReport.Export(frxPDFExport1)
|
||||
ANombreFichero := DarRutaPDFS + EscapeIllegalChars(ANombreFichero);
|
||||
frxPDFExport1.Stream := Result;
|
||||
frxReport.Export(frxPDFExport1);
|
||||
Result.SaveToFile(ANombreFichero);
|
||||
|
||||
if Firmado then
|
||||
begin
|
||||
ARutaFichero := DarRutaFichero(DarRutaInformes, 'firma_factura.bat ', IntToStr(FIdEmpresa), IntToStr(FIdTienda));
|
||||
LlamadaBat := ARutaFichero + '"' + ANombreFichero + '"';
|
||||
if ExecAndWait(LlamadaBat) then
|
||||
Result.LoadFromFile(ANombreFichero);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
@ -710,7 +731,13 @@ begin
|
||||
tbl_Detalles.Active := True;
|
||||
tbl_Vencimientos.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString);
|
||||
FIdEmpresa := tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger;
|
||||
FIdTienda := tbl_Cabecera.FieldByName('ID_TIENDA').AsInteger;
|
||||
if (tbl_Cabecera.FieldByName('TIPO').AsString = CTE_TIPO_PROFORMA) then
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProformaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString)
|
||||
else
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString);
|
||||
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
|
||||
|
||||
|
||||
@ -952,6 +952,12 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
@ -1118,24 +1124,25 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
TargetTable = 'FACTURAS_CLIENTE'
|
||||
SQL =
|
||||
'INSERT INTO FACTURAS_CLIENTE ('#10' ID,'#10' ID_EMPRESA,'#10' REFER' +
|
||||
'ENCIA,'#10' FECHA_FACTURA,'#10' FECHA_VENCIMIENTO,'#10' BASE_IMPONI' +
|
||||
'BLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_' +
|
||||
'IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONE' +
|
||||
'S,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLA' +
|
||||
'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' USUA' +
|
||||
'RIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' +
|
||||
'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' +
|
||||
','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' TIPO_FAC' +
|
||||
'TURA,'#10' SITUACION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :R' +
|
||||
'EFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE' +
|
||||
'_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' ' +
|
||||
' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' ' +
|
||||
' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' ' +
|
||||
' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' ' +
|
||||
' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECA' +
|
||||
'RGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPO' +
|
||||
'RTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CO' +
|
||||
'NTRATO,'#10' :SIN_COMISION,'#10' :TIPO_FACTURA,'#10' :SITUACION);'#10
|
||||
'ENCIA,'#10' TIPO,'#10' FECHA_FACTURA,'#10' FECHA_VENCIMIENTO,'#10' B' +
|
||||
'ASE_IMPONIBLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' ' +
|
||||
' IMPORTE_IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OB' +
|
||||
'SERVACIONES,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,' +
|
||||
#10' POBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA' +
|
||||
','#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ' +
|
||||
'ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CO' +
|
||||
'NTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' ' +
|
||||
' TIPO_FACTURA,'#10' SITUACION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRE' +
|
||||
'SA,'#10' :REFERENCIA,'#10' :TIPO,'#10' :FECHA_FACTURA,'#10' :FECHA_V' +
|
||||
'ENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DE' +
|
||||
'SCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' ' +
|
||||
' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF' +
|
||||
'_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' ' +
|
||||
' :CODIGO_POSTAL,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_' +
|
||||
'FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IM' +
|
||||
'PORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :' +
|
||||
'ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :TIPO_FACTUR' +
|
||||
'A,'#10' :SITUACION);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -36,7 +36,7 @@ type
|
||||
protected
|
||||
{ IsrvFacturasCliente methods }
|
||||
function GenerateReport(const FacturaID: TIntegerArray): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const Usuario: AnsiString; const Firmado: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -78,14 +78,13 @@ begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GenerarInformeEnPDF(
|
||||
const ListaID: TIntegerArray): Binary;
|
||||
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const Usuario: AnsiString; const Firmado: Boolean): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID);
|
||||
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, Usuario, Firmado);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -49,45 +49,45 @@
|
||||
<DelphiCompile Include="FacturasCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\designide.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_model.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="..\JvCtrlsD11R.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="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
|
||||
<Form>fEditorElegirArticulosFacturaCliente</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -184,14 +184,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 310
|
||||
end
|
||||
inherited frViewObservaciones1: TfrViewObservaciones
|
||||
Width = 521
|
||||
Width = 785
|
||||
Height = 228
|
||||
ExplicitWidth = 521
|
||||
ExplicitWidth = 785
|
||||
ExplicitHeight = 228
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
ExplicitWidth = 785
|
||||
Height = 228
|
||||
Width = 521
|
||||
Width = 785
|
||||
end
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
|
||||
@ -59,7 +59,11 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
object TBXItem41: TTBXItem [13]
|
||||
object TBXItem44: TTBXItem [13]
|
||||
Action = actGenerarPDF
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXItem41: TTBXItem [14]
|
||||
Action = actEnviarMail
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
@ -227,14 +231,14 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
Width = 263
|
||||
end
|
||||
inherited txtFiltroTodo2: TcxTextEdit
|
||||
Left = 459
|
||||
Left = 473
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 459
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
ExplicitLeft = 473
|
||||
ExplicitWidth = 223
|
||||
Width = 223
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -333,6 +337,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
OnExecute = actConvertirEnFacturaExecute
|
||||
OnUpdate = actConvertirEnFacturaUpdate
|
||||
end
|
||||
object actGenerarPDF: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Generar PDF'
|
||||
ImageIndex = 28
|
||||
OnExecute = actGenerarPDFExecute
|
||||
OnUpdate = actGenerarPDFUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
PngImages = <
|
||||
@ -1118,6 +1129,29 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
00000049454E44AE426082}
|
||||
Name = 'PngImage27'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001F04944415478DA
|
||||
633CC0C0F09F0109C83939313CDAB70F5988C181818191C1600644DD850C4664
|
||||
3946900162D7AEC1053872721838972E85F36F4A4A323818CC60A82CF062689F
|
||||
B00DB7011C1C1C0C9C9C9C0CDFA3A31924B76E65F8F1E307184B7A6E64583825
|
||||
99E1C69DE70C4B561C64F8F1F3EFC5D7EF7F78030D7A8A6280A0A020D890F7C1
|
||||
C10C826BD7824D17745C09D70C03627C2C0C959D5BBF000DD20019023640FDF9
|
||||
7314CD201AE48DF7EFDF3368451D62F075D365D0D19265B872ED3198FEF3F90D
|
||||
C3C2F597B7BEDA17EF0337000440CEC70694DE85810DD9BCEB32DC305878800D
|
||||
00853C08806CFDFEFD3B42674A0A38462E2FDACE90DBF7102CB4A0568361ED49
|
||||
568663276F31BC3D98883000E66474F04A4B8BC1F6DF3F14B182CEDD0CF3363D
|
||||
66F87A3C8591B15842F33F0301D0F5EC2A0ABF6DC6368629EBDE3148311F6760
|
||||
24A479F2A2EDFFB362DC19983E9D67B8BFDC98412AF402C3EC6DCF19E62DDD04
|
||||
4907C41AF0772D1303AB453CC3FD2D0B197823BE307CFFF18BC13FA19A380372
|
||||
FC2480B61B3228DA3330DC3FC8C0C0E27E95E13B83284344663D7106787FF564
|
||||
50F4896760F8BC90E1FD3B06860F9719183EDA3F61482A6C25CE00BD279E18E2
|
||||
CCEEF71872ABBA893320C4D30AE8E7DF0CDFBEFF66F8FAFD17C337A0FF41A0A8
|
||||
AE8F380360218E0D000074D3EB115697A8140000000049454E44AE426082}
|
||||
Name = 'PngImage28'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 395
|
||||
Bitmap = {}
|
||||
@ -4766,4 +4800,8 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
Left = 136
|
||||
Top = 144
|
||||
end
|
||||
object JSDialog1: TJSDialog
|
||||
Left = 104
|
||||
Top = 320
|
||||
end
|
||||
end
|
||||
|
||||
@ -45,18 +45,23 @@ type
|
||||
actNuevaProforma: TAction;
|
||||
JsNuevaProformaDialog: TJSDialog;
|
||||
actConvertirEnFactura: TAction;
|
||||
JSDialog1: TJSDialog;
|
||||
actGenerarPDF: TAction;
|
||||
TBXItem44: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure actNuevaFacturaExecute(Sender: TObject);
|
||||
procedure actNuevaProformaExecute(Sender: TObject);
|
||||
procedure actNuevoAbonoExecute(Sender: TObject);
|
||||
procedure actInformesExecute(Sender: TObject);
|
||||
procedure OnListaAnosChange(Sender: TObject; const Text: string);
|
||||
procedure actEnviarMailUpdate(Sender: TObject);
|
||||
procedure actEnviarMailExecute(Sender: TObject);
|
||||
procedure actCambiarSituacionExecute(Sender: TObject);
|
||||
procedure actNuevaProformaExecute(Sender: TObject);
|
||||
procedure actConvertirEnFacturaExecute(Sender: TObject);
|
||||
procedure actConvertirEnFacturaUpdate(Sender: TObject);
|
||||
procedure actGenerarPDFExecute(Sender: TObject);
|
||||
procedure actGenerarPDFUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
FFacturas: IBizFacturaCliente;
|
||||
@ -195,6 +200,58 @@ begin
|
||||
(Sender as TAction).Enabled := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.actGenerarPDFExecute(Sender: TObject);
|
||||
var
|
||||
ACadena : String;
|
||||
AFacturas: IBizFacturaCliente;
|
||||
AllItems: Boolean;
|
||||
AListaCausas: TStringList;
|
||||
AFirmar: Boolean;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
AFacturas := Nil;
|
||||
AFirmar := False;
|
||||
AllItems := False;
|
||||
AListaCausas := TStringList.Create;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
|
||||
if AllItems then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
|
||||
AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente;
|
||||
|
||||
if (Application.MessageBox('¿Desea firmar digitalmente las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
|
||||
AFirmar := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
AFacturas := Facturas;
|
||||
|
||||
if Facturas.TIPO = CTE_TIPO_FACTURA then
|
||||
ACadena := '¿Desea firmar digitalmente esta factura de cliente?'
|
||||
else
|
||||
ACadena := '¿Desea firmar digitalmente este abono a cliente?';
|
||||
|
||||
if (Application.MessageBox(PChar(ACadena), 'Atención', MB_YESNO) = IDYES) then
|
||||
AFirmar := True;
|
||||
end;
|
||||
|
||||
FController.GenerarPDF(AFacturas, AllItems, AFirmar);
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.actGenerarPDFUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if HayDatos and Assigned(ViewGrid) then
|
||||
(Sender as TAction).Enabled := ViewGrid.EsSeleccionCeldaDatos
|
||||
and (ViewGrid.NumSeleccionados > 0)
|
||||
else
|
||||
(Sender as TAction).Enabled := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.actInformesExecute(Sender: TObject);
|
||||
var
|
||||
Respuesta : Integer;
|
||||
@ -250,9 +307,12 @@ begin
|
||||
GenerarFacturaCli(CTE_TIPO_PROFORMA);
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
100 : begin // Factura nueva vacia
|
||||
if FController.AnadirProforma(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
100 : begin // Factura nueva vacia, No funciona como el abono al hacer post me quita el insert en la tabla general
|
||||
//optamos por generar objeto nuevo y refrescar despues, "menos óptimo"
|
||||
// if FController.AnadirProforma(Facturas) then
|
||||
// FController.Ver(Facturas);
|
||||
FController.Ver(FController.AnadirProforma);
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 705
|
||||
Height = 497
|
||||
Width = 1081
|
||||
Height = 551
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 705
|
||||
Height = 497
|
||||
Width = 1081
|
||||
Height = 551
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
@ -20,8 +20,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
705
|
||||
497)
|
||||
1081
|
||||
551)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 30
|
||||
@ -98,7 +98,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 78
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 311
|
||||
Left = 410
|
||||
Top = 135
|
||||
Width = 132
|
||||
Height = 23
|
||||
@ -126,7 +126,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 351
|
||||
Height = 63
|
||||
ExplicitWidth = 351
|
||||
ExplicitWidth = 421
|
||||
ExplicitHeight = 63
|
||||
inherited cbTienda: TcxComboBox
|
||||
ExplicitWidth = 399
|
||||
@ -135,7 +135,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
end
|
||||
inline frViewClienteFactura1: TfrViewClienteFactura
|
||||
Left = 471
|
||||
Left = 570
|
||||
Top = 30
|
||||
Width = 398
|
||||
Height = 265
|
||||
@ -147,14 +147,14 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 471
|
||||
ExplicitLeft = 570
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 398
|
||||
ExplicitHeight = 265
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 398
|
||||
Height = 265
|
||||
ExplicitWidth = 398
|
||||
ExplicitWidth = 101
|
||||
ExplicitHeight = 265
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
@ -177,12 +177,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 192
|
||||
ExplicitLeft = 192
|
||||
Left = 397
|
||||
ExplicitLeft = 397
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 82
|
||||
ExplicitLeft = 82
|
||||
Left = 287
|
||||
ExplicitLeft = 287
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
@ -231,7 +231,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitHeight = 228
|
||||
ExplicitWidth = 550
|
||||
ExplicitHeight = 20
|
||||
Height = 228
|
||||
end
|
||||
end
|
||||
|
||||
@ -184,6 +184,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
object cxGridPagadas: TcxGridLevel
|
||||
Caption = 'Pagadas'
|
||||
end
|
||||
object cxGridProforma: TcxGridLevel
|
||||
Caption = 'Proformas'
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 802
|
||||
@ -261,6 +264,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actProvincia
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actTienda
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -68,6 +68,9 @@ type
|
||||
cxStyleProforma: TcxStyle;
|
||||
actTienda: TAction;
|
||||
actFormaPago: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
cxGridProforma: TcxGridLevel;
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
@ -193,9 +196,20 @@ begin
|
||||
FFiltro := AddFilterGrid(fboAnd);
|
||||
|
||||
case cxGrid.ActiveLevel.Index of
|
||||
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);
|
||||
0 : FFiltro.AddItem(cxGridViewTIPO, foNotEqual, CTE_TIPO_PROFORMA, CTE_TIPO_PROFORMA);
|
||||
1 : Begin
|
||||
FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
|
||||
FFiltro.AddItem(cxGridViewTIPO, foNotEqual, CTE_TIPO_PROFORMA, CTE_TIPO_PROFORMA);
|
||||
End;
|
||||
2 : Begin
|
||||
FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA);
|
||||
FFiltro.AddItem(cxGridViewTIPO, foNotEqual, CTE_TIPO_PROFORMA, CTE_TIPO_PROFORMA);
|
||||
End;
|
||||
3 : Begin
|
||||
FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
|
||||
FFiltro.AddItem(cxGridViewTIPO, foNotEqual, CTE_TIPO_PROFORMA, CTE_TIPO_PROFORMA);
|
||||
End;
|
||||
4 : FFiltro.AddItem(cxGridViewTIPO, foEqual, CTE_TIPO_PROFORMA, CTE_TIPO_PROFORMA);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -216,6 +230,9 @@ end;
|
||||
procedure TfrViewFacturasCliente.ConfigView;
|
||||
begin
|
||||
inherited;
|
||||
//Para que nos filtre la pestaña todas y quite las facturas proforma
|
||||
AnadirOtrosFiltros;
|
||||
|
||||
//Solo para aliso
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ALISO) then
|
||||
begin
|
||||
|
||||
@ -94,7 +94,7 @@ var
|
||||
AClientID : TGUID;
|
||||
ATipo : String;
|
||||
begin
|
||||
//No se hace distinción en la referencia entre facturas y abonos
|
||||
//No se hace distinción en la referencia entre facturas y abonos (factura rectificativa)
|
||||
// if TIPO = CTE_TIPO_FACTURA then
|
||||
ATipo := REF_FACTURAS_PROVEEDOR;
|
||||
// else
|
||||
|
||||
@ -277,6 +277,11 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actFormaPago
|
||||
end
|
||||
object TBXSeparatorItem4: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem5: TTBXItem
|
||||
Action = actTienda
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -304,6 +309,11 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
OnExecute = actFormaPagoExecute
|
||||
OnUpdate = actFormaPagoUpdate
|
||||
end
|
||||
object actTienda: TAction
|
||||
Caption = 'Tienda'
|
||||
OnExecute = actTiendaExecute
|
||||
OnUpdate = actTiendaUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -64,6 +64,9 @@ type
|
||||
actFormaPago: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
actTienda: TAction;
|
||||
TBXSeparatorItem4: TTBXSeparatorItem;
|
||||
TBXItem5: TTBXItem;
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
@ -74,6 +77,8 @@ type
|
||||
procedure actProvinciaUpdate(Sender: TObject);
|
||||
procedure actFormaPagoExecute(Sender: TObject);
|
||||
procedure actFormaPagoUpdate(Sender: TObject);
|
||||
procedure actTiendaExecute(Sender: TObject);
|
||||
procedure actTiendaUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -159,6 +164,26 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasProveedor.actTiendaExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewTIENDA.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := -1;
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasProveedor.actTiendaUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasProveedor.AnadirFiltroFechas;
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
|
||||
@ -61,6 +61,7 @@ type
|
||||
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
|
||||
procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
|
||||
Procedure AsignarContrato(APedido: IBizPedidoProveedor; const ID_CONTRATO: Integer; AReferencia, ANombreCliente: String);
|
||||
procedure AsignarTienda(APedido: IBIzPedidoProveedor; const ID_TIENDA: Integer);
|
||||
end;
|
||||
|
||||
TPedidosProveedorController = class(TControllerBase, IPedidosProveedorController)
|
||||
@ -135,6 +136,7 @@ type
|
||||
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
|
||||
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
|
||||
Procedure AsignarContrato(APedido: IBizPedidoProveedor; const ID_CONTRATO: Integer; AReferencia, ANombreCliente: String);
|
||||
procedure AsignarTienda(APedido: IBIzPedidoProveedor; const ID_TIENDA: Integer);
|
||||
|
||||
function DarListaAnosPedidos: TStringList;
|
||||
procedure FiltrarAno(APedido: IBizPedidoProveedor; ADynWhereDataTable: WideString; const Ano: String);
|
||||
@ -189,6 +191,32 @@ begin
|
||||
FDataModule := TDataModulePedidosProveedor.Create(Nil);
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.AsignarTienda(
|
||||
APedido: IBIzPedidoProveedor; const ID_TIENDA: Integer);
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('APedido no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
bEnEdicion := (APedido.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
APedido.Edit;
|
||||
|
||||
APedido.DataTable.Edit;
|
||||
APedido.ID_TIENDA := ID_TIENDA;
|
||||
|
||||
if not bEnEdicion then
|
||||
APedido.Post;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||
begin
|
||||
Result := FDataModule.GetItem(ID);
|
||||
|
||||
@ -329,14 +329,6 @@ begin
|
||||
DataTable.Edit;
|
||||
|
||||
ID_PROVEEDOR := FProveedor.ID;
|
||||
|
||||
if FProveedor.ID_TIENDA > 0 then
|
||||
begin
|
||||
ID_TIENDA := FProveedor.ID_TIENDA;
|
||||
TIENDA := FProveedor.TIENDA;
|
||||
end;
|
||||
|
||||
|
||||
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
|
||||
//si se quita el id de la cabecera y los detalles se desincroniza
|
||||
if bEnEdicion then
|
||||
|
||||
@ -80,7 +80,8 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.DarNuevaReferencia(REF_PEDIDOS_PROVEEDOR, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
// Result := AReferenciasService.DarNuevaReferencia(REF_PEDIDOS_PROVEEDOR, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
Result := AReferenciasService.DarNuevaReferencia(REF_PEDIDOS_PROVEEDOR, ID_EMPRESA, ID_TIENDA); //Referencia diferente según tienda
|
||||
end;
|
||||
|
||||
function TBizPedidosProveedorServer.IncrementarReferencia: Boolean;
|
||||
@ -93,7 +94,8 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.IncrementarValorReferencia(REF_PEDIDOS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
// Result := AReferenciasService.IncrementarValorReferencia(REF_PEDIDOS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, -1); //Referencia común a todas las tiendas de la empresa
|
||||
Result := AReferenciasService.IncrementarValorReferencia(REF_PEDIDOS_PROVEEDOR, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA); //Referencia diferente según tienda
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -49,28 +49,28 @@
|
||||
<DelphiCompile Include="PedidosProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="..\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
|
||||
<Form>fEditorDireccionEntregaPedidoProveedor</Form>
|
||||
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>
|
||||
|
||||
@ -107,31 +107,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
ExplicitHeight = 463
|
||||
inherited frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
|
||||
Left = 551
|
||||
Width = 357
|
||||
ExplicitLeft = 551
|
||||
ExplicitWidth = 357
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 357
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
ExplicitWidth = 176
|
||||
Width = 176
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 237
|
||||
ExplicitLeft = 237
|
||||
@ -142,30 +119,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited edtFechaPedido: TcxDBDateEdit
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited edtFechaConfirmacion: TcxDBDateEdit
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited edtFechaEntrega: TcxDBDateEdit
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
|
||||
Width = 273
|
||||
Height = 166
|
||||
ExplicitWidth = 273
|
||||
ExplicitHeight = 166
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 273
|
||||
Height = 166
|
||||
inherited rdxDestino1: TRadioButton
|
||||
Width = 253
|
||||
ExplicitWidth = 253
|
||||
@ -203,8 +158,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 323
|
||||
ExplicitWidth = 183
|
||||
Width = 183
|
||||
end
|
||||
inherited eNumBultos: TcxDBSpinEdit
|
||||
Left = 401
|
||||
@ -212,60 +165,24 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 389
|
||||
ExplicitLeft = 389
|
||||
end
|
||||
inherited edtFechaEnvio: TcxDBDateEdit
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited eReferenciaContratoCli: TcxTextEdit
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
inherited Button1: TButton
|
||||
Left = 421
|
||||
ExplicitLeft = 421
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Left = 551
|
||||
Width = 357
|
||||
Enabled = True
|
||||
ExplicitLeft = 551
|
||||
ExplicitWidth = 357
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 357
|
||||
inherited cbTienda: TcxComboBox
|
||||
ExplicitWidth = 390
|
||||
Width = 390
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewObservaciones1: TfrViewObservaciones
|
||||
Width = 422
|
||||
ExplicitWidth = 422
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataSource = frViewPedidoProveedor1.DADataSource
|
||||
Width = 422
|
||||
end
|
||||
end
|
||||
inherited edtlDescripcion: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtFechaEnvio2: TcxDBDateEdit
|
||||
ExplicitWidth = 257
|
||||
Width = 257
|
||||
end
|
||||
inherited cbVendedor: TcxDBLookupComboBox
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited Button2: TButton
|
||||
Left = 315
|
||||
ExplicitLeft = 315
|
||||
@ -523,8 +440,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 164
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 93
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 636
|
||||
@ -532,8 +447,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 636
|
||||
ExplicitTop = 88
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 566
|
||||
@ -541,8 +454,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 566
|
||||
ExplicitTop = 142
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Left = 93
|
||||
@ -564,8 +475,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 565
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 565
|
||||
@ -584,8 +493,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 636
|
||||
ExplicitTop = 115
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
@ -593,8 +500,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
@ -603,8 +508,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Left = 93
|
||||
@ -613,8 +516,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
DataBinding.DataSource = nil
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 81
|
||||
Width = 81
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 305
|
||||
@ -628,8 +529,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
DataBinding.DataField = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 119
|
||||
ExplicitWidth = 219
|
||||
Width = 219
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
|
||||
@ -219,8 +219,12 @@ end;
|
||||
procedure TfEditorPedidoProveedor.OnProveedorChanged(Sender: TObject);
|
||||
begin
|
||||
FPedido.Proveedor := ViewPedido.ViewProveedorPedido.Proveedor;
|
||||
|
||||
if (ShowConfirmMessage('Atención tienda asignada', '¿Desea actualizar la tienda a la pertenece el pedido en base a la tienda a la que pertenece el proveedor seleccionado?') = IDYES) then
|
||||
FController.AsignarTienda(FPedido, FPedido.Proveedor.ID_TIENDA);
|
||||
|
||||
frViewPedidoProveedor1.frViewTienda1.ElegirTienda(FPedido.ID_TIENDA);
|
||||
|
||||
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos y otros campos
|
||||
// para los artículos hay que cambiarlos.
|
||||
// if (FPedido.Detalles.RecordCount > 0) then
|
||||
|
||||
@ -113,6 +113,7 @@ type
|
||||
|
||||
function DarListaAnosPresupuestos: TStringList;
|
||||
procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String);
|
||||
procedure FechaUltimaActualizacionToday (APresupuesto: IBizPresupuestoCliente);
|
||||
end;
|
||||
|
||||
TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController)
|
||||
@ -189,6 +190,7 @@ type
|
||||
|
||||
function DarListaAnosPresupuestos: TStringList;
|
||||
procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String);
|
||||
procedure FechaUltimaActualizacionToday (APresupuesto: IBizPresupuestoCliente);
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -782,9 +784,7 @@ begin
|
||||
if not Assigned(APresupuesto) then
|
||||
raise Exception.Create ('Presupuesto no asignado (EsModificable)');
|
||||
|
||||
//Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE);
|
||||
|
||||
Result := True;
|
||||
Result := (APresupuesto.SITUACION <> SITUACION_PRESUPUESTO_PLANTILLA);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteController.RecalcularImportes(
|
||||
@ -870,6 +870,32 @@ begin
|
||||
Result := ASeleccionados;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteController.FechaUltimaActualizacionToday(APresupuesto: IBizPresupuestoCliente);
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
begin
|
||||
if not Assigned(APresupuesto) then
|
||||
raise Exception.Create ('Contrato no asignado (CopiarDireccion)');
|
||||
|
||||
if APresupuesto.DataTable.Active then
|
||||
APresupuesto.DataTable.Active := True;
|
||||
|
||||
bEnEdicion := (APresupuesto.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
APresupuesto.Edit;
|
||||
|
||||
ShowHourglassCursor;
|
||||
APresupuesto.Edit;
|
||||
try
|
||||
APresupuesto.FECHA_ULT_PRESENTACION_CLIENTE := DateOf(Date);
|
||||
|
||||
if not bEnEdicion then
|
||||
APresupuesto.Post;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteController.FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString;const Ano: String);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
@ -308,6 +308,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
Size = 255
|
||||
DisplayLabel = 'Otros nombres'
|
||||
DictionaryEntry = 'PresupuestosCliente_LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,12 +9,12 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{B97FDFCF-3DC5-4FBD-A7CA-D8410AE6D1A2}';
|
||||
RID_Propiedades = '{EC5DE5CF-02CE-44C1-B361-0AAFF7B78ADC}';
|
||||
RID_ListaAnosPresupuestos = '{92B72FB6-5806-4F60-A078-A8BF296A4802}';
|
||||
RID_PresupuestosCliente = '{5F381B4C-4432-4E10-B498-A9D9093769AC}';
|
||||
RID_CapitulosPresupuesto = '{ABB90CA8-CFFC-4FA2-94D3-FE61B70DE842}';
|
||||
RID_PresupuestosCliente_Detalles = '{215F3858-E25C-4697-B36E-6E4862292811}';
|
||||
RID_Valores = '{1C137EA2-79F9-4B4C-905B-31E2F3118006}';
|
||||
RID_Propiedades = '{A64DFA30-E2C1-4317-B535-D2FEC9DD5FDC}';
|
||||
RID_ListaAnosPresupuestos = '{AFF490F1-4DC0-4717-B4A1-1C66A8BE0B61}';
|
||||
RID_PresupuestosCliente = '{CC490968-9BAD-41E4-81CB-A6EEBFE5F382}';
|
||||
RID_CapitulosPresupuesto = '{2F44DC36-32F6-45B9-85D6-3D793A9F4AE2}';
|
||||
RID_PresupuestosCliente_Detalles = '{C95D5B67-4EC8-4B81-A498-2104C61C977C}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -101,6 +101,7 @@ const
|
||||
fld_PresupuestosClienteCALIDADES = 'CALIDADES';
|
||||
fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||
fld_PresupuestosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
|
||||
fld_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE = 'FECHA_ULT_PRESENTACION_CLIENTE';
|
||||
|
||||
{ PresupuestosCliente field indexes }
|
||||
idx_PresupuestosClienteID = 0;
|
||||
@ -147,6 +148,7 @@ const
|
||||
idx_PresupuestosClienteCALIDADES = 41;
|
||||
idx_PresupuestosClienteREFERENCIA_CLIENTE = 42;
|
||||
idx_PresupuestosClienteLISTA_NOMBRES = 43;
|
||||
idx_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE = 44;
|
||||
|
||||
{ CapitulosPresupuesto fields }
|
||||
fld_CapitulosPresupuestoID = 'ID';
|
||||
@ -219,7 +221,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{1F250F6D-3212-402A-9D52-3FFEF4F656F4}']
|
||||
['{D66A0BC2-1BB9-4699-8E7A-786E0205A42D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -326,7 +328,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{0986E005-7249-4D17-80E3-4D7E14429CCB}']
|
||||
['{5CA94698-11F6-4DAB-82E2-7BC712E7E4D8}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -373,7 +375,7 @@ type
|
||||
|
||||
{ IListaAnosPresupuestos }
|
||||
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
|
||||
['{F1CE9770-4F7E-47B9-9E11-CF91133C609D}']
|
||||
['{B695311B-59BC-4222-B586-5CE4E46426D5}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -408,7 +410,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente }
|
||||
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{632DB14E-4E7E-4FBA-BAB3-0E0A4F4358F1}']
|
||||
['{B2C60249-0034-42C6-ACB9-E6AF356420DD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -581,6 +583,10 @@ type
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String);
|
||||
function GetLISTA_NOMBRESIsNull: Boolean;
|
||||
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -672,6 +678,8 @@ type
|
||||
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
|
||||
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
end;
|
||||
|
||||
{ TPresupuestosClienteDataTableRules }
|
||||
@ -860,6 +868,10 @@ type
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
|
||||
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
|
||||
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -950,6 +962,8 @@ type
|
||||
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
|
||||
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -959,7 +973,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuesto }
|
||||
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
|
||||
['{AE4D0841-3455-4F06-BCC4-F5CB620D6E6F}']
|
||||
['{8DDBB981-6B18-428A-9F4E-FF4BE6283AD4}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1114,7 +1128,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_Detalles }
|
||||
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{2DD0D791-E9A1-4501-8382-B10F87D19770}']
|
||||
['{D156932E-C94A-4BD6-A3CF-B3EF3166E76E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2575,6 +2589,27 @@ begin
|
||||
DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TCapitulosPresupuestoDataTableRules }
|
||||
constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{8A602FA2-F0F7-48FF-9D5C-450DD49824A0}';
|
||||
RID_PropiedadesDelta = '{ED1FE07A-4D3A-42CA-B260-9C0F63280666}';
|
||||
RID_ListaAnosPresupuestosDelta = '{1C36675B-4471-4B14-BE62-E6B8B99DBBC9}';
|
||||
RID_PresupuestosClienteDelta = '{FB71F4AF-2DC1-41AF-BB17-E817422E50C9}';
|
||||
RID_CapitulosPresupuestoDelta = '{FE29C9E0-026F-4C67-8D59-3D9ECA83E94E}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{E0A8A450-F599-49A7-80FA-05390499C535}';
|
||||
RID_ValoresDelta = '{F1287920-FCBE-4504-9B47-E59123D3BDA3}';
|
||||
RID_PropiedadesDelta = '{EC69B037-7162-4B60-B280-DC0BE4C2C763}';
|
||||
RID_ListaAnosPresupuestosDelta = '{1F8FFF3A-9750-4D9F-944E-3B5A4696FD1C}';
|
||||
RID_PresupuestosClienteDelta = '{F7B626AE-70AA-4FEB-8E94-9B5D049DBF5B}';
|
||||
RID_CapitulosPresupuestoDelta = '{CDA86224-B80C-4EE6-BA08-1FBE48C27FE6}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{F7A55A7B-967E-410C-AA6D-C1D14E2D57DD}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{8A602FA2-F0F7-48FF-9D5C-450DD49824A0}']
|
||||
['{F1287920-FCBE-4504-9B47-E59123D3BDA3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -125,7 +125,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{ED1FE07A-4D3A-42CA-B260-9C0F63280666}']
|
||||
['{EC69B037-7162-4B60-B280-DC0BE4C2C763}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -171,7 +171,7 @@ type
|
||||
|
||||
{ IListaAnosPresupuestosDelta }
|
||||
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
|
||||
['{1C36675B-4471-4B14-BE62-E6B8B99DBBC9}']
|
||||
['{1F8FFF3A-9750-4D9F-944E-3B5A4696FD1C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -205,7 +205,7 @@ type
|
||||
|
||||
{ IPresupuestosClienteDelta }
|
||||
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
||||
['{FB71F4AF-2DC1-41AF-BB17-E817422E50C9}']
|
||||
['{F7B626AE-70AA-4FEB-8E94-9B5D049DBF5B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -251,6 +251,7 @@ type
|
||||
function GetOldCALIDADESValue : IROStrings;
|
||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||
function GetOldLISTA_NOMBRESValue : String;
|
||||
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue : DateTime;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -297,6 +298,7 @@ type
|
||||
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
end;
|
||||
|
||||
{ TPresupuestosClienteBusinessProcessorRules }
|
||||
@ -573,6 +575,12 @@ type
|
||||
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
|
||||
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
|
||||
function GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -751,6 +759,10 @@ type
|
||||
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -760,7 +772,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuestoDelta }
|
||||
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
|
||||
['{FE29C9E0-026F-4C67-8D59-3D9ECA83E94E}']
|
||||
['{CDA86224-B80C-4EE6-BA08-1FBE48C27FE6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -914,7 +926,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_DetallesDelta }
|
||||
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
||||
['{E0A8A450-F599-49A7-80FA-05390499C535}']
|
||||
['{F7A55A7B-967E-410C-AA6D-C1D14E2D57DD}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
@ -2920,6 +2932,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE]);
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_ULT_PRESENTACION_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TCapitulosPresupuestoBusinessProcessorRules }
|
||||
constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user