Estudio_CGH/ProGestion
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
9329ca9438
ProGestion/Modulos/Calendarios/Servidor/srvCitas_Impl.dfm

723 lines
21 KiB
Plaintext
Raw Blame History

object srvCitas: TsrvCitas
OldCreateOrder = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schCitas
ServiceAdapter = DABINAdapter
Left = 502
Top = 180
Height = 184
Width = 245
object schCitas: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CITAS'
SQL =
'SELECT '#10' ID, PARENTID, START, TIPO, FINISH, OPTIONS, CAPTION,' +
' '#10' MENSAJE, RECURRENCEINDEX, RESOURCEID, LOCATION, REMINDER, ' +
#10' STATE, LABELCOLOR, CODIGOCONTRATO, TIPOTAREA, NOMBRECLIENTE' +
', '#10' PARTIDA, COMPLETADA, NOMBREPROVEEDOR, CODIGOCOLUMNA, '#10' ' +
' CODIGOFILA, EMPRESA'#10' FROM'#10' CITAS'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'PARENTID'
TableField = 'PARENTID'
end
item
DatasetField = 'START'
TableField = 'START'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FINISH'
TableField = 'FINISH'
end
item
DatasetField = 'OPTIONS'
TableField = 'OPTIONS'
end
item
DatasetField = 'CAPTION'
TableField = 'CAPTION'
end
item
DatasetField = 'MENSAJE'
TableField = 'MENSAJE'
end
item
DatasetField = 'RECURRENCEINDEX'
TableField = 'RECURRENCEINDEX'
end
item
DatasetField = 'RESOURCEID'
TableField = 'RESOURCEID'
end
item
DatasetField = 'LOCATION'
TableField = 'LOCATION'
end
item
DatasetField = 'REMINDER'
TableField = 'REMINDER'
end
item
DatasetField = 'STATE'
TableField = 'STATE'
end
item
DatasetField = 'LABELCOLOR'
TableField = 'LABELCOLOR'
end
item
DatasetField = 'CODIGOCONTRATO'
TableField = 'CODIGOCONTRATO'
end
item
DatasetField = 'TIPOTAREA'
TableField = 'TIPOTAREA'
end
item
DatasetField = 'NOMBRECLIENTE'
TableField = 'NOMBRECLIENTE'
end
item
DatasetField = 'PARTIDA'
TableField = 'PARTIDA'
end
item
DatasetField = 'COMPLETADA'
TableField = 'COMPLETADA'
end
item
DatasetField = 'NOMBREPROVEEDOR'
TableField = 'NOMBREPROVEEDOR'
end
item
DatasetField = 'CODIGOCOLUMNA'
TableField = 'CODIGOCOLUMNA'
end
item
DatasetField = 'CODIGOFILA'
TableField = 'CODIGOFILA'
end
item
DatasetField = 'EMPRESA'
TableField = 'EMPRESA'
end>
end>
Name = 'CITAS'
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 = 'PARENTID'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'START'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FINISH'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OPTIONS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CAPTION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MENSAJE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'RECURRENCEINDEX'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'RESOURCEID'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'LOCATION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REMINDER'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'STATE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'LABELCOLOR'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCONTRATO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPOTAREA'
DataType = datString
Size = 30
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
item
Name = 'PARTIDA'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'COMPLETADA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBREPROVEEDOR'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCOLUMNA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOFILA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMPRESA'
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 = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'SELECT CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, NIFCIF,'#10' NO' +
'MBRE, NOTAS, CALLE, PROVINCIA, CODIGOPOSTAL, POBLACION,'#10' TELE' +
'FONO1, TELEFONO2, MOVIL, FAX, CORREO1, CORREO2,'#10' PAGINAWEB, P' +
'ERSONACONTACTO'#10#10'FROM CONTACTOS'#10'LEFT JOIN CONTACTOSCATEGORIAS ON ' +
'(CODIGOCONTACTO = CODIGO)'#10'WHERE CODIGOCATEGORIA = 5'
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 = 'NOTAS'
TableField = 'NOTAS'
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 = 'PERSONACONTACTO'
TableField = 'PERSONACONTACTO'
end>
end>
Name = 'VENDEDORES'
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 = 'FECHAALTA'
DataType = datDateTime
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
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIFCIF'
DataType = datString
Size = 10
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 = 'NOTAS'
DataType = datString
Size = 2000
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 = 'PROVINCIA'
DataType = datString
Size = 30
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 = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO1'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO2'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CORREO1'
DataType = datString
Size = 60
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CORREO2'
DataType = datString
Size = 60
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PAGINAWEB'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PERSONACONTACTO'
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>
Commands = <>
RelationShips = <>
UpdateRules = <>
Left = 24
Top = 16
end
object DABINAdapter: TDABINAdapter
Left = 24
Top = 72
end
end
Reference in New Issue View Git Blame Copy Permalink