AlonsoYSal_FactuGES2/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm

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
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    DataStreamer = Bin2DataStreamer
    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
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    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
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    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
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    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
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    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>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Contabilidad
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    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'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    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
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    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
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    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