Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

Criar relatório fortes report?

Comenzado por pcsilva , mar 14 2013 08:42

Por favor identifícate para responder

1 respuesta en este tema

#1 pcsilva

Newbie

Miembros
1 mensajes

Escrito 14 marzo 2013 - 08:42

Estou tentando criar um relatorio mas não estou conseguindo. Meu relatorio consiste em:

cabeçalho titulo

detail nome empresa
endereço

detail relatorio (problema aqui)????????(pode ser de uma ou mais folhas)

rodapé data e nome do escritor.

Para inserir o relatorio inseri um TRLDBMemo mas não consigo imprimir todo o conteudo do texto nele somente uma parte. Preciso de um modelo sé alguem puder me ajudar agradeço.

Traducción / Tradução

Estoy tratando de crear un informe, pero no puedo. Mi informe consta de:

... ... ...

Para entrar en el TRLDBMemo insertado un informe pero no puedo imprimir todo el contenido del texto es sólo una parte. Necesito algún Modelo ¿se me puede ayudar? gracias.

0

Volver arriba

#2 robert01

Advanced Member

Miembros
162 mensajes

LocationArgentina

Escrito 16 marzo 2013 - 06:51

Hola. Este es el código de una unidad y del formulario donde uso un fortesreport. No pude usar fortesreport en forma independiente, me vi obligado a insertarlo en un formulario

delphi

unit uRepStock;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, db, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  DBGrids, RLReport, MDOTable, MDOCustomDataSet;
 
type
 
  { TfrmRepStock }
 
  TfrmRepStock = class(TForm)
    Button1: TButton;
    DSImpStock: TDatasource;
    QRDBText10: TRLDBText;
    QRDBText11: TRLDBText;
    QRDBText12: TRLDBText;
    QRDBText8: TRLDBText;
    QRDBText9: TRLDBText;
    QRLabel10: TRLLabel;
    QRLabel11: TRLLabel;
    QRLabel12: TRLLabel;
    QRLabel8: TRLLabel;
    QRLabel9: TRLLabel;
    RLBand1: TRLBand;
    RLBand6: TRLBand;
    RLBand7: TRLBand;
    RLGroup2: TRLGroup;
    RLReport1: TRLReport;
    TblImpStock: TMDOTable;
    TblImpStockDESCR_PROD: TMDOStringField;
    TblImpStockESPECIFIC: TMDOStringField;
    TblImpStockFECHAFABRIC: TDateField;
    TblImpStockFECHAVENC: TDateField;
    TblImpStockMARGEN: TMDOBCDField;
    TblImpStockPRECIOCOMPRA: TMDOBCDField;
    TblImpStockPRECIOVENTA: TMDOBCDField;
    TblImpStockPROD_COD: TMDOStringField;
    TblImpStockPROD_GRUPO: TMDOStringField;
    TblImpStockPROVEEDOR: TMDOStringField;
    TblImpStockREPOSICION: TMDOBCDField;
    TblImpStockSTOCKBUE: TMDOBCDField;
    TblImpStockSTOCKGRAL: TMDOBCDField;
    TblImpStockSTOCKMAL: TMDOBCDField;
    TblImpStockUNIDAD: TMDOStringField;
    procedure Button1Click(Sender: TObject);
    procedure RLBand7AfterPrint(Sender: TObject);
    procedure RLDetailGrid1AfterPrint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  frmRepStock: TfrmRepStock;
 
implementation
 
{$R *.lfm}
 
{ TfrmRepStock }
 
procedure TfrmRepStock.Button1Click(Sender: TObject);
begin
  RLReport1.Preview();
end;
 
procedure TfrmRepStock.RLBand7AfterPrint(Sender: TObject);
begin
 
end;
 
procedure TfrmRepStock.RLDetailGrid1AfterPrint(Sender: TObject);
begin
 
end;
 
end.

delphi

