This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
LuisLeon_FactuGES/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
2007-06-11 15:35:41 +00:00

1367 lines
43 KiB
Plaintext

object srvPedidosProveedor: TsrvPedidosProveedor
OldCreateOrder = True
RequiresSession = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schPedidosProveedor
ServiceAdapter = DABINAdapter
OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData
Height = 490
Width = 347
object schPedidosProveedor: TDASchema
ConnectionManager = dmServer.ConnectionManager
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR'
SQL =
'SELECT '#10' PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID_EMPRESA, ' +
'PEDIDOS_PROVEEDOR.ID_PROVEEDOR,'#10' PEDIDOS_PROVEEDOR.REFERENCIA' +
', PEDIDOS_PROVEEDOR.FECHA_PEDIDO, PEDIDOS_PROVEEDOR.FECHA_CONFIR' +
'MACION,'#10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA, PEDIDOS_PROVEEDOR.S' +
'ITUACION, PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' PEDIDOS_PROVEEDOR.DI' +
'RECCION_ENTREGA, PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' PEDIDOS_PR' +
'OVEEDOR.IMPORTE_TOTAL, PEDIDOS_PROVEEDOR.INCIDENCIAS, PEDIDOS_PR' +
'OVEEDOR.INCIDENCIAS_ACTIVAS,'#10' PEDIDOS_PROVEEDOR.FECHA_ALTA, P' +
'EDIDOS_PROVEEDOR.FECHA_MODIFICACION, PEDIDOS_PROVEEDOR.USUARIO,'#10 +
' CONTACTOS.NOMBRE'#10#10'FROM PEDIDOS_PROVEEDOR'#10'LEFT JOIN CONTACTOS' +
' ON PEDIDOS_PROVEEDOR.ID_PROVEEDOR = CONTACTOS.ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'FECHA_PEDIDO'
TableField = 'FECHA_PEDIDO'
end
item
DatasetField = 'FECHA_CONFIRMACION'
TableField = 'FECHA_CONFIRMACION'
end
item
DatasetField = 'FECHA_ENTREGA'
TableField = 'FECHA_ENTREGA'
end
item
DatasetField = 'DIRECCION_ENTREGA'
TableField = 'DIRECCION_ENTREGA'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'INCIDENCIAS_ACTIVAS'
end
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end>
end>
Name = 'PedidosProveedor'
Fields = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DIRECCION_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
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_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
SQL =
'SELECT'#10' ID, ID_PEDIDO, POSICION, TIPO_DETALLE, REFERENCIA, ID' +
'_ARTICULO, CONCEPTO,'#10' CANTIDAD, IMPORTE_UNIDAD, IMPORTE_TOTAL' +
', VISIBLE'#10'FROM PEDIDOS_PROVEEDOR_DETALLES'#10'WHERE ID_PEDIDO = :ID_' +
'PEDIDO'#10'ORDER BY POSICION;'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
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 = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end>
end>
Name = 'PedidosProveedor_Detalles'
Fields = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'POSICIONCONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'CANTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VISIBLE'
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'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR'
SQL =
'SELECT'#10' PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID_EMPRESA, P' +
'EDIDOS_PROVEEDOR.ID_PROVEEDOR,'#10' PEDIDOS_PROVEEDOR.REFERENCIA,' +
' PEDIDOS_PROVEEDOR.FECHA_PEDIDO, PEDIDOS_PROVEEDOR.FECHA_CONFIRM' +
'ACION,'#10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA, PEDIDOS_PROVEEDOR.SI' +
'TUACION, PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' PEDIDOS_PROVEEDOR.DIR' +
'ECCION_ENTREGA, PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' PEDIDOS_PRO' +
'VEEDOR.IMPORTE_TOTAL, PEDIDOS_PROVEEDOR.INCIDENCIAS, PEDIDOS_PRO' +
'VEEDOR.INCIDENCIAS_ACTIVAS,'#10' PEDIDOS_PROVEEDOR.FECHA_ALTA, PE' +
'DIDOS_PROVEEDOR.FECHA_MODIFICACION, PEDIDOS_PROVEEDOR.USUARIO,'#10' ' +
' CONTACTOS.NOMBRE'#10' '#10'FROM PEDIDOS_PROVEEDOR'#10'LEFT JOIN CONTAC' +
'TOS ON PEDIDOS_PROVEEDOR.ID_PROVEEDOR = CONTACTOS.ID'#10'WHERE PEDID' +
'OS_PROVEEDOR.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'FECHA_PEDIDO'
TableField = 'FECHA_PEDIDO'
end
item
DatasetField = 'FECHA_CONFIRMACION'
TableField = 'FECHA_CONFIRMACION'
end
item
DatasetField = 'FECHA_ENTREGA'
TableField = 'FECHA_ENTREGA'
end
item
DatasetField = 'DIRECCION_ENTREGA'
TableField = 'DIRECCION_ENTREGA'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'INCIDENCIAS_ACTIVAS'
end
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end>
end>
Name = 'PedidosProveedor_Refresh'
Fields = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DIRECCION_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
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 = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
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 = 'SITUACION'
DataType = datString
Size = 255
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 = 'ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DIRECCION_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR'
SQL =
'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (USUARIO, OBSERVACIONES, REF' +
'ERENCIA, ID, ID_EMPRESA,'#10' SITUACION, FECHA_ALTA, FECHA_MODIF' +
'ICACION, ID_PROVEEDOR, '#10' FECHA_PEDIDO, FECHA_CONFIRMACION, F' +
'ECHA_ENTREGA, DIRECCION_ENTREGA, '#10' INCIDENCIAS, IMPORTE_TOTA' +
'L, INCIDENCIAS_ACTIVAS, ID_ALMACEN)'#10' VALUES'#10' (:USUARIO, :OBS' +
'ERVACIONES, :REFERENCIA, :ID,'#10' :ID_EMPRESA, :SITUACION, :FEC' +
'HA_ALTA, :FECHA_MODIFICACION, '#10' :ID_PROVEEDOR, :FECHA_PEDIDO' +
', :FECHA_CONFIRMACION, '#10' :FECHA_ENTREGA, :DIRECCION_ENTREGA,' +
' :INCIDENCIAS, :IMPORTE_TOTAL, '#10' :INCIDENCIAS_ACTIVAS, :ID_A' +
'LMACEN)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_PedidosProveedor'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR'
SQL = 'DELETE '#10' FROM'#10' PEDIDOS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_PedidosProveedor'
end
item
Params = <
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
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 = 'SITUACION'
DataType = datString
Size = 255
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 = 'ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DIRECCION_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALMACEN'
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 = 'PEDIDOS_PROVEEDOR'
SQL =
'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO, '#10' OBS' +
'ERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' ' +
'ID = :ID, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' SITUACION = :SITUA' +
'CION, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :' +
'FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' FECH' +
'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' +
'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' DIRECCION_ENT' +
'REGA = :DIRECCION_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' ' +
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = :INC' +
'IDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN'#10' WHERE'#10' (ID ' +
'= :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PedidosProveedor'
end>
RelationShips = <
item
Name = 'FK_DetallesFacturasCliente_FacturasCliente'
MasterDatasetName = 'PedidosProveedor'
MasterFields = 'ID'
DetailDatasetName = 'PedidosProveedor_Detalles'
DetailFields = 'ID_FACTURA'
end
item
Name = 'FK_InformeDetallesFacturaCliente_InformeCabeceraFacturaCliente'
MasterDatasetName = 'InformeCabeceraFacturaCliente'
MasterFields = 'ID'
DetailDatasetName = 'InformeDetallesFacturaCliente'
DetailFields = 'ID_FACTURA'
end>
UpdateRules = <
item
Name = 'Insert FacturasCliente'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'FacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update FacturasCliente'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'FacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete DetallesFacturasCliente'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'DetallesFacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert DetallesFacturasCliente'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'DetallesFacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update DetallesFacturasCliente'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'DetallesFacturasCliente'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete FacturasCliente'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'FacturasCliente'
FailureBehaviour = fbRaiseException
end>
Left = 48
Top = 24
end
object frxDBDetalles: TfrxDBDataset
UserName = 'frxDBDetalles'
CloseDataSource = False
DataSource = DADataDetalles
Left = 200
Top = 128
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera'
CloseDataSource = False
DataSource = DADataCabecera
Left = 120
Top = 128
end
object DADataCabecera: TDADataSource
DataTable = tbl_PedidoProveedor
Left = 120
Top = 176
end
object DADataDetalles: TDADataSource
DataTable = tbl_DetallesPedidoProveedor
Left = 200
Top = 176
end
object frxReport1: TfrxReport
Version = '3.23.7'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 39058.785902951390000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
''
'end.')
StoreInDFM = False
Left = 40
Top = 128
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end
item
DataSet = frxDBDetalles
DataSetName = 'frxDBDetalles'
end>
Variables = <>
Style = <
item
Name = 'Concepto normal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
end
item
Name = 'Concepto subtotal'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end
item
Name = 'Cabecera de columna'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
item
Name = 'Concepto titulo'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end>
end
object tbl_PedidoProveedor: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
Adapter = DABINAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 120
Top = 232
end
object tbl_DetallesPedidoProveedor: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
Adapter = DABINAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 200
Top = 232
end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 72
end
object bpPedidosProveedor: TDABusinessProcessor
Schema = schPedidosProveedor
InsertCommandName = 'Insert_PedidosProveedor'
DeleteCommandName = 'Delete_PedidosProveedor'
UpdateCommandName = 'Update_PedidosProveedor'
RefreshDatasetName = 'PedidosProveedor_Refresh'
ReferencedDataset = 'PedidosProveedor'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 160
Top = 24
end
end