708 lines
20 KiB
Plaintext
708 lines
20 KiB
Plaintext
object srvFormasPago: TsrvFormasPago
|
|
OldCreateOrder = True
|
|
OnCreate = DARemoteServiceCreate
|
|
RequiresSession = True
|
|
SessionManager = dmServer.SessionManager
|
|
AcquireConnection = True
|
|
ServiceSchema = schFormasPago
|
|
ServiceAdapter = DABINAdapter
|
|
OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
|
|
Height = 202
|
|
Width = 392
|
|
object Diagrams: TDADiagrams
|
|
Left = 150
|
|
Top = 90
|
|
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
|
end
|
|
object DataDictionary: TDADataDictionary
|
|
Fields = <
|
|
item
|
|
Name = 'FormasPago_ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'ID'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPago_REFERENCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Referencia'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPago_DESCRIPCION'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Descripci'#243'n'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPago_TITULAR'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Titular'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPago_ENTIDAD'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'C'#243'd. Entidad'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPago_SUCURSAL'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'C'#243'd. Sucusal'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPago_DC'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'DC'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPago_CUENTA'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'C'#243'd. Cuenta'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPagoPlazos_ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPagoPlazos_ID_FORMA_PAGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPagoPlazos_NUM_DIAS'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Num. d'#237'as'
|
|
Alignment = taLeftJustify
|
|
end
|
|
item
|
|
Name = 'FormasPagoPlazos_PORCENTAJE'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayLabel = '% aplazado'
|
|
Alignment = taRightJustify
|
|
end>
|
|
Left = 150
|
|
Top = 24
|
|
end
|
|
object schFormasPago: TDASchema
|
|
ConnectionManager = dmServer.ConnectionManager
|
|
DataDictionary = DataDictionary
|
|
Diagrams = Diagrams
|
|
Datasets = <
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'FORMAS_PAGO'
|
|
SQL =
|
|
'SELECT '#10' ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCUR' +
|
|
'SAL, '#10' DC, CUENTA'#10' FROM'#10' FORMAS_PAGO'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID'
|
|
TableField = 'ID'
|
|
end
|
|
item
|
|
DatasetField = 'REFERENCIA'
|
|
TableField = 'REFERENCIA'
|
|
end
|
|
item
|
|
DatasetField = 'DESCRIPCION'
|
|
TableField = 'DESCRIPCION'
|
|
end
|
|
item
|
|
DatasetField = 'TITULAR'
|
|
TableField = 'TITULAR'
|
|
end
|
|
item
|
|
DatasetField = 'ENTIDAD'
|
|
TableField = 'ENTIDAD'
|
|
end
|
|
item
|
|
DatasetField = 'SUCURSAL'
|
|
TableField = 'SUCURSAL'
|
|
end
|
|
item
|
|
DatasetField = 'DC'
|
|
TableField = 'DC'
|
|
end
|
|
item
|
|
DatasetField = 'CUENTA'
|
|
TableField = 'CUENTA'
|
|
end>
|
|
end>
|
|
Name = 'FormasPago'
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPago_ID'
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPago_REFERENCIA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'DESCRIPCION'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPago_DESCRIPCION'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'TITULAR'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPago_TITULAR'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ENTIDAD'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPago_ENTIDAD'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'SUCURSAL'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPago_SUCURSAL'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'DC'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPago_DC'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CUENTA'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPago_CUENTA'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'ID_FORMA_PAGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'FORMAS_PAGO_PLAZOS'
|
|
SQL =
|
|
'SELECT '#10' ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE'#10' FROM'#10' F' +
|
|
'ORMAS_PAGO_PLAZOS'#10' WHERE'#10' FORMAS_PAGO_PLAZOS.ID_FORMA_PAGO =' +
|
|
' :ID_FORMA_PAGO'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID'
|
|
TableField = 'ID'
|
|
end
|
|
item
|
|
DatasetField = 'ID_FORMA_PAGO'
|
|
TableField = 'ID_FORMA_PAGO'
|
|
end
|
|
item
|
|
DatasetField = 'NUM_DIAS'
|
|
TableField = 'NUM_DIAS'
|
|
end
|
|
item
|
|
DatasetField = 'PORCENTAJE'
|
|
TableField = 'PORCENTAJE'
|
|
end>
|
|
end>
|
|
Name = 'FormasPagoPlazos'
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPagoPlazos_ID'
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ID_FORMA_PAGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPagoPlazos_ID_FORMA_PAGO'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'NUM_DIAS'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPagoPlazos_NUM_DIAS'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'PORCENTAJE'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
DictionaryEntry = 'FormasPagoPlazos_PORCENTAJE'
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end>
|
|
Commands = <
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'DESCRIPCION'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'TITULAR'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'ENTIDAD'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'SUCURSAL'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'DC'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CUENTA'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'FORMAS_PAGO'
|
|
SQL =
|
|
'INSERT'#10' INTO FORMAS_PAGO'#10' (ID, REFERENCIA, DESCRIPCION, TITU' +
|
|
'LAR, ENTIDAD, SUCURSAL, '#10' DC, CUENTA)'#10' VALUES'#10' (:ID, :RE' +
|
|
'FERENCIA, :DESCRIPCION, :TITULAR, :ENTIDAD, '#10' :SUCURSAL, :DC' +
|
|
', :CUENTA)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Insert_FormasPago'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'OLD_ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'FORMAS_PAGO'
|
|
SQL = 'DELETE '#10' FROM'#10' FORMAS_PAGO'#10' WHERE'#10' (ID = :OLD_ID)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Delete_FormasPago'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'DESCRIPCION'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'TITULAR'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'ENTIDAD'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'SUCURSAL'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'DC'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CUENTA'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'OLD_ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'FORMAS_PAGO'
|
|
SQL =
|
|
'UPDATE FORMAS_PAGO'#10' SET '#10' REFERENCIA = :REFERENCIA,'#10' DESC' +
|
|
'RIPCION = :DESCRIPCION, '#10' TITULAR = :TITULAR, '#10' ENTIDAD = ' +
|
|
':ENTIDAD, '#10' SUCURSAL = :SUCURSAL, '#10' DC = :DC, '#10' CUENTA ' +
|
|
'= :CUENTA'#10' WHERE'#10' (ID = :OLD_ID)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Update_FormasPago'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'ID_FORMA_PAGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'NUM_DIAS'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'PORCENTAJE'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'FORMAS_PAGO_PLAZOS'
|
|
SQL =
|
|
'INSERT'#10' INTO FORMAS_PAGO_PLAZOS'#10' (ID, ID_FORMA_PAGO, NUM_DIA' +
|
|
'S, PORCENTAJE)'#10' VALUES'#10' (:ID, :ID_FORMA_PAGO, :NUM_DIAS, :PO' +
|
|
'RCENTAJE)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Insert_FormasPagoPlazos'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'OLD_ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'FORMAS_PAGO_PLAZOS'
|
|
SQL = 'DELETE '#10' FROM'#10' FORMAS_PAGO_PLAZOS'#10' WHERE'#10' (ID = :OLD_ID)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Delete_FormasPagoPlazos'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'ID_FORMA_PAGO'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'NUM_DIAS'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'PORCENTAJE'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'OLD_ID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'FORMAS_PAGO_PLAZOS'
|
|
SQL =
|
|
'UPDATE FORMAS_PAGO_PLAZOS'#10' SET '#10' ID_FORMA_PAGO = :ID_FORMA_P' +
|
|
'AGO,'#10' NUM_DIAS = :NUM_DIAS, '#10' PORCENTAJE = :PORCENTAJE'#10' W' +
|
|
'HERE'#10' (ID = :OLD_ID)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Update_FormasPagoPlazos'
|
|
end>
|
|
RelationShips = <>
|
|
UpdateRules = <
|
|
item
|
|
Name = 'Insert FormasPago'
|
|
DoUpdate = False
|
|
DoInsert = True
|
|
DoDelete = False
|
|
DatasetName = 'FormasPago'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Insert FormasPagoPlazos'
|
|
DoUpdate = False
|
|
DoInsert = True
|
|
DoDelete = False
|
|
DatasetName = 'FormasPagoPlazos'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Update FormasPago'
|
|
DoUpdate = True
|
|
DoInsert = False
|
|
DoDelete = False
|
|
DatasetName = 'FormasPago'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Update FormasPagoPlazos'
|
|
DoUpdate = True
|
|
DoInsert = False
|
|
DoDelete = False
|
|
DatasetName = 'FormasPagoPlazos'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Delete FormasPagoPlazos'
|
|
DoUpdate = False
|
|
DoInsert = False
|
|
DoDelete = True
|
|
DatasetName = 'FormasPagoPlazos'
|
|
FailureBehaviour = fbRaiseException
|
|
end
|
|
item
|
|
Name = 'Delete FormasPago'
|
|
DoUpdate = False
|
|
DoInsert = False
|
|
DoDelete = True
|
|
DatasetName = 'FormasPago'
|
|
FailureBehaviour = fbRaiseException
|
|
end>
|
|
Left = 48
|
|
Top = 24
|
|
end
|
|
object DABINAdapter: TDABINAdapter
|
|
Left = 48
|
|
Top = 90
|
|
end
|
|
object bpFormasPagoPlazos: TDABusinessProcessor
|
|
Schema = schFormasPago
|
|
InsertCommandName = 'Insert_FormasPagoPlazos'
|
|
DeleteCommandName = 'Delete_FormasPagoPlazos'
|
|
UpdateCommandName = 'Update_FormasPagoPlazos'
|
|
ReferencedDataset = 'FormasPagoPlazos'
|
|
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
|
UpdateMode = updWhereKeyOnly
|
|
Left = 248
|
|
Top = 90
|
|
end
|
|
object bpFormasPago: TDABusinessProcessor
|
|
Schema = schFormasPago
|
|
InsertCommandName = 'Insert_FormasPago'
|
|
DeleteCommandName = 'Delete_FormasPago'
|
|
UpdateCommandName = 'Update_FormasPago'
|
|
ReferencedDataset = 'FormasPago'
|
|
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
|
UpdateMode = updWhereKeyOnly
|
|
Left = 248
|
|
Top = 24
|
|
end
|
|
end
|