object frmRepStock: TfrmRepStock
  Left = 366
  Height = 598
  Top = 80
  Width = 888
  Caption = 'frmRepStock'
  ClientHeight = 598
  ClientWidth = 888
  LCLVersion = '0.9.31'
  object Button1: TButton
    Left = 822
    Height = 26
    Top = 423
    Width = 81
    Caption = 'Button1'
    OnClick = Button1Click
    TabOrder = 0
  end
  object RLReport1: TRLReport
    Left = 40
    Height = 1123
    Top = 40
    Width = 794
    DataSource = DSImpStock
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    RealBounds.Left = 0
    RealBounds.Top = 0
    RealBounds.Width = 0
    RealBounds.Height = 0
    object RLGroup2: TRLGroup
      Left = 38
      Height = 330
      Top = 38
      Width = 718
      RealBounds.Left = 0
      RealBounds.Top = 0
      RealBounds.Width = 0
      RealBounds.Height = 0
      object RLBand6: TRLBand
        Left = 0
        Height = 51
        Top = 0
        Width = 718
        RealBounds.Left = 0
        RealBounds.Top = 0
        RealBounds.Width = 0
        RealBounds.Height = 0
        object QRLabel8: TRLLabel
          Left = 10
          Height = 20
          Top = 31
          Width = 48
          AutoSize = False
          Borders.Sides = sdCustom
          Borders.DrawLeft = True
          Borders.DrawTop = True
          Borders.DrawRight = True
          Borders.DrawBottom = True
          Borders.Color = clMoneyGreen
          Caption = 'Código'
          Color = clMoneyGreen
          ParentColor = False
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
        object QRLabel9: TRLLabel
          Left = 74
          Height = 20
          Top = 31
          Width = 285
          AutoSize = False
          Borders.Sides = sdCustom
          Borders.DrawLeft = True
          Borders.DrawTop = True
          Borders.DrawRight = True
          Borders.DrawBottom = True
          Borders.Color = clMoneyGreen
          Caption = 'Descripción'
          Color = clMoneyGreen
          ParentColor = False
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
        object QRLabel10: TRLLabel
          Left = 383
          Height = 20
          Top = 31
          Width = 83
          AutoSize = False
          Borders.Sides = sdCustom
          Borders.DrawLeft = True
          Borders.DrawTop = True
          Borders.DrawRight = True
          Borders.DrawBottom = True
          Borders.Color = clMoneyGreen
          Caption = 'Stock Gral'
          Color = clMoneyGreen
          ParentColor = False
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
        object QRLabel11: TRLLabel
          Left = 506
          Height = 20
          Top = 31
          Width = 72
          AutoSize = False
          Borders.Sides = sdCustom
          Borders.DrawLeft = True
          Borders.DrawTop = True
          Borders.DrawRight = True
          Borders.DrawBottom = True
          Borders.Color = clMoneyGreen
          Caption = 'Averiado'
          Color = clMoneyGreen
          ParentColor = False
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
        object QRLabel12: TRLLabel
          Left = 626
          Height = 20
          Top = 31
          Width = 72
          AutoSize = False
          Borders.Sides = sdCustom
          Borders.DrawLeft = True
          Borders.DrawTop = True
          Borders.DrawRight = True
          Borders.DrawBottom = True
          Borders.Color = clMoneyGreen
          Caption = 'Negociable'
          Color = clMoneyGreen
          ParentColor = False
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
      end
      object RLBand7: TRLBand
        Left = 0
        Height = 125
        Top = 51
        Width = 718
        RealBounds.Left = 0
        RealBounds.Top = 0
        RealBounds.Width = 0
        RealBounds.Height = 0
        AfterPrint = RLBand7AfterPrint
        object QRDBText8: TRLDBText
          Left = 10
          Height = 16
          Top = 60
          Width = 48
          Alignment = taRightJustify
          DataField = 'PROD_COD'
          DataSource = DSImpStock
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
        object QRDBText9: TRLDBText
          Left = 74
          Height = 16
          Top = 60
          Width = 93
          DataField = 'DESCR_PROD'
          DataSource = DSImpStock
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
        object QRDBText10: TRLDBText
          Left = 383
          Height = 16
          Top = 60
          Width = 83
          Alignment = taRightJustify
          DataField = 'STOCKGRAL'
          DataSource = DSImpStock
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
        object QRDBText11: TRLDBText
          Left = 506
          Height = 16
          Top = 61
          Width = 75
          Alignment = taRightJustify
          DataField = 'STOCKMAL'
          DataSource = DSImpStock
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
        object QRDBText12: TRLDBText
          Left = 626
          Height = 16
          Top = 60
          Width = 75
          Alignment = taRightJustify
          DataField = 'STOCKBUE'
          DataSource = DSImpStock
          RealBounds.Left = 0
          RealBounds.Top = 0
          RealBounds.Width = 0
          RealBounds.Height = 0
          Transparent = False
        end
      end
      object RLBand1: TRLBand
        Left = 0
        Height = 93
        Top = 176
        Width = 718
        RealBounds.Left = 0
        RealBounds.Top = 0
        RealBounds.Width = 0
        RealBounds.Height = 0
      end
    end
  end
  object TblImpStock: TMDOTable
    Database = DM.DbSG
    Transaction = DM.TransSG
    BooleanFields = False
    BufferChunks = 1000
    CachedUpdates = False
    TableName = 'PRODUCTO'
    left = 860
    top = 44
    object TblImpStockPROD_COD: TMDOStringField
      DisplayWidth = 25
      FieldKind = fkData
      FieldName = 'PROD_COD'
      Index = 0
      LookupCache = False
      Origin = '"PRODUCTO"."PROD_COD"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 25
    end
    object TblImpStockPROD_GRUPO: TMDOStringField
      DisplayWidth = 20
      FieldKind = fkData
      FieldName = 'PROD_GRUPO'
      Index = 1
      LookupCache = False
      Origin = '"PRODUCTO"."PROD_GRUPO"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object TblImpStockDESCR_PROD: TMDOStringField
      DisplayWidth = 50
      FieldKind = fkData
      FieldName = 'DESCR_PROD'
      Index = 2
      LookupCache = False
      Origin = '"PRODUCTO"."DESCR_PROD"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 50
    end
    object TblImpStockPROVEEDOR: TMDOStringField
      DisplayWidth = 40
      FieldKind = fkData
      FieldName = 'PROVEEDOR'
      Index = 3
      LookupCache = False
      Origin = '"PRODUCTO"."PROVEEDOR"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 40
    end
    object TblImpStockUNIDAD: TMDOStringField
      DisplayWidth = 2
      FieldKind = fkData
      FieldName = 'UNIDAD'
      Index = 4
      LookupCache = False
      Origin = '"PRODUCTO"."UNIDAD"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 2
    end
    object TblImpStockPRECIOCOMPRA: TMDOBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'PRECIOCOMPRA'
      Index = 5
      LookupCache = False
      Origin = '"PRODUCTO"."PRECIOCOMPRA"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 0
    end
    object TblImpStockMARGEN: TMDOBCDField
      DisplayWidth = 4
      FieldKind = fkData
      FieldName = 'MARGEN'
      Index = 6
      LookupCache = False
      Origin = '"PRODUCTO"."MARGEN"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = 4
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 0
    end
    object TblImpStockPRECIOVENTA: TMDOBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'PRECIOVENTA'
      Index = 7
      LookupCache = False
      Origin = '"PRODUCTO"."PRECIOVENTA"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 0
    end
    object TblImpStockREPOSICION: TMDOBCDField
      DisplayWidth = 9
      FieldKind = fkData
      FieldName = 'REPOSICION'
      Index = 8
      LookupCache = False
      Origin = '"PRODUCTO"."REPOSICION"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = 9
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 0
    end
    object TblImpStockSTOCKBUE: TMDOBCDField
      DisplayWidth = 9
      FieldKind = fkData
      FieldName = 'STOCKBUE'
      Index = 9
      LookupCache = False
      Origin = '"PRODUCTO"."STOCKBUE"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = 9
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 0
    end
    object TblImpStockSTOCKMAL: TMDOBCDField
      DisplayWidth = 9
      FieldKind = fkData
      FieldName = 'STOCKMAL'
      Index = 10
      LookupCache = False
      Origin = '"PRODUCTO"."STOCKMAL"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = 9
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 0
    end
    object TblImpStockSTOCKGRAL: TMDOBCDField
      DisplayWidth = 9
      FieldKind = fkData
      FieldName = 'STOCKGRAL'
      Index = 11
      LookupCache = False
      Origin = '"PRODUCTO"."STOCKGRAL"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = 9
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 0
    end
    object TblImpStockFECHAFABRIC: TDateField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'FECHAFABRIC'
      Index = 12
      LookupCache = False
      Origin = '"PRODUCTO"."FECHAFABRIC"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object TblImpStockFECHAVENC: TDateField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'FECHAVENC'
      Index = 13
      LookupCache = False
      Origin = '"PRODUCTO"."FECHAVENC"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object TblImpStockESPECIFIC: TMDOStringField
      DisplayWidth = 255
      FieldKind = fkData
      FieldName = 'ESPECIFIC'
      Index = 14
      LookupCache = False
      Origin = '"PRODUCTO"."ESPECIFIC"'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 255
    end
  end
  object DSImpStock: TDatasource
    DataSet = TblImpStock
    left = 863
    top = 95
  end
end

Espero que te sea de utilidad. Lamentablemente había errores en tiempo de ejecución y después ya no tuve más tiempo para buscar cuales eran los errores

Saludos

0

Volver arriba

Volver a Lazarus / FreePascal

Criar relatório fortes report?

#1 pcsilva

#2 robert01

Iniciar sesión