inherited DataModuleContabilidad: TDataModuleContabilidad OnCreate = DAClientDataModuleCreate Height = 457 Width = 480 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvContabilidad' Left = 48 Top = 24 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 104 end object rda_Contabilidad: TDARemoteDataAdapter DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService Left = 176 Top = 24 end object tbl_Balances: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_BALANCES_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'Ejercicios_ID' InPrimaryKey = True end item Name = 'REF_BALANCE' DataType = datString Size = 255 DisplayLabel = 'Balances_REF_BALANCE' DictionaryEntry = 'Balances_REF_BALANCE' end item Name = 'NATURALEZA' DataType = datString Size = 255 DisplayLabel = 'Balances_NATURALEZA' DictionaryEntry = 'Balances_NATURALEZA' end item Name = 'NIVEL1' DataType = datString Size = 15 DisplayLabel = 'Balances_NIVEL1' DictionaryEntry = 'Balances_NIVEL1' end item Name = 'DESCRIPCION1' DataType = datString Size = 255 DisplayLabel = 'Balances_DESCRIPCION1' DictionaryEntry = 'Balances_DESCRIPCION1' end item Name = 'NIVEL2' DataType = datString Size = 15 DisplayLabel = 'Balances_NIVEL2' DictionaryEntry = 'Balances_NIVEL2' end item Name = 'DESCRIPCION2' DataType = datString Size = 255 DisplayLabel = 'Balances_DESCRIPCION2' DictionaryEntry = 'Balances_DESCRIPCION2' end item Name = 'NIVEL3' DataType = datString Size = 15 DisplayLabel = 'Balances_NIVEL3' DictionaryEntry = 'Balances_NIVEL3' end item Name = 'DESCRIPCION3' DataType = datString Size = 255 DisplayLabel = 'Balances_DESCRIPCION3' DictionaryEntry = 'Balances_DESCRIPCION3' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contabilidad LogicalName = 'Balances' IndexDefs = <> Left = 304 Top = 80 end object ds_Balances: TDADataSource DataSet = tbl_Balances.Dataset DataTable = tbl_Balances Left = 304 Top = 16 end object tbl_CuentasEspeciales: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID' Required = True DictionaryEntry = 'CuentasEspeciales_ID' InPrimaryKey = True end item Name = 'REFERENCIA' DataType = datString Size = 6 DisplayLabel = 'CuentasEspeciales_REFERENCIA' DictionaryEntry = 'CuentasEspeciales_REFERENCIA' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'CuentasEspeciales_DESCRIPCION' DictionaryEntry = 'CuentasEspeciales_DESCRIPCION' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contabilidad LogicalName = 'CuentasEspeciales' IndexDefs = <> Left = 408 Top = 80 end object ds_CuentasEspeciales: TDADataSource DataSet = tbl_CuentasEspeciales.Dataset DataTable = tbl_CuentasEspeciales Left = 408 Top = 16 end object tbl_Epigrafes: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_EPIGRAFES_ID' Required = True DisplayLabel = 'Epigrafes_ID' ServerAutoRefresh = True DictionaryEntry = 'Epigrafes_ID' InPrimaryKey = True end item Name = 'REF_EPIGRAFE' DataType = datString Size = 6 DisplayLabel = 'Epigrafes_REF_EPIGRAFE' DictionaryEntry = 'Epigrafes_REF_EPIGRAFE' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'Epigrafes_DESCRIPCION' DictionaryEntry = 'Epigrafes_DESCRIPCION' end item Name = 'ID_EJERCICIO' DataType = datInteger DisplayLabel = 'Epigrafes_ID_EJERCICIO' DictionaryEntry = 'Epigrafes_ID_EJERCICIO' end item Name = 'ESTADO' DataType = datString Size = 255 end item Name = 'ID_PADRE' DataType = datInteger DisplayLabel = 'Epigrafes_ID_PADRE' DictionaryEntry = 'Epigrafes_ID_PADRE' end item Name = 'EPIGRAFE_PADRE' DataType = datString Size = 255 DisplayLabel = 'Epigrafes_EPIGRAFE_PADRE' DictionaryEntry = 'Epigrafes_EPIGRAFE_PADRE' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contabilidad LogicalName = 'Epigrafes' IndexDefs = <> Left = 232 Top = 240 end object ds_Epigrafes: TDADataSource DataSet = tbl_Epigrafes.Dataset DataTable = tbl_Epigrafes Left = 232 Top = 176 end object tbl_Cuentas: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_CUENTAS_ID' Required = True DictionaryEntry = 'Cuentas_ID' InPrimaryKey = True end item Name = 'REF_CUENTA' DataType = datString Size = 10 DisplayLabel = 'Cuentas_REF_CUENTA' DictionaryEntry = 'Cuentas_REF_CUENTA' end item Name = 'ID_EJERCICIO' DataType = datInteger DisplayLabel = 'Cuentas_ID_EJERCICIO' DictionaryEntry = 'Cuentas_ID_EJERCICIO' end item Name = 'ESTADO' DataType = datString Size = 255 end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'Cuentas_DESCRIPCION' DictionaryEntry = 'Cuentas_DESCRIPCION' end item Name = 'ID_EPIGRAFE' DataType = datInteger DisplayLabel = 'Cuentas_ID_EPIGRAFE' DictionaryEntry = 'Cuentas_ID_EPIGRAFE' end item Name = 'EPIGRAFE' DataType = datString Size = 255 DisplayLabel = 'Cuentas_EPIGRAFE' DictionaryEntry = 'Cuentas_EPIGRAFE' end item Name = 'ID_BALANCE' DataType = datInteger DisplayLabel = 'Cuentas_ID_BALANCE' DictionaryEntry = 'Cuentas_ID_BALANCE' end item Name = 'BALANCE' DataType = datString Size = 255 DisplayLabel = 'Cuentas_BALANCE' DictionaryEntry = 'Cuentas_BALANCE' end item Name = 'ID_CUENTA_ESPECIAL' DataType = datInteger DisplayLabel = 'Cuentas_ID_CUENTA_ESPECIAL' DictionaryEntry = 'Cuentas_ID_CUENTA_ESPECIAL' end item Name = 'CUENTA_ESPECIAL' DataType = datString Size = 255 DisplayLabel = 'Cuentas_CUENTA_ESPECIAL' DictionaryEntry = 'Cuentas_CUENTA_ESPECIAL' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contabilidad LogicalName = 'Cuentas' IndexDefs = <> Left = 320 Top = 240 end object ds_Cuentas: TDADataSource DataSet = tbl_Cuentas.Dataset DataTable = tbl_Cuentas Left = 320 Top = 176 end object tbl_SubCuentas: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_SUBCUENTAS_ID' Required = True DictionaryEntry = 'SubCuentas_ID' InPrimaryKey = True end item Name = 'REF_SUBCUENTA' DataType = datString Size = 15 DisplayLabel = 'SubCuentas_REF_SUBCUENTA' DictionaryEntry = 'SubCuentas_REF_SUBCUENTA' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'SubCuentas_DESCRIPCION' DictionaryEntry = 'SubCuentas_DESCRIPCION' end item Name = 'ID_EJERCICIO' DataType = datInteger DisplayLabel = 'SubCuentas_ID_EJERCICIO' DictionaryEntry = 'SubCuentas_ID_EJERCICIO' end item Name = 'ESTADO' DataType = datString Size = 255 end item Name = 'REF_EPIGRAFE_PADRE' DataType = datString Size = 6 end item Name = 'ID_CONTACTO' DataType = datInteger end item Name = 'ID_CUENTA' DataType = datInteger DisplayLabel = 'SubCuentas_ID_CUENTA' DictionaryEntry = 'SubCuentas_ID_CUENTA' end item Name = 'REF_CUENTA' DataType = datString Size = 10 end item Name = 'CUENTA' DataType = datString Size = 255 DisplayLabel = 'SubCuentas_CUENTA' DictionaryEntry = 'SubCuentas_CUENTA' end item Name = 'DEBE' DataType = datCurrency DisplayLabel = 'SubCuentas_DEBE' DictionaryEntry = 'SubCuentas_DEBE' end item Name = 'HABER' DataType = datCurrency DisplayLabel = 'SubCuentas_HABER' DictionaryEntry = 'SubCuentas_HABER' end item Name = 'SALDO' DataType = datCurrency DisplayLabel = 'SubCuentas_SALDO' DictionaryEntry = 'SubCuentas_SALDO' end item Name = 'PAGO_DEFECTO' DataType = datSmallInt end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contabilidad LogicalName = 'SubCuentas' IndexDefs = <> Left = 408 Top = 240 end object ds_SubCuentas: TDADataSource DataSet = tbl_SubCuentas.Dataset DataTable = tbl_SubCuentas Left = 408 Top = 176 end object tbl_Apuntes: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_APUNTES_ID' Required = True DictionaryEntry = 'Apuntes_ID' InPrimaryKey = True end item Name = 'ID_ASIENTO' DataType = datInteger DisplayLabel = 'Apuntes_ID_ASIENTO' DictionaryEntry = 'Apuntes_ID_ASIENTO' end item Name = 'ID_SUBCUENTA' DataType = datInteger DisplayLabel = 'Apuntes_ID_SUBCUENTA' DictionaryEntry = 'Apuntes_ID_SUBCUENTA' end item Name = 'NUM_ORDEN' DataType = datInteger end item Name = 'REF_SUBCUENTA' DataType = datString Size = 15 DisplayLabel = 'Apuntes_REF_SUBCUENTA' DictionaryEntry = 'Apuntes_REF_SUBCUENTA' end item Name = 'SUBCUENTA' DataType = datString Size = 255 DisplayLabel = 'Apuntes_SUBCUENTA' DictionaryEntry = 'Apuntes_SUBCUENTA' end item Name = 'CONCEPTO' DataType = datString Size = 255 DisplayLabel = 'Apuntes_CONCEPTO' DictionaryEntry = 'Apuntes_CONCEPTO' end item Name = 'DOCUMENTO' DataType = datString Size = 255 end item Name = 'DEBE' DataType = datCurrency DisplayLabel = 'Apuntes_DEBE' DictionaryEntry = 'Apuntes_DEBE' end item Name = 'HABER' DataType = datCurrency DisplayLabel = 'Apuntes_HABER' DictionaryEntry = 'Apuntes_HABER' end item Name = 'PUNTEADO' DataType = datSmallInt DisplayLabel = 'Apuntes_PUNTEADO' DictionaryEntry = 'Apuntes_PUNTEADO' end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contabilidad MasterSource = ds_Asientos MasterFields = 'ID' DetailFields = 'ID_ASIENTO' LogicalName = 'Apuntes' IndexDefs = <> Left = 384 Top = 360 end object ds_Apuntes: TDADataSource DataSet = tbl_Apuntes.Dataset DataTable = tbl_Apuntes Left = 392 Top = 304 end object tbl_Asientos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_ASIENTOS_ID' Required = True DictionaryEntry = 'Asientos_ID' InPrimaryKey = True end item Name = 'FECHA_ASIENTO' DataType = datDateTime DisplayLabel = 'Asientos_FECHA_ASIENTO' DictionaryEntry = 'Asientos_FECHA_ASIENTO' end item Name = 'ORDEN' DataType = datInteger DisplayLabel = 'Asientos_ORDEN' DictionaryEntry = 'Asientos_ORDEN' end item Name = 'ID_FACTURA' DataType = datInteger DisplayLabel = 'Asientos_ID_FACTURA' DictionaryEntry = 'Asientos_ID_FACTURA' end item Name = 'ID_PAGO' DataType = datInteger end item Name = 'TIPO' DataType = datString Size = 1 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contabilidad LogicalName = 'Asientos' IndexDefs = <> Left = 232 Top = 352 end object ds_Asientos: TDADataSource DataSet = tbl_Asientos.Dataset DataTable = tbl_Asientos Left = 232 Top = 304 end object tbl_Diario: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_APUNTE' DataType = datInteger DisplayLabel = 'Diario_ID_APUNTE' DictionaryEntry = 'Diario_ID_APUNTE' InPrimaryKey = True end item Name = 'ID_ASIENTO' DataType = datInteger DisplayLabel = 'Diario_ID_ASIENTO' DictionaryEntry = 'Diario_ID_ASIENTO' end item Name = 'ID_FACTURA' DataType = datInteger DisplayLabel = 'Diario_ID_FACTURA' DictionaryEntry = 'Diario_ID_FACTURA' end item Name = 'ID_PAGO' DataType = datInteger DisplayLabel = 'Diario_ID_PAGO' DictionaryEntry = 'Diario_ID_PAGO' end item Name = 'TIPO' DataType = datString Size = 1 end item Name = 'ORDEN_ASIENTO' DataType = datInteger DisplayLabel = 'Diario_ORDEN_ASIENTO' Alignment = taRightJustify DictionaryEntry = 'Diario_ORDEN_ASIENTO' end item Name = 'FECHA_ASIENTO' DataType = datDateTime DisplayLabel = 'Diario_FECHA_ASIENTO' DictionaryEntry = 'Diario_FECHA_ASIENTO' end item Name = 'ID_SUBCUENTA' DataType = datInteger DisplayLabel = 'Diario_ID_SUBCUENTA' DictionaryEntry = 'Diario_ID_SUBCUENTA' end item Name = 'REF_SUBCUENTA' DataType = datString Size = 15 DisplayLabel = 'Diario_REF_SUBCUENTA' DictionaryEntry = 'Diario_REF_SUBCUENTA' end item Name = 'SUBCUENTA' DataType = datString Size = 255 DisplayLabel = 'Diario_SUBCUENTA' DictionaryEntry = 'Diario_SUBCUENTA' end item Name = 'ID_EJERCICIO' DataType = datInteger DisplayLabel = 'Diario_ID_EJERCICIO' DictionaryEntry = 'Diario_ID_EJERCICIO' end item Name = 'ESTADO' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 255 DisplayLabel = 'Diario_CONCEPTO' DictionaryEntry = 'Diario_CONCEPTO' end item Name = 'DOCUMENTO' DataType = datString Size = 255 DisplayLabel = 'Diario_DOCUMENTO' DictionaryEntry = 'Diario_DOCUMENTO' end item Name = 'DEBE' DataType = datCurrency Alignment = taRightJustify DictionaryEntry = 'Diario_DEBE' end item Name = 'HABER' DataType = datCurrency DisplayLabel = 'Diario_HABER' Alignment = taRightJustify DictionaryEntry = 'Diario_HABER' end item Name = 'PUNTEADO' DataType = datSmallInt DisplayLabel = 'Diario_PUNTEADO' DictionaryEntry = 'Diario_PUNTEADO' end item Name = 'SALDO' DataType = datCurrency LogChanges = False DisplayLabel = 'Saldo' Alignment = taRightJustify Calculated = True end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contabilidad LogicalName = 'Diario' IndexDefs = <> Left = 80 Top = 360 end object ds_Diario: TDADataSource DataSet = tbl_Diario.Dataset DataTable = tbl_Diario Left = 80 Top = 312 end end