inherited DataModuleFacturasCliente: TDataModuleFacturasCliente OnCreate = DAClientDataModuleCreate Height = 398 Width = 518 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvFacturasCliente' Left = 48 Top = 24 end object rda_FacturasCliente: TDARemoteDataAdapter DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService Left = 51 Top = 143 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object tbl_FacturasCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'FacturasCliente_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 20 DisplayLabel = 'Referencia' DictionaryEntry = 'FacturasCliente_REFERENCIA' end item Name = 'TIPO' DataType = datString Size = 1 DisplayLabel = 'Tipo' DictionaryEntry = 'FacturasCliente_TIPO' end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA' end item Name = 'FECHA_FACTURA' DataType = datDateTime DisplayLabel = 'Fecha de las factura' DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' DictionaryEntry = 'FacturasCliente_SITUACION' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Dto.' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency DisplayLabel = 'Importe dto.' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' end item Name = 'IVA' DataType = datFloat Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency DisplayLabel = 'Importe IVA' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' end item Name = 'RE' DataType = datFloat Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_RE' end item Name = 'IMPORTE_RE' DataType = datCurrency DisplayLabel = 'Importe RE' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_RE' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' end item Name = 'OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' DictionaryEntry = 'FacturasCliente_OBSERVACIONES' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_CLIENTE' end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 ServerAutoRefresh = True end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'LOPD' DataType = datSmallInt end item Name = 'NOMBRE_COMERCIAL_CLIENTE' DataType = datString Size = 255 ServerAutoRefresh = True end item Name = 'NIF_CIF' DataType = datString Size = 15 DisplayLabel = 'NIF/CIF' DictionaryEntry = 'FacturasCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 100 DisplayLabel = 'Cliente' DictionaryEntry = 'FacturasCliente_NOMBRE' end item Name = 'ID_DIRECCION' DataType = datInteger end item Name = 'CALLE' DataType = datString Size = 150 DisplayLabel = 'Direcci'#243'n' DictionaryEntry = 'FacturasCliente_CALLE' end item Name = 'POBLACION' DataType = datString Size = 150 DisplayLabel = 'Poblaci'#243'n' DictionaryEntry = 'FacturasCliente_POBLACION' end item Name = 'PROVINCIA' DataType = datString Size = 30 DisplayLabel = 'Provincia' DictionaryEntry = 'FacturasCliente_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DisplayLabel = 'C'#243'd. postal' DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'FacturasCliente_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 100 DictionaryEntry = 'FacturasCliente_USUARIO' end item Name = 'ID_FORMA_PAGO' DataType = datInteger DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO' DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO' end item Name = 'REF_FORMA_PAGO' DataType = datString Size = 255 end item Name = 'RECARGO_EQUIVALENCIA' DataType = datSmallInt DisplayLabel = #191'Con R.E.?' DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA' end item Name = 'ID_TIPO_IVA' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA' end item Name = 'IMPORTE_NETO' DataType = datCurrency DisplayLabel = 'Importe neto' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe del porte' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE' end item Name = 'ID_AGENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_AGENTE' end item Name = 'REFERENCIA_COMISION' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION' end item Name = 'IGNORAR_CONTABILIDAD' DataType = datSmallInt DisplayLabel = 'FacturasCliente_IGNORAR_CONTABILIDAD' DictionaryEntry = 'FacturasCliente_IGNORAR_CONTABILIDAD' end item Name = 'ID_TIENDA' DataType = datInteger ServerAutoRefresh = True end item Name = 'TIENDA' DataType = datString Size = 255 ServerAutoRefresh = True end item Name = 'ID_SUBCUENTA' DataType = datInteger end item Name = 'SUBCUENTA' DataType = datString Size = 255 end item Name = 'ID_EJERCICIO' DataType = datInteger end item Name = 'ESTADO_EJERCICIO' DataType = datString Size = 255 end item Name = 'ASIENTO_PUNTEADO' DataType = datSmallInt end item Name = 'ID_CONTRATO' DataType = datInteger end item Name = 'REF_CONTRATO' DataType = datString Size = 255 end item Name = 'VENDEDOR' DataType = datString Size = 255 end item Name = 'SIN_COMISION' DataType = datSmallInt end item Name = 'TIPO_FACTURA' DataType = datString Size = 255 end item Name = 'LISTA_NOMBRES' DataType = datString Size = 255 DisplayLabel = 'Otros nombres' DictionaryEntry = 'FacturasCliente_LISTA_NOMBRES' end item Name = 'PROCEDENCIA_CLIENTE' DataType = datString Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_FacturasCliente LogicalName = 'FacturasCliente' IndexDefs = <> Left = 240 Top = 112 end object ds_FacturasCliente: TDADataSource DataSet = tbl_FacturasCliente.Dataset DataTable = tbl_FacturasCliente Left = 240 Top = 48 end object tbl_FacturasCliente_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'FacturasCliente_Detalles_ID' InPrimaryKey = True end item Name = 'ID_FACTURA' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' end item Name = 'POSICION' DataType = datInteger DisplayLabel = 'Posici'#243'n' DictionaryEntry = 'FacturasCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 DisplayLabel = 'Tipo detalle' DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 DisplayLabel = 'Concepto' DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datFloat DisplayLabel = 'Cantidad' DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DisplayLabel = 'Importe unidad' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datInteger DisplayLabel = #191'Visible?' DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end item Name = 'ID_ARTICULO' DataType = datInteger DisplayLabel = 'FacturasCliente_Detalles_ID_ARTICULO' DictionaryEntry = 'FacturasCliente_Detalles_ID_ARTICULO' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'FacturasCliente_Detalles_DESCUENTO' DictionaryEntry = 'FacturasCliente_Detalles_DESCUENTO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'FacturasCliente_Detalles_IMPORTE_PORTE' DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_PORTE' end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_FacturasCliente MasterSource = ds_FacturasCliente MasterFields = 'ID' DetailFields = 'ID_FACTURA' LogicalName = 'FacturasCliente_Detalles' IndexDefs = <> Left = 400 Top = 112 end object ds_FacturasCliente_Detalles: TDADataSource DataSet = tbl_FacturasCliente_Detalles.Dataset DataTable = tbl_FacturasCliente_Detalles Left = 400 Top = 40 end object tbl_ListaAnosFacturas: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ANO' DataType = datString Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_FacturasCliente LogicalName = 'ListaAnosFacturas' IndexDefs = <> Left = 232 Top = 232 end object ds_ListaAnosFacturas: TDADataSource DataSet = tbl_ListaAnosFacturas.Dataset DataTable = tbl_ListaAnosFacturas Left = 232 Top = 184 end end