object RptAlbaranesCliente: TRptAlbaranesCliente OldCreateOrder = True OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 471 Width = 448 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 = 344 Top = 72 end object frxRichObject1: TfrxRichObject Left = 280 Top = 360 end object frxBarCodeObject1: TfrxBarCodeObject Left = 344 Top = 360 end object frxOLEObject1: TfrxOLEObject Left = 280 Top = 408 end object frxCrossObject1: TfrxCrossObject Left = 344 Top = 408 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 280 Top = 256 end object frxGradientObject1: TfrxGradientObject Left = 344 Top = 256 end object frxChartObject1: TfrxChartObject Left = 280 Top = 304 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager Datasets = < item Params = < item Name = 'ID' DataType = datInteger Value = '11' ParamType = daptInput end> Statements = < item Connection = 'IBX' SQL = 'SELECT'#10' V_ALBARANES_CLIENTE.ID, V_ALBARANES_CLIENTE.ID_EMPRESA,' + #10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.FECHA_A' + 'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' + 'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' + 'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.FORMA_PAGO,'#10' V_ALB' + 'ARANES_CLIENTE.DATOS_BANCARIOS,'#10' V_ALBARANES_CLIENTE.OBSERVACIO' + 'NES,'#10' V_ALBARANES_CLIENTE.IMPORTE_NETO,'#10' V_ALBARANES_CLIENTE.D' + 'ESCUENTO,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES' + '_CLIENTE.DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' + ' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as RE' + 'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CL' + 'IENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' + 'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' + 'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' + 'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' + 'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' + ') AS CODIGO_POSTAL'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONT' + 'ACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT ' + 'OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ' + 'V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID =' + ' :ID'#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'FECHA_ALBARAN' TableField = 'FECHA_ALBARAN' end item DatasetField = 'ID_PEDIDO' TableField = 'ID_PEDIDO' end item DatasetField = 'REF_PEDIDO' TableField = 'REF_PEDIDO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'REF_CLIENTE' TableField = 'REF_CLIENTE' end item DatasetField = 'IMPORTE_NETO' TableField = 'IMPORTE_NETO' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO' end item DatasetField = 'DESCUENTO2' TableField = 'DESCUENTO2' end item DatasetField = 'IMPORTE_DESCUENTO2' TableField = 'IMPORTE_DESCUENTO2' end item DatasetField = 'FORMA_PAGO' TableField = 'FORMA_PAGO' end item DatasetField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS' end> end> Name = 'Informe_Cabecera' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'FECHA_ALBARAN' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'ID_PEDIDO' DataType = datInteger end item Name = 'REF_PEDIDO' DataType = datString Size = 255 end item Name = 'FORMA_PAGO' DataType = datString Size = 255 end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end item Name = 'OBSERVACIONES' DataType = datMemo end item Name = 'IMPORTE_NETO' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datCurrency end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency end item Name = 'DESCUENTO2' DataType = datCurrency end item Name = 'IMPORTE_DESCUENTO2' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency 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 = 'PERSONA_CONTACTO' 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 = 'CODIGO_POSTAL' DataType = datString Size = 10 end> end item Params = < item Name = 'ID_ALBARAN' DataType = datInteger Value = '11' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'ALBARANES_CLIENTE_DETALLES' SQL = 'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' + '.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' + 'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' + 'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' + 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10' ' + ' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE' + '_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM ALBARA' + 'NES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (ALBARANES_CLIE' + 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_ALBARAN =' + ' :ID_ALBARAN AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_ALBARAN,' + ' POSICION'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_ALBARAN' TableField = 'ID_ALBARAN' 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 = 'UNIDAD_MEDIDA' TableField = 'UNIDAD_MEDIDA' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'REFERENCIA' TableField = '' SQLOrigin = 'REFERENCIA' end> end> Name = 'Informe_Detalles' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_ALBARAN' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 254 end item Name = 'CANTIDAD' DataType = datFloat end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'REFERENCIA' DataType = datString Size = 255 end> end item Params = < item Name = 'ID_ALBARAN' DataType = datInteger Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'ALBARANES_CLIENTE_DETALLES' SQL = 'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' + '.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' + 'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' + 'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' + 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, AL' + 'BARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFEREN' + 'CIA, ARTICULOS.FAMILIA'#10#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JO' + 'IN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICU' + 'LOS.ID)'#10'WHERE (ID_ALBARAN = :ID_ALBARAN)'#10'AND (ARTICULOS.INVENTAR' + 'IABLE = 1)'#10'ORDER BY POSICION'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_ALBARAN' TableField = 'ID_ALBARAN' 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 = 'REFERENCIA' TableField = '' SQLOrigin = 'REFERENCIA' end item DatasetField = 'FAMILIA' TableField = '' SQLOrigin = 'FAMILIA' end> end> Name = 'Informe_Detalles_Etiquetas' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_ALBARAN' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 254 end item Name = 'CANTIDAD' DataType = datInteger end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end> end> JoinDataTables = <> UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> Version = 0 Left = 48 Top = 16 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 = 39065.872423495400000000 ReportOptions.LastChange = 40196.760630046290000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' Left = 145 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 = 344 Top = 16 end object IBDatabase1: TIBDatabase DatabaseName = 'C:\Codigo Tecsitel\Database\FACTUGES.FDB' Params.Strings = ( 'user_name=sysdba' 'password=masterkey' 'lc_ctype=ISO8859_1') LoginPrompt = False DefaultTransaction = IBTransaction1 Left = 40 Top = 256 end object IBTransaction1: TIBTransaction Left = 40 Top = 312 end object DataSource1: TDataSource DataSet = cabecera Left = 176 Top = 256 end object DataSource3: TDataSource DataSet = detalles Left = 176 Top = 320 end object detalles: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' + '.ID_ALBARAN,' ' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARANES_CLIENTE_DE' + 'TALLES.TIPO_DETALLE,' ' F_RTFTOTEXT(ALBARANES_CLIENTE_DETALLES.CONCEPTO) as CONCE' + 'PTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,' ' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIE' + 'NTE_DETALLES.IMPORTE_TOTAL,' ' ARTICULOS.REFERENCIA' 'FROM ALBARANES_CLIENTE_DETALLES' ' LEFT JOIN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTIC' + 'ULO = ARTICULOS.ID)' 'WHERE' ' ID_ALBARAN = 11 AND (VISIBLE <> 0) ' 'ORDER BY ID_ALBARAN, POSICION') Left = 112 Top = 320 object detallesID: TIntegerField FieldName = 'ID' Origin = '"ALBARANES_CLIENTE_DETALLES"."ID"' ProviderFlags = [pfInUpdate, pfInWhere, pfInKey] Required = True end object detallesID_ALBARAN: TIntegerField FieldName = 'ID_ALBARAN' Origin = '"ALBARANES_CLIENTE_DETALLES"."ID_ALBARAN"' Required = True end object detallesPOSICION: TIntegerField FieldName = 'POSICION' Origin = '"ALBARANES_CLIENTE_DETALLES"."POSICION"' end object detallesTIPO_DETALLE: TIBStringField FieldName = 'TIPO_DETALLE' Origin = '"ALBARANES_CLIENTE_DETALLES"."TIPO_DETALLE"' Size = 10 end object detallesCONCEPTO: TIBStringField FieldName = 'CONCEPTO' Origin = '"ALBARANES_CLIENTE_DETALLES"."CONCEPTO"' Size = 254 end object detallesCANTIDAD: TIntegerField FieldName = 'CANTIDAD' Origin = '"ALBARANES_CLIENTE_DETALLES"."CANTIDAD"' end object detallesIMPORTE_UNIDAD: TIBBCDField FieldName = 'IMPORTE_UNIDAD' Origin = '"ALBARANES_CLIENTE_DETALLES"."IMPORTE_UNIDAD"' Precision = 18 Size = 2 end object detallesIMPORTE_TOTAL: TIBBCDField FieldName = 'IMPORTE_TOTAL' Origin = '"ALBARANES_CLIENTE_DETALLES"."IMPORTE_TOTAL"' Precision = 18 Size = 2 end object detallesREFERENCIA: TIBStringField FieldName = 'REFERENCIA' Origin = '"ARTICULOS"."REFERENCIA"' Size = 255 end end object cabecera: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'SELECT' ' V_ALBARANES_CLIENTE.ID, V_ALBARANES_CLIENTE.ID_EMPRESA,' ' V_ALBARANES_CLIENTE.ID_CLIENTE,' ' V_ALBARANES_CLIENTE.FECHA_ALBARAN,' ' V_ALBARANES_CLIENTE.REFERENCIA,' ' V_ALBARANES_CLIENTE.REFERENCIA_CLIENTE,' ' V_ALBARANES_CLIENTE.ID_PEDIDO,' ' V_ALBARANES_CLIENTE.REF_PEDIDO,' ' V_ALBARANES_CLIENTE.OBSERVACIONES,' ' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,' ' V_CLIENTES.NIF_CIF, V_CLIENTES.NOMBRE,' ' V_CLIENTES.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBL' + 'ACION,' ' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL' 'FROM' ' V_ALBARANES_CLIENTE' ' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARANES_CLI' + 'ENTE.ID_CLIENTE)' 'WHERE V_ALBARANES_CLIENTE.ID = 11') Left = 112 Top = 256 object cabeceraID: TIntegerField FieldName = 'ID' Origin = '"V_ALBARANES_CLIENTE"."ID"' end object cabeceraID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Origin = '"V_ALBARANES_CLIENTE"."ID_EMPRESA"' end object cabeceraID_CLIENTE: TIntegerField FieldName = 'ID_CLIENTE' Origin = '"V_ALBARANES_CLIENTE"."ID_CLIENTE"' end object cabeceraFECHA_ALBARAN: TDateField FieldName = 'FECHA_ALBARAN' Origin = '"V_ALBARANES_CLIENTE"."FECHA_ALBARAN"' end object cabeceraREFERENCIA: TIBStringField FieldName = 'REFERENCIA' Origin = '"V_ALBARANES_CLIENTE"."REFERENCIA"' Size = 255 end object cabeceraREFERENCIA_CLIENTE: TIBStringField FieldName = 'REFERENCIA_CLIENTE' Origin = '"V_ALBARANES_CLIENTE"."REFERENCIA_CLIENTE"' Size = 255 end object cabeceraID_PEDIDO: TIntegerField FieldName = 'ID_PEDIDO' Origin = '"V_ALBARANES_CLIENTE"."ID_PEDIDO"' end object cabeceraREF_PEDIDO: TIBStringField FieldName = 'REF_PEDIDO' Origin = '"V_ALBARANES_CLIENTE"."REF_PEDIDO"' Size = 255 end object cabeceraOBSERVACIONES: TMemoField FieldName = 'OBSERVACIONES' Origin = '"V_ALBARANES_CLIENTE"."OBSERVACIONES"' ProviderFlags = [pfInUpdate] BlobType = ftMemo Size = 8 end object cabeceraIMPORTE_TOTAL: TIBBCDField FieldName = 'IMPORTE_TOTAL' Origin = '"V_ALBARANES_CLIENTE"."IMPORTE_TOTAL"' Precision = 18 Size = 2 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 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 tbl_Cabecera: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'FECHA_ALBARAN' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'ID_PEDIDO' DataType = datInteger end item Name = 'REF_PEDIDO' DataType = datString Size = 255 end item Name = 'FORMA_PAGO' DataType = datString Size = 255 end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end item Name = 'OBSERVACIONES' DataType = datMemo end item Name = 'IMPORTE_NETO' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datCurrency end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency end item Name = 'DESCUENTO2' DataType = datCurrency end item Name = 'IMPORTE_DESCUENTO2' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency 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 = 'PERSONA_CONTACTO' 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 = 'CODIGO_POSTAL' DataType = datString Size = 10 end> Params = < item Name = 'ID' DataType = datInteger Value = '11' ParamType = daptInput end> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 264 Top = 128 end object tbl_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_ALBARAN' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 254 end item Name = 'CANTIDAD' DataType = datFloat end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'REFERENCIA' DataType = datString Size = 255 end> Params = < item Name = 'ID_ALBARAN' DataType = datInteger Value = '11' ParamType = daptInput end> MasterParamsMappings.Strings = ( 'ID_ALBARAN=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 DetailFields = 'ID_ALBARAN' LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 344 Top = 128 end object frxPDFExport1: TfrxPDFExport ShowDialog = False UseFileCache = True ShowProgress = False OverwritePrompt = False 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 = 344 Top = 304 end object DABin2DataStreamer1: TDABin2DataStreamer Left = 48 Top = 88 end end