FactuGES2/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
2007-12-06 16:22:11 +00:00

981 lines
27 KiB
Plaintext

object srvContabilidad: TsrvContabilidad
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ServiceSchema = schContabilidad
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 181
Width = 331
object Diagrams: TDADiagrams
Left = 150
Top = 90
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="Balances" Left="0,00' +
'" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'Ejercicios_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'Balances_REF_BALANCE'
DataType = datString
Size = 255
end
item
Name = 'Balances_NATURALEZA'
DataType = datString
Size = 255
end
item
Name = 'Balances_NIVEL1'
DataType = datString
Size = 15
end
item
Name = 'Balances_DESCRIPCION1'
DataType = datString
Size = 255
end
item
Name = 'Balances_NIVEL2'
DataType = datString
Size = 15
end
item
Name = 'Balances_DESCRIPCION2'
DataType = datString
Size = 255
end
item
Name = 'Balances_NIVEL3'
DataType = datString
Size = 15
end
item
Name = 'Balances_DESCRIPCION3'
DataType = datString
Size = 255
end
item
Name = 'Epigrafes_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
Required = True
ServerAutoRefresh = True
end
item
Name = 'Epigrafes_REF_EPIGRAFE'
DataType = datString
Size = 6
end
item
Name = 'Epigrafes_ID_PADRE'
DataType = datInteger
end
item
Name = 'Epigrafes_DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'Epigrafes_ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'CuentasEspeciales_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'CuentasEspeciales_REFERENCIA'
DataType = datString
Size = 6
end
item
Name = 'CuentasEspeciales_DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'Cuentas_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_CUENTAS_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'Cuentas_REF_CUENTA'
DataType = datString
Size = 10
end
item
Name = 'Cuentas_ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'Cuentas_ID_EPIGRAFE'
DataType = datInteger
end
item
Name = 'Cuentas_DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'Cuentas_ID_BALANCE'
DataType = datInteger
end
item
Name = 'Cuentas_ID_CUENTA_ESPECIAL'
DataType = datInteger
end
item
Name = 'SubCuentas_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'SubCuentas_REF_SUBCUENTA'
DataType = datString
Size = 15
end
item
Name = 'SubCuentas_DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'SubCuentas_ID_CUENTA'
DataType = datInteger
end
item
Name = 'SubCuentas_ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'Asientos_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_ASIENTOS_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'Asientos_ID_ASIENTO_COMPENSADO'
DataType = datInteger
end
item
Name = 'Asientos_ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'Asientos_FECHA_ASIENTO'
DataType = datDateTime
end
item
Name = 'Asientos_CONCEPTO'
DataType = datString
Size = 255
end
item
Name = 'Asientos_PUNTEADO'
DataType = datSmallInt
end
item
Name = 'Asientos_DEBE'
DataType = datCurrency
end
item
Name = 'Asientos_HABER'
DataType = datCurrency
end
item
Name = 'Epigrafes_EPIGRAFE_PADRE'
DataType = datString
Size = 255
end
item
Name = 'Cuentas_EPIGRAFE'
DataType = datString
Size = 255
end
item
Name = 'Cuentas_BALANCE'
DataType = datString
Size = 255
end
item
Name = 'Cuentas_CUENTA_ESPECIAL'
DataType = datString
Size = 255
end>
Left = 150
Top = 24
end
object schContabilidad: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_ASIENTOS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_ASIENTO_COMPENSADO'
TableField = 'ID_ASIENTO_COMPENSADO'
end
item
DatasetField = 'ID_SUBCUENTA'
TableField = 'ID_SUBCUENTA'
end
item
DatasetField = 'FECHA_ASIENTO'
TableField = 'FECHA_ASIENTO'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'PUNTEADO'
TableField = 'PUNTEADO'
end
item
DatasetField = 'DEBE'
TableField = 'DEBE'
end
item
DatasetField = 'HABER'
TableField = 'HABER'
end>
end>
Name = 'Asientos'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_ASIENTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Asientos_ID'
InPrimaryKey = True
end
item
Name = 'ID_ASIENTO_COMPENSADO'
DataType = datInteger
DictionaryEntry = 'Asientos_ID_ASIENTO_COMPENSADO'
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
DictionaryEntry = 'Asientos_ID_SUBCUENTA'
end
item
Name = 'FECHA_ASIENTO'
DataType = datDateTime
DictionaryEntry = 'Asientos_FECHA_ASIENTO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
DictionaryEntry = 'Asientos_CONCEPTO'
end
item
Name = 'PUNTEADO'
DataType = datSmallInt
DictionaryEntry = 'Asientos_PUNTEADO'
end
item
Name = 'DEBE'
DataType = datCurrency
DictionaryEntry = 'Asientos_DEBE'
end
item
Name = 'HABER'
DataType = datCurrency
DictionaryEntry = 'Asientos_HABER'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_SUBCUENTAS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REF_SUBCUENTA'
TableField = 'REF_SUBCUENTA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID_CUENTA'
TableField = 'ID_CUENTA'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end>
end>
Name = 'SubCuentas'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
DictionaryEntry = 'SubCuentas_ID'
InPrimaryKey = True
end
item
Name = 'REF_SUBCUENTA'
DataType = datString
Size = 15
DictionaryEntry = 'SubCuentas_REF_SUBCUENTA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'SubCuentas_DESCRIPCION'
end
item
Name = 'ID_CUENTA'
DataType = datInteger
DictionaryEntry = 'SubCuentas_ID_CUENTA'
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
DictionaryEntry = 'SubCuentas_ID_EJERCICIO'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_CONT_CUENTAS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REF_CUENTA'
TableField = 'REF_CUENTA'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID_EPIGRAFE'
TableField = 'ID_EPIGRAFE'
end
item
DatasetField = 'EPIGRAFE'
TableField = 'EPIGRAFE'
end
item
DatasetField = 'ID_BALANCE'
TableField = 'ID_BALANCE'
end
item
DatasetField = 'BALANCE'
TableField = 'BALANCE'
end
item
DatasetField = 'ID_CUENTA_ESPECIAL'
TableField = 'ID_CUENTA_ESPECIAL'
end
item
DatasetField = 'CUENTA_ESPECIAL'
TableField = 'CUENTA_ESPECIAL'
end>
end>
Name = 'Cuentas'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_CUENTAS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Cuentas_ID'
InPrimaryKey = True
end
item
Name = 'REF_CUENTA'
DataType = datString
Size = 10
DictionaryEntry = 'Cuentas_REF_CUENTA'
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
DictionaryEntry = 'Cuentas_ID_EJERCICIO'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Cuentas_DESCRIPCION'
end
item
Name = 'ID_EPIGRAFE'
DataType = datInteger
DictionaryEntry = 'Cuentas_ID_EPIGRAFE'
end
item
Name = 'EPIGRAFE'
DataType = datString
Size = 255
DictionaryEntry = 'Cuentas_EPIGRAFE'
end
item
Name = 'ID_BALANCE'
DataType = datInteger
DictionaryEntry = 'Cuentas_ID_BALANCE'
end
item
Name = 'BALANCE'
DataType = datString
Size = 255
DictionaryEntry = 'Cuentas_BALANCE'
end
item
Name = 'ID_CUENTA_ESPECIAL'
DataType = datInteger
DictionaryEntry = 'Cuentas_ID_CUENTA_ESPECIAL'
end
item
Name = 'CUENTA_ESPECIAL'
DataType = datString
Size = 255
DictionaryEntry = 'Cuentas_CUENTA_ESPECIAL'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_CUENTAS_ESPECIALES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'CuentasEspeciales'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
DictionaryEntry = 'CuentasEspeciales_ID'
InPrimaryKey = True
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 6
DictionaryEntry = 'CuentasEspeciales_REFERENCIA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'CuentasEspeciales_DESCRIPCION'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_CONT_EPIGRAFES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REF_EPIGRAFE'
TableField = 'REF_EPIGRAFE'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
end
item
DatasetField = 'ID_PADRE'
TableField = 'ID_PADRE'
end
item
DatasetField = 'EPIGRAFE_PADRE'
TableField = 'EPIGRAFE_PADRE'
end>
end>
Name = 'Epigrafes'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Epigrafes_ID'
InPrimaryKey = True
end
item
Name = 'REF_EPIGRAFE'
DataType = datString
Size = 6
DictionaryEntry = 'Epigrafes_REF_EPIGRAFE'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Epigrafes_DESCRIPCION'
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
end
item
Name = 'ID_PADRE'
DataType = datInteger
DictionaryEntry = 'Epigrafes_ID_PADRE'
end
item
Name = 'EPIGRAFE_PADRE'
DataType = datString
Size = 255
DictionaryEntry = 'Epigrafes_EPIGRAFE_PADRE'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONT_BALANCES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REF_BALANCE'
TableField = 'REF_BALANCE'
end
item
DatasetField = 'NATURALEZA'
TableField = 'NATURALEZA'
end
item
DatasetField = 'NIVEL1'
TableField = 'NIVEL1'
end
item
DatasetField = 'DESCRIPCION1'
TableField = 'DESCRIPCION1'
end
item
DatasetField = 'NIVEL2'
TableField = 'NIVEL2'
end
item
DatasetField = 'DESCRIPCION2'
TableField = 'DESCRIPCION2'
end
item
DatasetField = 'NIVEL3'
TableField = 'NIVEL3'
end
item
DatasetField = 'DESCRIPCION3'
TableField = 'DESCRIPCION3'
end>
end>
Name = 'Balances'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Ejercicios_ID'
InPrimaryKey = True
end
item
Name = 'REF_BALANCE'
DataType = datString
Size = 255
DictionaryEntry = 'Balances_REF_BALANCE'
end
item
Name = 'NATURALEZA'
DataType = datString
Size = 255
DictionaryEntry = 'Balances_NATURALEZA'
end
item
Name = 'NIVEL1'
DataType = datString
Size = 15
DictionaryEntry = 'Balances_NIVEL1'
end
item
Name = 'DESCRIPCION1'
DataType = datString
Size = 255
DictionaryEntry = 'Balances_DESCRIPCION1'
end
item
Name = 'NIVEL2'
DataType = datString
Size = 15
DictionaryEntry = 'Balances_NIVEL2'
end
item
Name = 'DESCRIPCION2'
DataType = datString
Size = 255
DictionaryEntry = 'Balances_DESCRIPCION2'
end
item
Name = 'NIVEL3'
DataType = datString
Size = 15
DictionaryEntry = 'Balances_NIVEL3'
end
item
Name = 'DESCRIPCION3'
DataType = datString
Size = 255
DictionaryEntry = 'Balances_DESCRIPCION3'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
Value = ''
end
item
Name = 'REF_EPIGRAFE'
Value = ''
end
item
Name = 'DESCRIPCION'
Value = ''
end
item
Name = 'ID_EJERCICIO'
Value = ''
end
item
Name = 'ID_PADRE'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_EPIGRAFES'
SQL =
'INSERT'#10' INTO CONT_EPIGRAFES'#10' (ID, REF_EPIGRAFE, DESCRIPCION,' +
' ID_EJERCICIO, ID_PADRE)'#10' VALUES'#10' (:ID, :REF_EPIGRAFE, :DESC' +
'RIPCION, :ID_EJERCICIO, :ID_PADRE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Epigrafes'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_EPIGRAFES'
SQL = 'DELETE '#10' FROM'#10' CONT_EPIGRAFES'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Epigrafes'
end
item
Params = <
item
Name = 'ID'
Value = ''
end
item
Name = 'REF_EPIGRAFE'
Value = ''
end
item
Name = 'DESCRIPCION'
Value = ''
end
item
Name = 'ID_EJERCICIO'
Value = ''
end
item
Name = 'ID_PADRE'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_EPIGRAFES'
SQL =
'UPDATE CONT_EPIGRAFES'#10' SET '#10' ID = :ID,'#10' REF_EPIGRAFE = :R' +
'EF_EPIGRAFE, '#10' DESCRIPCION = :DESCRIPCION, '#10' ID_EJERCICIO ' +
'= :ID_EJERCICIO, '#10' ID_PADRE = :ID_PADRE'#10' WHERE'#10' (ID = :OL' +
'D_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Epigrafes'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONT_CUENTAS_ID'
Value = ''
end
item
Name = 'REF_CUENTA'
Value = ''
end
item
Name = 'ID_EJERCICIO'
Value = ''
end
item
Name = 'DESCRIPCION'
Value = ''
end
item
Name = 'ID_EPIGRAFE'
Value = ''
end
item
Name = 'ID_BALANCE'
Value = ''
end
item
Name = 'ID_CUENTA_ESPECIAL'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_CUENTAS'
SQL =
'INSERT'#10' INTO CONT_CUENTAS'#10' (ID, REF_CUENTA, ID_EJERCICIO, DE' +
'SCRIPCION, ID_EPIGRAFE,'#10' ID_BALANCE, ID_CUENTA_ESPECIAL)'#10' V' +
'ALUES'#10' (:ID, :REF_CUENTA, :ID_EJERCICIO, :DESCRIPCION, :ID_EP' +
'IGRAFE,'#10' :ID_BALANCE, :ID_CUENTA_ESPECIAL)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Cuentas'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_CUENTAS'
SQL = 'DELETE '#10' FROM'#10' CONT_CUENTAS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Cuentas'
end
item
Params = <
item
Name = 'ID'
Value = ''
end
item
Name = 'REF_CUENTA'
Value = ''
end
item
Name = 'ID_EJERCICIO'
Value = ''
end
item
Name = 'DESCRIPCION'
Value = ''
end
item
Name = 'ID_EPIGRAFE'
Value = ''
end
item
Name = 'ID_BALANCE'
Value = ''
end
item
Name = 'ID_CUENTA_ESPECIAL'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONT_CUENTAS'
SQL =
'UPDATE CONT_CUENTAS'#10' SET '#10' ID = :ID,'#10' REF_CUENTA = :REF_C' +
'UENTA, '#10' ID_EJERCICIO = :ID_EJERCICIO, '#10' DESCRIPCION = :DE' +
'SCRIPCION, '#10' ID_EPIGRAFE = :ID_EPIGRAFE, '#10' ID_BALANCE = :I' +
'D_BALANCE,'#10' ID_CUENTA_ESPECIAL = :ID_CUENTA_ESPECIAL'#10' WHERE'#10 +
' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Cuentas'
end>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 48
Top = 24
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
object bpEpigrafes: TDABusinessProcessor
Schema = schContabilidad
InsertCommandName = 'Insert_Epigrafes'
DeleteCommandName = 'Delete_Epigrafes'
UpdateCommandName = 'Update_Epigrafes'
ReferencedDataset = 'Epigrafes'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 24
end
object bpCuentas: TDABusinessProcessor
Schema = schContabilidad
InsertCommandName = 'Insert_Cuentas'
DeleteCommandName = 'Delete_Cuentas'
UpdateCommandName = 'Update_Cuentas'
ReferencedDataset = 'Cuentas'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 80
end
end