Estudio_CGH/ProGestion
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
409846507d
ProGestion/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

1718 lines
52 KiB
Plaintext
Raw Blame History

object srvContactos: TsrvContactos
OldCreateOrder = True
SessionManager = dmServer.SessionManager
OnActivate = DARemoteServiceActivate
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schContactos
ServiceAdapter = DABINAdapter
Left = 578
Top = 289
Height = 368
Width = 464
object schContactos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOSCATEGORIAS'
SQL =
'SELECT '#10' CONTACTOSCATEGORIAS.CODIGOCONTACTO, CONTACTOSCATEGOR' +
'IAS.CODIGOCATEGORIA,'#10' CATEGORIAS.DESCRIPCION'#10'FROM'#10' CONTACT' +
'OSCATEGORIAS, CATEGORIAS'#10'WHERE CONTACTOSCATEGORIAS.CODIGOCONTACT' +
'O = :CODIGOCONTACTO'#10'AND CATEGORIAS.CODIGO = CONTACTOSCATEGORIAS.' +
'CODIGOCATEGORIA'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOCONTACTO'
TableField = 'CODIGOCONTACTO'
end
item
DatasetField = 'CODIGOCATEGORIA'
TableField = 'CODIGOCATEGORIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'CONTACTOSCATEGORIAS'
Fields = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
DisplayLabel = 'C'#243'd. contacto'
Alignment = taLeftJustify
ServerAutoRefresh = True
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCATEGORIA'
InPrimaryKey = True
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>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CATEGORIAS'
SQL = 'SELECT '#10' CODIGO, DESCRIPCION'#10' FROM'#10' CATEGORIAS'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'CATEGORIAS'
Fields = <
item
Name = 'CODIGO'
DataType = datAutoInc
BlobType = dabtUnknown
GeneratorName = 'GEN_CATEGORIAS'
DictionaryEntry = 'CODIGOCATEGORIA_GEN'
InPrimaryKey = True
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>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOCATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOSCATEGORIAS'
SQL =
'SELECT '#10' CONTACTOSCATEGORIAS.CODIGOCONTACTO, CONTACTOSCATEGOR' +
'IAS.CODIGOCATEGORIA,'#10' CATEGORIAS.DESCRIPCION'#10'FROM'#10' CONTACT' +
'OSCATEGORIAS, CATEGORIAS'#10'WHERE CONTACTOSCATEGORIAS.CODIGOCONTACT' +
'O = :CODIGOCONTACTO'#10'AND CONTACTOSCATEGORIAS.CODIGOCATEGORIA = :C' +
'ODIGOCATEGORIA'#10'AND CATEGORIAS.CODIGO = CONTACTOSCATEGORIAS.CODIG' +
'OCATEGORIA'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOCONTACTO'
TableField = 'CODIGOCONTACTO'
end
item
DatasetField = 'CODIGOCATEGORIA'
TableField = 'CODIGOCATEGORIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'REFRESCOCONTACTOSCATEGORIAS'
Fields = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCONTACTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCATEGORIA'
InPrimaryKey = True
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>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'SELECT '#10' CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, NIFCIF, '#10 +
' NOMBRE, CALLE, PROVINCIA, CODIGOPOSTAL, POBLACION, '#10' TELE' +
'FONO1, TELEFONO2, MOVIL, FAX, CORREO1, CORREO2, '#10' PAGINAWEB, ' +
'PUESTO, TRABAJO, DATOSFACTURACION,'#10' DATOSBANCARIOS,'#10' (sele' +
'ct CADENA from getcategorias(CONTACTOS.CODIGO)) as LISTACATEGORI' +
'AS'#10' FROM'#10' CONTACTOS'
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 = 'NIFCIF'
TableField = 'NIFCIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGOPOSTAL'
TableField = 'CODIGOPOSTAL'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'TELEFONO1'
TableField = 'TELEFONO1'
end
item
DatasetField = 'TELEFONO2'
TableField = 'TELEFONO2'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'CORREO1'
TableField = 'CORREO1'
end
item
DatasetField = 'CORREO2'
TableField = 'CORREO2'
end
item
DatasetField = 'PAGINAWEB'
TableField = 'PAGINAWEB'
end
item
DatasetField = 'PUESTO'
TableField = 'PUESTO'
end
item
DatasetField = 'TRABAJO'
TableField = 'TRABAJO'
end
item
DatasetField = 'LISTACATEGORIAS'
TableField = 'LISTACATEGORIAS'
end
item
DatasetField = 'DATOSFACTURACION'
TableField = 'DATOSFACTURACION'
end
item
DatasetField = 'DATOSBANCARIOS'
TableField = 'DATOSBANCARIOS'
end>
end>
Name = 'CONTACTOS'
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
Required = True
DisplayWidth = 0
DisplayLabel = 'C'#243'd. contacto'
Alignment = taLeftJustify
ServerAutoRefresh = True
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 = 'NIFCIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'NIFCIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
DictionaryEntry = 'CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
BlobType = dabtUnknown
DictionaryEntry = 'PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOPOSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
DictionaryEntry = 'POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO1'
DataType = datString
Size = 30
BlobType = dabtUnknown
DictionaryEntry = 'TELEFONOTRABAJO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO2'
DataType = datString
Size = 30
BlobType = dabtUnknown
DictionaryEntry = 'TELEFONOPARTICULAR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL'
DataType = datString
Size = 30
BlobType = dabtUnknown
DictionaryEntry = 'MOVIL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 30
BlobType = dabtUnknown
DictionaryEntry = 'FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CORREO1'
DataType = datString
Size = 60
BlobType = dabtUnknown
DictionaryEntry = 'CORREO1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CORREO2'
DataType = datString
Size = 60
BlobType = dabtUnknown
DictionaryEntry = 'CORREO2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PAGINAWEB'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'PAGINAWEB'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PUESTO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TRABAJO'
DataType = datString
Size = 300
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DATOSFACTURACION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DATOSBANCARIOS'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'LISTACATEGORIAS'
DataType = datString
Size = 1000
BlobType = dabtUnknown
LogChanges = False
DisplayWidth = 0
ReadOnly = True
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOSASOCIADOS'
SQL =
'SELECT CONTACTOSASOCIADOS.CODIGOCONTACTO, CONTACTOSASOCIADOS.COD' +
'IGOASOCIADO, CONTACTOS.NOMBRE'#10'FROM CONTACTOSASOCIADOS'#10'LEFT JOIN ' +
'CONTACTOS ON (CONTACTOSASOCIADOS.CODIGOASOCIADO = CONTACTOS.CODI' +
'GO)'#10'WHERE CONTACTOSASOCIADOS.CODIGOCONTACTO = :CODIGOCONTACTO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOCONTACTO'
TableField = 'CODIGOCONTACTO'
end
item
DatasetField = 'CODIGOASOCIADO'
TableField = 'CODIGOASOCIADO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end>
end>
Name = 'CONTACTOSASOCIADOS'
Fields = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
DisplayLabel = 'C'#243'd. contacto'
Alignment = taLeftJustify
ServerAutoRefresh = True
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOASOCIADO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCONTACTO'
InPrimaryKey = True
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>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOASOCIADO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOSASOCIADOS'
SQL =
'SELECT CONTACTOSASOCIADOS.CODIGOCONTACTO, CONTACTOSASOCIADOS.COD' +
'IGOASOCIADO,'#10'CONTACTOS.NOMBRE'#10'FROM CONTACTOSASOCIADOS'#10'LEFT JOIN ' +
'CONTACTOS ON (CONTACTOSASOCIADOS.CODIGOASOCIADO = CONTACTOS.CODI' +
'GO)'#10'WHERE CONTACTOSASOCIADOS.CODIGOCONTACTO = :CODIGOCONTACTO'#10'AN' +
'D CONTACTOSASOCIADOS.CODIGOASOCIADO = :CODIGOASOCIADO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOCONTACTO'
TableField = 'CODIGOCONTACTO'
end
item
DatasetField = 'CODIGOASOCIADO'
TableField = 'CODIGOASOCIADO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end>
end>
Name = 'REFRESCOCONTACTOSASOCIADOS'
Fields = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCONTACTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOASOCIADO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCONTACTO'
InPrimaryKey = True
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>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <
item
Params = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOCATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOSCATEGORIAS'
SQL =
'INSERT'#10' INTO CONTACTOSCATEGORIAS'#10' (CODIGOCONTACTO, CODIGOCAT' +
'EGORIA)'#10' VALUES'#10' (:CODIGOCONTACTO, :CODIGOCATEGORIA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_CONTACTOSCATEGORIAS'
end
item
Params = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOCATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_CODIGOCATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOSCATEGORIAS'
SQL =
'UPDATE CONTACTOSCATEGORIAS'#10' SET '#10' CODIGOCONTACTO = :CODIGOCO' +
'NTACTO, '#10' CODIGOCATEGORIA = :CODIGOCATEGORIA'#10' WHERE'#10' (COD' +
'IGOCONTACTO = :OLD_CODIGOCONTACTO) AND '#10' (CODIGOCATEGORIA = :' +
'OLD_CODIGOCATEGORIA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_CONTACTOSCATEGORIAS'
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 = 'NIFCIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO1'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO2'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FAX'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CORREO1'
DataType = datString
Size = 60
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CORREO2'
DataType = datString
Size = 60
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PAGINAWEB'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PUESTO'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TRABAJO'
DataType = datString
Size = 300
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DATOSFACTURACION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DATOSBANCARIOS'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'INSERT'#10' INTO CONTACTOS'#10' (CODIGOEMPRESA, CODIGO, FECHAALTA, U' +
'SUARIO, NIFCIF, NOMBRE,'#10' CALLE, PROVINCIA, CODIGOPOSTAL, POB' +
'LACION, TELEFONO1, '#10' TELEFONO2, MOVIL, FAX, CORREO1, CORREO2' +
', PAGINAWEB, '#10' PUESTO, TRABAJO, DATOSFACTURACION, DATOSBANCA' +
'RIOS)'#10' VALUES'#10' (:CODIGOEMPRESA, :CODIGO, :FECHAALTA, :USUARI' +
'O, :NIFCIF, :NOMBRE,'#10' :CALLE, :PROVINCIA, :CODIGOPOSTAL, :PO' +
'BLACION, :TELEFONO1, '#10' :TELEFONO2, :MOVIL, :FAX, :CORREO1, :' +
'CORREO2, :PAGINAWEB, '#10' :PUESTO, :TRABAJO, :DATOSFACTURACION,' +
' :DATOSBANCARIOS)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_CONTACTOS'
end
item
Params = <
item
Name = 'CODIGOEMPRESA'
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 = 'NIFCIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO1'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO2'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FAX'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CORREO1'
DataType = datString
Size = 60
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CORREO2'
DataType = datString
Size = 60
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PAGINAWEB'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PUESTO'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TRABAJO'
DataType = datString
Size = 300
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DATOSFACTURACION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DATOSBANCARIOS'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'UPDATE CONTACTOS'#10' SET '#10' CODIGOEMPRESA = :CODIGOEMPRESA, '#10' ' +
' FECHAALTA = :FECHAALTA, '#10' USUARIO = :USUARIO, '#10' NIFCIF = ' +
':NIFCIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' PROVIN' +
'CIA = :PROVINCIA, '#10' CODIGOPOSTAL = :CODIGOPOSTAL, '#10' POBLAC' +
'ION = :POBLACION, '#10' TELEFONO1 = :TELEFONO1, '#10' TELEFONO2 = ' +
':TELEFONO2, '#10' MOVIL = :MOVIL, '#10' FAX = :FAX, '#10' CORREO1 =' +
' :CORREO1, '#10' CORREO2 = :CORREO2, '#10' PAGINAWEB = :PAGINAWEB,' +
' '#10' PUESTO = :PUESTO, '#10' TRABAJO = :TRABAJO,'#10' DATOSFACTUR' +
'ACION = :DATOSFACTURACION,'#10' DATOSBANCARIOS = :DATOSBANCARIOS'#10 +
' WHERE'#10' (CODIGO = :OLD_CODIGO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_CONTACTOS'
end
item
Params = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOASOCIADO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOSASOCIADOS'
SQL =
'INSERT'#10' INTO CONTACTOSASOCIADOS'#10' (CODIGOCONTACTO, CODIGOASOC' +
'IADO)'#10' VALUES'#10' (:CODIGOCONTACTO, :CODIGOASOCIADO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_CONTACTOSASOCIADOS'
end
item
Params = <
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOASOCIADO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_CODIGOASOCIADO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOSASOCIADOS'
SQL =
'UPDATE CONTACTOSASOCIADOS'#10' SET '#10' CODIGOCONTACTO = :CODIGOCON' +
'TACTO, '#10' CODIGOASOCIADO = :CODIGOASOCIADO'#10' WHERE'#10' (CODIGO' +
'CONTACTO = :OLD_CODIGOCONTACTO) AND '#10' (CODIGOASOCIADO = :OLD_' +
'CODIGOASOCIADO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_CONTACTOSASOCIADOS'
end>
RelationShips = <
item
Name = 'FK_CONTACTOSCATEGORIAS_CONTACTOS'
MasterDatasetName = 'CONTACTOS'
MasterFields = 'CODIGO'
DetailDatasetName = 'CONTACTOSCATEGORIAS'
DetailFields = 'CODIGOCONTACTO'
end
item
Name = 'FK_CONTACTOSCATEGORIAS_CATEGORIAS'
MasterDatasetName = 'CATEGORIAS'
MasterFields = 'CODIGO'
DetailDatasetName = 'CONTACTOSCATEGORIAS'
DetailFields = 'CODIGOCATEGORIA'
end
item
Name = 'FK_CONTACTOSASOCIADOS_CONTACTOS'
MasterDatasetName = 'CONTACTOS'
MasterFields = 'CODIGO'
DetailDatasetName = 'CONTACTOSASOCIADOS'
DetailFields = 'CODIGOCONTACTO'
end
item
Name = 'FK_CONTACTOSASOCIADOS_CONTACTOS'
MasterDatasetName = 'CONTACTOS'
MasterFields = 'CODIGO'
DetailDatasetName = 'CONTACTOSASOCIADOS'
DetailFields = 'CODIGOASOCIADO'
end>
UpdateRules = <
item
Name = 'Delete CONTACTOSASOCIADOS'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'CONTACTOSASOCIADOS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete CategoriasContacto'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'CONTACTOSCATEGORIAS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete Contactos'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'CONTACTOS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert Contactos'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'CONTACTOS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert CategoriasContacto'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'CONTACTOSCATEGORIAS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert CONTACTOSASOCIADOS'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'CONTACTOSASOCIADOS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update Contactos'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'Contactos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update CategoriasContacto'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'CONTACTOSCATEGORIAS'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update CONTACTOSASOCIADOS'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'CONTACTOSASOCIADOS'
FailureBehaviour = fbRaiseException
end>
Left = 32
Top = 16
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.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
ReportOptions.CreateDate = 38658.761816215280000000
ReportOptions.LastChange = 38658.776815497690000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
''
'end.')
Left = 296
Top = 16
Datasets = <
item
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
end>
Variables = <>
Style = <>
object Page1: TfrxReportPage
PaperWidth = 210.000000000000000000
PaperHeight = 297.000000000000000000
PaperSize = 9
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
object MasterData1: TfrxMasterData
Height = 22.677180000000000000
Top = 18.897650000000000000
Width = 718.110700000000000000
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
RowCount = 0
object Memo1: TfrxMemoView
Left = 3.779530000000000000
Width = 79.370130000000000000
Height = 18.897650000000000000
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
Memo.UTF8 = (
'[frxDBDataset1."nombre"]')
end
end
end
end
object DACDSDataTable1: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'CODIGOEMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO'
DataType = datAutoInc
BlobType = dabtUnknown
GeneratorName = 'GEN_CONTACTOS'
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'CODIGOCONTACTO_GEN'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'FECHAALTA'
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 = 'NIFCIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'NIFCIF'
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 = 'NOTAS'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'NOTAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'CODIGOPOSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO1'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'TELEFONOPARTICULAR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO2'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'TELEFONOTRABAJO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'MOVIL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CORREO1'
DataType = datString
Size = 60
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'CORREO1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CORREO2'
DataType = datString
Size = 60
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'CORREO2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PAGINAWEB'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'PAGINAWEB'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PERSONACONTACTO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'PERSONACONTACTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
Adapter = DABINAdapter
LocalSchema = schContactos
LocalConnection = 'IBX'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Contactos'
IndexDefs = <>
Left = 296
Top = 72
end
object DADataSource1: TDADataSource
DataTable = DACDSDataTable1
Left = 352
Top = 72
end
object frxDBDataset1: TfrxDBDataset
UserName = 'frxDBDataset1'
CloseDataSource = True
DataSource = DADataSource1
Left = 352
Top = 16
end
object bpCategorias: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_CONTACTOSCATEGORIAS'
UpdateCommandName = 'Update_CONTACTOSCATEGORIAS'
RefreshDatasetName = 'REFRESCOCONTACTOSCATEGORIAS'
ReferencedDataset = 'CONTACTOSCATEGORIAS'
ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 128
Top = 64
end
object bpContactos: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_CONTACTOS'
UpdateCommandName = 'Update_CONTACTOS'
ReferencedDataset = 'CONTACTOS'
ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 128
Top = 16
end
object bpAsociados: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_CONTACTOSASOCIADOS'
UpdateCommandName = 'Update_CONTACTOSASOCIADOS'
RefreshDatasetName = 'REFRESCOCONTACTOSASOCIADOS'
ReferencedDataset = 'CONTACTOSASOCIADOS'
ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 128
Top = 120
end
object DABINAdapter: TDABINAdapter
Left = 32
Top = 64
end
end
Reference in New Issue View Git Blame Copy Permalink