Fórum meod9@hotmail.com #149251

Caros Colegas,

Estou tendo problemas como Rave Reports Code Based.
Meus registros de talhes não são mostrados.
Pode ser um pau de lógica também.

Abraços,
Marcello(Ps:O bixhicho da mensagem éo Bush). :twisted:


unit UnRelItemBase;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UnRelProgenitor, ExtDlgs, RpRenderRTF, RpRender, RpRenderPDF,
RpDefine, RpBase, RpSystem, StdCtrls, Buttons, ExtCtrls,IniFiles, DB;

type
TFormRelItemBase = class(TFormRelProgenitor)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure LoadIniSettings;
procedure WriteIniSettings;
procedure RvSystem1Print(Sender: TObject);
procedure RvSystem1NewPage(Sender: TObject);

private
varimage: string;
pageatu : integer;
lineatu : Extended;
jaimprimicapa: Boolean;
{ Private declarations }
public
{ Public declarations }
end;

var
FormRelItemBase: TFormRelItemBase;

implementation

uses UDMClient, UnSib20Func, DATAMOD;
procedure TFormRelItemBase.LoadIniSettings;
var
Ini:TIniFile;
logoimage : String;
begin
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + ´RelItemBase.Ini´);
try
CheckCover.Checked:=Ini.ReadBool(´covertf´, ´covertf´,True);
ComboOrder.ItemIndex:=Ini.ReadInteger(´orderr´,´orderr´,0);
logoimage:=Ini.ReadString(´logoimage´,´logoimage´,´´);
if logoimage<>´´ then
begin
ImageLogo.Picture.LoadFromFile(logoimage);
varimage:=LogoImage;
end;
finally
Ini.Free;
end;
end;

procedure TFormRelItemBase.WriteIniSettings;
var
Ini:TIniFile;
begin
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + ´RelItemBase.Ini´);
try
Ini.WriteBool(´covertf´, ´covertf´,CheckCover.Checked);
Ini.WriteInteger(´orderr´,´orderr´,ComboOrder.ItemIndex);
Ini.WriteString(´logoimage´,´logoimage´,varimage);
finally
Ini.Free;
end;
end;


procedure TFormRelItemBase.RvSystem1Print(Sender: TObject);
begin
try
if ComboOrder.Text=´Cód´ then
DMClient.CLDSGrupoItem.IndexName:=´IND_GPE_ID´
else
DMClient.CLDSGrupoItem.IndexName:=´IND_GPE_DESCR´;
pageatu:=0;
Screen.Cursor:= crHourglass;
panelconfig.Enabled:=false;
DMClient.CLDSSubGrupoItem.DisableControls;
DMClient.CLDSGrupoItem.DisableControls;
jaimprimicapa:=False;
with Sender as TBaseReport do
begin
title:=´Relatorio de Itens Base´;
UnregisterGraphic( 1 );
ReuseGraphic( 1 );
if CheckCover.Checked then
begin
SetFont(´Arial´, 24);
Printxy(1.5,12,´Itens Base´);
if not ImageLogo.Picture.Bitmap.Empty then
begin
PrintBitmapScaled(Sender as TBaseReport,1.0,0.8,4.5,6.6,ImageLogo.Picture.Bitmap);
RegisterGraphic( 1 );
end;
jaimprimicapa:=True;
pageatu:=1;
NewPage;
end;

