Se añade requisito de maribel, la copia de factura nunca lleva sello
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@942 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
c97ada9964
commit
5792ad29d0
@ -1690,23 +1690,177 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Por defecto'
|
||||||
PrintOptions.PrintOnSheet = 0
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 37800.807714351900000000
|
ReportOptions.CreateDate = 39065.872423495400000000
|
||||||
ReportOptions.LastChange = 39840.805247928200000000
|
ReportOptions.LastChange = 39920.656640081000000000
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ScriptText.Strings = (
|
ScriptText.Strings = (
|
||||||
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
|
''
|
||||||
|
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'var'
|
||||||
|
' Cadena: String;'
|
||||||
'begin'
|
'begin'
|
||||||
' if Engine.FinalPass then'
|
'{ DatosEmpresa.Lines.Clear;'
|
||||||
' begin'
|
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
|
||||||
' if (<Page#> = <TotalPages#>) then'
|
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
|
||||||
' begin '
|
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
|
||||||
' mContinua.Visible := False;'
|
|
||||||
' end '
|
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
|
||||||
' else'
|
'">;'
|
||||||
' begin '
|
' DatosEmpresa.Lines.Add(Cadena);'
|
||||||
' mContinua.Visible := True;'
|
'}'
|
||||||
' end '
|
'end;'
|
||||||
' end; '
|
''
|
||||||
|
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
'{ NombreEmpresa.Lines.Clear;'
|
||||||
|
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
|
||||||
|
'}'
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'var'
|
||||||
|
' ACadena : String;'
|
||||||
|
'begin'
|
||||||
|
'{ ACadena := '#39#39';'
|
||||||
|
' DireccionEnvio.Lines.Clear;'
|
||||||
|
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
|
||||||
|
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
|
||||||
|
''
|
||||||
|
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
|
||||||
|
|
||||||
|
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
|
||||||
|
'O">;'
|
||||||
|
''
|
||||||
|
' DireccionEnvio.Lines.Add(ACadena);'
|
||||||
|
' ACadena := '#39#39';'
|
||||||
|
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||||
|
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
|
||||||
|
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
|
||||||
|
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
||||||
|
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
|
||||||
|
''
|
||||||
|
' if (ACadena <> '#39#39') then'
|
||||||
|
' DireccionEnvio.Lines.Add(ACadena);'
|
||||||
|
''
|
||||||
|
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
|
||||||
|
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
||||||
|
''
|
||||||
|
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
|
||||||
|
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
||||||
|
'}'
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' if not Engine.FinalPass then'
|
||||||
|
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
|
||||||
|
''
|
||||||
|
' if Engine.FinalPass then'
|
||||||
|
' Set('#39'Pagina'#39', (<Pagina> + 1)); '
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' Set('#39'Pagina'#39', 0);'
|
||||||
|
' Set('#39'TotalPaginas'#39', 0);'
|
||||||
|
' Set('#39'Capitulo'#39', 0);'
|
||||||
|
' Set('#39'NumCapitulos'#39', 0); '
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure Memo4OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
|
||||||
|
' Memo4.Visible := False; '
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure Memo22OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' if (<frxDBCabecera."DESCUENTO"> = 0) then'
|
||||||
|
' begin '
|
||||||
|
' Subtotal.Text := '#39'Base imponible:'#39';'
|
||||||
|
' BaseImponible.Text := '#39'Importe total:'#39'; '
|
||||||
|
' BaseImponible.Font.Style := fsBold;'
|
||||||
|
''
|
||||||
|
|
||||||
|
' ImpBaseImponible.Text := FormatFloat('#39'#,##0.00 '#8364#39', <frxDBCa' +
|
||||||
|
'becera."IMPORTE_TOTAL">);'
|
||||||
|
' ImpBaseImponible.Font.Style := fsBold; '
|
||||||
|
' '
|
||||||
|
' Descuento.Text := '#39'[<frxDBCabecera."IVA">]% IVA:'#39';'
|
||||||
|
' ImpDescuento.Text := '#39'[frxDBCabecera."IMPORTE_IVA"]'#39';'
|
||||||
|
' Memo11.Color := $00CCFFCC;'
|
||||||
|
''
|
||||||
|
' if (<frxDBCabecera."IMPORTE_RETENCION"> > 0) then'
|
||||||
|
' begin '
|
||||||
|
' BaseImponible.Text := '#39'Total certificaci'#243'n:'#39';'
|
||||||
|
|
||||||
|
' IVA.Text := FormatFloat('#39'#,##0.00 %'#39',<frxDBCabecera."RET' +
|
||||||
|
'ENCION">) + '#39' Retenci'#243'n:'#39'; '
|
||||||
|
|
||||||
|
' ImpIVA.Text := FormatFloat('#39'-#,##0.00 '#8364#39',<frxDBCabecera.' +
|
||||||
|
'"IMPORTE_RETENCION">);'
|
||||||
|
|
||||||
|
' ImporteTotal.Text := '#39'TOTAL FACTURA'#39'; ' +
|
||||||
|
' ' +
|
||||||
|
' '
|
||||||
|
|
||||||
|
' ImpImporteTotal.Text := FormatFloat('#39'#,##0.00 '#8364#39', (<frxD' +
|
||||||
|
'BCabecera."IMPORTE_TOTAL"> - <frxDBCabecera."IMPORTE_RETENCION">' +
|
||||||
|
')); '
|
||||||
|
' end '
|
||||||
|
' else'
|
||||||
|
' begin'
|
||||||
|
' IVA.Visible := False;'
|
||||||
|
' ImpIVA.Visible := False;'
|
||||||
|
' ImporteTotal.Visible := False;'
|
||||||
|
' ImpImporteTotal.Visible := False;'
|
||||||
|
' Memo16.Visible := False; '
|
||||||
|
' Memo17.Visible := False;'
|
||||||
|
' end;'
|
||||||
|
' end'
|
||||||
|
' else'
|
||||||
|
' begin '
|
||||||
|
' if (<frxDBCabecera."IMPORTE_RETENCION"> > 0) then'
|
||||||
|
' begin'
|
||||||
|
' ImporteTotal.Text := '#39'Total certificaci'#243'n:'#39'; '
|
||||||
|
' Retencion.Visible := True;'
|
||||||
|
' ImpRetencion.Visible := True;'
|
||||||
|
' LinRetencion.Visible := True; '
|
||||||
|
' TotalFacturaRet.Visible := True;'
|
||||||
|
' ImpTotalFacturaRet.Visible := True;'
|
||||||
|
' LinImporteTotalFacturaRet.Visible := True; '
|
||||||
|
' end'
|
||||||
|
' end '
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' Memo39.Clear; '
|
||||||
|
' if (<frxDBCabecera."TIPO"> = '#39'F'#39') then'
|
||||||
|
|
||||||
|
' Memo39.Text := '#39'FACTURA'#39' ' +
|
||||||
|
' '
|
||||||
|
' else'
|
||||||
|
' Memo39.Text := '#39'ABONO'#39'; '
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure Picture4OnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' if (<VerSello> = 1) then'
|
||||||
|
' Picture4.Visible := True'
|
||||||
|
' else'
|
||||||
|
' Picture4.Visible := False; '
|
||||||
|
'end;'
|
||||||
|
''
|
||||||
|
'procedure eCopiaOnBeforePrint(Sender: TfrxComponent);'
|
||||||
|
'begin'
|
||||||
|
' if (<VerCopia> = 1) then'
|
||||||
|
' begin '
|
||||||
|
' eCopia.Visible := True; '
|
||||||
|
' Picture4.Visible := False; '
|
||||||
|
' end '
|
||||||
|
' else'
|
||||||
|
' eCopia.Visible := False; '
|
||||||
'end;'
|
'end;'
|
||||||
''
|
''
|
||||||
'begin'
|
'begin'
|
||||||
|
|||||||
@ -686,6 +686,7 @@ begin
|
|||||||
if VerCopia then
|
if VerCopia then
|
||||||
begin
|
begin
|
||||||
frxReport.Variables.Variables['VerCopia'] := 1;
|
frxReport.Variables.Variables['VerCopia'] := 1;
|
||||||
|
frxReport.Variables.Variables['VerSello'] := 0; //El sello nunca saldrá en la copia
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
@ -14,7 +14,7 @@ BEGIN
|
|||||||
BEGIN
|
BEGIN
|
||||||
VALUE "FileVersion", "1.7.3.0\0"
|
VALUE "FileVersion", "1.7.3.0\0"
|
||||||
VALUE "ProductVersion", "1.7.3.0\0"
|
VALUE "ProductVersion", "1.7.3.0\0"
|
||||||
VALUE "CompileDate", "viernes, 17 de abril de 2009 10:41\0"
|
VALUE "CompileDate", "viernes, 17 de abril de 2009 11:42\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user