퀵리포트 문의 드립니다.

[리도]

세금계산서.pas 파일에서 거래명세서(print2) 버튼을 누르면 아래와 같은 소스가 확인 됩니다.

 

procedure TYU0011.btn_print2Click(Sender: TObject);
var i : Integer;
begin
   if  trim(edt_tno.Text) = '' then exit;

   Cls_Sg( sg, Self );

   i := 0;

   with DBM.Qry do
   begin
       close;

       sql.Clear;

       sql.Add('SELECT a.SER_NO       as        SER_NO   ,');
       sql.Add('       e.MDATE        as        MDATE    ,');
       sql.Add('       d.JNM1         as        JNM      ,');
       sql.Add('       d.SCOPE        as        SCOPE    ,');
       sql.Add('       a.QTY          as        QTY      ,');
       sql.Add('       a.DANGA        as        DANGA    ,');
       sql.Add('       a.AMT          as        AMT       ');
       sql.Add('FROM   YU009          a                  ,');
       sql.Add('       YU006          e                  ,');
       sql.Add('       YU007          b                  ,');
       sql.Add('       YU003          c                  ,');
       sql.Add('       JJ001          d                   ');
       sql.Add('WHERE  a.TNO1         =         :var_tno1 ');
       sql.Add('AND    a.TNO2         =         :var_tno2 ');
       sql.Add('AND    a.STAT_CD      =         ''0''     ');
       sql.Add('AND    e.STAT_NO1     =         a.STAT_NO1');
       sql.Add('AND    e.STAT_NO2     =         a.STAT_NO2');
       sql.Add('AND    b.STAT_NO1     =         a.STAT_NO1');
       sql.Add('AND    b.STAT_NO2     =         a.STAT_NO2');
       sql.Add('AND    b.SER_NO       =         a.STAT_NO3');
       sql.Add('AND    c.NO1          =         a.NO1     ');
       sql.Add('AND    c.NO2          =         a.NO2     ');
       sql.Add('AND    c.NO3          =         a.NO3     ');
       sql.Add('AND    c.SER_NO       =         a.NO4     ');
       sql.Add('AND    d.JCD1         =         c.JCD1    ');
       sql.Add('AND    d.JCD2         =         c.JCD2    ');
       sql.Add('AND    d.JCD3         =         c.JCD3    ');
       sql.Add('AND    d.JCD4         =         c.JCD4    ');
       sql.Add('ORDER  BY   e.MDATE,  a.SER_NO            ');

       ParamByName('var_tno1').Value := copy(edt_tno.Text,1,8);
       ParamByName('var_tno2').Value := copy(edt_tno.Text,9,4);

       open;
       First;

       While Not EOF do
       begin
           inc( i );

           if  i > 1 then sg.RowCount := sg.RowCount + 1;

           sg.Cells[ 0 , i ] := copy(fieldByName('MDATE').Value,1,4) + '.' +
                                copy(fieldByName('MDATE').Value,5,2) + '.' +
                                copy(fieldByName('MDATE').Value,7,2);
           sg.Cells[ 1 , i ] := fieldByName('JNM').Value;
           sg.Cells[ 2 , i ] := fieldByName('SCOPE').Value;
           sg.Cells[ 3 , i ] := FormatFloat('#,0.00', fieldByName('QTY').Value);
           sg.Cells[ 4 , i ] := FormatFloat('#,0', fieldByName('DANGA').Value);
           sg.Cells[ 5 , i ] := FormatFloat('#,0', fieldByName('AMT').Value);

           Next;
       end;
       Close;
   end;

   if  ( sg.RowCount = 2 ) and ( trim(sg.Cells[ 0 , 1 ]) = '' ) then exit;

   inc( i );

   sg.RowCount := sg.RowCount + 1;

   sg.Cells[ 0 , i ] := '';
   sg.Cells[ 1 , i ] := '';
   sg.Cells[ 2 , i ] := '合 計';
   sg.Cells[ 3 , i ] := '';
   sg.Cells[ 4 , i ] := '';
   sg.Cells[ 5 , i ] := nedt_gamt.Text;

   RPT013.qrl_date.Caption      := medt_date.Text;
   RPT013.qrl_cust_nm.Caption   := trim(edt_cust_nm.Text);
   RPT013.qrl_gongsa_nm.Caption := trim(edt_gongsa_nm.Text);
   RPT013.qrl_tamt.Caption      := nedt_tamt.Text;
   RPT013.qrl_saup_no.Caption   := '1 2 3 - 4 5 - 7 7 7 7 7';
   //RPT013.qrl_ceo_name.Caption  := '가나다'; ==> 이부분에 대표자명을 '가나다' 로 직접 값을 주었는데 값이 변경되지 않습니다.

   case cbox_comp.ItemIndex of
   0 : begin RPT013.qrl_saup_no.Caption := '2 2 4 - 1 1 - 0 0 0 0 0'; end;
   1 : begin RPT013.qrl_saup_no.Caption := '2 0 6 - 1 1 - 1 1 1 1 1'; end;
   2 : begin RPT013.qrl_saup_no.Caption := '5 1 4 - 1 1 - 2 2 2 2 2'; end;
   end;

   case cbox_comp.ItemIndex of
   0 : begin RPT013.QRLabel7.Caption := '테스트A'; end;
   3 : begin RPT013.QRLabel7.Caption := '테스트그룹'; end;
   end;

   case cbox_comp.ItemIndex of
     0 : begin RPT013.qrl_ceo_name.Caption := '김길동'; end;
     3 : begin RPT013.qrl_ceo_name.Caption := '가나다'; end;

   end;

   case cbox_comp.ItemIndex of
   0 : begin RPT013.qrl_addr.Caption := '강원도 '; end;
   3 : begin RPT013.qrl_addr.Caption := '서울시'; end;
   end;

   RPT013.QuickRep1.PreviewWidth  := Screen.Width;
   RPT013.QuickRep1.PreviewHeight := Screen.Height - 30;
   RPT013.QuickRep1.Preview;
end;

 

대표자명 변경을 위해 이 소스에서도 캡션값을 '가나다' 로 바꿔보기도 하고

거래명세표인 RPT013.pas 에 퀵리포트 대표자명 QRLabel 캡션을 가나다 로 바꿨는데도 실행(F9)하면 바뀌어서 보이지 않습니다.

제발 도와주세요. 원격도 가능합니다.

[c2design]

https://bluefc.tistory.com/2820760

링크의 2.5.1. 항목 한번 체크해보시고...해당 안되면 퀵리포트 캡션 변경으로 구글 검색해 보시면 다른 내용도 보입니다.

[리도]

42 분 전, c2design said:

https://bluefc.tistory.com/2820760

링크의 2.5.1. 항목 한번 체크해보시고...해당 안되면 퀵리포트 캡션 변경으로 구글 검색해 보시면 다른 내용도 보입니다.

해당 블로그는 어제 발견하여 확인하였습니다.

onPrint 사용법의 예시가 있을까요?