ConstruccionesCNJ_FactuGES/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm
2007-06-21 15:50:59 +00:00

2571 lines
80 KiB
Plaintext

object srvPresupuestos: TsrvPresupuestos
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schPresupuestos
ServiceAdapter = BINAdapter
OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData
Height = 198
Width = 370
object schPresupuestos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <
item
Name = 'CODIGO'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'EMPRESA'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' +
'ESA = :EMPRESA'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'VALOR'
TableField = 'VALOR'
end>
end>
Name = 'darReferencia'
Fields = <
item
Name = 'VALOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS'
SQL =
'SELECT'#10' PRESUPUESTOS.ID, PRESUPUESTOS.ID_EMPRESA, PRESUPUESTO' +
'S.ID_CLIENTE,'#10' CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF,'#10' CONTA' +
'CTOS.CALLE, CONTACTOS.POBLACION,'#10' CONTACTOS.PROVINCIA, CONTAC' +
'TOS.CODIGO_POSTAL,'#10' CONTACTOS.TELEFONO_1, CONTACTOS.TELEFONO_' +
'2,'#10' CONTACTOS.FAX, CONTACTOS.MOVIL_1, CONTACTOS.MOVIL_2,'#10' ' +
'CONTACTOS.EMAIL_1, CONTACTOS.EMAIL_2,'#10' PRESUPUESTOS.ID_VENDED' +
'OR, PRESUPUESTOS.REFERENCIA,'#10' PRESUPUESTOS.FECHA_PRESUPUESTO,' +
' PRESUPUESTOS.VIGENCIA,'#10' PRESUPUESTOS.SITUACION, PRESUPUESTOS' +
'.FECHA_DECISION,'#10' PRESUPUESTOS.BASE_IMPONIBLE, PRESUPUESTOS.D' +
'ESCUENTO,'#10' PRESUPUESTOS.IMPORTE_DESCUENTO, PRESUPUESTOS.IVA,'#10 +
' PRESUPUESTOS.IMPORTE_IVA, PRESUPUESTOS.IMPORTE_TOTAL,'#10' PR' +
'ESUPUESTOS.OBSERVACIONES, PRESUPUESTOS.PLAZO_ENTREGA,'#10' PRESUP' +
'UESTOS.FORMA_PAGO, PRESUPUESTOS.FECHA_ALTA,'#10' PRESUPUESTOS.FEC' +
'HA_MODIFICACION, PRESUPUESTOS.USUARIO,'#10' PRESUPUESTOS.FECHA_PR' +
'ESUPUESTO + PRESUPUESTOS.VIGENCIA as FECHA_VALIDEZ,'#10' MONTAJES' +
'.ID as ID_MONTAJE'#10'FROM PRESUPUESTOS'#10'LEFT JOIN CONTACTOS ON PRESU' +
'PUESTOS.ID_CLIENTE = CONTACTOS.ID'#10'LEFT JOIN MONTAJES ON PRESUPUE' +
'STOS.ID = MONTAJES.ID_PRESUPUESTO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
SQLOrigin = 'PRESUPUESTOS.ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
SQLOrigin = 'PRESUPUESTOS.ID_EMPRESA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
SQLOrigin = 'PRESUPUESTOS.ID_CLIENTE'
end
item
DatasetField = 'ID_VENDEDOR'
TableField = 'ID_VENDEDOR'
SQLOrigin = 'PRESUPUESTOS.ID_VENDEDOR'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
SQLOrigin = 'PRESUPUESTOS.REFERENCIA'
end
item
DatasetField = 'FECHA_PRESUPUESTO'
TableField = 'FECHA_PRESUPUESTO'
SQLOrigin = 'PRESUPUESTOS.FECHA_PRESUPUESTO'
end
item
DatasetField = 'VIGENCIA'
TableField = 'VIGENCIA'
SQLOrigin = 'PRESUPUESTOS.VIGENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
SQLOrigin = 'PRESUPUESTOS.SITUACION'
end
item
DatasetField = 'FECHA_DECISION'
TableField = 'FECHA_DECISION'
SQLOrigin = 'PRESUPUESTOS.FECHA_DECISION'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
SQLOrigin = 'PRESUPUESTOS.BASE_IMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
SQLOrigin = 'PRESUPUESTOS.DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
SQLOrigin = 'PRESUPUESTOS.IMPORTE_DESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
SQLOrigin = 'PRESUPUESTOS.IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
SQLOrigin = 'PRESUPUESTOS.IMPORTE_IVA'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
SQLOrigin = 'PRESUPUESTOS.IMPORTE_TOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
SQLOrigin = 'PRESUPUESTOS.OBSERVACIONES'
end
item
DatasetField = 'PLAZO_ENTREGA'
TableField = 'PLAZO_ENTREGA'
SQLOrigin = 'PRESUPUESTOS.PLAZO_ENTREGA'
end
item
DatasetField = 'FORMA_PAGO'
TableField = 'FORMA_PAGO'
SQLOrigin = 'PRESUPUESTOS.FORMA_PAGO'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
SQLOrigin = 'PRESUPUESTOS.FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
SQLOrigin = 'PRESUPUESTOS.FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
SQLOrigin = 'PRESUPUESTOS.USUARIO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
SQLOrigin = 'CONTACTOS.NOMBRE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
SQLOrigin = 'CONTACTOS.NIF_CIF'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
SQLOrigin = 'CONTACTOS.CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
SQLOrigin = 'CONTACTOS.POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
SQLOrigin = 'CONTACTOS.PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
SQLOrigin = 'CONTACTOS.CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
SQLOrigin = 'CONTACTOS.TELEFONO_1'
end
item
DatasetField = 'TELEFONO_2'
TableField = 'TELEFONO_2'
SQLOrigin = 'CONTACTOS.TELEFONO_2'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
SQLOrigin = 'CONTACTOS.FAX'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
SQLOrigin = 'CONTACTOS.MOVIL_1'
end
item
DatasetField = 'MOVIL_2'
TableField = 'MOVIL_2'
SQLOrigin = 'CONTACTOS.MOVIL_2'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
SQLOrigin = 'CONTACTOS.EMAIL_1'
end
item
DatasetField = 'EMAIL_2'
TableField = 'EMAIL_2'
SQLOrigin = 'CONTACTOS.EMAIL_2'
end
item
DatasetField = 'ID_MONTAJE'
TableField = 'ID_MONTAJE'
end>
end>
Name = 'Presupuestos'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_ID_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NIF_CIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_ID_VENDEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FECHA_PRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VIGENCIA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_VIGENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_SITUACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FECHA_DECISION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BASE_IMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_BASE_IMPONIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_IMPORTE_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_IVA'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_IMPORTE_IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_IMPORTE_TOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PLAZO_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_PLAZO_ENTREGA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMA_PAGO'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FORMA_PAGO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FECHA_ALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FECHA_MODIFICACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_VALIDEZ'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = True
Lookup = False
LookupCache = False
end
item
Name = 'ID_MONTAJE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS_DETALLES'
SQL =
'SELECT '#10' ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, CONCEPTO' +
', CANTIDAD, PUNTOS,'#10' IMPORTE_PUNTOS, IMPORTE_UNIDAD, DESCUENT' +
'O, IMPORTE_TOTAL, VISIBLE'#10'FROM'#10' PRESUPUESTOS_DETALLES'#10'WHERE'#10' ' +
' ID_PRESUPUESTO = :ID_PRESUPUESTO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_PRESUPUESTO'
TableField = 'ID_PRESUPUESTO'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'PUNTOS'
TableField = 'PUNTOS'
end
item
DatasetField = 'IMPORTE_PUNTOS'
TableField = 'IMPORTE_PUNTOS'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end>
end>
Name = 'Presupuestos_Detalles'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_ID_PRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_POSICION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_TIPO_DETALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_CONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_CANTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PUNTOS'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_PUNTOS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_PUNTOS'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_IMPORTE_PUNTOS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_IMPORTE_UNIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_IMPORTE_TOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VISIBLE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_Detalles_VISIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS'
SQL =
'SELECT'#10' PRESUPUESTOS.ID, PRESUPUESTOS.ID_EMPRESA, PRESUPUESTO' +
'S.ID_CLIENTE,'#10' CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF,'#10' CONTA' +
'CTOS.CALLE, CONTACTOS.POBLACION,'#10' CONTACTOS.PROVINCIA, CONTAC' +
'TOS.CODIGO_POSTAL,'#10' CONTACTOS.TELEFONO_1, CONTACTOS.TELEFONO_' +
'2,'#10' CONTACTOS.FAX, CONTACTOS.MOVIL_1, CONTACTOS.MOVIL_2,'#10' ' +
'CONTACTOS.EMAIL_1, CONTACTOS.EMAIL_2,'#10' PRESUPUESTOS.ID_VENDED' +
'OR, PRESUPUESTOS.REFERENCIA,'#10' PRESUPUESTOS.FECHA_PRESUPUESTO,' +
' PRESUPUESTOS.VIGENCIA,'#10' PRESUPUESTOS.SITUACION, PRESUPUESTOS' +
'.FECHA_DECISION,'#10' PRESUPUESTOS.BASE_IMPONIBLE, PRESUPUESTOS.D' +
'ESCUENTO,'#10' PRESUPUESTOS.IMPORTE_DESCUENTO, PRESUPUESTOS.IVA,'#10 +
' PRESUPUESTOS.IMPORTE_IVA, PRESUPUESTOS.IMPORTE_TOTAL,'#10' PR' +
'ESUPUESTOS.OBSERVACIONES, PRESUPUESTOS.PLAZO_ENTREGA,'#10' PRESUP' +
'UESTOS.FORMA_PAGO, PRESUPUESTOS.FECHA_ALTA,'#10' PRESUPUESTOS.FEC' +
'HA_MODIFICACION, PRESUPUESTOS.USUARIO,'#10' PRESUPUESTOS.FECHA_PR' +
'ESUPUESTO + PRESUPUESTOS.VIGENCIA as FECHA_VALIDEZ,'#10' MONTAJES' +
'.ID as ID_MONTAJE'#10'FROM PRESUPUESTOS'#10'LEFT JOIN CONTACTOS ON PRESU' +
'PUESTOS.ID_CLIENTE = CONTACTOS.ID'#10'LEFT JOIN MONTAJES ON PRESUPUE' +
'STOS.ID = MONTAJES.ID_PRESUPUESTO'#10'WHERE PRESUPUESTOS.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'ID_VENDEDOR'
TableField = 'ID_VENDEDOR'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FECHA_PRESUPUESTO'
TableField = 'FECHA_PRESUPUESTO'
end
item
DatasetField = 'VIGENCIA'
TableField = 'VIGENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'FECHA_DECISION'
TableField = 'FECHA_DECISION'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'PLAZO_ENTREGA'
TableField = 'PLAZO_ENTREGA'
end
item
DatasetField = 'FORMA_PAGO'
TableField = 'FORMA_PAGO'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'TELEFONO_2'
TableField = 'TELEFONO_2'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'MOVIL_2'
TableField = 'MOVIL_2'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'EMAIL_2'
TableField = 'EMAIL_2'
end
item
DatasetField = 'ID_MONTAJE'
TableField = 'ID_MONTAJE'
end>
end>
Name = 'Presupuestos_Refresh'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_ID_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NIF_CIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_ID_VENDEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FECHA_PRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VIGENCIA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_VIGENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_SITUACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FECHA_DECISION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BASE_IMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_BASE_IMPONIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_IMPORTE_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_IVA'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_IMPORTE_IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_IMPORTE_TOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PLAZO_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_PLAZO_ENTREGA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMA_PAGO'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FORMA_PAGO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FECHA_ALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_FECHA_MODIFICACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'Presupuestos_USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_VALIDEZ'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = True
Lookup = False
LookupCache = False
end
item
Name = 'ID_MONTAJE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <
item
Params = <
item
Name = 'VALOR'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'CODIGO'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'EMPRESA'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end>
Statements = <
item
Connection = 'IBX'
SQL =
'UPDATE REFERENCIAS'#10'SET VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO'#10'AND' +
' ID_EMPRESA = :EMPRESA'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'ModificarReferencia'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'VIGENCIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'BASE_IMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_IVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PLAZO_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FORMA_PAGO'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS'
SQL =
'INSERT'#10' INTO PRESUPUESTOS'#10' (ID, ID_EMPRESA, ID_CLIENTE, ID_V' +
'ENDEDOR, REFERENCIA, '#10' FECHA_PRESUPUESTO, VIGENCIA, SITUACIO' +
'N, FECHA_DECISION, '#10' BASE_IMPONIBLE, DESCUENTO, IMPORTE_DESC' +
'UENTO, IVA, '#10' IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, PLA' +
'ZO_ENTREGA, '#10' FORMA_PAGO, FECHA_ALTA, FECHA_MODIFICACION, US' +
'UARIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_VENDEDOR' +
', :REFERENCIA, '#10' :FECHA_PRESUPUESTO, :VIGENCIA, :SITUACION, ' +
':FECHA_DECISION, '#10' :BASE_IMPONIBLE, :DESCUENTO, :IMPORTE_DES' +
'CUENTO, :IVA, '#10' :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES' +
', :PLAZO_ENTREGA, '#10' :FORMA_PAGO, :FECHA_ALTA, :FECHA_MODIFIC' +
'ACION, :USUARIO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Presupuestos'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS'
SQL = 'DELETE '#10' FROM'#10' PRESUPUESTOS'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Presupuestos'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'VIGENCIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'BASE_IMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_IVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PLAZO_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FORMA_PAGO'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS'
SQL =
'UPDATE PRESUPUESTOS'#10' SET '#10' ID = :ID, '#10' ID_EMPRESA = :ID_E' +
'MPRESA, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ID_VENDEDOR = :ID_VE' +
'NDEDOR, '#10' REFERENCIA = :REFERENCIA, '#10' FECHA_PRESUPUESTO = ' +
':FECHA_PRESUPUESTO, '#10' VIGENCIA = :VIGENCIA, '#10' SITUACION = ' +
':SITUACION, '#10' FECHA_DECISION = :FECHA_DECISION, '#10' BASE_IMP' +
'ONIBLE = :BASE_IMPONIBLE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPO' +
'RTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' IMPORT' +
'E_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'OBSERVACIONES = :OBSERVACIONES, '#10' PLAZO_ENTREGA = :PLAZO_ENTR' +
'EGA, '#10' FORMA_PAGO = :FORMA_PAGO, '#10' FECHA_ALTA = :FECHA_ALT' +
'A, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO =' +
' :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Presupuestos'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PUNTOS'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_PUNTOS'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'VISIBLE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS_DETALLES'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_DETALLES'#10' (ID, ID_PRESUPUESTO, POS' +
'ICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' PUNTOS, IMPORTE_PU' +
'NTOS, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL,'#10' VISIBLE)'#10' ' +
'VALUES'#10' (:ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CON' +
'CEPTO,'#10' :CANTIDAD, :PUNTOS, :IMPORTE_PUNTOS, :IMPORTE_UNIDAD' +
', '#10' :DESCUENTO, :IMPORTE_TOTAL, :VISIBLE)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Presupuestos_Detalles'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS_DETALLES'
SQL =
'DELETE '#10' FROM'#10' PRESUPUESTOS_DETALLES'#10' WHERE'#10' (ID = :OLD_' +
'ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Presupuestos_Detalles'
end
item
Params = <
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PUNTOS'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_PUNTOS'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'VISIBLE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS_DETALLES'
SQL =
'UPDATE PRESUPUESTOS_DETALLES'#10' SET '#10' ID_PRESUPUESTO = :ID_PRE' +
'SUPUESTO, '#10' POSICION = :POSICION, '#10' TIPO_DETALLE = :TIPO_D' +
'ETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' ' +
' PUNTOS = :PUNTOS, '#10' IMPORTE_PUNTOS = :IMPORTE_PUNTOS, '#10' ' +
' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO = :DESCUENTO,'#10 +
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE'#10' WH' +
'ERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Presupuestos_Detalles'
end>
RelationShips = <>
UpdateRules = <
item
Name = 'Insert Presupuestos'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'Presupuestos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert Presupuestos_Detalles'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'Presupuestos_Detalles'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update Presupuestos'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'Presupuestos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update Presupuestos_Detalles'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'Presupuestos_Detalles'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete Presupuestos_Detalles'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'Presupuestos_Detalles'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete Presupuestos'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'Presupuestos'
FailureBehaviour = fbRaiseException
end>
Left = 46
Top = 22
end
object BINAdapter: TDABINAdapter
Left = 46
Top = 90
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'Presupuestos_ID'
DataType = datAutoInc
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia'
Alignment = taLeftJustify
ServerAutoRefresh = True
end
item
Name = 'Presupuestos_FECHA_PRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha del presupuesto'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_VIGENCIA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Vigencia'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_SITUACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Situaci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_FECHA_DECISION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de decisi'#243'n'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_BASE_IMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
end
item
Name = 'Presupuestos_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Dto (%)'
Alignment = taCenter
end
item
Name = 'Presupuestos_IMPORTE_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe dto.'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_IVA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'IVA (%)'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_IMPORTE_IVA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe IVA'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Observaciones'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_PLAZO_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Plazo de entrega'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_FORMA_PAGO'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Forma de pago'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Contactos_NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'NIF/CIF'
Alignment = taLeftJustify
end
item
Name = 'Contactos_NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Nombre'
Alignment = taLeftJustify
end
item
Name = 'Contactos_CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Direcci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'Contactos_POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Poblaci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'Contactos_PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Provincia'
Alignment = taLeftJustify
end
item
Name = 'Contactos_CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'digo portal'
Alignment = taLeftJustify
end
item
Name = 'Contactos_TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tlf. trabajo'
Alignment = taLeftJustify
end
item
Name = 'Contactos_TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tlf. trabajo'
Alignment = taLeftJustify
end
item
Name = 'Contactos_MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'M'#243'vil'
Alignment = taLeftJustify
end
item
Name = 'Contactos_MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'M'#243'vil 2'
Alignment = taLeftJustify
end
item
Name = 'Contactos_FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fax'
Alignment = taLeftJustify
end
item
Name = 'Contactos_EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'E-mail trabajo'
Alignment = taLeftJustify
end
item
Name = 'Contactos_EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'E-mail particular'
Alignment = taLeftJustify
end
item
Name = 'Contactos_PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Web'
Alignment = taLeftJustify
end
item
Name = 'Contactos_NOTAS'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Observaciones'
Alignment = taLeftJustify
end
item
Name = 'Contactos_FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de alta'
Alignment = taLeftJustify
end
item
Name = 'Contactos_FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de modificaci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'Contactos_USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Usuario'
Alignment = taLeftJustify
end
item
Name = 'Contactos_ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_ID'
DataType = datAutoInc
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
DisplayLabel = 'ID'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_ID_PRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_PRESUPUESTO'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_POSICION'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'POSICION'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_TIPO_DETALLE'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tipo detalle'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_CONCEPTO'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Concepto'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cantidad'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_PUNTOS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Puntos'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_IMPORTE_PUNTOS'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe ptos.'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_IMPORTE_UNIDAD'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe unidad'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_VISIBLE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'Visible?'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_TIPO'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tipo de presupuesto'
Alignment = taLeftJustify
end
item
Name = 'Presupuestos_Detalles_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'DESCUENTO'
Alignment = taRightJustify
end>
Left = 142
Top = 22
end
object Diagrams: TDADiagrams
Left = 142
Top = 90
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="Presupuestos" Left="' +
'0,00" Top="1,00" />'#13#10' <Entity Name="Presupuestos_Detalles" Le' +
'ft="193,00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end
object bpPresupuestos: TDABusinessProcessor
Schema = schPresupuestos
InsertCommandName = 'Insert_Presupuestos'
DeleteCommandName = 'Delete_Presupuestos'
UpdateCommandName = 'Update_Presupuestos'
RefreshDatasetName = 'Presupuestos_Refresh'
ReferencedDataset = 'Presupuestos'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 240
Top = 23
end
object bpDetallesPresupuestos: TDABusinessProcessor
OnGenerateSQL = bpDetallesPresupuestosGenerateSQL
Schema = schPresupuestos
InsertCommandName = 'Insert_Presupuestos_Detalles'
DeleteCommandName = 'Delete_Presupuestos_Detalles'
UpdateCommandName = 'Update_Presupuestos_Detalles'
ReferencedDataset = 'Presupuestos_Detalles'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 240
Top = 87
end
end