AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
This repository has been archived on 2024-12-02. You can view files and clone it, but cannot push or open issues or pull requests.
ec0020ddfc
AlonsoYSal_FactuGES/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm

566 lines
18 KiB
Plaintext
Raw Blame History

object srvArticulos: TsrvArticulos
OldCreateOrder = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schArticulos
ServiceAdapter = DABINAdapter
Left = 739
Top = 228
Height = 300
Width = 300
object schArticulos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
SQL =
'SELECT'#10' ARTICULOS.CODIGO, ARTICULOS.CODIGOALMACEN, ARTICULOS.' +
'DESCRIPCION, 0 as CANTIDAD,'#10' ARTICULOS.CODIGOPEDIDO, PEDIDOS.' +
'REFERENCIA as REFERENCIAPEDIDO,'#10' ARTICULOS.CODIGOMONTAJE, MON' +
'TAJES.REFERENCIA as REFERENCIAMONTAJE,'#10' CONTACTOS.NOMBRE AS C' +
'LIENTE, ALMACENES.NOMBRE as ALMACEN,'#10' MONTAJES.SITUACION'#10'FROM' +
' ARTICULOS'#10'LEFT JOIN ALMACENES ON (ARTICULOS.CODIGOALMACEN = ALM' +
'ACENES.CODIGO)'#10'LEFT JOIN PEDIDOS ON (ARTICULOS.CODIGOPEDIDO = PE' +
'DIDOS.CODIGO)'#10'LEFT JOIN MONTAJES ON (ARTICULOS.CODIGOMONTAJE = M' +
'ONTAJES.CODIGO)'#10'LEFT JOIN CONTACTOS ON (MONTAJES.CODIGOCONTACTO ' +
'= CONTACTOS.CODIGO)'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'CODIGOALMACEN'
TableField = 'CODIGOALMACEN'
end
item
DatasetField = 'CODIGOPEDIDO'
TableField = 'CODIGOPEDIDO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CODIGOMONTAJE'
TableField = 'CODIGOMONTAJE'
end
item
DatasetField = 'REFERENCIAPEDIDO'
TableField = 'REFERENCIAPEDIDO'
end
item
DatasetField = 'REFERENCIAMONTAJE'
TableField = 'REFERENCIAMONTAJE'
end
item
DatasetField = 'ALMACEN'
TableField = 'ALMACEN'
end
item
DatasetField = 'CLIENTE'
TableField = 'CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end>
end>
Name = 'ARTICULOS'
Fields = <
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGO (GENERICO)'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOALMACEN'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOALMACEN'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'd. pedido'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
LogChanges = False
DisplayWidth = 0
Alignment = taRightJustify
InPrimaryKey = False
Calculated = True
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 = 'DESCRIPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIAPEDIDO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIAMONTAJE'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CLIENTE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cliente'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ALMACEN'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Almac'#233'n'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 30
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 = 'ARTICULOS'
SQL =
'SELECT'#10' ARTICULOS.CODIGO, ARTICULOS.CODIGOALMACEN, ARTICULOS.' +
'DESCRIPCION,'#10' ARTICULOS.CODIGOPEDIDO, PEDIDOS.REFERENCIA as R' +
'EFERENCIAPEDIDO,'#10' ARTICULOS.CODIGOMONTAJE, MONTAJES.REFERENCI' +
'A as REFERENCIAMONTAJE,'#10' CONTACTOS.NOMBRE AS CLIENTE, ALMACEN' +
'ES.NOMBRE as ALMACEN,'#10' MONTAJES.SITUACION'#10'FROM ARTICULOS'#10'LEFT' +
' JOIN ALMACENES ON (ARTICULOS.CODIGOALMACEN = ALMACENES.CODIGO)'#10 +
'LEFT JOIN PEDIDOS ON (ARTICULOS.CODIGOPEDIDO = PEDIDOS.CODIGO)'#10'L' +
'EFT JOIN MONTAJES ON (ARTICULOS.CODIGOMONTAJE = MONTAJES.CODIGO)' +
#10'LEFT JOIN CONTACTOS ON (MONTAJES.CODIGOCONTACTO = CONTACTOS.COD' +
'IGO)'#10'WHERE ARTICULOS.CODIGO = :CODIGO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'CODIGOALMACEN'
TableField = 'CODIGOALMACEN'
end
item
DatasetField = 'CODIGOPEDIDO'
TableField = 'CODIGOPEDIDO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CODIGOMONTAJE'
TableField = 'CODIGOMONTAJE'
end
item
DatasetField = 'REFERENCIAPEDIDO'
TableField = 'REFERENCIAPEDIDO'
end
item
DatasetField = 'REFERENCIAMONTAJE'
TableField = 'REFERENCIAMONTAJE'
end
item
DatasetField = 'ALMACEN'
TableField = 'ALMACEN'
end
item
DatasetField = 'CLIENTE'
TableField = 'CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end>
end>
Name = 'Refresh_ARTICULOS'
Fields = <
item
Name = 'CODIGO'
DataType = datAutoInc
BlobType = dabtUnknown
GeneratorName = 'GEN_ARTICULOS'
DictionaryEntry = 'CODIGOARTICULO_GEN'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOALMACEN'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOALMACEN'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'd. pedido'
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 = 'DESCRIPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIAPEDIDO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIAMONTAJE'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CLIENTE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cliente'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ALMACEN'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 30
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 = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOALMACEN'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOPEDIDO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOMONTAJE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
SQL =
'INSERT'#10' INTO ARTICULOS'#10' (CODIGO, CODIGOALMACEN, CODIGOPEDIDO' +
', DESCRIPCION, CODIGOMONTAJE)'#10' VALUES'#10' (:CODIGO, :CODIGOALMA' +
'CEN, :CODIGOPEDIDO, :DESCRIPCION, :CODIGOMONTAJE)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ARTICULOS'
end
item
Params = <
item
Name = 'OLD_CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
SQL = 'DELETE '#10' FROM'#10' ARTICULOS'#10' WHERE'#10' (CODIGO = :OLD_CODIGO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ARTICULOS'
end
item
Params = <
item
Name = 'CODIGOALMACEN'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOPEDIDO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 100
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 = 'ARTICULOS'
SQL =
'UPDATE ARTICULOS'#10' SET '#10' CODIGOALMACEN = :CODIGOALMACEN, '#10' ' +
' CODIGOPEDIDO = :CODIGOPEDIDO, '#10' DESCRIPCION = :DESCRIPCION, ' +
#10' CODIGOMONTAJE = :CODIGOMONTAJE'#10' WHERE'#10' (CODIGO = :OLD_C' +
'ODIGO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ARTICULOS'
end>
RelationShips = <>
UpdateRules = <
item
Name = 'Insert ARTICULOS'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'ARTICULOS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update ARTICULOS'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'ARTICULOS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete ARTICULOS'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'ARTICULOS'
FailureBehaviour = fbRaiseException
end>
Left = 40
Top = 16
end
object bpArticulos: TDABusinessProcessor
Schema = schArticulos
InsertCommandName = 'Insert_ARTICULOS'
UpdateCommandName = 'Update_ARTICULOS'
RefreshDatasetName = 'Refresh_ARTICULOS'
ReferencedDataset = 'ARTICULOS'
ProcessorOptions = [poAutoGenerateDelete, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 184
Top = 16
end
object DABINAdapter: TDABINAdapter
Left = 40
Top = 72
end
end
Reference in New Issue View Git Blame Copy Permalink