Q&A

  • 저 좀 이해 시켜주세요.. ㅜ.ㅜ
(__)
저희 회사 세금계산서코딩인데염...
멀 얼케 전환댄건지 하나두 이해가 안대서여...

LS_amt := Format('%11s', [FAC_VAT_020I.Qry_Tat_Taxcalc_M.FieldByName('TOT_SUPPLY_AMT').AsString]);
   for LI_i := 1 to 11 do
   begin
      (FindComponent('QRLabel_SupplyAmt' + IntToStr(LI_i)) AS TQRLabel).Caption := Copy(LS_amt, LI_i, 1);
      (FindComponent('QRLabel_sSupplyAmt' + IntToStr(LI_i)) AS TQRLabel).Caption := Copy(LS_amt, LI_i, 1);
   end;

여기서 IntToStr,Copy 만 멀 하겟다는 건지 이해가 가구 나머진 얼케 해석할지 몰라서여...참고로 금액이 나오는 컴포넌트는 QRLabel_AupplyAmt1~11까지입니다.
넘 기초적인걸 물바서 죄송합니다..
코딩을 프린트해서 아무리 들다바두 해석이 안대서 ㅜ.ㅜ
이 게시물을
2  COMMENTS
  • Profile
    박준철 • 2003.06.12 00:43
    세금계산서 보면
    중간 합계란에 10억 단위까지 들어가거든요
    그런데 보통 보면 출력에서서..금액 들어가는 칸이 10칸에 공란수 1칸
    그래서 총 11칸이 있는데 일반적인 금액을 프린할수가 없거든요 왜냐하면
    세금계산서 양식에 맞출려다 보니까. 그렇게 한거 같습니다.

    먼저 소스를 보면
    1. 처음에 합계 금액을 일반 변수에 넣고
    2. 공란 포함 금액부분이 11칸 이니까..11번 돌
    3. 라벨을 11개 정의 놓았겠죠 kum1 .... kum11 이런식으로요
    4. for문을 돌면서 for 문 변수와 정의 해놓은 라벨 kum+for문변수 를 합하여
       콤포넌트를 찾는거죠
    5. 그래서 찾았으면 넣어주는거죠

  • Profile
    KDDG_ZZOM • 2003.06.12 00:13
      QRLabel_SupplyAmt1 .Caption := Copy(LS_amt, 1, 1);
      QRLabel_sSupplyAmt1.Caption := Copy(LS_amt, 1, 1);
      QRLabel_SupplyAmt2 .Caption := Copy(LS_amt, 2, 1);
      QRLabel_sSupplyAmt2.Caption := Copy(LS_amt, 2, 1);
      QRLabel_SupplyAmt3 .Caption := Copy(LS_amt, 3, 1);
      QRLabel_sSupplyAmt3.Caption := Copy(LS_amt, 3, 1);
      .
      .
      .
      QRLabel_SupplyAmt11 .Caption := Copy(LS_amt, 11, 1);
      QRLabel_sSupplyAmt11.Caption := Copy(LS_amt, 11, 1);

    이런식으로 똑같은 작업인데 QRLabel이름이 1에서 11까지인걸 쫌더 뽀다구
    나게 코딩한것 같네요...

    즐프하세요...
←First Page
634 635 636 637 638 639 640 641 642 643
Last Page→
한델 로그인 하기