Q&A
- 아직도 해결못한 세금계산서 양식
성더기 님...
오늘 검색해보니 델세상(www.delphiworld.net)이 다시 살려져 있더군요.
근데 올려두신 세금 계산서 양식에 소스는 포함되어 있지 않았습니다.
안타깝습니다...
여러장의 세금 계산서 출력하기... 아시는분... 좀 부탁드립니다.
------------------------------------------------------------
델파이에 대해 넘 초보다 보니 자꾸 여러분을 귀찮게 해서 죄송합니다.
오늘의 질문은...
세금계산서찍기 입니다.
일단, A4지에 상, 하에 공급받는자용, 공급자용으로 세금계산서를 찍어야 합니다.
우선 받아오는 파라메터가 하나였을때--다시말해, 찍어야 하는 세금계산서가 한 쌍인 경우에--는 무난히 찍었습니다.
그러나, 출력화면에서 주는 조건에서 한건이상의 명세번호를 던졌을 경우에 세금계산서를 원하는 건수만큼 찍어야 하는게 문제입니다.
많은 분들의 조언부탁드립니다.
오늘 검색해보니 델세상(www.delphiworld.net)이 다시 살려져 있더군요.
근데 올려두신 세금 계산서 양식에 소스는 포함되어 있지 않았습니다.
안타깝습니다...
여러장의 세금 계산서 출력하기... 아시는분... 좀 부탁드립니다.
------------------------------------------------------------
델파이에 대해 넘 초보다 보니 자꾸 여러분을 귀찮게 해서 죄송합니다.
오늘의 질문은...
세금계산서찍기 입니다.
일단, A4지에 상, 하에 공급받는자용, 공급자용으로 세금계산서를 찍어야 합니다.
우선 받아오는 파라메터가 하나였을때--다시말해, 찍어야 하는 세금계산서가 한 쌍인 경우에--는 무난히 찍었습니다.
그러나, 출력화면에서 주는 조건에서 한건이상의 명세번호를 던졌을 경우에 세금계산서를 원하는 건수만큼 찍어야 하는게 문제입니다.
많은 분들의 조언부탁드립니다.
3
COMMENTS
-
-
여러분의 많은 도움으로 세금계산서부분을 잘 해결했습니다.
다시한번 감사드립니다.
-
샬롬~
세금계산서를 양식지가 아닌 백지에 양식까지 함께 출력하시나봐요..^^
컬러 프린터 잉크값이 만만치 않을텐데..^^; 돈이 많은 갑다..ㅡㅡ;;
머..어쨌거나..전 예전에 미리 인쇄된 양식지에 찍었던 기억이..
한건짜리 상,하로 공급받는자용과 공급자용을 찍으셨다면..
해당하는 세금계산서 찍는 부분을 함수로 만드신 다음에
번호를 여러건으로 받는 부분에서 배열또는 기타 stringlist나..머..
이런걸 이용하셔서 목록을 가지고 있으면서 루프를 돌면서 한건씩
출력하시면 될듯싶은데요..
그럼..
(NOTICE) You must be logged in to comment on this post.
-
- 김정모
- •
- 2003.12.11 19:51
- 1 COMMENTS
- /
- 0 LIKES
-
가리•2003.12.12 02:29프로젝트 그룹내에 똑같은 이름을 가진 폼이 존제한다는 것 같군요... 아마도 ... 데이터 모듈쪽이름이나....
-
- 첨시작델
- •
- 2003.12.11 02:39
- 4 COMMENTS
- /
- 0 LIKES
-
장태원•2003.12.11 02:55언뜻 보기에 colcount -1 이 아닌가 쉽네요. 값은 TEdit 에서 가져오는데.. 왜 colcount 로 loop 를 ...
-
첨시작델•2003.12.11 02:59HyperGrid1.colcount -1 을 한이유는 한줄이 더 나와서 -1을 한거구여 그리고 num은 에디트박스 활성화시...
-
박성훈•2003.12.11 06:23안녕하세요? ...
-
첨시작델•2003.12.11 08:27With 문장에 Self 추가로 해결되었습니다...원하는 결과값이 나왔습니다. With Self.FindComponent(Trim('...
-
- 최호인
- •
- 2003.12.11 00:47
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2003.12.11 01:37제가 밑에 있던 질문사항에 대한 답변이 없어서 예제는 올리지는 못하겠구요 님께서 원하시는 것은 아마...
-
- 첨시작델
- •
- 2003.12.11 00:13
- 8 COMMENTS
- /
- 0 LIKES
-
너구리•2003.12.11 01:28님과 같은 방법으로 했더니 첨엔 form1이라고 가지고 오더군요.. 황당해서... 그리고 아래처럼 했더...
-
첨시작델•2003.12.11 02:55죄송하지만 다시한번 봐주시겠습니까? 위쪽에 어떤걸 할려는지 다시 올렸습니다. 답변에 ㄳ합니다...
-
이중철•2003.12.11 01:54var ss : string; TempEdit : TEdit; <= 굳이 말리...
-
이성훈•2003.12.11 00:48질문이 너무 난해해요.. 어떤걸 원하는지 이해가 안되네요.. 쉽게 설명해 주세요..
-
첨시작델•2003.12.11 02:53위쪽에 어떤걸 질문하는지 다시 올렸습니다...
-
이중철•2003.12.11 00:46왜 에러처리 루틴이 빠졌나요.. 찾지 못했을때 처리가 전혀 되어있지 않습니다. 그것이 우선입니다.. ...
-
첨시작델•2003.12.11 02:54그럼 어떻게 사용을 해야하나여... 위쪽에 다시 어떻게 했나 올려거던여.. 글구 답변에 ㄳ드립니다
- • • •
-
- help me
- 2003.12.10 22:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 이중철
- •
- 2003.12.10 21:10
- •
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2003.12.11 02:13
-
- 안치환
- •
- 2003.12.10 20:50
- 1 COMMENTS
- /
- 0 LIKES
-
소울해커•2003.12.12 23:12이렇게 한번 해보시면 어떠실런지... 컴파일러 지시자는 한번도 써 본적이 없는터라 될지 안 될지는 모르...
-
- 첨시작델
- •
- 2003.12.10 20:06
- 4 COMMENTS
- /
- 0 LIKES
-
장태원•2003.12.10 20:10for i:=1 to 10 do begin combobox1.items.add( '과목'+inttostr(i)); end;
-
첨시작델•2003.12.10 20:15콤보가 10개라서 이로케 한번에 할려고 하는데... 지가 생각할때 이로면 될꺼 같은데 안디네여.. for...
-
이성훈•2003.12.10 21:07combobox component가 10개라는 건가요? 그렇다면 findcomponent 함수를 이용해보세요.. 여기 질답란 검...
-
첨시작델•2003.12.10 22:41찾아서 잘사용하고있습니다. ㄳ합니다.
-
- 채창훈
- •
- 2003.12.10 18:18
- 3 COMMENTS
- /
- 0 LIKES
-
김흥식•2003.12.10 23:00이런거 말씀인가요? procedure TForm1.DBGrid11CellClick(Column: TColumn); begin Edit1...
-
채성길•2003.12.10 19:12[답변] procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Fiel...
-
장태원•2003.12.10 18:47DBGrid.Datasource.Dataset.FIeldByName or fields 를 사용하거나. DBGrid 에 연결한 TTable 이나, TQu...
-
- 김정모
- •
- 2003.12.10 18:13
- 3 COMMENTS
- /
- 0 LIKES
-
장태원•2003.12.10 18:49TImage 를 올려놓고, TImage 의 align 은 alclient 로 주면 자동으로 메인폼 크기에 맞혀집니다. 또...
-
김정모•2003.12.10 18:51답변감사드립니다 그런데 제가 알고싶은것은 그림의 크기 보단 실제로 메인화면에 그림을 넣는...
-
채성길•2003.12.10 19:23uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,&nbs...
-
- 이철승
- •
- 2003.12.10 17:13
- 2 COMMENTS
- /
- 0 LIKES
-
채성길•2003.12.10 19:32우선 초기화를 하여주시고 마지막에 RowCount를 조정하세요 for I:=0 to grid.RowCount-1 do ...
-
이성훈•2003.12.10 17:50for i := 0 to Stri...
-
- 김종호
- 2003.12.10 07:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 눈이 큰 아이
- •
- 2003.12.10 04:35
- 4 COMMENTS
- /
- 0 LIKES
-
민준기•2005.10.06 03:51원래 윈도우 XP 는 세션 공유 제한이 5명으로 제한되어 있습니다. 윈도 2000 은 20명 이고요 윈도 서버는...
-
박종록•2003.12.11 00:53혹 이런 문제는 아닐지.... 공유위반 Text file 이라면 공유위반이 발생할 수 있습니다. 공유를 회피하...
-
장태원•2003.12.10 18:56열었으면 닫아도 주셔야죠. CC 가 하는일이 뭔지 쩝.
-
박종록•2003.12.12 01:15데이터에 문제가 발생합니다. 때문에 WRITE하는 프로그램에서 임시파일로 WRIT...
-
- 박기용
- •
- 2003.12.10 02:09
- 5 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2003.12.10 02:37하두오래되어서 기억이 가물거리네요... 우선 유닉스같으 서버에 인스톨되어있는것에 접속하시는 방법은 ...
-
박기용•2003.12.10 02:58tnsnames.ora 파일에서 새로운 alias하나를 만들라는 말씀이신거 같은데 그 alias의 host 값으로는 어떤 ...
-
너구리•2003.12.10 03:37host는 localhost 이구요 아님 PC의 이름을 적어줘도 됩니다... 그리고 로컬로만 접속하신다면 리스...
-
박기용•2003.12.10 20:28LOCAL1 = (DESCRIPTION = (ADDRESS_LIST = &nb...
-
너구리•2003.12.11 01:44오라클을 깔고 BDE로 접속하려면 몇가지 일을 해야합니다. tnsname은 그중에 하나이구요... 정확한 ...
-
- 초보
- •
- 2003.12.10 00:43
- 3 COMMENTS
- /
- 0 LIKES
성더기 님... 오늘 검색해보니 델세상(www.delphiworld.net)이 다시 살려져 있더군요. 근데 올려두신 세금 계산서 양식에 소스는 포함되어 있지 않았습니다. 안타깝습니다... 여러장의 세금 계산서 출력하기... 아시는분... 좀 부탁드립니...-
박종록•2003.12.11 00:20퀵 레포트라면 1) QRBand1의 BandType을 rbTitle로 지정한다. 2) 지정된 QRBand...
-
초보•2003.12.12 18:45여러분의 많은 도움으로 세금계산서부분을 잘 해결했습니다. 다시한번 감사드립니다.
-
nilriri™•2003.12.10 01:43샬롬~ 세금계산서를 양식지가 아닌 백지에 양식까지 함께 출력하시나봐요..^^ 컬러 프린터 잉크값이 ...
-
- 노승현
- •
- 2003.12.10 00:27
- 1 COMMENTS
- /
- 0 LIKES
-
이환노•2003.12.11 02:07답변이 잘될지는 모르겠는데요. const CHART_HIDDEN = 1.0e+308; 이렇게 선언하고.. ...
-
- 첨시작델
- •
- 2003.12.10 00:13
- 2 COMMENTS
- /
- 0 LIKES
-
Crazy•2003.12.10 03:11컬럼갯수가 4이고 필드가 1,2,3,4로 구분된다면 총 16개의 필드가 만들어지는거군요... Close; Sql.Cl...
-
첨시작델•2003.12.10 04:03답변ㄳ드립니다.... 이로케 할려구 했던거에여...sql문장에서 참고 하여 해보겠습니다. ㄳ 합니다.
-
- 첨시작델
- •
- 2003.12.09 23:15
- 2 COMMENTS
- /
- 0 LIKES
-
^ㅡ^•2003.12.09 23:25//답변이 될지 모르겠습니다. with Query1 do begin Close; Sql.Clea...
-
첨시작델•2003.12.09 23:39ㄳ합니다..잘되네여...그럼 다음문제를 해결하러 갑니다.. 담에두 물어볼꺼는 아주많아요...^^ 저에게 도...
-
- Galaxy
- •
- 2003.12.09 20:56
- 2 COMMENTS
- /
- 0 LIKES
-
이중철•2003.12.09 22:1816bit windows programming의 잔재로 알고 있어요 제가 대학 다닐때 배웠던 기억으로는 near 는 8비...
-
Galaxy•2003.12.09 22:47답변 감사 합니다. 책이나 문서 추천을 원합니다. 공부를 하고 싶어요 다시 한번 감사 드립니다. 그...
-
- 쳐리
- •
- 2003.12.09 20:34
- 4 COMMENTS
- /
- 0 LIKES
-
박종록•2003.12.11 00:35답변 내용을 보니 참 어렵게 하시네요 함수를 바꾸어서 해보시지요 procedure TTensForm.DataInsert; v...
-
이중철•2003.12.09 22:26s := inttostr(Trunc((EndTime-StartTime) / 24)) + ':' + formatdatetime('nn:ss', EndTime-St...
-
쳐리•2003.12.10 04:34s := inttostr(Trunc((EndTime-StartTime) * 24)) + ':' + formatdatetime('nn:ss', EndTime-St...
-
이중철•2003.12.10 19:41
1) QRBand1의 BandType을 rbTitle로 지정한다.
2) 지정된 QRBand에 세금계산서 양식을 그린다.
3) 가변부분은 QRLabel 또는 QRExpr1, QRDBText1 이용한다.
4) QRLabel 부분의 제어는 QuickRep1BeforePrint 이벤트에서 적절히
제어 해준다.
5) 똑같은 내용으로 여러장을 PRINT하려면
QuickRep1.PrinterSettings.Copies := 3; //3장 print
6) 정 해결을 못하겠으면 저의 메일로 연락 하세요
프로그램 소스를 보내 드리죠....
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
if ( ) then
QRlabel1.Caption := '공급받는자';
end;