AlonsoYSal_FactuGES2/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm

inherited DataModuleContratosCliente: TDataModuleContratosCliente
  OnCreate = DAClientDataModuleCreate
  Height = 423
  Width = 828
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvContratosCliente'
    Left = 56
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 56
    Top = 84
  end
  object rda_ContratosCliente: TDARemoteDataAdapter
    DataStreamer = Bin2DataStreamer
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    Left = 59
    Top = 151
  end
  object tbl_ContratosCliente: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'ContratosCliente_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'ContratosCliente_ID_EMPRESA'
      end
      item
        Name = 'ID_CLIENTE'
        DataType = datInteger
        DictionaryEntry = 'ContratosCliente_ID_CLIENTE'
      end
      item
        Name = 'LOPD'
        DataType = datSmallInt
      end
      item
        Name = 'NOMBRE_CLIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'ContratosCliente_NOMBRE_CLIENTE'
        DictionaryEntry = 'ContratosCliente_NOMBRE_CLIENTE'
      end
      item
        Name = 'REF_CLIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. Cliente'
        DictionaryEntry = 'ContratosCliente_REF_CLIENTE'
      end
      item
        Name = 'NOMBRE_COMERCIAL_CLIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
        DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
      end
      item
        Name = 'NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'NIF/CIF'
        ServerAutoRefresh = True
        DictionaryEntry = 'ContratosCliente_NIF_CIF'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'ContratosCliente_NOMBRE'
        ServerAutoRefresh = True
        DictionaryEntry = 'ContratosCliente_NOMBRE'
      end
      item
        Name = 'ID_DIRECCION'
        DataType = datInteger
        DisplayLabel = 'ContratosCliente_ID_DIRECCION'
        DictionaryEntry = 'ContratosCliente_ID_DIRECCION'
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Calle'
        DictionaryEntry = 'ContratosCliente_CALLE'
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Poblaci'#243'n'
        DictionaryEntry = 'ContratosCliente_POBLACION'
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'ContratosCliente_PROVINCIA'
        DictionaryEntry = 'ContratosCliente_PROVINCIA'
      end
      item
        Name = 'CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'd. postal'
        DictionaryEntry = 'ContratosCliente_CODIGO_POSTAL'
      end
      item
        Name = 'TELEFONO'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono'
        DictionaryEntry = 'ContratosCliente_TELEFONO'
      end
      item
        Name = 'MOVIL'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil'
        DictionaryEntry = 'ContratosCliente_MOVIL'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        ServerAutoRefresh = True
        DictionaryEntry = 'ContratosCliente_REFERENCIA'
      end
      item
        Name = 'FECHA_CONTRATO'
        DataType = datDateTime
        DisplayLabel = 'Fecha contrato'
        DictionaryEntry = 'ContratosCliente_FECHA_CONTRATO'
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Situaci'#243'n'
        DictionaryEntry = 'ContratosCliente_SITUACION'
      end
      item
        Name = 'FORMA_PAGO'
        DataType = datMemo
        DisplayLabel = 'ContratosCliente_FORMA_PAGO'
        DictionaryEntry = 'ContratosCliente_FORMA_PAGO'
      end
      item
        Name = 'PLAZO_ENTREGA'
        DataType = datMemo
        DisplayLabel = 'ContratosCliente_PLAZO_ENTREGA'
        DictionaryEntry = 'ContratosCliente_PLAZO_ENTREGA'
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datMemo
        DisplayLabel = 'Observaciones'
        DictionaryEntry = 'ContratosCliente_OBSERVACIONES'
      end
      item
        Name = 'INCIDENCIAS'
        DataType = datMemo
        DictionaryEntry = 'ContratosCliente_INCIDENCIAS'
      end
      item
        Name = 'INCIDENCIAS_ACTIVAS'
        DataType = datInteger
        DictionaryEntry = 'ContratosCliente_INCIDENCIAS_ACTIVAS'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DictionaryEntry = 'ContratosCliente_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DictionaryEntry = 'ContratosCliente_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 20
        DictionaryEntry = 'ContratosCliente_USUARIO'
      end
      item
        Name = 'RECARGO_EQUIVALENCIA'
        DataType = datSmallInt
        DisplayLabel = 'ContratosCliente_RECARGO_EQUIVALENCIA'
        DictionaryEntry = 'ContratosCliente_RECARGO_EQUIVALENCIA'
      end
      item
        Name = 'RE'
        DataType = datFloat
        DisplayLabel = 'ContratosCliente_RE'
        DictionaryEntry = 'ContratosCliente_RE'
      end
      item
        Name = 'IMPORTE_RE'
        DataType = datCurrency
        DisplayLabel = 'Importe RE'
        DictionaryEntry = 'ContratosCliente_IMPORTE_RE'
      end
      item
        Name = 'ID_TIPO_IVA'
        DataType = datInteger
        DisplayLabel = 'ContratosCliente_ID_TIPO_IVA'
        DictionaryEntry = 'ContratosCliente_ID_TIPO_IVA'
      end
      item
        Name = 'IVA'
        DataType = datFloat
        DisplayFormat = ',0.00 %;-,0.00 %'
        Alignment = taRightJustify
        DictionaryEntry = 'ContratosCliente_IVA'
      end
      item
        Name = 'IMPORTE_IVA'
        DataType = datCurrency
        DisplayLabel = 'Importe IVA'
        Alignment = taRightJustify
        DictionaryEntry = 'ContratosCliente_IMPORTE_IVA'
      end
      item
        Name = 'IMPORTE_NETO'
        DataType = datCurrency
        DisplayLabel = 'Importe neto'
        Alignment = taRightJustify
        DictionaryEntry = 'ContratosCliente_IMPORTE_NETO'
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Importe del porte'
        Alignment = taRightJustify
        DictionaryEntry = 'ContratosCliente_IMPORTE_PORTE'
      end
      item
        Name = 'ID_TIENDA'
        DataType = datInteger
        DisplayLabel = 'ContratosCliente_ID_TIENDA'
        DictionaryEntry = 'ContratosCliente_ID_TIENDA'
      end
      item
        Name = 'TIENDA'
        DataType = datString
        Size = 255
        DisplayLabel = 'ContratosCliente_TIENDA'
        DictionaryEntry = 'ContratosCliente_TIENDA'
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
        DisplayLabel = 'Base imponible'
        Alignment = taRightJustify
        DictionaryEntry = 'ContratosCliente_BASE_IMPONIBLE'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Descuento'
        DisplayFormat = ',0.00 %;-,0.00 %'
        Alignment = taRightJustify
        DictionaryEntry = 'ContratosCliente_DESCUENTO'
      end
      item
        Name = 'IMPORTE_DESCUENTO'
        DataType = datCurrency
        DisplayLabel = 'Importe dto.'
        Alignment = taRightJustify
        DictionaryEntry = 'ContratosCliente_IMPORTE_DESCUENTO'
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
        DictionaryEntry = 'ContratosCliente_IMPORTE_TOTAL'
      end
      item
        Name = 'ID_FORMA_PAGO'
        DataType = datInteger
        DictionaryEntry = 'ContratosCliente_ID_FORMA_PAGO'
      end
      item
        Name = 'ID_VENDEDOR'
        DataType = datInteger
        DisplayLabel = 'ContratosCliente_ID_VENDEDOR'
        DictionaryEntry = 'ContratosCliente_ID_VENDEDOR'
      end
      item
        Name = 'VENDEDOR'
        DataType = datString
        Size = 255
        DisplayLabel = 'Vendedor'
        DictionaryEntry = 'ContratosCliente_VENDEDOR'
      end
      item
        Name = 'PERSONA_CONTACTO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Persona de contacto'
        DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
      end
      item
        Name = 'TIPO_CONTRATO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Tipo'
        DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
      end
      item
        Name = 'CONDICIONES'
        DataType = datMemo
        DisplayLabel = 'ContratosCliente_CONDICIONES'
        DictionaryEntry = 'ContratosCliente_CONDICIONES'
      end
      item
        Name = 'CALIDADES'
        DataType = datMemo
        DisplayLabel = 'Calidades'
        DictionaryEntry = 'ContratosCliente_CALIDADES'
      end
      item
        Name = 'REFERENCIA_CLIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'ContratosCliente_REFERENCIA_CLIENTE'
        DictionaryEntry = 'ContratosCliente_REFERENCIA_CLIENTE'
      end
      item
        Name = 'LISTA_NOMBRES'
        DataType = datString
        Size = 255
        DisplayLabel = 'Otros nombres'
        DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
      end
      item
        Name = 'FECHA_DECISION'
        DataType = datDateTime
      end
      item
        Name = 'FACTURA_ASOCIADA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FECHA_PREVISTA_MONTAJE'
        DataType = datDateTime
      end
      item
        Name = 'CAMPO_LIBRE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PROCEDENCIA_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'EMAIL_1'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
        DataType = datDateTime
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_ContratosCliente
    LogicalName = 'ContratosCliente'
    IndexDefs = <>
    Left = 248
    Top = 88
  end
  object ds_ContratosCliente: TDADataSource
    DataSet = tbl_ContratosCliente.Dataset
    DataTable = tbl_ContratosCliente
    Left = 248
    Top = 32
  end
  object tbl_ContratosCliente_Detalles: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_CONTRATO'
        DataType = datInteger
      end
      item
        Name = 'POSICION'
        DataType = datInteger
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 10
      end
      item
        Name = 'PROPIEDAD'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 2000
      end
      item
        Name = 'CANTIDAD'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_UNIDAD'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
      end
      item
        Name = 'VISIBLE2'
        DataType = datSmallInt
      end
      item
        Name = 'VISIBLE'
        DataType = datSmallInt
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
      end
      item
        Name = 'TIPO_ARTICULO'
        DataType = datString
        Size = 2
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        DataType = datString
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_ContratosCliente
    MasterSource = ds_ContratosCliente
    MasterFields = 'ID'
    DetailFields = 'ID_CONTRATO'
    LogicalName = 'ContratosCliente_Detalles'
    IndexDefs = <>
    Left = 464
    Top = 88
  end
  object ds_ContratosCliente_Detalles: TDADataSource
    DataSet = tbl_ContratosCliente_Detalles.Dataset
    DataTable = tbl_ContratosCliente_Detalles
    Left = 464
    Top = 32
  end
  object RORemoteService1: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvGestorDocumentos'
    Left = 56
    Top = 216
  end
  object tbl_ListaAnosContratos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ANO'
        DataType = datString
        Size = 254
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_ContratosCliente
    LogicalName = 'ListaAnosContratos'
    IndexDefs = <>
    Left = 248
    Top = 192
  end
  object ds_ListaAnosContratos: TDADataSource
    DataSet = tbl_ListaAnosContratos.Dataset
    DataTable = tbl_ListaAnosContratos
    Left = 248
    Top = 144
  end
  object tbl_TiposCapitulos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'POSICION'
        DataType = datInteger
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 10
      end
      item
        Name = 'TIPO_ARTICULO'
        DataType = datString
        Size = 2
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 2000
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_ContratosCliente
    LogicalName = 'TiposCapitulos'
    IndexDefs = <>
    Left = 352
    Top = 312
  end
  object ds_TiposCapitulos: TDADataSource
    DataSet = tbl_TiposCapitulos.Dataset
    DataTable = tbl_TiposCapitulos
    Left = 352
    Top = 256
  end
  object tbl_ContratosClienteBeneficios: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'REFERENCIA_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FECHA_CONTRATO'
        DataType = datDateTime
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'NIF_CIF'
        DataType = datString
        Size = 15
      end
      item
        Name = 'IMPORTE_NETO'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_DESCUENTO'
        DataType = datCurrency
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_FACTURAS_PROVEEDOR'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_BENEFICIO'
        DataType = datCurrency
      end
      item
        Name = 'PORCENTAJE_BENEFICIO'
        DataType = datCurrency
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ID_VENDEDOR'
        DataType = datInteger
      end
      item
        Name = 'VENDEDOR'
        DataType = datString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_ContratosCliente
    LogicalName = 'ContratosClienteBeneficios'
    IndexDefs = <>
    Left = 712
    Top = 88
  end
  object ds_ContratosClienteBeneficios: TDADataSource
    DataSet = tbl_ContratosClienteBeneficios.Dataset
    DataTable = tbl_ContratosClienteBeneficios
    Left = 712
    Top = 32
  end
end