object srvFacturasCliente: TsrvFacturasCliente OldCreateOrder = True OnCreate = DARemoteServiceCreate ConnectionName = 'IBX' ServiceSchema = schFacturasCliente ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 180 Width = 386 object schFacturasCliente: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Diagrams = Diagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'select ANO from'#10'(select distinct(substr(FECHA_FACTURA, 1,4)) as ' + 'ANO'#10'from facturas_cliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select di' + 'stinct '#39'Todos'#39' as ANO'#10'from empresas'#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ANO' TableField = 'ANO' end> end> Name = 'ListaAnosFacturas' Fields = < item Name = 'ANO' DataType = datString Size = 254 end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_FACTURAS_CLIENTE' StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'TIPO' TableField = 'TIPO' end item DatasetField = 'ID_COMISION_LIQUIDADA' TableField = 'ID_COMISION_LIQUIDADA' end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO' end item DatasetField = 'IVA' TableField = 'IVA' end item DatasetField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'RE' TableField = 'RE' end item DatasetField = 'IMPORTE_RE' TableField = 'IMPORTE_RE' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' end item DatasetField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION' end item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO' end item DatasetField = 'RECARGO_EQUIVALENCIA' TableField = 'RECARGO_EQUIVALENCIA' end item DatasetField = 'ID_TIPO_IVA' TableField = 'ID_TIPO_IVA' end item DatasetField = 'IMPORTE_NETO' TableField = 'IMPORTE_NETO' end item DatasetField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE' end item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'REFERENCIA_COMISION' TableField = 'REFERENCIA_COMISION' end item DatasetField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS' end item DatasetField = 'CLIENTE_FINAL' TableField = 'CLIENTE_FINAL' end item DatasetField = 'ID_DIRECCION' TableField = 'ID_DIRECCION' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'RETENCION' TableField = 'RETENCION' end item DatasetField = 'IMPORTE_RETENCION' TableField = 'IMPORTE_RETENCION' end item DatasetField = 'FECHA_RETENCION' TableField = 'FECHA_RETENCION' end item DatasetField = 'CERTIFICADO_ISO' TableField = 'CERTIFICADO_ISO' end> end> Name = 'FacturasCliente' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' 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 DictionaryEntry = 'FacturasCliente_REFERENCIA' end item Name = 'TIPO' DataType = datString Size = 1 DictionaryEntry = 'FacturasCliente_TIPO' end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA' end item Name = 'FECHA_FACTURA' DataType = datDateTime DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'FECHA_RETENCION' DataType = datDateTime end item Name = 'SITUACION' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_SITUACION' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' end item Name = 'DESCUENTO' DataType = datFloat DictionaryEntry = 'FacturasCliente_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' end item Name = 'IVA' DataType = datFloat DictionaryEntry = 'FacturasCliente_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' end item Name = 'RE' DataType = datFloat DictionaryEntry = 'FacturasCliente_RE' end item Name = 'IMPORTE_RE' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_RE' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' end item Name = 'OBSERVACIONES' DataType = datMemo DictionaryEntry = 'FacturasCliente_OBSERVACIONES' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_CLIENTE' end item Name = 'NIF_CIF' DataType = datString Size = 15 DictionaryEntry = 'FacturasCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 100 DictionaryEntry = 'FacturasCliente_NOMBRE' end item Name = 'ID_DIRECCION' DataType = datInteger end item Name = 'CALLE' DataType = datString Size = 150 DictionaryEntry = 'FacturasCliente_CALLE' end item Name = 'POBLACION' DataType = datString Size = 150 DictionaryEntry = 'FacturasCliente_POBLACION' end item Name = 'PROVINCIA' DataType = datString Size = 30 DictionaryEntry = 'FacturasCliente_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS' end item Name = 'CLIENTE_FINAL' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_CLIENTE_FINAL' 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 DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO' end item Name = 'RECARGO_EQUIVALENCIA' DataType = datSmallInt DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA' end item Name = 'ID_TIPO_IVA' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA' end item Name = 'IMPORTE_NETO' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency 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 = 'RETENCION' DataType = datCurrency end item Name = 'IMPORTE_RETENCION' DataType = datCurrency end item Name = 'CERTIFICADO_ISO' DataType = datSmallInt end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE_DETALLES' SQL = 'SELECT'#10' FACTURAS_CLIENTE_DETALLES.ID, FACTURAS_CLIENTE_DETALL' + 'ES.ID_FACTURA,'#10' FACTURAS_CLIENTE_DETALLES.POSICION, FACTURAS_' + 'CLIENTE_DETALLES.TIPO_DETALLE,'#10' FACTURAS_CLIENTE_DETALLES.CON' + 'CEPTO, FACTURAS_CLIENTE_DETALLES.CANTIDAD,'#10' FACTURAS_CLIENTE_' + 'DETALLES.UNIDAD_MEDIDA, FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD' + ','#10' FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL, FACTURAS_CLIENTE_' + 'DETALLES.VISIBLE,'#10#10' FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, FA' + 'CTURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FACTURAS_CLIENTE_DETALLES' + '.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#10' '#39#39' as REFERENCIA_' + 'PROVEEDOR /*Es necesario porque los detalles es comun para la ra' + 'ma del cliente como del proveedor*/'#10#10'FROM FACTURAS_CLIENTE_DETAL' + 'LES'#10'LEFT JOIN ARTICULOS ON FACTURAS_CLIENTE_DETALLES.ID_ARTICULO' + ' = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'VISIBLE' TableField = 'VISIBLE' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE' end item DatasetField = 'REFERENCIA' TableField = '' SQLOrigin = 'REFERENCIA' end item DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' end item DatasetField = 'UNIDAD_MEDIDA' TableField = 'UNIDAD_MEDIDA' end> end> Name = 'FacturasCliente_Detalles' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID' 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 DictionaryEntry = 'FacturasCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datFloat DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end item Name = 'ID_ARTICULO' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_ID_ARTICULO' end item Name = 'DESCUENTO' DataType = datFloat DictionaryEntry = 'FacturasCliente_Detalles_DESCUENTO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_PORTE' end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR' end> end> JoinDataTables = <> UnionDataTables = <> Commands = < item Params = < item Name = 'ID_FACTURA' Value = '' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'delete from recibos_cliente'#10'where id_factura = :ID_FACTURA'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_RecibosFactura' end item Params = < item Name = 'OLD_ID' DataType = datInteger Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE' SQL = 'DELETE '#10' FROM'#10' FACTURAS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_FacturasCliente' end item Params = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID' Value = '' end item Name = 'CANTIDAD' Value = '' end item Name = 'UNIDAD_MEDIDA' Value = '' end item Name = 'POSICION' Value = '' end item Name = 'ID_FACTURA' Value = '' end item Name = 'TIPO_DETALLE' Value = '' end item Name = 'CONCEPTO' Value = '' end item Name = 'IMPORTE_UNIDAD' Value = '' end item Name = 'IMPORTE_TOTAL' Value = '' end item Name = 'VISIBLE' Value = '' end item Name = 'ID_ARTICULO' Value = '' end item Name = 'DESCUENTO' Value = '' end item Name = 'IMPORTE_PORTE' Value = '' end> Statements = < item Connection = 'IBX' Default = True TargetTable = 'FACTURAS_CLIENTE_DETALLES' SQL = 'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, UNIDA' + 'D_MEDIDA, POSICION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMP' + 'ORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO' + ', IMPORTE_PORTE)'#10' VALUES'#10' (:ID, :CANTIDAD, :UNIDAD_MEDIDA, :' + 'POSICION, :ID_FACTURA, :TIPO_DETALLE, :CONCEPTO,'#10' :IMPORTE_U' + 'NIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :DESCUENTO, ' + ':IMPORTE_PORTE)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_FacturasCliente_Detalles' end item Params = < item Name = 'OLD_ID' DataType = datInteger Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE_DETALLES' SQL = 'DELETE '#10' FROM'#10' FACTURAS_CLIENTE_DETALLES'#10' WHERE'#10' (ID = :' + 'OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_FacturasCliente_Detalles' end item Params = < item Name = 'CANTIDAD' Value = '' end item Name = 'UNIDAD_MEDIDA' Value = '' end item Name = 'POSICION' Value = '' end item Name = 'ID_FACTURA' Value = '' end item Name = 'TIPO_DETALLE' Value = '' end item Name = 'CONCEPTO' Value = '' end item Name = 'IMPORTE_UNIDAD' Value = '' end item Name = 'IMPORTE_TOTAL' Value = '' end item Name = 'VISIBLE' Value = '' end item Name = 'ID_ARTICULO' Value = '' end item Name = 'DESCUENTO' Value = '' end item Name = 'IMPORTE_PORTE' Value = '' end item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE_DETALLES' SQL = 'UPDATE FACTURAS_CLIENTE_DETALLES'#10' SET '#10' CANTIDAD = :CANTIDAD' + ', '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' POSICION = :POSICION,' + ' '#10' ID_FACTURA = :ID_FACTURA, '#10' TIPO_DETALLE = :TIPO_DETALL' + 'E, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD = :IMPORTE_UNI' + 'DAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' VISIBLE = :VISIBLE' + ','#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' ' + ' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_FacturasCliente_Detalles' end item Params = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' Value = '' end item Name = 'ID_EMPRESA' DataType = datInteger Value = '' end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' end item Name = 'FECHA_FACTURA' DataType = datDateTime Value = '' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime Value = '' end item Name = 'FECHA_RETENCION' DataType = datDateTime Value = '' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency Value = '' end item Name = 'DESCUENTO' DataType = datCurrency Value = '' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency Value = '' end item Name = 'IVA' DataType = datCurrency Value = '' end item Name = 'IMPORTE_IVA' DataType = datCurrency Value = '' end item Name = 'RE' DataType = datCurrency Value = '' end item Name = 'IMPORTE_RE' DataType = datCurrency Value = '' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency Value = '' end item Name = 'OBSERVACIONES' DataType = datMemo Value = '' end item Name = 'ID_CLIENTE' DataType = datInteger Value = '' end item Name = 'NIF_CIF' DataType = datString Size = 15 Value = '' end item Name = 'NOMBRE' DataType = datString Size = 255 Value = '' end item Name = 'ID_DIRECCION' DataType = datInteger Value = '' end item Name = 'CALLE' DataType = datString Size = 255 Value = '' end item Name = 'POBLACION' DataType = datString Size = 255 Value = '' end item Name = 'PROVINCIA' DataType = datString Size = 255 Value = '' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 Value = '' end item Name = 'FECHA_ALTA' DataType = datDateTime Value = '' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'ID_FORMA_PAGO' DataType = datInteger Value = '' end item Name = 'RECARGO_EQUIVALENCIA' DataType = datSmallInt Value = '' end item Name = 'ID_TIPO_IVA' DataType = datInteger Value = '' end item Name = 'IMPORTE_NETO' DataType = datCurrency Value = '' end item Name = 'IMPORTE_PORTE' DataType = datCurrency Value = '' end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 Value = '' end item Name = 'CLIENTE_FINAL' DataType = datString Size = 255 Value = '' end item Name = 'RETENCION' DataType = datCurrency Value = '' end item Name = 'IMPORTE_RETENCION' DataType = datCurrency Value = '' end item Name = 'CERTIFICADO_ISO' DataType = datSmallInt Value = '' end> Statements = < item Connection = 'IBX' Default = True TargetTable = 'FACTURAS_CLIENTE' SQL = 'INSERT INTO FACTURAS_CLIENTE ('#10' ID,'#10' ID_EMPRESA,'#10' REFER' + 'ENCIA,'#10' FECHA_FACTURA,'#10' FECHA_VENCIMIENTO,'#10' FECHA_RETEN' + 'CION,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10 + ' IVA,'#10' IMPORTE_IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TO' + 'TAL,'#10' OBSERVACIONES,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,' + #10' ID_DIRECCION,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' ' + 'CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUAR' + 'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' + ','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + 'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' CERTIFI' + 'CADO_ISO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10 + ' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION' + ','#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' ' + ' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORT' + 'E_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' ' + ':NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PRO' + 'VINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICA' + 'CION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCI' + 'A,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' + ':DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPOR' + 'TE_RETENCION,'#10' :CERTIFICADO_ISO);'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_FacturasCliente' end item Params = < item Name = 'ID_EMPRESA' DataType = datInteger Value = '' end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' end item Name = 'FECHA_FACTURA' DataType = datDateTime Value = '' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime Value = '' end item Name = 'FECHA_RETENCION' DataType = datDateTime Value = '' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency Value = '' end item Name = 'DESCUENTO' DataType = datCurrency Value = '' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency Value = '' end item Name = 'IVA' DataType = datCurrency Value = '' end item Name = 'IMPORTE_IVA' DataType = datCurrency Value = '' end item Name = 'RE' DataType = datCurrency Value = '' end item Name = 'IMPORTE_RE' DataType = datCurrency Value = '' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency Value = '' end item Name = 'OBSERVACIONES' DataType = datMemo Value = '' end item Name = 'ID_CLIENTE' DataType = datInteger Value = '' end item Name = 'NIF_CIF' DataType = datString Size = 15 Value = '' end item Name = 'NOMBRE' DataType = datString Size = 255 Value = '' end item Name = 'ID_DIRECCION' DataType = datInteger Value = '' end item Name = 'CALLE' DataType = datString Size = 255 Value = '' end item Name = 'POBLACION' DataType = datString Size = 255 Value = '' end item Name = 'PROVINCIA' DataType = datString Size = 255 Value = '' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 Value = '' end item Name = 'FECHA_ALTA' DataType = datDateTime Value = '' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'ID_FORMA_PAGO' DataType = datInteger Value = '' end item Name = 'RECARGO_EQUIVALENCIA' DataType = datSmallInt Value = '' end item Name = 'ID_TIPO_IVA' DataType = datInteger Value = '' end item Name = 'IMPORTE_NETO' DataType = datCurrency Value = '' end item Name = 'IMPORTE_PORTE' DataType = datCurrency Value = '' end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 Value = '' end item Name = 'CLIENTE_FINAL' DataType = datString Size = 255 Value = '' end item Name = 'RETENCION' DataType = datCurrency Value = '' end item Name = 'IMPORTE_RETENCION' DataType = datCurrency Value = '' end item Name = 'CERTIFICADO_ISO' DataType = datSmallInt Value = '' end item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE' SQL = 'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' + 'REFERENCIA = :REFERENCIA,'#10' FECHA_FACTURA = :FECHA_FACTURA,'#10' ' + ' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' FECHA_RETENCION = ' + ':FECHA_RETENCION,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESC' + 'UENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10 + ' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' RE = :RE,'#10' ' + ' IMPORTE_RE = :IMPORTE_RE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10 + ' OBSERVACIONES = :OBSERVACIONES,'#10' ID_CLIENTE = :ID_CLIENTE' + ','#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' ID_DIRECCION' + ' = :ID_DIRECCION,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION' + ','#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL' + ','#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_' + 'MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FO' + 'RMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ' + 'ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' + ' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' + 'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' + 'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' + 'ICADO_ISO = :CERTIFICADO_ISO'#10' WHERE'#10' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_FacturasCliente' end> RelationShips = < item Name = 'FK_FacturasCliente_Detalles' MasterDatasetName = 'FacturasCliente' MasterFields = 'ID' DetailDatasetName = 'FacturasCliente_Detalles' DetailFields = 'ID_FACTURA' RelationshipType = rtForeignKey end> UpdateRules = < item Name = 'Insert FacturasCliente' DoUpdate = False DoDelete = False DatasetName = 'FacturasCliente' FailureBehavior = fbRaiseException end item Name = 'Insert DetallesFacturasCliente' DoUpdate = False DoDelete = False DatasetName = 'FacturasCliente_Detalles' FailureBehavior = fbRaiseException end item Name = 'Update FacturasCliente' DoInsert = False DoDelete = False DatasetName = 'FacturasCliente' FailureBehavior = fbRaiseException end item Name = 'Update DetallesFacturasCliente' DoInsert = False DoDelete = False DatasetName = 'FacturasCliente_Detalles' FailureBehavior = fbRaiseException end item Name = 'Delete DetallesFacturasCliente' DoUpdate = False DoInsert = False DatasetName = 'FacturasCliente_Detalles' FailureBehavior = fbRaiseException end item Name = 'Delete FacturasCliente' DoUpdate = False DoInsert = False DatasetName = 'FacturasCliente' FailureBehavior = fbRaiseException end> Version = 0 Left = 48 Top = 24 end object Diagrams: TDADiagrams Left = 150 Top = 74 DiagramData = ''#13#10''#13#10 end object DataDictionary: TDADataDictionary Fields = < item Name = 'FacturasCliente_CLIENTE_FINAL' DataType = datString Size = 255 DisplayLabel = 'Cliente final' end item Name = 'FacturasCliente_ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'FacturasCliente_ID_EMPRESA' DataType = datInteger DisplayLabel = 'ID_EMPRESA' end item Name = 'FacturasCliente_FECHA_FACTURA' DataType = datDateTime DisplayLabel = 'Fecha de las factura' end item Name = 'FacturasCliente_VENCIMIENTO' DataType = datInteger DisplayLabel = 'Vencimiento' end item Name = 'FacturasCliente_SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' end item Name = 'FacturasCliente_BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_DESCUENTO' DataType = datCurrency DisplayLabel = 'Importe dto.' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_IVA' DataType = datCurrency DisplayLabel = 'Importe IVA' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_FORMA_PAGO' DataType = datMemo DisplayLabel = 'Forma de pago' end item Name = 'FacturasCliente_ID_CLIENTE' DataType = datInteger DisplayLabel = 'ID_CLIENTE' end item Name = 'FacturasCliente_NIF_CIF' DataType = datString Size = 15 DisplayLabel = 'NIF/CIF' end item Name = 'FacturasCliente_CODIGO_POSTAL' DataType = datString Size = 10 DisplayLabel = 'C'#243'd. postal' end item Name = 'FacturasCliente_FECHA_ALTA' DataType = datDateTime DisplayLabel = 'FECHA_ALTA' end item Name = 'FacturasCliente_FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'FECHA_MODIFICACION' end item Name = 'FacturasCliente_OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' end item Name = 'FacturasCliente_NOMBRE' DataType = datString Size = 100 DisplayLabel = 'Cliente' end item Name = 'FacturasCliente_CALLE' DataType = datString Size = 150 DisplayLabel = 'Direcci'#243'n' end item Name = 'FacturasCliente_PROVINCIA' DataType = datString Size = 30 DisplayLabel = 'Provincia' end item Name = 'FacturasCliente_POBLACION' DataType = datString Size = 150 DisplayLabel = 'Poblaci'#243'n' end item Name = 'FacturasCliente_IVA' DataType = datFloat DisplayLabel = 'IVA' Alignment = taRightJustify end item Name = 'FacturasCliente_USUARIO' DataType = datString Size = 100 DisplayLabel = 'USUARIO' end item Name = 'FacturasCliente_DESCUENTO' DataType = datFloat DisplayLabel = 'Dto.' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'FacturasCliente_Detalles_ID_FACTURA' DataType = datInteger DisplayLabel = 'ID_FACTURA' end item Name = 'FacturasCliente_Detalles_TIPO_DETALLE' DataType = datString Size = 25 DisplayLabel = 'Tipo detalle' end item Name = 'FacturasCliente_Detalles_CONCEPTO' DataType = datString Size = 2000 DisplayLabel = 'Concepto' end item Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' DataType = datCurrency DisplayLabel = 'Importe unidad' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_VISIBLE' DataType = datInteger DisplayLabel = #191'Visible?' end item Name = 'FacturasCliente_Detalles_POSICION' DataType = datInteger DisplayLabel = 'Posici'#243'n' end item Name = 'FacturasCliente_Detalles_CANTIDAD' DataType = datFloat DisplayLabel = 'Cantidad' end item Name = 'FacturasCliente_FECHA_PAGADO' DataType = datDateTime DisplayLabel = 'Fecha de pago' end item Name = 'FacturasCliente_FECHA_VENCIMIENTO' DataType = datDateTime DisplayLabel = 'Fecha de vencimiento' ServerAutoRefresh = True end item Name = 'FacturasCliente_RE' DataType = datFloat DisplayLabel = 'RE' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_RE' DataType = datCurrency DisplayLabel = 'Importe RE' Alignment = taRightJustify end item Name = 'FacturasCliente_REFERENCIA' DataType = datString Size = 20 DisplayLabel = 'Referencia' ServerAutoRefresh = True end item Name = 'FacturasCliente_ID_FORMA_PAGO' DataType = datInteger end item Name = 'FacturasCliente_IMPORTE_NETO' DataType = datCurrency DisplayLabel = 'Importe neto' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe del porte' Alignment = taRightJustify end item Name = 'FacturasCliente_RECARGO_EQUIVALENCIA' DataType = datSmallInt DisplayLabel = #191'Con R.E.?' end item Name = 'FacturasCliente_TIPO' DataType = datString Size = 1 DisplayLabel = 'Tipo' end item Name = 'FacturasCliente_ID_TIPO_IVA' DataType = datInteger DisplayLabel = 'ID_TIPO_IVA' end item Name = 'FacturasCliente_ID_COMISION_LIQUIDADA' DataType = datInteger DisplayLabel = 'ID_COMISION_LIQUIDADA' end item Name = 'FacturasCliente_REFERENCIA_COMISION' DataType = datString Size = 255 DisplayLabel = 'REFERENCIA_COMISION' end item Name = 'FacturasCliente_ID_AGENTE' DataType = datInteger DisplayLabel = 'ID_AGENTE' end item Name = 'FacturasCliente_Detalles_ID_ARTICULO' DataType = datInteger end item Name = 'FacturasCliente_Detalles_DESCUENTO' DataType = datFloat end item Name = 'FacturasCliente_Detalles_IMPORTE_PORTE' DataType = datCurrency end item Name = 'FacturasCliente_Detalles_REFERENCIA' DataType = datString Size = 255 end item Name = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end item Name = 'FacturasCliente_DATOS_BANCARIOS' DataType = datString Size = 255 DisplayLabel = 'Datos bancarios' end> Left = 150 Top = 22 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object bpFacturasCliente: TDABusinessProcessor Schema = schFacturasCliente InsertCommandName = 'Insert_FacturasCliente' DeleteCommandName = 'Delete_FacturasCliente' UpdateCommandName = 'Update_FacturasCliente' ReferencedDataset = 'FacturasCliente' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 24 end object bpFacturasClienteDetalles: TDABusinessProcessor Schema = schFacturasCliente InsertCommandName = 'Insert_FacturasCliente_Detalles' DeleteCommandName = 'Delete_FacturasCliente_Detalles' UpdateCommandName = 'Update_FacturasCliente_Detalles' ReferencedDataset = 'FacturasCliente_Detalles' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 77 end end