Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ticket #79 -> Imprimir en el presupuesto el nº de teléfono del cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@453 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-10-30 16:05:52 +00:00
parent 2d6bd98bc9
commit eb19ab94f7
2 changed files with 108 additions and 314 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

326
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -198,7 +198,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Params = <
item
Name = 'ID'
Value = '31'
Value = '1000000169'
ParamType = daptInput
end>
Statements = <
@ -216,19 +216,20 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
'_DESCUENTO,'#10' V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPU' +
'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' +
'_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' ' +
'CONTACTOS.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE, CONTACTO' +
'S.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESUPUESTOS' +
'_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE' +
', CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.' +
'POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTA' +
'CTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' ' +
' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIG' +
'O_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_CLIENTE.PERSONA_C' +
'ONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_PRESUPUE' +
'STOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESU' +
'PUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECC' +
'IONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_D' +
'IRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
'V_PRESUPUESTOS_CLIENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIE' +
'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE, CONTACTOS.TELEFONO_1, CO' +
'NTACTOS.MOVIL_1,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESU' +
'PUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONE' +
'S.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIREC' +
'CIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESC' +
'E(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVI' +
'NCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTO' +
'S.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_CLIENTE.PE' +
'RSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_P' +
'RESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ' +
'V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS' +
'_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIEN' +
'TE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -346,6 +347,14 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
DatasetField = 'VENDEDOR'
TableField = 'VENDEDOR'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end>
end>
Name = 'Informe_Cabecera'
@ -440,6 +449,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
@ -830,7 +849,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Top = 142
end
object frxReport: TfrxReport
Version = '4.3'
Version = '4.8.11'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
@ -839,254 +858,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40066.748108344910000000
ReportOptions.LastChange = 40116.697855891200000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ NombreEmpresa.Lines.Clear;'
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'}'
'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', '#39'0'#39');'
' Set('#39'NumCapitulos'#39', 0);'
' Set('#39'TextoNumCapitulo'#39', '#39#39#39' '#39#39#39'); '
'end;'
''
'procedure Rich3OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ '
' if Engine.FinalPass then'
' begin '
' Set('#39'Capitulo'#39', (<Capitulo> + 1));'
' if (<NumCapitulos> = 1) then'
' MasterData1.Visible := False; ' +
' '
' end'
' else'
' Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1));'
'} '
'end;'
''
'procedure Memo45OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if Engine.FinalPass then'
' begin'
' Set('#39'Capitulo'#39', (<Capitulo> + 1)); ' +
' '
' Set('#39'TextoNumCapitulo'#39', <Capitulo>);'
''
' if ((<NumCapitulos> = 1) and (<frxDBCapitulos."CONCEPTO"> =' +
' '#39'General'#39')) then'
' MasterData1.Visible := False'
' else begin '
' if (<frxDBCapitulos."TIPO_DETALLE"> = '#39'Titulo opcional'#39') ' +
'then'
' begin'
' Set('#39'TextoNumCapitulo'#39', '#39#39#39'OPCIONAL'#39#39#39');'
' end'
' end '
' end'
' else '
' Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1));'
''
''
'// Memo11.lines.add(<frxDBCapitulos."CONCEPTO">); '
'end;'
''
'procedure Memo47OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ '
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
' begin'
' Memo11.Visible := False; ' +
' '
' Memo47.Visible := False;'
' end'
'} '
'end;'
''
'procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxCompone' +
'nt);'
'var '
' ACantidad: String; '
' AIndice: Integer;'
' AText : String; '
'begin'
'{ '
' frxDBDetallesCANTIDAD.Memo.Clear; '
' ACantidad := FloatToStr(<frxDBDetalles."CANTIDAD">); '
' AIndice := Pos('#39','#39', ACantidad);'
' if AIndice > 0 then '
' AText := '#39'[FormatFloat('#39#39'#,##0.00'#39#39',<frxDBDetalles."CANTIDA' +
'D">)]'
' else '
' AText := '#39'[FormatFloat('#39#39'#,##0.##'#39#39',<frxDBDetalles."CANTIDA' +
'D">)]; '
' '
' frxDBDetallesCANTIDAD.Memo.Add(AText);'
'} '
'end;'
''
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'begin'
' DatosCliente.Lines.Clear;'
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
''
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
' '#39' + <frxDBCabecera."POBLACION">);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">); '
'end;'
''
'procedure MasterData1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCapitulos."TIPO_ARTICULO"> = '#39'AF'#39' ) '
' or (<frxDBCapitulos."TIPO_ARTICULO"> = '#39'AI'#39' )'
' or (<frxDBCapitulos."TIPO_ARTICULO"> = '#39'B'#39' ) then'
' begin'
' Header1.Visible := False; ' +
' '
' DetailData1.Visible := False; ' +
' '
' DetailData2.Visible := True;'
' end'
' else'
' begin'
' Header1.Visible := True; ' +
' '
' DetailData1.Visible := True; ' +
' '
' DetailData2.Visible := False;'
' end;'
'end;'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'begin'
'end;'
''
'procedure Memo29OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."IVA"> > 0) then'
' begin'
' Memo29.visible := True; ' +
' '
' end'
' else'
' begin'
' Memo29.visible := False; '
' end; '
'end;'
''
'procedure Memo30OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."RE"> > 0) then'
' begin'
' Memo30.visible := True; ' +
' '
' end'
' else'
' begin'
' Memo30.visible := False; '
' end; '
'end;'
''
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
' begin'
' Memo40.Visible := False;'
' Memo37.Visible := False; ' +
' '
' end;'
''
' if (Length(<frxDBCabecera."FORMA_PAGO">) = 0) then'
' begin'
' Memo38.Visible := False;'
' Memo27.Visible := False; ' +
' '
' end; '
''
' if (Length(<frxDBCabecera."PLAZO_ENTREGA">) = 0) then'
' begin'
' Memo39.Visible := False;'
' Memo28.Visible := False; ' +
' '
' end; '
'end;'
''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (sum(<frxDBDetalles."IMPORTE_TOTAL">, DetailData1) = 0)'
' and (sum(<frxDBDetalles."IMPORTE_TOTAL">, DetailData2) = 0) th' +
'en'
' begin'
' Footer1.Height := 10;'
' Memo13.Visible := False;'
' Memo20.Visible := False; '
' Memo21.Visible := False; '
' Memo11.Visible := False;'
' Memo24.Visible := False;'
' end'
' else'
' begin'
' Footer1.Height := 55;'
' Memo13.Visible := True; '
' Memo20.Visible := True;'
' Memo21.Visible := True;'
' Memo11.Visible := True;'
' Memo24.Visible := True; '
' end;'
''
' if (<frxDBCapitulos."IMPORTE_DESCUENTO"> = 0) then'
' begin'
' Footer1.Height := 35; '
' Memo11.Visible := False;'
' Memo24.Visible := False; '
' end; '
'end;'
''
'begin'
''
'end.')
ShowProgress = False
StoreInDFM = False
OnStartReport = 'frxReportOnStartReport'
@ -1098,6 +871,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
UserName = 'frxDBCabecera'
CloseDataSource = False
DataSource = DADSCabecera
BCDToCurrency = False
Left = 264
Top = 16
end
@ -1105,6 +879,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
UserName = 'frxDBDetalles'
CloseDataSource = False
DataSource = DADSDetalles
BCDToCurrency = False
Left = 440
Top = 16
end
@ -1201,6 +976,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
@ -1242,7 +1027,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Params = <
item
Name = 'ID'
Value = '31'
Value = '1000000169'
ParamType = daptInput
end>
LogChanges = False
@ -1358,6 +1143,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
UserName = 'frxDBCapitulos'
CloseDataSource = False
DataSource = DADSCapitulos
BCDToCurrency = False
Left = 352
Top = 16
end
@ -1613,13 +1399,21 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
ShowDialog = False
UseFileCache = True
ShowProgress = False
OverwritePrompt = False
PrintOptimized = True
Outline = False
Background = False
HTMLTags = True
Author = 'FactuGES'
Subject = 'FactuGES'
Background = False
Creator = 'FactuGES'
HTMLTags = True
ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
HideToolbar = False
HideMenubar = False
HideWindowUI = False
FitWindow = False
CenterWindow = False
PrintScaling = False
Left = 528
Top = 440
end
@ -1705,6 +1499,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
UserName = 'frxDBInformeListadoPresupuestos'
CloseDataSource = True
DataSource = DADSInformeListadoPresupuestos
BCDToCurrency = False
Left = 680
Top = 16
end
@ -1712,6 +1507,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
UserName = 'frxDBInformeListadoPresupuestosResumen'
CloseDataSource = True
DataSource = DADSInformeListadoPresupuestosResumen
BCDToCurrency = False
Left = 680
Top = 192
end