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

Ticket #79 -> (repaso) 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@470 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-11-24 12:19:01 +00:00
parent adbcc9f423
commit 50affd14ae
2 changed files with 32 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -217,19 +217,21 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' +
'_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#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
'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIEN' +
'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALES' +
'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' C' +
'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' +
' POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' +
'TOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.' +
'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' CO' +
'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' +
'TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' +
'VIL_1) AS MOVIL,'#10#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
' V_PRESUPUESTOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_PRESUPUESTOS_CLIEN' +
'TE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CL' +
'IENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (' +
'CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10 +
'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -349,12 +351,12 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
TableField = 'VENDEDOR'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end>
end>
Name = 'Informe_Cabecera'
@ -449,16 +451,6 @@ 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
@ -487,6 +479,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 10
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
@ -857,7 +859,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40122.745990115700000000
ReportOptions.LastChange = 40141.433941921300000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False

4
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -227,8 +227,7 @@ begin
end;
// Filtrar el informe por fechas
if not VarIsNull(FFechaInicio)
and not VarIsNull(FFechaFin) then
if not VarIsNull(FFechaInicio) and not VarIsNull(FFechaFin) then
begin
with ATabla.DynamicWhere do
begin
@ -546,6 +545,7 @@ begin
frxReport.LoadFromFile(AInforme, True);
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False);
finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"