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
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 39840.805247928200000000
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 39920.656640081000000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
|
||||
''
|
||||
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' Cadena: String;'
|
||||
'begin'
|
||||
' if Engine.FinalPass then'
|
||||
' begin'
|
||||
' if (<Page#> = <TotalPages#>) then'
|
||||
' begin '
|
||||
' mContinua.Visible := False;'
|
||||
' end '
|
||||
' else'
|
||||
' begin '
|
||||
' mContinua.Visible := True;'
|
||||
' end '
|
||||
' end; '
|
||||
'{ DatosEmpresa.Lines.Clear;'
|
||||
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
|
||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
|
||||
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
|
||||
|
||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
|
||||
'">;'
|
||||
' DatosEmpresa.Lines.Add(Cadena);'
|
||||
'}'
|
||||
'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;'
|
||||
''
|
||||
'begin'
|
||||
|
||||
@ -686,6 +686,7 @@ begin
|
||||
if VerCopia then
|
||||
begin
|
||||
frxReport.Variables.Variables['VerCopia'] := 1;
|
||||
frxReport.Variables.Variables['VerSello'] := 0; //El sello nunca saldrá en la copia
|
||||
frxReport.PrepareReport(False);
|
||||
end;
|
||||
|
||||
|
||||
Binary file not shown.
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "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
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user