DMClient.CLDSSubGrupoItem.IndexName:=´IND_GPE_ID´;
DMClient.CLDSGrupoItem.First;
while (not DMClient.CLDSGrupoItem.Eof) do
begin
if DMClient.CLDSSubGrupoItem.Locate(´GPE_ID´,varArrayOf([DMClient.CLDSGrupoItemGPE_ID.AsInteger]), [loPartialKey] ) then
begin
lineatu:=lineatu+0.55;
SetFont(´Arial´, 16);
FontColor := clRed;
PrintXY(0.65,lineatu, DMClient.CLDSGrupoItemGPE_ID.DisplayText+´-´+DMClient.CLDSGrupoItemGPE_DESCR.DisplayText);
lineatu:=lineatu+0.40;
SetFont(´Arial´, 10);
FontColor := clBlack;
end;
while ( not DMClient.CLDSSubGrupoItem.Eof) and (DMClient.CLDSGrupoItemGPE_ID.Value=DMClient.CLDSSubGrupoItemGPE_ID.Value) do
begin
DMClient.CLDSItemBase.IndexName:=´IND_SGE_ID´;
if DMClient.CLDSItemBase.Locate(´SGE_ID´,varArrayOf([DMClient.CLDSSubGrupoItemSGE_ID.AsInteger]),[loPartialKey] ) then
begin
lineatu:=lineatu+0.55;
SetFont(´Arial´, 14);
FontColor := clBlue;
PrintXY(0.65,lineatu, DMClient.CLDSSubGrupoItemSGE_ID.DisplayText+´-´+DMClient.CLDSItemBaseITB_DESCR.DisplayText);
lineatu:=lineatu+0.40;
SetFont(´Arial´, 10);
FontColor := clBlack;
end;
while (not DMClient.CLDSItemBase.Eof) and (DMClient.CLDSItembaseSGE_ID=DMClient.CLDSSubGrupoItemSGE_ID) do
begin
PrintXY(0.65,lineatu,DMClient.CLDSSubGrupoItemSGE_ID.DisplayText);
PrintXY(1.75,lineatu,DMClient.CLDSSubGrupoItemSGE_DESCR.DisplayText);
PrintXY(6.75,lineatu,DMClient.CLDSSubGrupoItemSGE_NOMECOMPRADOR.DisplayText);
PrintXY(9.00,lineatu,DMClient.CLDSSubGrupoItemSGE_INTQUAL.DisplayText);
lineatu:=lineatu+0.43;
DMClient.CLDSItembase.Next;
end;
DMClient.CLDSSubGrupoItem.Next;
end;
DMClient.CLDSGrupoItem.Next;
end;
if CheckCover.Checked then
SetPIVar(´CustomPageCount´,IntToStr(pageatu-1))
else
SetPIVar(´CustomPageCount´,IntToStr(pageatu));
end;
finally
panelconfig.enabled:=true;
Screen.Cursor:=crDefault;
DMClient.CLDSSubGrupoItem.EnableControls;
DMClient.CLDSGrupoItem.EnableControls;
end;
end ;


{$R *.dfm}

procedure TFormRelItemBase.FormCreate(Sender: TObject);
begin
LoadIniSettings;
end;

procedure TFormRelItemBase.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
WriteIniSettings;

end;


procedure TFormRelItemBase.RvSystem1NewPage(Sender: TObject);
begin
With sender as TBaseReport do
begin
if pageatu<>0 then
begin
SetFont(´Arial´, 16);
SetBrush(clwhite,bsSolid,nil);
Rectangle(0.6, 0.7, 20.0, 2.0);
Italic := True;
FontColor := clSilver;
Printxy(7,1.3,´Itens Base´);
FontColor := clblack;
Printxy(6.95,1.25,´Itens Base´);
Italic := False;
SetFont(´Arial´, 10);
FontColor := clBlack;
printxy(12,1.75, ´ Data:´+DateToStr(date)+´ Hora: ´+TimeToSTR(Time)+´ Pág:´+IntToStr(pageatu) + ´/´ + PIVar(´CustomPageCount´) );
if not ImageLogo.Picture.Bitmap.Empty then
begin
PrintBitmapScaled(Sender as TBaseReport,1.0,0.8,1.5,1.2,ImageLogo.Picture.Bitmap);
RegisterGraphic( 1 );
end;
SetBrush(clltgray,bsSolid,nil);
RoundRect(0.6,2.3,20.0,2.8,0.25,0.25);
SetBrush(clBlack,bsSolid,nil);
PrintXY(0.7,2.65,´Cód Descrição Un.Med Símbolo Crit. Norma Gera Lote S/n´);
lineatu:=3.2;
end;
pageatu:=pageatu+1;
end;
end;

end.