roberto
ec0020ddfc
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@37 9a1d36f3-7752-2d40-8ccb-50eb49674c68
1918 lines
60 KiB
Plaintext
1918 lines
60 KiB
Plaintext
object srvPedidosProveedor: TsrvPedidosProveedor
|
|
OldCreateOrder = True
|
|
RequiresSession = True
|
|
SessionManager = dmServer.SessionManager
|
|
AcquireConnection = True
|
|
ConnectionName = 'IBX'
|
|
ServiceSchema = schPedidosProveedor
|
|
ServiceAdapter = DABINAdapter
|
|
Left = 731
|
|
Top = 308
|
|
Height = 459
|
|
Width = 300
|
|
object schPedidosProveedor: TDASchema
|
|
ConnectionManager = dmServer.ConnectionManager
|
|
DataDictionary = dmServer.DataDictionary
|
|
Diagrams = dmServer.DADiagrams
|
|
Datasets = <
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
SQL = 'SELECT * FROM DAR_REFERENCIA_PEDIDO'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'darReferenciaPedido'
|
|
Fields = <>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'CODIGOPEDIDO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'DETALLESPEDIDOS'
|
|
SQL =
|
|
'SELECT '#10' CODIGOPEDIDO, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IM' +
|
|
'PORTEUNIDAD, '#10' IMPORTETOTAL, POSICION, TIPO'#10' FROM'#10' DETALL' +
|
|
'ESPEDIDOS'#10' WHERE CODIGOPEDIDO = :CODIGOPEDIDO'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CODIGOPEDIDO'
|
|
TableField = 'CODIGOPEDIDO'
|
|
end
|
|
item
|
|
DatasetField = 'NUMCONCEPTO'
|
|
TableField = 'NUMCONCEPTO'
|
|
end
|
|
item
|
|
DatasetField = 'DESCRIPCION'
|
|
TableField = 'DESCRIPCION'
|
|
end
|
|
item
|
|
DatasetField = 'CANTIDAD'
|
|
TableField = 'CANTIDAD'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTEUNIDAD'
|
|
TableField = 'IMPORTEUNIDAD'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTETOTAL'
|
|
TableField = 'IMPORTETOTAL'
|
|
end
|
|
item
|
|
DatasetField = 'POSICION'
|
|
TableField = 'POSICION'
|
|
end
|
|
item
|
|
DatasetField = 'TIPO'
|
|
TableField = 'TIPO'
|
|
end>
|
|
end>
|
|
Name = 'DetallesPedidosProveedor'
|
|
Fields = <
|
|
item
|
|
Name = 'CODIGOPEDIDO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGOPEDIDO'
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NUMCONCEPTO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'NUMCONCEPTO'
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'DESCRIPCION'
|
|
DataType = datString
|
|
Size = 2000
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'DESCRIPCIONCONCEPTO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CANTIDAD'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CANTIDAD'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'IMPORTEUNIDAD'
|
|
DataType = datCurrency
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'IMPORTEUNIDAD'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'IMPORTETOTAL'
|
|
DataType = datCurrency
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'IMPORTETOTAL'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'POSICION'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'POSICIONCONCEPTO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'TIPO'
|
|
DataType = datString
|
|
Size = 1
|
|
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'
|
|
SQL =
|
|
'select ANO from'#10'(select distinct(substr(FECHAPEDIDO, 1,4)) as AN' +
|
|
'O'#10'from pedidos'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select distinct '#39'Tod' +
|
|
'os'#39' as ANO'#10'from empresas'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ANO'
|
|
TableField = 'ANO'
|
|
end>
|
|
end>
|
|
Name = 'ListaAnosPedidos'
|
|
Fields = <
|
|
item
|
|
Name = 'ANO'
|
|
DataType = datString
|
|
Size = 254
|
|
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 = 'PEDIDOS'
|
|
SQL =
|
|
'SELECT '#10' PED.CODIGOEMPRESA, PED.CODIGO, PED.FECHAALTA, PED.US' +
|
|
'UARIO, PED.REFERENCIA,'#10' PED.FECHAPEDIDO, PED.FECHACONFIRMACIO' +
|
|
'N, PED.SITUACION, PED.FECHAENTREGA,'#10' PED.OBSERVACIONES, PED.I' +
|
|
'MPORTETOTAL, PED.DIRECCIONCOMPLETA, PED.INCIDENCIAS,'#10' PED.INC' +
|
|
'IDENCIASACTIVAS, PED.CODIGOCONTACTO, CON.NOMBRE,'#10' PED.CODIGOA' +
|
|
'LMACEN, COALESCE(ALM.NOMBRE, '#39'Otro'#39') as NOMBREALMACEN,'#10' PED.C' +
|
|
'ODIGOMONTAJE, MON.CODIGOCONTACTO, CON2.NOMBRE AS NOMBRECLIENTE'#10#10 +
|
|
'FROM PEDIDOS PED'#10'LEFT JOIN CONTACTOS CON ON (PED.CODIGOCONTACTO ' +
|
|
'= CON.CODIGO)'#10'LEFT JOIN ALMACENES ALM ON (PED.CODIGOALMACEN = AL' +
|
|
'M.CODIGO)'#10'LEFT JOIN MONTAJES MON ON (PED.CODIGOMONTAJE = MON.COD' +
|
|
'IGO)'#10'LEFT JOIN CONTACTOS CON2 ON (MON.CODIGOCONTACTO = CON2.CODI' +
|
|
'GO)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CODIGOEMPRESA'
|
|
TableField = 'CODIGOEMPRESA'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGO'
|
|
TableField = 'CODIGO'
|
|
end
|
|
item
|
|
DatasetField = 'FECHAALTA'
|
|
TableField = 'FECHAALTA'
|
|
end
|
|
item
|
|
DatasetField = 'USUARIO'
|
|
TableField = 'USUARIO'
|
|
end
|
|
item
|
|
DatasetField = 'REFERENCIA'
|
|
TableField = 'REFERENCIA'
|
|
end
|
|
item
|
|
DatasetField = 'FECHAPEDIDO'
|
|
TableField = 'FECHAPEDIDO'
|
|
end
|
|
item
|
|
DatasetField = 'FECHACONFIRMACION'
|
|
TableField = 'FECHACONFIRMACION'
|
|
end
|
|
item
|
|
DatasetField = 'SITUACION'
|
|
TableField = 'SITUACION'
|
|
end
|
|
item
|
|
DatasetField = 'FECHAENTREGA'
|
|
TableField = 'FECHAENTREGA'
|
|
end
|
|
item
|
|
DatasetField = 'OBSERVACIONES'
|
|
TableField = 'OBSERVACIONES'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTETOTAL'
|
|
TableField = 'IMPORTETOTAL'
|
|
end
|
|
item
|
|
DatasetField = 'DIRECCIONCOMPLETA'
|
|
TableField = 'DIRECCIONCOMPLETA'
|
|
end
|
|
item
|
|
DatasetField = 'INCIDENCIAS'
|
|
TableField = 'INCIDENCIAS'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOALMACEN'
|
|
TableField = 'CODIGOALMACEN'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOCONTACTO'
|
|
TableField = 'CODIGOCONTACTO'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBRE'
|
|
TableField = 'NOMBRE'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOMONTAJE'
|
|
TableField = 'CODIGOMONTAJE'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBREALMACEN'
|
|
TableField = 'NOMBREALMACEN'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOCONTACTO1'
|
|
TableField = 'CODIGOCONTACTO1'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBRECLIENTE'
|
|
TableField = 'NOMBRECLIENTE'
|
|
end
|
|
item
|
|
DatasetField = 'INCIDENCIASACTIVAS'
|
|
TableField = 'INCIDENCIASACTIVAS'
|
|
end>
|
|
end>
|
|
Name = 'PedidosProveedor'
|
|
Fields = <
|
|
item
|
|
Name = 'CODIGOEMPRESA'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGOEMPRESA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGOPEDIDO'
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHAALTA'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FECHAALTA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'USUARIO'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'USUARIO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 20
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'REFERENCIA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHAPEDIDO'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FECHAPEDIDO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHACONFIRMACION'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FECHACONFIRMACION'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'SITUACION'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'SITUACIONPEDIDO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHAENTREGA'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FECHAENTREGA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'OBSERVACIONES'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'OBSERVACIONES'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'IMPORTETOTAL'
|
|
DataType = datCurrency
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'IMPORTETOTAL'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'DIRECCIONCOMPLETA'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Direcci'#243'n'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'INCIDENCIAS'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Incidencias'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'INCIDENCIASACTIVAS'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DefaultValue = '0'
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOALMACEN'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGO (GENERICO)'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOCONTACTO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGO (GENERICO)'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NOMBRE'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Nombre'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOMONTAJE'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NOMBREALMACEN'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOCONTACTO1'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NOMBRECLIENTE'
|
|
DataType = datString
|
|
Size = 100
|
|
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 = 'CODIGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'PEDIDOS'
|
|
SQL =
|
|
'SELECT'#10' PED.CODIGOEMPRESA, PED.CODIGO, PED.FECHAALTA, PED.USU' +
|
|
'ARIO, PED.REFERENCIA,'#10' PED.FECHAPEDIDO, PED.FECHACONFIRMACION' +
|
|
', PED.SITUACION, PED.FECHAENTREGA,'#10' PED.OBSERVACIONES, PED.IM' +
|
|
'PORTETOTAL, PED.DIRECCIONCOMPLETA, PED.INCIDENCIAS,'#10' PED.INCI' +
|
|
'DENCIASACTIVAS, PED.CODIGOCONTACTO, CON.NOMBRE,'#10' PED.CODIGOAL' +
|
|
'MACEN, COALESCE(ALM.NOMBRE, '#39'Otro'#39') as NOMBREALMACEN,'#10' PED.CO' +
|
|
'DIGOMONTAJE, MON.CODIGOCONTACTO, CON2.NOMBRE AS NOMBRECLIENTE'#10#10'F' +
|
|
'ROM PEDIDOS PED'#10'LEFT JOIN CONTACTOS CON ON (PED.CODIGOCONTACTO =' +
|
|
' CON.CODIGO)'#10'LEFT JOIN ALMACENES ALM ON (PED.CODIGOALMACEN = ALM' +
|
|
'.CODIGO)'#10'LEFT JOIN MONTAJES MON ON (PED.CODIGOMONTAJE = MON.CODI' +
|
|
'GO)'#10'LEFT JOIN CONTACTOS CON2 ON (MON.CODIGOCONTACTO = CON2.CODIG' +
|
|
'O)'#10'WHERE PED.CODIGO = :CODIGO'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CODIGOEMPRESA'
|
|
TableField = 'CODIGOEMPRESA'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGO'
|
|
TableField = 'CODIGO'
|
|
end
|
|
item
|
|
DatasetField = 'FECHAALTA'
|
|
TableField = 'FECHAALTA'
|
|
end
|
|
item
|
|
DatasetField = 'USUARIO'
|
|
TableField = 'USUARIO'
|
|
end
|
|
item
|
|
DatasetField = 'REFERENCIA'
|
|
TableField = 'REFERENCIA'
|
|
end
|
|
item
|
|
DatasetField = 'FECHAPEDIDO'
|
|
TableField = 'FECHAPEDIDO'
|
|
end
|
|
item
|
|
DatasetField = 'FECHACONFIRMACION'
|
|
TableField = 'FECHACONFIRMACION'
|
|
end
|
|
item
|
|
DatasetField = 'SITUACION'
|
|
TableField = 'SITUACION'
|
|
end
|
|
item
|
|
DatasetField = 'FECHAENTREGA'
|
|
TableField = 'FECHAENTREGA'
|
|
end
|
|
item
|
|
DatasetField = 'OBSERVACIONES'
|
|
TableField = 'OBSERVACIONES'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTETOTAL'
|
|
TableField = 'IMPORTETOTAL'
|
|
end
|
|
item
|
|
DatasetField = 'DIRECCIONCOMPLETA'
|
|
TableField = 'DIRECCIONCOMPLETA'
|
|
end
|
|
item
|
|
DatasetField = 'INCIDENCIAS'
|
|
TableField = 'INCIDENCIAS'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOALMACEN'
|
|
TableField = 'CODIGOALMACEN'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOCONTACTO'
|
|
TableField = 'CODIGOCONTACTO'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBRE'
|
|
TableField = 'NOMBRE'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOMONTAJE'
|
|
TableField = 'CODIGOMONTAJE'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBREALMACEN'
|
|
TableField = 'NOMBREALMACEN'
|
|
end
|
|
item
|
|
DatasetField = 'INCIDENCIASACTIVAS'
|
|
TableField = 'INCIDENCIASACTIVAS'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOCONTACTO1'
|
|
TableField = 'CODIGOCONTACTO1'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBRECLIENTE'
|
|
TableField = 'NOMBRECLIENTE'
|
|
end>
|
|
end>
|
|
Name = 'Refresh_PedidosProveedor'
|
|
Fields = <
|
|
item
|
|
Name = 'CODIGOEMPRESA'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGOEMPRESA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGOPEDIDO'
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHAALTA'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FECHAALTA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'USUARIO'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'USUARIO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 20
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'REFERENCIA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHAPEDIDO'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FECHAPEDIDO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHACONFIRMACION'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FECHACONFIRMACION'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'SITUACION'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'SITUACIONPEDIDO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHAENTREGA'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FECHAENTREGA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'OBSERVACIONES'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'OBSERVACIONES'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'IMPORTETOTAL'
|
|
DataType = datCurrency
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'IMPORTETOTAL'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'DIRECCIONCOMPLETA'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Direcci'#243'n'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'INCIDENCIAS'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Incidencias'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'INCIDENCIASACTIVAS'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOALMACEN'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGO (GENERICO)'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOCONTACTO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGO (GENERICO)'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NOMBRE'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Nombre'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOMONTAJE'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NOMBREALMACEN'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOCONTACTO1'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NOMBRECLIENTE'
|
|
DataType = datString
|
|
Size = 100
|
|
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 = 'CODIGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = '43'
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'PEDIDOS'
|
|
SQL =
|
|
'SELECT'#10' PED.CODIGOEMPRESA, PED.CODIGO, PED.REFERENCIA,'#10' PE' +
|
|
'D.FECHAPEDIDO, PED.FECHAENTREGA, PED.OBSERVACIONES, PED.IMPORTET' +
|
|
'OTAL,'#10' PED.DIRECCIONCOMPLETA, CON.NOMBRE, CON.CALLE, CON.CODI' +
|
|
'GOPOSTAL,'#10' CON.PROVINCIA, CON.POBLACION,'#10' PED.CODIGOMONTAJ' +
|
|
'E, MON.CODIGOCONTACTO, CON2.NOMBRE AS NOMBRECLIENTE'#10'FROM PEDIDOS' +
|
|
' PED'#10'LEFT JOIN CONTACTOS CON ON (PED.CODIGOCONTACTO = CON.CODIGO' +
|
|
')'#10'LEFT JOIN MONTAJES MON ON (PED.CODIGOMONTAJE = MON.CODIGO)'#10'LEF' +
|
|
'T JOIN CONTACTOS CON2 ON (MON.CODIGOCONTACTO = CON2.CODIGO)'#10'WHER' +
|
|
'E PED.CODIGO = :CODIGO'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CODIGOEMPRESA'
|
|
TableField = 'CODIGOEMPRESA'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGO'
|
|
TableField = 'CODIGO'
|
|
end
|
|
item
|
|
DatasetField = 'REFERENCIA'
|
|
TableField = 'REFERENCIA'
|
|
end
|
|
item
|
|
DatasetField = 'FECHAPEDIDO'
|
|
TableField = 'FECHAPEDIDO'
|
|
end
|
|
item
|
|
DatasetField = 'OBSERVACIONES'
|
|
TableField = 'OBSERVACIONES'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTETOTAL'
|
|
TableField = 'IMPORTETOTAL'
|
|
end
|
|
item
|
|
DatasetField = 'DIRECCIONCOMPLETA'
|
|
TableField = 'DIRECCIONCOMPLETA'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBRE'
|
|
TableField = 'NOMBRE'
|
|
end
|
|
item
|
|
DatasetField = 'CALLE'
|
|
TableField = 'CALLE'
|
|
end
|
|
item
|
|
DatasetField = 'CODIGOPOSTAL'
|
|
TableField = 'CODIGOPOSTAL'
|
|
end
|
|
item
|
|
DatasetField = 'PROVINCIA'
|
|
TableField = 'PROVINCIA'
|
|
end
|
|
item
|
|
DatasetField = 'POBLACION'
|
|
TableField = 'POBLACION'
|
|
end>
|
|
end>
|
|
Name = 'InformeCabeceraPedido'
|
|
Fields = <
|
|
item
|
|
Name = 'CODIGOEMPRESA'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGO'
|
|
DataType = datInteger
|
|
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
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHAPEDIDO'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FECHAENTREGA'
|
|
DataType = datDateTime
|
|
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
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'IMPORTETOTAL'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'DIRECCIONCOMPLETA'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NOMBRE'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CALLE'
|
|
DataType = datString
|
|
Size = 150
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOPOSTAL'
|
|
DataType = datString
|
|
Size = 5
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'PROVINCIA'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'POBLACION'
|
|
DataType = datString
|
|
Size = 40
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOMONTAJE'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CODIGOCONTACTO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NOMBRECLIENTE'
|
|
DataType = datString
|
|
Size = 100
|
|
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 = 'CODIGOPEDIDO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'DETALLESPEDIDOS'
|
|
SQL =
|
|
'SELECT '#10' CODIGOPEDIDO, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IM' +
|
|
'PORTEUNIDAD, '#10' IMPORTETOTAL, POSICION, TIPO'#10' FROM'#10' DETALL' +
|
|
'ESPEDIDOS'#10' WHERE CODIGOPEDIDO = :CODIGOPEDIDO'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CODIGOPEDIDO'
|
|
TableField = 'CODIGOPEDIDO'
|
|
end
|
|
item
|
|
DatasetField = 'NUMCONCEPTO'
|
|
TableField = 'NUMCONCEPTO'
|
|
end
|
|
item
|
|
DatasetField = 'DESCRIPCION'
|
|
TableField = 'DESCRIPCION'
|
|
end
|
|
item
|
|
DatasetField = 'CANTIDAD'
|
|
TableField = 'CANTIDAD'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTEUNIDAD'
|
|
TableField = 'IMPORTEUNIDAD'
|
|
end
|
|
item
|
|
DatasetField = 'IMPORTETOTAL'
|
|
TableField = 'IMPORTETOTAL'
|
|
end
|
|
item
|
|
DatasetField = 'POSICION'
|
|
TableField = 'POSICION'
|
|
end
|
|
item
|
|
DatasetField = 'TIPO'
|
|
TableField = 'TIPO'
|
|
end>
|
|
end>
|
|
Name = 'InformeDetallesPedido'
|
|
Fields = <
|
|
item
|
|
Name = 'CODIGOPEDIDO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CODIGOPEDIDO'
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NUMCONCEPTO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'NUMCONCEPTO'
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'DESCRIPCION'
|
|
DataType = datString
|
|
Size = 2000
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'DESCRIPCIONCONCEPTO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CANTIDAD'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'CANTIDAD'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'IMPORTEUNIDAD'
|
|
DataType = datCurrency
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'IMPORTEUNIDAD'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'IMPORTETOTAL'
|
|
DataType = datCurrency
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'IMPORTETOTAL'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'POSICION'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'POSICIONCONCEPTO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'TIPO'
|
|
DataType = datString
|
|
Size = 1
|
|
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 = 'CODIGOEMPRESA'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CODIGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'FECHAALTA'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'USUARIO'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 20
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'FECHAPEDIDO'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'FECHACONFIRMACION'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'SITUACION'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'FECHAENTREGA'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'OBSERVACIONES'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'IMPORTETOTAL'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'DIRECCIONCOMPLETA'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'INCIDENCIAS'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'INCIDENCIASACTIVAS'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CODIGOALMACEN'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CODIGOCONTACTO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CODIGOMONTAJE'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'PEDIDOS'
|
|
SQL =
|
|
'INSERT'#10' INTO PEDIDOS'#10' (CODIGOEMPRESA, CODIGO, FECHAALTA, USU' +
|
|
'ARIO, REFERENCIA, '#10' FECHAPEDIDO, FECHACONFIRMACION, SITUACIO' +
|
|
'N, FECHAENTREGA, '#10' OBSERVACIONES, IMPORTETOTAL, DIRECCIONCOM' +
|
|
'PLETA, INCIDENCIAS, INCIDENCIASACTIVAS,'#10' CODIGOALMACEN, CODI' +
|
|
'GOCONTACTO, CODIGOMONTAJE)'#10' VALUES'#10' (:CODIGOEMPRESA, :CODIGO' +
|
|
', :FECHAALTA, :USUARIO, :REFERENCIA, '#10' :FECHAPEDIDO, :FECHAC' +
|
|
'ONFIRMACION, :SITUACION, :FECHAENTREGA, '#10' :OBSERVACIONES, :I' +
|
|
'MPORTETOTAL, :DIRECCIONCOMPLETA, '#10' :INCIDENCIAS, :INCIDENCIA' +
|
|
'SACTIVAS, :CODIGOALMACEN, :CODIGOCONTACTO, :CODIGOMONTAJE)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Insert_PedidosProveedor'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'OLD_CODIGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'PEDIDOS'
|
|
SQL = 'DELETE '#10' FROM'#10' PEDIDOS'#10' WHERE'#10' (CODIGO = :OLD_CODIGO)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Delete_PedidosProveedor'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'CODIGOEMPRESA'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CODIGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'FECHAALTA'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'USUARIO'
|
|
DataType = datString
|
|
Size = 100
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 20
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'FECHAPEDIDO'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'FECHACONFIRMACION'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'SITUACION'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'FECHAENTREGA'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'OBSERVACIONES'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'IMPORTETOTAL'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'DIRECCIONCOMPLETA'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'INCIDENCIAS'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'INCIDENCIASACTIVAS'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CODIGOALMACEN'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CODIGOCONTACTO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CODIGOMONTAJE'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'OLD_CODIGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'PEDIDOS'
|
|
SQL =
|
|
'UPDATE PEDIDOS'#10' SET '#10' CODIGOEMPRESA = :CODIGOEMPRESA, '#10' C' +
|
|
'ODIGO = :CODIGO, '#10' FECHAALTA = :FECHAALTA, '#10' USUARIO = :US' +
|
|
'UARIO, '#10' REFERENCIA = :REFERENCIA, '#10' FECHAPEDIDO = :FECHAP' +
|
|
'EDIDO, '#10' FECHACONFIRMACION = :FECHACONFIRMACION, '#10' SITUACI' +
|
|
'ON = :SITUACION, '#10' FECHAENTREGA = :FECHAENTREGA, '#10' OBSERVA' +
|
|
'CIONES = :OBSERVACIONES, '#10' IMPORTETOTAL = :IMPORTETOTAL, '#10' ' +
|
|
' DIRECCIONCOMPLETA = :DIRECCIONCOMPLETA, '#10' INCIDENCIAS = :INC' +
|
|
'IDENCIAS,'#10' INCIDENCIASACTIVAS = :INCIDENCIASACTIVAS,'#10' CODI' +
|
|
'GOALMACEN = :CODIGOALMACEN, '#10' CODIGOCONTACTO = :CODIGOCONTACT' +
|
|
'O, '#10' CODIGOMONTAJE = :CODIGOMONTAJE'#10' WHERE'#10' (CODIGO = :OL' +
|
|
'D_CODIGO)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Update_PedidosProveedor'
|
|
end>
|
|
RelationShips = <
|
|
item
|
|
Name = 'FK_DetallesPedidosProveedor_PedidosProveedor'
|
|
MasterDatasetName = 'PedidosProveedor'
|
|
MasterFields = 'CODIGO'
|
|
DetailDatasetName = 'DetallesPedidosProveedor'
|
|
DetailFields = 'CODIGOPEDIDO'
|
|
end>
|
|
UpdateRules = <
|
|
item
|
|
Name = 'Insert PedidosProveedor'
|
|
DoUpdate = False
|
|
DoInsert = True
|
|
DoDelete = False
|
|
DatasetName = 'PedidosProveedor'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Update PedidosProveedor'
|
|
DoUpdate = True
|
|
DoInsert = False
|
|
DoDelete = False
|
|
DatasetName = 'PedidosProveedor'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Delete DetallesPedidosProveedor'
|
|
DoUpdate = False
|
|
DoInsert = False
|
|
DoDelete = True
|
|
DatasetName = 'DetallesPedidosProveedor'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Insert DetallesPedidosProveedor'
|
|
DoUpdate = False
|
|
DoInsert = True
|
|
DoDelete = False
|
|
DatasetName = 'DetallesPedidosProveedor'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Update DetallesPedidosProveedor'
|
|
DoUpdate = True
|
|
DoInsert = False
|
|
DoDelete = False
|
|
DatasetName = 'DetallesPedidosProveedor'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Delete PedidosProveedor'
|
|
DoUpdate = False
|
|
DoInsert = False
|
|
DoDelete = True
|
|
DatasetName = 'PedidosProveedor'
|
|
FailureBehaviour = fbRaiseException
|
|
end>
|
|
Left = 48
|
|
Top = 24
|
|
end
|
|
object bpPedidosProveedor: TDABusinessProcessor
|
|
Schema = schPedidosProveedor
|
|
InsertCommandName = 'Insert_PedidosProveedor'
|
|
UpdateCommandName = 'Update_PedidosProveedor'
|
|
RefreshDatasetName = 'Refresh_PedidosProveedor'
|
|
ReferencedDataset = 'PedidosProveedor'
|
|
ProcessorOptions = [poAutoGenerateDelete, poPrepareCommands]
|
|
UpdateMode = updWhereKeyOnly
|
|
Left = 208
|
|
Top = 24
|
|
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 = 39015.492018761570000000
|
|
ReportOptions.VersionBuild = '1'
|
|
ReportOptions.VersionMajor = '12'
|
|
ReportOptions.VersionMinor = '13'
|
|
ReportOptions.VersionRelease = '1'
|
|
ScriptLanguage = 'PascalScript'
|
|
ScriptText.Strings = (
|
|
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
|
|
'begin'
|
|
'{ DatosCliente.Lines.Clear;'
|
|
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
|
|
''
|
|
' if (<frxDBCabecera."CODIGOPOSTAL"> <> '#39#39')'
|
|
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
|
|
|
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <fr' +
|
|
'xDBCabecera."POBLACION">);}'
|
|
'end;'
|
|
''
|
|
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
|
|
'begin'
|
|
' case <frxDBDetalles."TIPO"> of'
|
|
' '#39'C'#39': begin'
|
|
' MemoCampo12.Style := '#39'Concepto normal'#39';'
|
|
' end;'
|
|
' '#39'S'#39': begin'
|
|
' MemoCampo12.Style := '#39'Concepto subtotal'#39';'
|
|
' end;'
|
|
' '#39'T'#39': begin'
|
|
' MemoCampo12.Style := '#39'Concepto titulo'#39';'
|
|
' end;'
|
|
' end;'
|
|
'end;'
|
|
''
|
|
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
|
|
'begin'
|
|
|
|
' Engine.CurY := Engine.CurY + Engine.FreeSpace - PageFoote' +
|
|
'r1.Height - 1;'
|
|
'end;'
|
|
''
|
|
'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 DADataCabecera: TDADataSource
|
|
DataTable = tbl_Pedido
|
|
Left = 120
|
|
Top = 176
|
|
end
|
|
object DADataDetalles: TDADataSource
|
|
DataTable = tbl_DetallesPedido
|
|
Left = 200
|
|
Top = 176
|
|
end
|
|
object frxDBCabecera: TfrxDBDataset
|
|
UserName = 'frxDBCabecera'
|
|
CloseDataSource = False
|
|
DataSource = DADataCabecera
|
|
Left = 120
|
|
Top = 128
|
|
end
|
|
object frxDBDetalles: TfrxDBDataset
|
|
UserName = 'frxDBDetalles'
|
|
CloseDataSource = False
|
|
DataSource = DADataDetalles
|
|
Left = 200
|
|
Top = 128
|
|
end
|
|
object tbl_Pedido: 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 = 240
|
|
end
|
|
object tbl_DetallesPedido: 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 = 240
|
|
end
|
|
object IBDatabase1: TIBDatabase
|
|
DatabaseName = 'D:\Proyectos\FactuGES (Arribas)\Codigo\BD\BASEDATOS.FDB'
|
|
Params.Strings = (
|
|
'user_name=sysdba'
|
|
'password=masterkey'
|
|
'lc_ctype=iSO8859_1')
|
|
LoginPrompt = False
|
|
DefaultTransaction = IBTransaction1
|
|
IdleTimer = 0
|
|
SQLDialect = 3
|
|
TraceFlags = []
|
|
Left = 32
|
|
Top = 208
|
|
end
|
|
object IBTransaction1: TIBTransaction
|
|
Active = False
|
|
AutoStopAction = saNone
|
|
Left = 32
|
|
Top = 256
|
|
end
|
|
object IBDataSet1: TIBDataSet
|
|
Database = IBDatabase1
|
|
Transaction = IBTransaction1
|
|
BufferChunks = 1000
|
|
CachedUpdates = False
|
|
SelectSQL.Strings = (
|
|
'SELECT '
|
|
' PED.CODIGOEMPRESA, PED.CODIGO, PED.REFERENCIA,'
|
|
' PED.FECHAPEDIDO, PED.OBSERVACIONES, PED.IMPORTETOTAL,'
|
|
' PED.DIRECCIONCOMPLETA,'
|
|
' CON.NOMBRE, CON.CALLE, CON.CODIGOPOSTAL,'
|
|
' CON.PROVINCIA, CON.POBLACION'
|
|
'FROM PEDIDOS PED'
|
|
'LEFT JOIN CONTACTOS CON ON (PED.CODIGOCONTACTO = CON.CODIGO)'
|
|
'WHERE PED.CODIGO = 43')
|
|
Left = 120
|
|
Top = 296
|
|
end
|
|
object IBDataSet2: TIBDataSet
|
|
Database = IBDatabase1
|
|
Transaction = IBTransaction1
|
|
BufferChunks = 1000
|
|
CachedUpdates = False
|
|
SelectSQL.Strings = (
|
|
'SELECT '
|
|
|
|
' CODIGOPEDIDO, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IMPORTEUNI' +
|
|
'DAD, '
|
|
' IMPORTETOTAL, POSICION, TIPO'
|
|
' FROM'
|
|
' DETALLESPEDIDOS'
|
|
' WHERE CODIGOPEDIDO = 43')
|
|
Left = 200
|
|
Top = 296
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = IBDataSet1
|
|
Left = 120
|
|
Top = 352
|
|
end
|
|
object DataSource2: TDataSource
|
|
DataSet = IBDataSet2
|
|
Left = 200
|
|
Top = 352
|
|
end
|
|
object DABINAdapter: TDABINAdapter
|
|
Left = 48
|
|
Top = 72
|
|
end
|
|
end
|