Archivado/ConstruccionesCNJ_FactuGES
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
12013bdc69
ConstruccionesCNJ_FactuGES/Modulos/Cobros de cliente/Servidor/srvCobrosCliente_Impl.dfm
david 12013bdc69 Importación inicial 
git-svn-id: https://192.168.0.254/svn/Proyectos.ConstruccionesCNJ_FactuGES/trunk@4 6cb6b671-b4a0-dd4c-8bdc-3006503d97e9
2007-06-21 15:50:59 +00:00

933 lines
28 KiB
Plaintext
Raw Blame History

object srvCobrosCliente: TsrvCobrosCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schCobrosCliente
ServiceAdapter = DABINAdapter
OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData
Height = 300
Width = 300
object Diagrams: TDADiagrams
Left = 150
Top = 74
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'CobrosCliente_ID'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
DisplayLabel = 'ID'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_EMPRESA'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CLIENTE'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_ID_MONTAJE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_MONTAJE'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_FECHA_PAGO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de pago'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_DESCRIPCION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Descripci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_IMPORTE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe'
Alignment = taRightJustify
end
item
Name = 'CobrosCliente_FORMA_PAGO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Forma de pago'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Nombre'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_FECHA_COBRO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de cobro'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_ALTA'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_MODIFICACION'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'USUARIO'
Alignment = taLeftJustify
end
item
Name = 'CobrosCliente_REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia'
Alignment = taLeftJustify
ServerAutoRefresh = True
end>
Left = 150
Top = 22
end
object schCobrosCliente: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <
item
Name = 'CODIGO'
DataType = datString
Size = 50
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'EMPRESA'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'REFERENCIAS'
SQL =
'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' +
'ESA = :EMPRESA'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'VALOR'
TableField = 'VALOR'
end>
end>
Name = 'DarReferencia'
Fields = <
item
Name = 'VALOR'
DataType = datString
Size = 255
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 = 'COBROS'
SQL =
'SELECT COBROS.ID, COBROS.ID_EMPRESA, COBROS.ID_CLIENTE, COBROS.I' +
'D_MONTAJE,'#10' COBROS.REFERENCIA, COBROS.FECHA_COBRO, COBROS.' +
'DESCRIPCION, COBROS.IMPORTE,'#10' COBROS.FORMA_PAGO, COBROS.FE' +
'CHA_ALTA, COBROS.FECHA_MODIFICACION,'#10' COBROS.USUARIO, CONT' +
'ACTOS.NOMBRE'#10#10'FROM COBROS'#10'LEFT JOIN CONTACTOS ON COBROS.ID_CLIEN' +
'TE = CONTACTOS.ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
SQLOrigin = 'CONTACTOS.NOMBRE'
end
item
DatasetField = 'ID'
TableField = 'ID'
SQLOrigin = 'COBROS.ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
SQLOrigin = 'COBROS.ID_EMPRESA'
end
item
DatasetField = 'FORMA_PAGO'
TableField = 'FORMA_PAGO'
SQLOrigin = 'COBROS.FORMA_PAGO'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
SQLOrigin = 'COBROS.ID_CLIENTE'
end
item
DatasetField = 'ID_MONTAJE'
TableField = 'ID_MONTAJE'
SQLOrigin = 'COBROS.ID_MONTAJE'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
SQLOrigin = 'COBROS.DESCRIPCION'
end
item
DatasetField = 'IMPORTE'
TableField = 'IMPORTE'
SQLOrigin = 'COBROS.IMPORTE'
end
item
DatasetField = 'FECHA_COBRO'
TableField = 'FECHA_COBRO'
SQLOrigin = 'COBROS.FECHA_COBRO'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
SQLOrigin = 'COBROS.FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
SQLOrigin = 'COBROS.FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
SQLOrigin = 'COBROS.USUARIO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
SQLOrigin = 'COBROS.REFERENCIA'
end>
end>
Name = 'CobrosCliente'
Fields = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_ID_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_MONTAJE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_ID_MONTAJE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_COBRO'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_FECHA_COBRO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_IMPORTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_FORMA_PAGO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_FECHA_ALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_FECHA_MODIFICACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'CobrosCliente_NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'COBROS'
SQL =
'SELECT COBROS.ID, COBROS.ID_EMPRESA, COBROS.ID_CLIENTE, COBROS.I' +
'D_MONTAJE,'#10' COBROS.REFERENCIA, COBROS.FECHA_COBRO, COBROS.' +
'DESCRIPCION, COBROS.IMPORTE,'#10' COBROS.FORMA_PAGO, COBROS.FE' +
'CHA_ALTA, COBROS.FECHA_MODIFICACION,'#10' COBROS.USUARIO, CONT' +
'ACTOS.NOMBRE'#10#10'FROM COBROS'#10'LEFT JOIN CONTACTOS ON COBROS.ID_CLIEN' +
'TE = CONTACTOS.ID'#10'WHERE COBROS.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'FORMA_PAGO'
TableField = 'FORMA_PAGO'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'ID_MONTAJE'
TableField = 'ID_MONTAJE'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'IMPORTE'
TableField = 'IMPORTE'
end
item
DatasetField = 'FECHA_COBRO'
TableField = 'FECHA_COBRO'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end>
end>
Name = 'CobrosCliente_Refresh'
Fields = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_MONTAJE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_COBRO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
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 = 'VALOR'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'CODIGO'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'EMPRESA'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end>
Statements = <
item
Connection = 'IBX'
SQL =
'UPDATE REFERENCIAS'#10'SET VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO'#10'AND' +
' ID_EMPRESA = :EMPRESA'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'ModificarReferencia'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_MONTAJE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_COBRO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'COBROS'
SQL =
'INSERT'#10' INTO COBROS'#10' (ID, ID_EMPRESA, FORMA_PAGO, ID_CLIENTE' +
', ID_MONTAJE, REFERENCIA, FECHA_COBRO,'#10' DESCRIPCION, IMPORTE' +
', FECHA_ALTA, FECHA_MODIFICACION, USUARIO)'#10' VALUES'#10' (:ID, :I' +
'D_EMPRESA, :FORMA_PAGO, :ID_CLIENTE, :ID_MONTAJE, :REFERENCIA,'#10' ' +
' :FECHA_COBRO, :DESCRIPCION, :IMPORTE, :FECHA_ALTA, :FECHA_MO' +
'DIFICACION, :USUARIO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_CobrosCliente'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'COBROS'
SQL = 'DELETE '#10' FROM'#10' COBROS'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_CobrosCliente'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_MONTAJE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_COBRO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'COBROS'
SQL =
'UPDATE COBROS'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :ID_EMPRESA,' +
' '#10' FORMA_PAGO = :FORMA_PAGO, '#10' ID_CLIENTE = :ID_CLIENTE, '#10 +
' ID_MONTAJE = :ID_MONTAJE, '#10' REFERENCIA = :REFERENCIA,'#10' ' +
' FECHA_COBRO = :FECHA_COBRO,'#10' DESCRIPCION = :DESCRIPCION, '#10' ' +
' IMPORTE = :IMPORTE,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MO' +
'DIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO'#10' WHERE' +
#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_CobrosCliente'
end>
RelationShips = <>
UpdateRules = <>
Left = 48
Top = 24
end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 72
end
object bpCobros: TDABusinessProcessor
Schema = schCobrosCliente
InsertCommandName = 'Insert_CobrosCliente'
DeleteCommandName = 'Delete_CobrosCliente'
UpdateCommandName = 'Update_CobrosCliente'
RefreshDatasetName = 'CobrosCliente_Refresh'
ReferencedDataset = 'CobrosCliente'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 240
Top = 23
end
end
Reference in New Issue View Git Blame Copy Permalink