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

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

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