object RptPedidosCliente: TRptPedidosCliente OldCreateOrder = True OnCreate = DataModuleCreate Height = 405 Width = 447 object DADataCabecera: TDADataSource DataTable = tbl_Cabecera Left = 264 Top = 72 end object DADataDetalles: TDADataSource DataTable = tbl_Detalles Left = 344 Top = 72 end object tbl_Cabecera: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 264 Top = 128 end object tbl_Detalles: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 344 Top = 128 end object DABINAdapter: TDABINAdapter Left = 48 Top = 80 end object frxRichObject1: TfrxRichObject Left = 48 Top = 296 end object frxBarCodeObject1: TfrxBarCodeObject Left = 144 Top = 296 end object frxOLEObject1: TfrxOLEObject Left = 48 Top = 344 end object frxCrossObject1: TfrxCrossObject Left = 144 Top = 344 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 256 Top = 296 end object frxGradientObject1: TfrxGradientObject Left = 360 Top = 296 end object frxChartObject1: TfrxChartObject Left = 256 Top = 344 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '15' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_CLIENTE' SQL = 'SELECT'#10' V_PEDIDOS_CLIENTE.ID,'#10' V_PEDIDOS_CLIENTE.ID_EMPRESA,'#10' ' + ' V_PEDIDOS_CLIENTE.ID_CLIENTE,'#10' V_PEDIDOS_CLIENTE.NOMBRE,'#10' V_P' + 'EDIDOS_CLIENTE.REFERENCIA,'#10' V_PEDIDOS_CLIENTE.SITUACION,'#10' V_PE' + 'DIDOS_CLIENTE.FECHA_PEDIDO,'#10' V_PEDIDOS_CLIENTE.CALLE,'#10' V_PEDID' + 'OS_CLIENTE.CODIGO_POSTAL,'#10' V_PEDIDOS_CLIENTE.POBLACION,'#10' V_PED' + 'IDOS_CLIENTE.PROVINCIA,'#10' V_PEDIDOS_CLIENTE.PERSONA_CONTACTO,'#10' ' + 'V_PEDIDOS_CLIENTE.TELEFONO,'#10' V_PEDIDOS_CLIENTE.OBSERVACIONES,'#10' ' + ' V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10' V_PEDIDOS_CLIENTE.INCIDENCIAS_' + 'ACTIVAS,'#10' V_PEDIDOS_CLIENTE.FECHA_ALTA,'#10' V_PEDIDOS_CLIENTE.FEC' + 'HA_MODIFICACION,'#10' V_PEDIDOS_CLIENTE.USUARIO,'#10' V_PEDIDOS_CLIENT' + 'E.IMPORTE_NETO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_PORTE,'#10' V_PEDIDOS_C' + 'LIENTE.DESCUENTO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PED' + 'IDOS_CLIENTE.BASE_IMPONIBLE,'#10' V_PEDIDOS_CLIENTE.IVA,'#10' V_PEDIDO' + 'S_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,'#10' V_PE' + 'DIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA' + ','#10' EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX as' + ' FAX_EMPRESA'#10'FROM'#10' V_PEDIDOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS' + ' ON (V_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10'WHERE'#10' V_PEDID' + 'OS_CLIENTE.ID = :ID' 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 = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'FECHA_PEDIDO' TableField = 'FECHA_PEDIDO' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end item DatasetField = 'TELEFONO' TableField = 'TELEFONO' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'INCIDENCIAS' TableField = 'INCIDENCIAS' end item DatasetField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS_ACTIVAS' 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 = '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 = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO' end item DatasetField = 'NOMBRE_EMPRESA' TableField = 'NOMBRE_EMPRESA' end item DatasetField = 'TELEFONO_1_EMPRESA' TableField = 'TELEFONO_1_EMPRESA' end item DatasetField = 'FAX_EMPRESA' TableField = 'FAX_EMPRESA' end> end> Name = 'Informe_Cabecera' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_PEDIDO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SITUACION' DataType = datString Size = 9 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'OBSERVACIONES' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVINCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'INCIDENCIAS' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_NETO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_PORTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'BASE_IMPONIBLE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IVA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_IVA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_FORMA_PAGO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE_EMPRESA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_1_EMPRESA' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FAX_EMPRESA' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID_PEDIDO' BlobType = dabtUnknown Value = '' ParamType = daptInput 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' PEDIDOS_CLIENTE_DETALLES.CONCEPT' + 'O, PEDIDOS_CLIENTE_DETALLES.CANTIDAD,'#10' PEDIDOS_CLIENTE_DET' + 'ALLES.IMPORTE_UNIDAD, PEDIDOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ' + ' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFERENC' + 'IA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_CLIENTE_DETALLES'#10'L' + 'EFT JOIN ARTICULOS ON (PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO = AR' + 'TICULOS.ID)'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'ORDER BY POSICION' StatementType = stSQL ColumnMappings = < item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ID_PEDIDO' TableField = 'ID_PEDIDO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'FAMILIA' TableField = 'FAMILIA' end item DatasetField = 'REFERENCIA_PROVEEDOR' TableField = 'REFERENCIA_PROVEEDOR' end> end> Name = 'Informe_Detalles' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PEDIDO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_UNIDAD' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FAMILIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = <> RelationShips = <> UpdateRules = <> Left = 48 Top = 16 end object DataDictionary: TDADataDictionary Fields = <> Left = 46 Top = 158 end object frxReport: TfrxReport Version = '3.23.7' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.LastChange = 39159.656856724500000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' 'begin' ' DatosCliente.Lines.Clear;' ' DatosCliente.Lines.Add();' '' ' if ( <> '#39#39')' ' or ( <> '#39#39') then' ' DatosCliente.Lines.Add( + '#39' ' + #39' + );' 'end;' '' 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' 'begin' ' BandaDetalles.StartNewPage := False;' ' BandaDetalles.Visible := True;' ' MemPrecio.Style := '#39'Concepto normal'#39';' ' MemCantidad.Style := '#39'Concepto normal'#39';' ' MemImpTotal.Style := '#39'Concepto normal'#39';' ' RichConcepto.Visible := True;' '' ' case of' ' '#39'Salto'#39': begin' ' BandaDetalles.StartNewPage := True;' ' RichConcepto.Visible := False;' ' end;' ' '#39'Titulo'#39': begin' ' MemPrecio.Style := '#39'Concepto titulo'#39';' ' MemCantidad.Style := '#39'Concepto titulo'#39';' ' MemImpTotal.Style := '#39'Concepto titulo'#39';' ' end;' ' '#39'Concepto'#39': begin' ' //' ' end;' ' '#39'Subtotal'#39': begin' ' MemPrecio.Style := '#39'Concepto subtotal'#39';' ' MemCantidad.Style := '#39'Concepto subtotal'#39';' ' MemImpTotal.Style := '#39'Concepto subtotal'#39';' ' end;' ' '#39'Descuento'#39': begin' ' BandaDetalles.Visible := False;' ' RichConcepto.Color := clNone;' ' end;' ' end;' '' ' RichConcepto.Color := MemImpTotal.Color;' ' RichConcepto.Frame := MemImpTotal.Frame;' 'end;' '' 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' 'begin' ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' + '.Height - 1;' 'end;' '' 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' ' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Add();' ' DatosEmpresa.Lines.Add();' '' ' Cadena := '#39#39';' ' if ( <> '#39#39') then' ' Cadena := '#39'TLF: '#39' + ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' '' ' Cadena := '#39#39';' ' if ( <> '#39#39') then' ' Cadena := ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' '#39' + ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' - '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' 'end;' '' 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' 'begin' ' Memo15.Lines.Clear;' ' if (StrToFloat() < 0) then' ' Memo15.Lines.Add('#39'ABONO'#39')' ' else' ' Memo15.Lines.Add('#39'FACTURA'#39')' 'end;' '' 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if (StrToFloat() = 0) then' ' begin' ' Memo20.Lines.Clear;' ' Memo28.Lines.Clear;' ' Memo21.Lines.Clear;' ' Memo29.Lines.Clear;' ' end;' '' 'end;' '' 'begin' '' 'end.') ShowProgress = False StoreInDFM = False Left = 169 Top = 16 Datasets = < item DataSet = frxDBCabecera DataSetName = 'frxDBCabecera' end item DataSet = frxDBDetalles DataSetName = 'frxDBDetalles' end> Variables = <> Style = < item Name = 'Concepto normal' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] end item Name = 'Concepto subtotal' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold] end item Name = 'Cabecera de columna' Color = 15790320 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold] Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] end item Name = 'Concepto titulo' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] end> end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera Left = 264 Top = 16 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADataDetalles Left = 344 Top = 16 end end