Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan los presupuestos para que puedan meter bonificaciones como en el preograma antiguo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@757 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-11 18:56:21 +00:00
parent 5a4aa82dd9
commit 974ea629e7
2 changed files with 27 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
View File

@ -35,11 +35,13 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA' +
') AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL' +
', CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_' +
'CLIENTE.PERSONA_CONTACTO'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INN' +
'ER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_C' +
'LIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_' +
'DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' ' +
'V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
'CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.DESCRIPCION' +
'_BONIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION'#10'F' +
'ROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONT' +
'ACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOI' +
'N CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPU' +
'ESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID ' +
'= :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -141,6 +143,14 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'DESCRIPCION_BONIFICACION'
TableField = 'DESCRIPCION_BONIFICACION'
end
item
DatasetField = 'IMPORTE_BONIFICACION'
TableField = 'IMPORTE_BONIFICACION'
end>
end>
Name = 'Informe_Cabecera'
@ -256,6 +266,15 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION_BONIFICACION'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_BONIFICACION'
DataType = datCurrency
end>
ReadOnly = True
end

6
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -230,11 +230,11 @@ begin
with FDocumento, tbl_Cabecera do
begin
if FieldByName('DESCUENTO').AsFloat > 0 then
FDesBonificacion := 'Bonificación ' + FormatFloat(DISPLAY_PORCENTAJE, FieldByName('DESCUENTO').AsFloat)
if FieldByName('IMPORTE_BONIFICACION').AsFloat > 0 then
FDesBonificacion := FieldByName('DESCRIPCION_BONIFICACION').AsString
else
FDesBonificacion := Null;
FImpBonificacion := FieldByName('IMPORTE_DESCUENTO').AsFloat;
FImpBonificacion := FieldByName('IMPORTE_BONIFICACION').AsFloat;
ReplaceBookmark('CodigoPresupuestoCab', FieldByName('REFERENCIA').AsString);
ReplaceBookmark('FechaPresupuestoCab', FieldByName('FECHA_PRESUPUESTO').AsString);