object RptPedidosCliente: TRptPedidosCliente OldCreateOrder = True OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 471 Width = 539 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' TargetTable = 'PEDIDOS_CLIENTE' SQL = 'SELECT'#10' PEDIDOS_CLIENTE.ID, PEDIDOS_CLIENTE.ID_EMPRESA,'#10' PEDID' + 'OS_CLIENTE.ID_CLIENTE,'#10' PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' PEDIDOS' + '_CLIENTE.REFERENCIA,'#10' PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10' PED' + 'IDOS_CLIENTE.DATOS_BANCARIOS,'#10' PEDIDOS_CLIENTE.OBSERVACIONES,'#10' ' + ' PEDIDOS_CLIENTE.IMPORTE_NETO,'#10' PEDIDOS_CLIENTE.DESCUENTO,'#10' PE' + 'DIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10' PEDIDOS_CLIENTE.DESCUENTO2,'#10' ' + ' PEDIDOS_CLIENTE.IMPORTE_DESCUENTO2,'#10' PEDIDOS_CLIENTE.IMPORTE_T' + 'OTAL,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE, CONTACTOS.NIF_CIF, ' + 'CONTACTOS.NOMBRE,'#10' PEDIDOS_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE' + '(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALE' + 'SCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POB' + 'LACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PR' + 'OVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_P' + 'OSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10#10'FROM'#10' PEDIDOS' + '_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_CLIEN' + 'TE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTA' + 'CTOS_DIRECCIONES.ID = PEDIDOS_CLIENTE.ID_DIRECCION)'#10'WHERE PEDIDO' + 'S_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 = '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 = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS' end item DatasetField = 'FECHA_PEDIDO' TableField = 'FECHA_PEDIDO' 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_PEDIDO' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' 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_PEDIDO' DataType = datInteger Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_CLIENTE_DETALLES' SQL = 'SELECT PEDIDOS_CLIENTE_DETALLES.ID, PEDIDOS_CLIENTE_DETALLES.ID_' + 'PEDIDO,'#10' PEDIDOS_CLIENTE_DETALLES.POSICION, PEDIDOS_CLIENT' + 'E_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(PEDIDOS_CLIENTE_DETA' + 'LLES.CONCEPTO) as CONCEPTO, PEDIDOS_CLIENTE_DETALLES.CANTIDAD,'#10' ' + ' PEDIDOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PEDIDOS_CLIENTE_D' + 'ETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM PEDIDOS_' + 'CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (PEDIDOS_CLIENTE_DE' + 'TALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_PEDIDO = :ID_PE' + 'DIDO AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_PEDIDO, POSICION' + #10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' 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 = 'ID_PEDIDO' TableField = 'ID_PEDIDO' end> end> Name = 'Informe_Detalles' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_PEDIDO' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 32765 end item Name = 'CANTIDAD' DataType = datCurrency 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' DataType = datInteger Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_CLIENTE_DETALLES' SQL = 'SELECT PEDIDOS_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' + ', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' PEDIDOS_CLIENTE.PERSONA' + '_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTOS_DIRECC' + 'IONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POBLACION_F' + 'ISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_ENVIO,'#10' C' + 'ONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRECCIONES.' + 'PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL AS CODIG' + 'O_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL AS CODIGO' + '_POSTAL_ENVIO'#10#10'FROM'#10' PEDIDOS_CLIENTE'#10' INNER JOIN CONTACTOS ON ' + '(CONTACTOS.ID = PEDIDOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CO' + 'NTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID_contacto = PEDI' + 'DOS_CLIENTE.ID_cliente)'#10'WHERE PEDIDOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'REF_CLIENTE' TableField = '' SQLOrigin = 'REF_CLIENTE' end item DatasetField = 'NIF_CIF' TableField = '' SQLOrigin = 'NIF_CIF' end item DatasetField = 'NOMBRE' TableField = '' SQLOrigin = 'NOMBRE' end item DatasetField = 'PERSONA_CONTACTO' TableField = '' SQLOrigin = 'PERSONA_CONTACTO' end item DatasetField = 'CALLE_FISCAL' TableField = '' SQLOrigin = 'CALLE_FISCAL' end item DatasetField = 'CALLE_ENVIO' TableField = '' SQLOrigin = 'CALLE_ENVIO' end item DatasetField = 'POBLACION_FISCAL' TableField = '' SQLOrigin = 'POBLACION_FISCAL' end item DatasetField = 'POBLACION_ENVIO' TableField = '' SQLOrigin = 'POBLACION_ENVIO' end item DatasetField = 'PROVINCIA_FISCAL' TableField = '' SQLOrigin = 'PROVINCIA_FISCAL' end item DatasetField = 'PROVINCIA_ENVIO' TableField = '' SQLOrigin = 'PROVINCIA_ENVIO' end item DatasetField = 'CODIGO_POSTAL_FISCAL' TableField = '' SQLOrigin = 'CODIGO_POSTAL_FISCAL' end item DatasetField = 'CODIGO_POSTAL_ENVIO' TableField = '' SQLOrigin = 'CODIGO_POSTAL_ENVIO' end> end> Name = 'Informe_Etiquetas' Fields = < item Name = 'ID' 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 = 'PERSONA_CONTACTO' DataType = datString Size = 255 end item Name = 'CALLE_FISCAL' DataType = datString Size = 255 end item Name = 'CALLE_ENVIO' DataType = datString Size = 255 end item Name = 'POBLACION_FISCAL' DataType = datString Size = 255 end item Name = 'POBLACION_ENVIO' DataType = datString Size = 255 end item Name = 'PROVINCIA_FISCAL' DataType = datString Size = 255 end item Name = 'PROVINCIA_ENVIO' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_FISCAL' DataType = datString Size = 10 end item Name = 'CODIGO_POSTAL_ENVIO' DataType = datString Size = 10 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 = 40245.779754583330000000 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_PEDIDO' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'REFERENCIA_CLIENTE' 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_PEDIDO' DataType = datInteger end item Name = 'POSICION' DataType = datInteger end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 end item Name = 'CONCEPTO' DataType = datString Size = 32765 end item Name = 'CANTIDAD' DataType = datCurrency 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_PEDIDO' DataType = datInteger Value = '' end> MasterParamsMappings.Strings = ( 'ID_ALBARAN=ID') LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 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 object frxDBEtiquetas: TfrxDBDataset UserName = 'frxDBEtiquetas' CloseDataSource = False DataSource = DADSEtiquetas BCDToCurrency = False Left = 416 Top = 16 end object DADSEtiquetas: TDADataSource DataSet = tbl_Etiquetas.Dataset DataTable = tbl_Etiquetas Left = 416 Top = 72 end object tbl_Etiquetas: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' 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 = 'PERSONA_CONTACTO' DataType = datString Size = 255 end item Name = 'CALLE_FISCAL' DataType = datString Size = 255 end item Name = 'CALLE_ENVIO' DataType = datString Size = 255 end item Name = 'POBLACION_FISCAL' DataType = datString Size = 255 end item Name = 'POBLACION_ENVIO' DataType = datString Size = 255 end item Name = 'PROVINCIA_FISCAL' DataType = datString Size = 255 end item Name = 'PROVINCIA_ENVIO' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_FISCAL' DataType = datString Size = 10 end item Name = 'CODIGO_POSTAL_ENVIO' DataType = datString Size = 10 end> Params = < item Name = 'ID' DataType = datInteger Value = '' end> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 LogicalName = 'Informe_Etiquetas' IndexDefs = <> Left = 416 Top = 128 end end