object RptContratosCliente: TRptContratosCliente OldCreateOrder = True OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 593 Width = 1031 object DADSCabecera: TDADataSource DataSet = tbl_Cabecera.Dataset DataTable = tbl_Cabecera Left = 264 Top = 72 end object DADSDetalles: TDADataSource DataSet = tbl_Detalles.Dataset DataTable = tbl_Detalles Left = 440 Top = 72 end object frxBarCodeObject1: TfrxBarCodeObject Left = 184 Top = 528 end object frxOLEObject1: TfrxOLEObject Left = 56 Top = 528 end object frxCrossObject1: TfrxCrossObject Left = 56 Top = 480 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 120 Top = 528 end object frxGradientObject1: TfrxGradientObject Left = 120 Top = 480 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = < item Name = 'ID_EMPRESA' Value = '' end item Name = 'FECHAINI' Value = '' end item Name = 'FECHAFIN' Value = '' end> Statements = < item ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'select FCD.ID_ARTICULO, A.REFERENCIA, (COALESCE(FCD.PROPIEDAD,'#39#39 + ') || FCD.CONCEPTO) CONCEPTO, COALESCE(A.FAMILIA,'#39#39') || '#39' '#39' || CO' + 'ALESCE(A.referencia_prov,'#39#39') || '#39' '#39' || COALESCE(A.DESCRIPCION,'#39#39 + ') ARTICULO,'#10'avg(coalesce(FCD.importe_unidad,0)) importe_medio_un' + 'idad, sum(coalesce(FCD.cantidad,0)) CANTIDAD, avg(coalesce(FCD.i' + 'mporte_unidad,0))*sum(coalesce(FCD.cantidad,0)) importe_medio_to' + 'tal,'#10'sum(coalesce(FCD.importe_unidad,0)) importe_real_total'#10'from' + ' contratos_cliente_detalles FCD'#10'inner join contratos_cliente FC ' + 'on (FC.ID = FCD.ID_CONTRATO)'#10'left join contactos AGENTES on (AGE' + 'NTES.ID = FC.ID_AGENTE)'#10'inner join articulos A on (A.ID = FCD.ID' + '_ARTICULO)'#10'where {where}'#10'and FC.ID_EMPRESA = :ID_EMPRESA'#10'and FC.' + 'FECHA_CONTRATO between :FECHAINI and :FECHAFIN'#10'and FCD.id_articu' + 'lo > 1'#10'and A.COMISIONABLE = 1'#10#10'GROUP BY 1,2,3,4'#10'order by 6 DESC'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_MEDIO_UNIDAD' TableField = 'IMPORTE_MEDIO_UNIDAD' end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'IMPORTE_MEDIO_TOTAL' TableField = 'IMPORTE_MEDIO_TOTAL' end item DatasetField = 'IMPORTE_REAL_TOTAL' TableField = 'IMPORTE_REAL_TOTAL' end item DatasetField = 'ARTICULO' TableField = 'ARTICULO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end> end> Name = 'InformeVentasArticulos' Fields = < item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 2255 end item Name = 'ARTICULO' DataType = datString Size = 767 end item Name = 'IMPORTE_MEDIO_UNIDAD' DataType = datCurrency end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_MEDIO_TOTAL' DataType = datCurrency end item Name = 'IMPORTE_REAL_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_CONTRATOS_CLIENTE' Name = 'IBX' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_contrato) as ANO,'#10'ex' + 'tract (month from fecha_contrato) as MES,'#10'case'#10'when extract (mon' + 'th from fecha_contrato) = 1 then '#39'ENERO - '#39' || extract (year fro' + 'm fecha_contrato)'#10'when extract (month from fecha_contrato) = 2 t' + 'hen '#39'FEBRERO - '#39' || extract (year from fecha_contrato)'#10'when extr' + 'act (month from fecha_contrato) = 3 then '#39'MARZO - '#39' || extract (' + 'year from fecha_contrato)'#10'when extract (month from fecha_contrat' + 'o) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_contrato)'#10'whe' + 'n extract (month from fecha_contrato) = 5 then '#39'MAYO - '#39' || extr' + 'act (year from fecha_contrato)'#10'when extract (month from fecha_co' + 'ntrato) = 6 then '#39'JUNIO - '#39' || extract (year from fecha_contrato' + ')'#10'when extract (month from fecha_contrato) = 7 then '#39'JULIO - '#39' |' + '| extract (year from fecha_contrato)'#10'when extract (month from fe' + 'cha_contrato) = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_c' + 'ontrato)'#10'when extract (month from fecha_contrato) = 9 then '#39'SEPT' + 'IEMBRE - '#39' || extract (year from fecha_contrato)'#10'when extract (m' + 'onth from fecha_contrato) = 10 then '#39'OCTUBRE - '#39' || extract (yea' + 'r from fecha_contrato)'#10'when extract (month from fecha_contrato) ' + '= 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_contrato)'#10'w' + 'hen extract (month from fecha_contrato) = 12 then '#39'DICIEMBRE - '#39 + ' || extract (year from fecha_contrato)'#10'end as TITULO,'#10'REFERENCIA' + ', ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, fecha_contrato, IMPOR' + 'TE_TOTAL'#10#10'from V_contratos_cliente'#10'where {where}'#10'order by ANO, M' + 'ES, NOMBRE'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ANO' TableField = '' SQLOrigin = 'ANO' end item DatasetField = 'MES' TableField = '' SQLOrigin = 'MES' end item DatasetField = 'TITULO' TableField = '' SQLOrigin = 'TITULO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'FECHA_CONTRATO' TableField = 'FECHA_CONTRATO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'InformeListadoContratos' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'FECHA_CONTRATO' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'SELECT VALOR_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'CONDICIONES' + '_COCINA'#39#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'VALOR_BLOB' TableField = 'VALOR_BLOB' end> end> Name = 'Informe_Condiciones' Fields = < item Name = 'VALOR_BLOB' DataType = datBlob end> end item Params = < item Name = 'ID_CONTRATO' Value = '' end item Name = 'REF_PEDIDO' Value = '' end item Name = 'AGENCIA' Value = '' end item Name = 'NUM_ETIQUETAS' Value = '' end item Name = 'ETIQUETA_INI' Value = '' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'select *'#10'from PROC_ETIQUETAS_CONTRATO(:ID_CONTRATO, :REF_PEDIDO,' + ' :AGENCIA, :NUM_ETIQUETAS, :ETIQUETA_INI)'#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'AGENCIA' TableField = 'AGENCIA' end item DatasetField = 'BULTO' TableField = 'BULTO' end item DatasetField = 'NUM_BULTOS' TableField = 'NUM_BULTOS' end item DatasetField = 'DESTINATARIO' TableField = 'DESTINATARIO' end item DatasetField = 'TELEFONO' TableField = 'TELEFONO' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'REF_PEDIDO' TableField = 'REF_PEDIDO' end item DatasetField = 'REF_CLIENTE' TableField = 'REF_CLIENTE' end item DatasetField = 'PAIS' TableField = 'PAIS' end> end> Name = 'Informe_Detalles_Etiquetas' Fields = < item Name = 'AGENCIA' DataType = datString Size = 255 end item Name = 'BULTO' DataType = datInteger end item Name = 'NUM_BULTOS' DataType = datInteger end item Name = 'DESTINATARIO' DataType = datString Size = 255 end item Name = 'TELEFONO' DataType = datString Size = 255 end item Name = 'CALLE' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL' DataType = datString Size = 255 end item Name = 'POBLACION' DataType = datString Size = 255 end item Name = 'PROVINCIA' DataType = datString Size = 255 end item Name = 'PAIS' DataType = datString Size = 255 end item Name = 'REF_PEDIDO' DataType = datString Size = 255 end item Name = 'REF_CLIENTE' DataType = datString Size = 255 end> end item Params = < item Name = 'ID' Value = '31' ParamType = daptInput end> Statements = < item Connection = 'IBX' SQL = 'SELECT'#10' V_CONTRATOS_CLIENTE.ID, V_CONTRATOS_CLIENTE.ID_EMPRES' + 'A,'#10' V_CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' V_CONTRATOS_CLIEN' + 'TE.REFERENCIA,'#10' V_CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,'#10' '#10 + ' V_CONTRATOS_CLIENTE.FORMA_PAGO,'#10' V_CONTRATOS_CLIENTE.PLAZ' + 'O_ENTREGA,'#10' V_CONTRATOS_CLIENTE.OBSERVACIONES,'#10#10' V_CONTRAT' + 'OS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMPORTE_PORTE,'#10' ' + 'V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIENTE.IMPORTE_DESCU' + 'ENTO,'#10' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_CONTRATOS_CLIENT' + 'E.IVA,'#10' V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_CLIENTE.IMPORTE_R' + 'E,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' V_CONTRATOS_CLIENTE.R' + 'EF_CLIENTE,'#10' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' V_CONTRATOS_CLI' + 'ENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' V_CONTRATOS_CLIE' + 'NTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA,'#10' V_CONTRATO' + 'S_CLIENTE.PAIS,'#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CON' + 'TRATOS_CLIENTE.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CO' + 'NTRATOS_CLIENTE.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10 + ' V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENT' + 'E.VENDEDOR,'#10' V_CONTRATOS_CLIENTE.ID_DIRECCION_ENVIO,'#10' V_CO' + 'NTRATOS_CLIENTE.CALLE_ENVIO,'#10' V_CONTRATOS_CLIENTE.POBLACION_E' + 'NVIO,'#10' V_CONTRATOS_CLIENTE.PROVINCIA_ENVIO,'#10' V_CONTRATOS_C' + 'LIENTE.PAIS_ENVIO,'#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL_ENVIO,'#10 + ' V_CONTRATOS_CLIENTE.PERS_CONTACTO_ENVIO,'#10' V_CONTRATOS_CLI' + 'ENTE.TLFS_ENVIO,'#10' V_CONTRATOS_CLIENTE.NOTAS_ENVIO,'#10' V_CONT' + 'RATOS_CLIENTE.ID_TIENDA,'#10' V_CONTRATOS_CLIENTE.TIENDA,'#10' V_C' + 'ONTRATOS_CLIENTE.IDIOMA_ISO'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' ' + ' V_CONTRATOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'FECHA_CONTRATO' TableField = 'FECHA_CONTRATO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'FORMA_PAGO' TableField = 'FORMA_PAGO' end item DatasetField = 'PLAZO_ENTREGA' TableField = 'PLAZO_ENTREGA' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'IMPORTE_NETO' TableField = 'IMPORTE_NETO' end item DatasetField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO' end item DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end item DatasetField = 'IVA' TableField = 'IVA' end item DatasetField = 'RE' TableField = 'RE' end item DatasetField = 'IMPORTE_RE' TableField = 'IMPORTE_RE' 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 = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end item DatasetField = 'VENDEDOR' TableField = 'VENDEDOR' 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 = 'REF_CLIENTE' TableField = 'REF_CLIENTE' end item DatasetField = 'TELEFONO' TableField = 'TELEFONO' end item DatasetField = 'MOVIL' TableField = 'MOVIL' end item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' end item DatasetField = 'ID_DIRECCION_ENVIO' TableField = 'ID_DIRECCION_ENVIO' end item DatasetField = 'CALLE_ENVIO' TableField = 'CALLE_ENVIO' end item DatasetField = 'POBLACION_ENVIO' TableField = 'POBLACION_ENVIO' end item DatasetField = 'PROVINCIA_ENVIO' TableField = 'PROVINCIA_ENVIO' end item DatasetField = 'CODIGO_POSTAL_ENVIO' TableField = 'CODIGO_POSTAL_ENVIO' end item DatasetField = 'PERS_CONTACTO_ENVIO' TableField = 'PERS_CONTACTO_ENVIO' end item DatasetField = 'TLFS_ENVIO' TableField = 'TLFS_ENVIO' end item DatasetField = 'NOTAS_ENVIO' TableField = 'NOTAS_ENVIO' end item DatasetField = 'ID_TIENDA' TableField = 'ID_TIENDA' end item DatasetField = 'TIENDA' TableField = 'TIENDA' end item DatasetField = 'PAIS' TableField = 'PAIS' end item DatasetField = 'PAIS_ENVIO' TableField = 'PAIS_ENVIO' end item DatasetField = 'IDIOMA_ISO' TableField = 'IDIOMA_ISO' end> end> Name = 'Informe_Cabecera' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'FECHA_CONTRATO' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'FORMA_PAGO' DataType = datMemo end item Name = 'PLAZO_ENTREGA' DataType = datMemo end item Name = 'OBSERVACIONES' DataType = datMemo end item Name = 'IMPORTE_NETO' DataType = datCurrency end item Name = 'IMPORTE_PORTE' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency end item Name = 'BASE_IMPONIBLE' DataType = datCurrency end item Name = 'IVA' DataType = datFloat end item Name = 'RE' DataType = datFloat end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'REF_CLIENTE' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'CALLE' DataType = datString Size = 255 end item Name = 'POBLACION' DataType = datString Size = 255 end item Name = 'PROVINCIA' DataType = datString Size = 255 end item Name = 'PAIS' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 end item Name = 'TELEFONO' DataType = datString Size = 25 end item Name = 'MOVIL' DataType = datString Size = 25 end item Name = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 end item Name = 'VENDEDOR' DataType = datString Size = 255 end item Name = 'ID_DIRECCION_ENVIO' DataType = datInteger end item Name = 'CALLE_ENVIO' DataType = datString Size = 255 end item Name = 'POBLACION_ENVIO' DataType = datString Size = 255 end item Name = 'PROVINCIA_ENVIO' DataType = datString Size = 255 end item Name = 'PAIS_ENVIO' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_ENVIO' DataType = datString Size = 255 end item Name = 'PERS_CONTACTO_ENVIO' DataType = datString Size = 255 end item Name = 'TLFS_ENVIO' DataType = datString Size = 30 end item Name = 'NOTAS_ENVIO' DataType = datString Size = 255 end item Name = 'ID_TIENDA' DataType = datInteger end item Name = 'TIENDA' DataType = datString Size = 255 end item Name = 'IDIOMA_ISO' DataType = datString Size = 2 end> ReadOnly = True end item Params = < item Name = 'ID_PRE_CON' DataType = datInteger Value = '22' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True SQL = 'SELECT * FROM PROC_PRE_CON_CAPITULOS_CONCEP(:ID_PRE_CON, '#39'Contra' + 'to'#39')'#10'WHERE {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_PRE_CON' TableField = 'ID_PRE_CON' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'ID_CAPITULO' TableField = 'ID_CAPITULO' end item DatasetField = 'TIPO_ARTICULO' TableField = 'TIPO_ARTICULO' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'PROPIEDAD' TableField = 'PROPIEDAD' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'VISIBLE' TableField = 'VISIBLE' end item DatasetField = 'INCREMENTO' TableField = 'INCREMENTO' end item DatasetField = 'DECREMENTO' TableField = 'DECREMENTO' end item DatasetField = 'IMPORTE_NETO' TableField = 'IMPORTE_NETO' end item DatasetField = 'VALORADO' TableField = 'VALORADO' end item DatasetField = 'CONCEPTO_EN' TableField = 'CONCEPTO_EN' end item DatasetField = 'CONCEPTO_FR' TableField = 'CONCEPTO_FR' end> end> Name = 'Informe_Capitulos_Detalles' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_PRE_CON' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'ID_CAPITULO' DataType = datInteger end item Name = 'TIPO_ARTICULO' DataType = datString Size = 2 end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'PROPIEDAD' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'CONCEPTO_EN' DataType = datString Size = 2000 end item Name = 'CONCEPTO_FR' DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'INCREMENTO' DataType = datCurrency end item Name = 'DECREMENTO' DataType = datCurrency end item Name = 'IMPORTE_NETO' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datCurrency end item Name = 'IMPORTE_PORTE' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'VISIBLE' DataType = datSmallInt end item Name = 'VALORADO' DataType = datSmallInt end> ReadOnly = True end item Params = < item Name = 'ID_PRE_CON' DataType = datInteger Value = '232' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True SQL = 'SELECT * FROM PROC_PRE_CON_CAPITULOS(:ID_PRE_CON, '#39'Contrato'#39')'#10'WH' + 'ERE {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_PRE_CON' TableField = 'ID_PRE_CON' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'VISIBLE' TableField = 'VISIBLE' end item DatasetField = 'TIPO_ARTICULO' TableField = 'TIPO_ARTICULO' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO' end item DatasetField = 'VALORADO' TableField = 'VALORADO' end> end> Name = 'Informe_Capitulos' Fields = < item Name = 'VALORADO' DataType = datSmallInt end item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_PRE_CON' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'VISIBLE' DataType = datSmallInt end item Name = 'TIPO_ARTICULO' DataType = datString Size = 2 end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency end> ReadOnly = True end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_CONTRATOS_CLIENTE' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_contrato) as ANO,'#10'ex' + 'tract (month from fecha_contrato) as MES,'#10'case'#10'when extract (mon' + 'th from fecha_contrato) = 1 then '#39'ENERO - '#39' || extract (year fro' + 'm fecha_contrato)'#10'when extract (month from fecha_contrato) = 2 t' + 'hen '#39'FEBRERO - '#39' || extract (year from fecha_contrato)'#10'when extr' + 'act (month from fecha_contrato) = 3 then '#39'MARZO - '#39' || extract (' + 'year from fecha_contrato)'#10'when extract (month from fecha_contrat' + 'o) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_contrato)'#10'whe' + 'n extract (month from fecha_contrato) = 5 then '#39'MAYO - '#39' || extr' + 'act (year from fecha_contrato)'#10'when extract (month from fecha_co' + 'ntrato) = 6 then '#39'JUNIO - '#39' || extract (year from fecha_contrato' + ')'#10'when extract (month from fecha_contrato) = 7 then '#39'JULIO - '#39' |' + '| extract (year from fecha_contrato)'#10'when extract (month from fe' + 'cha_contrato) = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_c' + 'ontrato)'#10'when extract (month from fecha_contrato) = 9 then '#39'SEPT' + 'IEMBRE - '#39' || extract (year from fecha_contrato)'#10'when extract (m' + 'onth from fecha_contrato) = 10 then '#39'OCTUBRE - '#39' || extract (yea' + 'r from fecha_contrato)'#10'when extract (month from fecha_contrato) ' + '= 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_contrato)'#10'w' + 'hen extract (month from fecha_contrato) = 12 then '#39'DICIEMBRE - '#39 + ' || extract (year from fecha_contrato)'#10'end as TITULO,'#10'sum(IMPORT' + 'E_TOTAL) as IMPORTE_TOTAL'#10#10'from V_contratos_cliente'#10'group by 1,2' + ',3,4'#10'order by ANO, MES'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ANO' TableField = '' SQLOrigin = 'ANO' end item DatasetField = 'MES' TableField = '' SQLOrigin = 'MES' end item DatasetField = 'TITULO' TableField = '' SQLOrigin = 'TITULO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'InformeListadoContratosResumen' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = < item Name = 'ID_EMPRESA' Value = '' ParamType = daptInput end item Name = 'FECHAINI' Value = '' ParamType = daptInput end item Name = 'FECHAFIN' Value = '' ParamType = daptInput end> Statements = < item ConnectionType = 'Interbase' Default = True SQL = 'select FC.ID_AGENTE, FCD.ID_ARTICULO, A.REFERENCIA, (COALESCE(FC' + 'D.PROPIEDAD,'#39#39') || FCD.CONCEPTO) CONCEPTO, COALESCE(A.FAMILIA,'#39#39 + ') || '#39' '#39' || COALESCE(A.referencia_prov,'#39#39') || '#39' '#39' || COALESCE(A.' + 'DESCRIPCION,'#39#39') ARTICULO,'#10'avg(coalesce(FCD.importe_unidad,0)) im' + 'porte_medio_unidad, sum(coalesce(FCD.cantidad,0)) CANTIDAD, avg(' + 'coalesce(FCD.importe_unidad,0))*sum(coalesce(FCD.cantidad,0)) im' + 'porte_medio_total,'#10'sum(coalesce(FCD.importe_total,0)) importe_re' + 'al_total'#10'from contratos_cliente_detalles FCD'#10'inner join contrato' + 's_cliente FC on (FC.ID = FCD.ID_CONTRATO)'#10'left join contactos AG' + 'ENTES on (AGENTES.ID = FC.ID_AGENTE)'#10'inner join articulos A on (' + 'A.ID = FCD.ID_ARTICULO)'#10'where {where}'#10'and FC.ID_EMPRESA = :ID_EM' + 'PRESA'#10'and FC.FECHA_CONTRATO between :FECHAINI and :FECHAFIN'#10'and ' + 'FCD.id_articulo > 1'#10'and A.COMISIONABLE = 1'#10#10'GROUP BY 1,2,3,4,5'#10'o' + 'rder by 7 DESC'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_MEDIO_UNIDAD' TableField = 'IMPORTE_MEDIO_UNIDAD' end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'IMPORTE_MEDIO_TOTAL' TableField = 'IMPORTE_MEDIO_TOTAL' end item DatasetField = 'IMPORTE_REAL_TOTAL' TableField = 'IMPORTE_REAL_TOTAL' end item DatasetField = 'ARTICULO' TableField = 'ARTICULO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end> end> Name = 'InformeVentasArticulosComercial' Fields = < item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 2255 end item Name = 'ARTICULO' DataType = datString Size = 767 end item Name = 'IMPORTE_MEDIO_UNIDAD' DataType = datCurrency end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_MEDIO_TOTAL' DataType = datCurrency end item Name = 'IMPORTE_REAL_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item ConnectionType = 'Interbase' Default = True SQL = 'select FC.ID_EMPRESA, FC.ID_AGENTE, AGENTES.NOMBRE, sum(coalesc' + 'e(FCD.cantidad,0)) unidades_vendidas, sum(coalesce(FCD.importe_t' + 'otal,0)) importe_total_unidades'#10'from contratos_cliente_detalles ' + 'FCD'#10'inner join contratos_cliente FC on (FC.ID = FCD.ID_CONTRATO)' + #10'left join contactos AGENTES on (AGENTES.ID = FC.ID_AGENTE)'#10'inne' + 'r join articulos A on (A.ID = FCD.ID_ARTICULO)'#10'where {where}'#10'and' + ' FCD.id_articulo > 1'#10'and FC.id_agente > 0'#10'and A.COMISIONABLE = 1' + #10'GROUP BY 1,2,3'#10'order by 5 DESC'#10'rows 1 to 10'#10#10#10#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'UNIDADES_VENDIDAS' TableField = 'UNIDADES_VENDIDAS' end item DatasetField = 'IMPORTE_TOTAL_UNIDADES' TableField = 'IMPORTE_TOTAL_UNIDADES' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end> end> Name = 'InformeVentasComercialesResumen' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'UNIDADES_VENDIDAS' DataType = datCurrency end item Name = 'IMPORTE_TOTAL_UNIDADES' DataType = datCurrency end> end item Params = <> Statements = < item ConnectionType = 'Interbase' Default = True SQL = 'select FC.ID_EMPRESA, FC.ID_AGENTE, AGENTES.NOMBRE, FCD.ID_ARTI' + 'CULO, A.REFERENCIA,'#10'(COALESCE(FCD.PROPIEDAD,'#39#39') || FCD.CONCEPTO)' + ' CONCEPTO, COALESCE(A.FAMILIA,'#39#39') || '#39' '#39' || COALESCE(A.referenci' + 'a_prov,'#39#39') || '#39' '#39' || COALESCE(A.DESCRIPCION,'#39#39') ARTICULO,'#10'avg(co' + 'alesce(FCD.importe_unidad,0)) importe_medio_unidad, sum(coalesce' + '(FCD.cantidad,0)) unidades_vendidas, avg(coalesce(FCD.importe_un' + 'idad,0))*sum(coalesce(FCD.cantidad,0)) importe_medio_total, sum(' + 'coalesce(FCD.importe_total,0)) importe_total_unidades'#10'from contr' + 'atos_cliente_detalles FCD'#10'inner join contratos_cliente FC on (FC' + '.ID = FCD.ID_CONTRATO)'#10'left join contactos AGENTES on (AGENTES.I' + 'D = FC.ID_AGENTE)'#10'inner join articulos A on (A.ID = FCD.ID_ARTIC' + 'ULO)'#10'where {where}'#10'and FCD.id_articulo > 1'#10'and FC.id_agente > 0'#10 + 'and A.COMISIONABLE = 1'#10'GROUP BY 1,2,3,4,5,6,7'#10'order by 9 DESC'#10'ro' + 'ws 1 to 10'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'UNIDADES_VENDIDAS' TableField = 'UNIDADES_VENDIDAS' end item DatasetField = 'IMPORTE_TOTAL_UNIDADES' TableField = 'IMPORTE_TOTAL_UNIDADES' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'ARTICULO' TableField = 'ARTICULO' end item DatasetField = 'IMPORTE_MEDIO_UNIDAD' TableField = 'IMPORTE_MEDIO_UNIDAD' end item DatasetField = 'IMPORTE_MEDIO_TOTAL' TableField = 'IMPORTE_MEDIO_TOTAL' end> end> Name = 'InformeVentasComercialResumen' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 2255 end item Name = 'ARTICULO' DataType = datString Size = 767 end item Name = 'IMPORTE_MEDIO_UNIDAD' DataType = datCurrency end item Name = 'UNIDADES_VENDIDAS' DataType = datCurrency end item Name = 'IMPORTE_MEDIO_TOTAL' DataType = datCurrency end item Name = 'IMPORTE_TOTAL_UNIDADES' DataType = datCurrency end> end> JoinDataTables = <> UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> Version = 0 Left = 48 Top = 16 end object DataDictionary: TDADataDictionary Fields = <> Left = 46 Top = 142 end object frxReport: TfrxReport Version = '4.8.11' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.LastChange = 45831.740295370370000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' OnUserFunction = frxReportUserFunction Left = 169 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADSCabecera BCDToCurrency = False Left = 264 Top = 16 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADSDetalles BCDToCurrency = False Left = 440 Top = 16 end object tbl_Cabecera: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'FECHA_CONTRATO' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'FORMA_PAGO' DataType = datMemo end item Name = 'PLAZO_ENTREGA' DataType = datMemo end item Name = 'OBSERVACIONES' DataType = datMemo end item Name = 'IMPORTE_NETO' DataType = datCurrency end item Name = 'IMPORTE_PORTE' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency end item Name = 'BASE_IMPONIBLE' DataType = datCurrency end item Name = 'IVA' DataType = datFloat end item Name = 'RE' DataType = datFloat end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'REF_CLIENTE' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'CALLE' DataType = datString Size = 255 end item Name = 'POBLACION' DataType = datString Size = 255 end item Name = 'PROVINCIA' DataType = datString Size = 255 end item Name = 'PAIS' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 end item Name = 'TELEFONO' DataType = datString Size = 25 end item Name = 'MOVIL' DataType = datString Size = 25 end item Name = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 end item Name = 'VENDEDOR' DataType = datString Size = 255 end item Name = 'ID_DIRECCION_ENVIO' DataType = datInteger end item Name = 'CALLE_ENVIO' DataType = datString Size = 255 end item Name = 'POBLACION_ENVIO' DataType = datString Size = 255 end item Name = 'PROVINCIA_ENVIO' DataType = datString Size = 255 end item Name = 'PAIS_ENVIO' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_ENVIO' DataType = datString Size = 255 end item Name = 'PERS_CONTACTO_ENVIO' DataType = datString Size = 255 end item Name = 'TLFS_ENVIO' DataType = datString Size = 30 end item Name = 'NOTAS_ENVIO' DataType = datString Size = 255 end item Name = 'ID_TIENDA' DataType = datInteger end item Name = 'TIENDA' DataType = datString Size = 255 end item Name = 'IDIOMA_ISO' DataType = datString Size = 2 end> Params = < item Name = 'ID' Value = '31' ParamType = daptInput end> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 264 Top = 128 end object IBDatabase1: TIBDatabase DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB' Params.Strings = ( 'user_name=sysdba' 'password=masterkey' 'lc_ctype=ISO8859_1') LoginPrompt = False DefaultTransaction = IBTransaction1 Left = 32 Top = 232 end object IBTransaction1: TIBTransaction Left = 32 Top = 288 end object DataSource1: TDataSource DataSet = cabecera Left = 200 Top = 232 end object DataSource2: TDataSource DataSet = capitulos Left = 200 Top = 288 end object capitulos: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT * FROM PRO_PRES_CAPITULOS(18)') Left = 120 Top = 288 end object DataSource3: TDataSource DataSet = detalles Left = 200 Top = 352 end object detalles: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT * FROM PRO_PRES_CAPITULOS_CONCEPTOS(18)') Left = 120 Top = 352 end object frxDBCapitulos: TfrxDBDataset UserName = 'frxDBCapitulos' CloseDataSource = False DataSource = DADSCapitulos BCDToCurrency = False Left = 352 Top = 16 end object DABin2DataStreamer1: TDABin2DataStreamer Left = 48 Top = 80 end object cabecera: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT' ' V_CONTRATOS_CLIENTE.ID, V_CONTRATOS_CLIENTE.ID_EMPRESA,' ' V_CONTRATOS_CLIENTE.FECHA_CONTRATO,' ' V_CONTRATOS_CLIENTE.REFERENCIA,' ' V_CONTRATOS_CLIENTE.OBSERVACIONES,' ' V_CONTRATOS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMPORT' + 'E_PORTE,' ' V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIENTE.IMPORTE_D' + 'ESCUENTO,' ' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_CONTRATOS_CLIENTE.IVA,' ' V_CONTRATOS_CLIENTE.ID_CLIENTE,' ' V_CLIENTES.NIF_CIF, V_CLIENTES.NOMBRE,' ' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE' + '_TOTAL,' ' V_CLIENTES.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.PO' + 'BLACION,' ' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL' 'FROM' ' V_CONTRATOS_CLIENTE INNER JOIN V_CLIENTES ON' ' (V_CONTRATOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)' ' WHERE V_CONTRATOS_CLIENTE.ID = 18') Left = 120 Top = 232 object cabeceraID: TIntegerField FieldName = 'ID' Origin = '"V_CONTRATOS_CLIENTE"."ID"' end object cabeceraID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Origin = '"V_CONTRATOS_CLIENTE"."ID_EMPRESA"' end object cabeceraFECHA_CONTRATO: TDateField FieldName = 'FECHA_CONTRATO' Origin = '"V_CONTRATOS_CLIENTE"."FECHA_CONTRATO"' end object cabeceraREFERENCIA: TIBStringField FieldName = 'REFERENCIA' Origin = '"V_CONTRATOS_CLIENTE"."REFERENCIA"' Size = 255 end object cabeceraOBSERVACIONES: TMemoField FieldName = 'OBSERVACIONES' Origin = '"V_CONTRATOS_CLIENTE"."OBSERVACIONES"' ProviderFlags = [pfInUpdate] BlobType = ftMemo Size = 8 end object cabeceraIMPORTE_NETO: TIBBCDField FieldName = 'IMPORTE_NETO' Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_NETO"' Precision = 18 Size = 2 end object cabeceraIMPORTE_PORTE: TIBBCDField FieldName = 'IMPORTE_PORTE' Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_PORTE"' Precision = 18 Size = 2 end object cabeceraDESCUENTO: TFloatField FieldName = 'DESCUENTO' Origin = '"V_CONTRATOS_CLIENTE"."DESCUENTO"' end object cabeceraIMPORTE_DESCUENTO: TIBBCDField FieldName = 'IMPORTE_DESCUENTO' Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_DESCUENTO"' Precision = 18 Size = 2 end object cabeceraBASE_IMPONIBLE: TIBBCDField FieldName = 'BASE_IMPONIBLE' Origin = '"V_CONTRATOS_CLIENTE"."BASE_IMPONIBLE"' Precision = 18 Size = 2 end object cabeceraIVA: TFloatField FieldName = 'IVA' Origin = '"V_CONTRATOS_CLIENTE"."IVA"' end object cabeceraID_CLIENTE: TIntegerField FieldName = 'ID_CLIENTE' Origin = '"V_CONTRATOS_CLIENTE"."ID_CLIENTE"' end object cabeceraNIF_CIF: TIBStringField FieldName = 'NIF_CIF' Origin = '"V_CLIENTES"."NIF_CIF"' Size = 15 end object cabeceraNOMBRE: TIBStringField FieldName = 'NOMBRE' Origin = '"V_CLIENTES"."NOMBRE"' Size = 255 end object cabeceraIMPORTE_IVA: TIBBCDField FieldName = 'IMPORTE_IVA' Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_IVA"' Precision = 18 Size = 2 end object cabeceraIMPORTE_TOTAL: TIBBCDField FieldName = 'IMPORTE_TOTAL' Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_TOTAL"' Precision = 18 Size = 2 end object cabeceraPERSONA_CONTACTO: TIBStringField FieldName = 'PERSONA_CONTACTO' Origin = '"V_CLIENTES"."PERSONA_CONTACTO"' Size = 255 end object cabeceraCALLE: TIBStringField FieldName = 'CALLE' Origin = '"V_CLIENTES"."CALLE"' Size = 255 end object cabeceraPOBLACION: TIBStringField FieldName = 'POBLACION' Origin = '"V_CLIENTES"."POBLACION"' Size = 255 end object cabeceraPROVINCIA: TIBStringField FieldName = 'PROVINCIA' Origin = '"V_CLIENTES"."PROVINCIA"' Size = 255 end object cabeceraCODIGO_POSTAL: TIBStringField FieldName = 'CODIGO_POSTAL' Origin = '"V_CLIENTES"."CODIGO_POSTAL"' Size = 10 end end object DADSCapitulos: TDADataSource DataSet = tbl_Capitulos.Dataset DataTable = tbl_Capitulos Left = 352 Top = 72 end object tbl_Capitulos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_PRE_CON' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'VISIBLE' DataType = datSmallInt end item Name = 'TIPO_ARTICULO' DataType = datString Size = 2 end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency end> Params = < item Name = 'ID_PRE_CON' DataType = datInteger Value = '' end> MasterParamsMappings.Strings = ( 'ID_PRESUPUESTO=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch] LogicalName = 'Informe_Capitulos' IndexDefs = <> Left = 352 Top = 128 end object frxPDFExport1: TfrxPDFExport ShowDialog = False UseFileCache = True ShowProgress = False OverwritePrompt = False EmbeddedFonts = True PrintOptimized = True Outline = False Background = False HTMLTags = True Author = 'FactuGES' Subject = 'FactuGES' Creator = 'FactuGES' ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] HideToolbar = False HideMenubar = False HideWindowUI = False FitWindow = False CenterWindow = False PrintScaling = False Left = 184 Top = 480 end object DADSInformeListadoContratos: TDADataSource DataSet = tbl_InformeListadoContratos.Dataset DataTable = tbl_InformeListadoContratos Left = 680 Top = 72 end object tbl_InformeListadoContratos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'FECHA_CONTRATO' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'InformeListadoContratos' IndexDefs = <> Left = 680 Top = 128 end object frxDBInformeListadoContratos: TfrxDBDataset UserName = 'frxDBInformeListadoContratos' CloseDataSource = True DataSource = DADSInformeListadoContratos BCDToCurrency = False Left = 680 Top = 16 end object frxDBInformeListadoContratosResumen: TfrxDBDataset UserName = 'frxDBInformeListadoContratosResumen' CloseDataSource = True DataSource = DADSInformeListadoContratosResumen BCDToCurrency = False Left = 680 Top = 192 end object DADSInformeListadoContratosResumen: TDADataSource DataSet = tbl_InformeListadoContratosResumen.Dataset DataTable = tbl_InformeListadoContratosResumen Left = 680 Top = 248 end object tbl_InformeListadoContratosResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'InformeListadoContratosResumen' IndexDefs = <> Left = 680 Top = 304 end object tbl_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_PRE_CON' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'ID_CAPITULO' DataType = datInteger end item Name = 'TIPO_ARTICULO' DataType = datString Size = 2 end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'PROPIEDAD' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 2000 end item Name = 'CONCEPTO_EN' DataType = datString Size = 2000 end item Name = 'CONCEPTO_FR' DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'INCREMENTO' DataType = datCurrency end item Name = 'DECREMENTO' DataType = datCurrency end item Name = 'IMPORTE_NETO' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datCurrency end item Name = 'IMPORTE_PORTE' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'VISIBLE' DataType = datSmallInt end item Name = 'VALORADO' DataType = datSmallInt end> Params = < item Name = 'ID_PRE_CON' DataType = datInteger Value = '22' end> MasterMappingMode = mmWhere MasterParamsMappings.Strings = ( 'ID_PRESUPUESTO=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 MasterSource = DADSCapitulos MasterFields = 'ID' DetailFields = 'ID_CAPITULO' MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch] LogicalName = 'Informe_Capitulos_Detalles' IndexDefs = <> Left = 440 Top = 128 end object frxDBCondiciones: TfrxDBDataset UserName = 'frxDBCondiciones' CloseDataSource = False DataSource = DADSCondiciones BCDToCurrency = False Left = 352 Top = 192 end object DADSCondiciones: TDADataSource DataSet = tbl_Condiciones.Dataset DataTable = tbl_Condiciones Left = 352 Top = 248 end object tbl_Condiciones: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'VALOR_BLOB' DataType = datBlob end> Params = <> MasterMappingMode = mmWhere MasterParamsMappings.Strings = ( 'ID_PRESUPUESTO=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch] LogicalName = 'Informe_Condiciones' IndexDefs = <> Left = 352 Top = 304 end object frxDBEtiquetas: TfrxDBDataset UserName = 'frxDBEtiquetas' CloseDataSource = False DataSource = DADataEtiquetas BCDToCurrency = False Left = 528 Top = 16 end object DADataEtiquetas: TDADataSource DataSet = tbl_Etiquetas.Dataset DataTable = tbl_Etiquetas Left = 528 Top = 72 end object tbl_Etiquetas: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'AGENCIA' DataType = datString Size = 255 end item Name = 'BULTO' DataType = datInteger end item Name = 'NUM_BULTOS' DataType = datInteger end item Name = 'DESTINATARIO' DataType = datString Size = 255 end item Name = 'TELEFONO' DataType = datString Size = 255 end item Name = 'CALLE' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL' DataType = datString Size = 255 end item Name = 'POBLACION' DataType = datString Size = 255 end item Name = 'PROVINCIA' DataType = datString Size = 255 end item Name = 'PAIS' DataType = datString Size = 255 end item Name = 'REF_PEDIDO' DataType = datString Size = 255 end item Name = 'REF_CLIENTE' DataType = datString Size = 255 end> Params = < item Name = 'ID_CONTRATO' Value = '' end item Name = 'REF_PEDIDO' Value = '' end item Name = 'AGENCIA' Value = '' end item Name = 'NUM_ETIQUETAS' Value = '' end item Name = 'ETIQUETA_INI' Value = '' end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'Informe_Detalles_Etiquetas' IndexDefs = <> Left = 528 Top = 128 end object frxDBInformeVentasArticulos: TfrxDBDataset UserName = 'frxDBInformeVentasArticulos' CloseDataSource = True DataSource = DADSInformeVentasArticulos BCDToCurrency = False Left = 304 Top = 408 end object DADSInformeVentasArticulos: TDADataSource DataSet = tbl_informeVentasArticulos.Dataset DataTable = tbl_informeVentasArticulos Left = 304 Top = 464 end object tbl_informeVentasArticulos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 2255 end item Name = 'ARTICULO' DataType = datString Size = 767 end item Name = 'IMPORTE_MEDIO_UNIDAD' DataType = datCurrency end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_MEDIO_TOTAL' DataType = datCurrency end item Name = 'IMPORTE_REAL_TOTAL' DataType = datCurrency end> Params = < item Name = 'ID_EMPRESA' Value = '' end item Name = 'FECHAINI' Value = '' end item Name = 'FECHAFIN' Value = '' end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'InformeVentasArticulos' IndexDefs = <> Left = 304 Top = 520 end object frxDBInformeVentasArticulosComercial: TfrxDBDataset UserName = 'frxDBInformeVentasArticulosComercial' CloseDataSource = True DataSource = DADSInformeVentasArticulosComercial BCDToCurrency = False Left = 648 Top = 392 end object DADSInformeVentasArticulosComercial: TDADataSource DataSet = tbl_informeVentasArticulosComercial.Dataset DataTable = tbl_informeVentasArticulosComercial Left = 648 Top = 448 end object tbl_informeVentasArticulosComercial: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'CONCEPTO' DataType = datString Size = 2255 end item Name = 'ARTICULO' DataType = datString Size = 767 end item Name = 'IMPORTE_MEDIO_UNIDAD' DataType = datCurrency end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_MEDIO_TOTAL' DataType = datCurrency end item Name = 'IMPORTE_REAL_TOTAL' DataType = datCurrency end> Params = < item Name = 'ID_EMPRESA' Value = '' ParamType = daptInput end item Name = 'FECHAINI' Value = '' ParamType = daptInput end item Name = 'FECHAFIN' Value = '' ParamType = daptInput end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'InformeVentasArticulosComercial' IndexDefs = <> Left = 648 Top = 504 end object frxDBInformeVentasComercialesResumen: TfrxDBDataset UserName = 'frxDBInformeVentasComercialesResumen' CloseDataSource = True DataSource = DADSInformeVentasComercialesResumen BCDToCurrency = False Left = 448 Top = 408 end object DADSInformeVentasComercialesResumen: TDADataSource DataSet = tbl_InformeVentasComercialesResumen.Dataset DataTable = tbl_InformeVentasComercialesResumen Left = 448 Top = 464 end object tbl_InformeVentasComercialesResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False IndexDefs = <> Left = 448 Top = 520 end object frxDBInformeVentasComercialResumen: TfrxDBDataset UserName = 'frxDBInformeVentasComercialResumen' CloseDataSource = True DataSource = DADSInformeVentasComercialResumen BCDToCurrency = False Left = 848 Top = 400 end object DADSInformeVentasComercialResumen: TDADataSource DataSet = tbl_InformeVentasComercialResumen.Dataset DataTable = tbl_InformeVentasComercialResumen Left = 848 Top = 456 end object tbl_InformeVentasComercialResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False IndexDefs = <> Left = 848 Top = 512 end end