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@755 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-11 18:56:07 +00:00
parent 98d47c6ac5
commit 452c3b55ba
1 changed files with 47 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -152,6 +152,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION'
end
item
DatasetField = 'DESCRIPCION_BONIFICACION'
TableField = 'DESCRIPCION_BONIFICACION'
end
item
DatasetField = 'IMPORTE_BONIFICACION'
TableField = 'IMPORTE_BONIFICACION'
end>
end>
Name = 'PresupuestosCliente'
@ -332,6 +340,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 255
DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
end
item
Name = 'DESCRIPCION_BONIFICACION'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_BONIFICACION'
DataType = datCurrency
ServerAutoRefresh = True
end>
end
item
@ -626,6 +644,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'PERSONA_CONTACTO'
Value = ''
end
item
Name = 'DESCRIPCION_BONIFICACION'
Value = ''
end
item
Name = 'IMPORTE_BONIFICACION'
Value = ''
end>
Statements = <
item
@ -640,14 +666,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'IDENCIAS_ACTIVAS, FECHA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORT' +
'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA' +
', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10' PE' +
'RSONA_CONTACTO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUES' +
'TO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACI' +
'ON, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIEN' +
'TE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS' +
', :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPOR' +
'TE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :' +
'BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FO' +
'RMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO)'#10
'RSONA_CONTACTO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION)'#10 +
' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECIS' +
'ION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLIENTE,' +
' :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :PORTA' +
'DA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENCIAS_A' +
'CTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORT' +
'E_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, ' +
':IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_FA' +
'CTURA, :PERSONA_CONTACTO,'#10' :DESCRIPCION_BONIFICACION, :IMPOR' +
'TE_BONIFICACION)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -787,6 +815,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'PERSONA_CONTACTO'
Value = ''
end
item
Name = 'DESCRIPCION_BONIFICACION'
Value = ''
end
item
Name = 'IMPORTE_BONIFICACION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -813,7 +849,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_T' +
'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
'ID_FACTURA = :ID_FACTURA,'#10' PERSONA_CONTACTO = :PERSONA_CONTAC' +
'TO'#10' WHERE'#10' (ID = :OLD_ID)'#10
'TO,'#10' DESCRIPCION_BONIFICACION = :DESCRIPCION_BONIFICACION,'#10' ' +
' IMPORTE_BONIFICACION = :IMPORTE_BONIFICACION'#10' WHERE'#10' (ID =' +
' :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>