maudruidas Posted September 20, 2022 Report Share Posted September 20, 2022 Bom dia, em outras versões do Fivewin eu utilizava sem erro o OPRN:LZERABUFFER:=.F. // PULAR PÁGINA=.F. NÃO PULAR=.T. nesta versão minha nova versão: FiveWin for xHarbour 21.02 - Feb. 2021 está dando erro, oque será que fiz de errado? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 20, 2022 Report Share Posted September 20, 2022 Meu pliglio, se você postar o ERRO, fica mais fácil tentar uma solução, né? Pelo visto está usando uma modificada por mim, pode ser que eu eu tenha errado... Se bem, que eu não erro NUNCA!!! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk Abs. Regards, saludos. Quote Link to comment Share on other sites More sharing options...
maudruidas Posted September 21, 2022 Author Report Share Posted September 21, 2022 Bom dia kkkk, desculpe pela demora, segue anexo com a foto do erro. Obrigado. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 21, 2022 Report Share Posted September 21, 2022 Mostre ETIPRO.PRG -> Linha: 47 e IMPPRO.PRG Linha: 86 você colocou o cabeçalho de impressão da TDOSPRN.PRG? antes da função? //----- Definicao de comando SAY para TdosPrn --------------------------------- #xcommand @ <nRow>, <nCol> SAY <cText> OF <oPrinter> => <oPrinter>:Say(<nRow>, <nCol>, <cText> ) STATIC FUNCTION IMPRIME_MALA( lAppend, DbClientes, DbCabec, DbPaieMae, ; DeOndeVem ) FIELD RAZ_MATRIC, DEST_NOME, END, BAI, CID, CEP ... Verifique na TDOSPRN.PRG: DATA lZeraBuffer // By Gilmer www.fivewin.com.br Abs. Regards, saludos. Quote Link to comment Share on other sites More sharing options...
maudruidas Posted September 21, 2022 Author Report Share Posted September 21, 2022 O estranho que na minha versão antiga do Fivewin (7.0) ela funciona, e o prg não mudou nada, deve estar pegando outra versão do Tdosprn. Veja o PRG INTEIRO abaixo: #include "FiveWin.ch" #include "Utilprn.ch" #define PRETO nRGB( 0,0,0) #define XPAZULC nRGB( 111,143,175) #Define BRWBACK 14483196 // Amarelo enbranquecido #Define COR1 14410170 #Define COR2 14810095 #Define COR3 RGB(255,128,128) #Define COR4 RGB(250,168,86) // Laranja #define CLR_AZUL nRGB(204, 218, 241) STATIC OMETER2,ODLCRL,XXI FUNCTION ETIPRO() LOCAL COP,PRO,VRAD2,CSAY1 DEFINE FONT OFNC NAME "Arial" SIZE 0, -12 BOLD DEFINE FONT OGETFNT NAME "Arial" SIZE 0, -12 DEFINE FONT OFNC3 NAME "ARIAL" SIZE 0, -13 BOLD DEFINE FONT OFNC4 NAME "ARIAL" SIZE 0, -11 DEFINE FONT OFNC2 NAME "TIMES NEW ROMAN" SIZE 0, -17 BOLD DEFINE FONT OFNC5 NAME "TIMES NEW ROMAN" SIZE 6, -16 BOLD CorBot := { | lMouseOver | If( lMouseOver,; { { 1/3, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ; { 2/3, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) } ; }, ; { { 1/2, nRGB( 230, 230, 230 ), nRGB( 202, 223, 220 ) }, ; { 1/2, nRGB( 181, 209, 210 ), nRGB( 230, 230, 230 ) } ; } ) } DEFINE DIALOG ODLEXT RESOURCE "DLGEPRO" COLOR CLR_BLACK,RGB(247,248,233) FONT OFNC; TITLE "Etiquetas em Colunas" ODLEXT : LHELPICON := .F. // Tira a ? da janela ODLEXT : lTransparent := .T. VRAD2 := 1 REDEFINE RADIO RDPR2 VAR VRAD2 ID 116,117,114,118 Color CLR_BLACK,GETSYSCOLOR(15) OF ODLEXT REDEFINE BTNBMP OBTN3 ID 111 OF ODLEXT ; RESOURCE "IMPRESS" LEFT 2007 ; PROMPT " &Imprime" TEXTRIGHT ; ACTION(IMPEPRO(VRAD2),VRAD2:=1,RDPR2:REFRESH()) oBtn3:CTOOLTIP = "Imprime as Etiquetas" SET FONT OF OBTN3 TO OFNC oBtn3:bClrGrad = CorBot REDEFINE BTNBMP OBTN4 ID 112 OF ODLEXT ; RESOURCE "CANCELA" LEFT 2007 ; PROMPT "Cance&la" TEXTRIGHT ; ACTION ODLEXT:END() oBtn4:cToolTip = "Cancelar / Sair" SET FONT OF OBTN4 TO OFNC oBtn4:bClrGrad = CorBot ACTIVATE DIALOG ODLEXT CENTERED RESIZE16 ON INIT ROUNDRECTA( oDlext:hWnd, 20 ) RETURN(.T.) FUNCTION IMPEPRO(VRAD2) LOCAL NTAM,COL,LN,NUM,NUM2,XCO,NETI,NLIN,NLI,NOR2,REDUZIDO,NORMAL,EXPRD,NOR SELE 26 GO TOP IF EOF() MSGALERT("Lote de Etiquetas Está Vazio, Favor Incluir Produtos !!!","Mensagem") RETURN(.F.) ENDIF IMP := ESCIMP() // ESCOLHE A TIPO DE IMPRESSÃO (MATRICIAL OU JATODE TINTA) IF IMP = 0 RETURN NIL ENDIF IF IMP = 1 IF VRAD2 = 3 MSGALERT("Não Existe Impressão de 3 Col. Para Imp. Matricial","Atenção...") RETURN(NIL) ENDIF OPRN := TDOSPRN():NEW("LPT1") OPRN:LZERABUFFER:=.T. // PULAR PÁGINA=.F. NÃO PULAR=.T. //(onde dá o erro) NOR := CHR(18) REDUZIDO := CHR(15) NORMAL := CHR(18) EXPRD := CHR(14)+CHR(15) NOR2 := CHR(27)+CHR(33)+CHR(0)+NOR ELSE PRINTER OPRN NAME "IMPRESSÃO DE ETIQUETAS EM COLUNAS" PREVIEW MODAL // IF EMPTY( OPRN:hdc ) // RETURN NIL // ENDIF OPRN:SETPAGE(9) NTAM:=oPrn:nLogPixelX()/10 DEFINE FONT OFNT1 NAME "COURIER NEW" SIZE NTAM,-(NTAM+5) DEFINE FONT OFNT2 NAME "COURIER NEW" SIZE NTAM,-(NTAM+5) BOLD DEFINE FONT OFNT3 NAME "COURIER NEW" SIZE NTAM-3,-(NTAM+5) BOLD DEFINE FONT OFNT4 NAME "COURIER NEW" SIZE NTAM-18,-(NTAM+18) BOLD DEFINE FONT OFNT5 NAME "COURIER NEW" SIZE NTAM+2,-(NTAM+10) BOLD DEFINE FONT OFNT6 NAME "COURIER NEW" SIZE NTAM-32,-(NTAM+32) BOLD DEFINE FONT OFNT7 NAME "COURIER NEW" SIZE NTAM+1,-(NTAM+25) BOLD DEFINE FONT OFNT8 NAME "COURIER NEW" SIZE NTAM-30,-(NTAM+30) BOLD DEFINE FONT OFNT9 NAME "COURIER NEW" SIZE NTAM-2.5,-(NTAM+5) BOLD ENDIF CURSORWAIT() IF IMP = 1 OPRN:STARTPAGE() ELSE PAGE ENDIF IF VRAD2 = 1 // UMA COL. LN := 0 NETI := 0 SELE 26 GO TOP DO WHILE !EOF() PRO := PRODUTO COP := QUANTIDADE SELE 11 SET ORDER TO 1 SEEK STR(PRO,13) DPRO := DESCRICAO PRE := PRECO VIS := PREVIS PER := ((PRE*100)/VIS)-100 XCO := 0 DO WHILE XCO < COP IF IMP = 1 oPrn:Say(LN,01,EXPRD + STRZERO(PRO,13) + " - " + NOR2 + REDUZIDO + SUBSTR(DPRO,1,20) + NORMAL) LN := LN + 1 oPrn:Say(LN,01,EXPRD + " A PRAZO | A VISTA") LN := LN + 1 oPrn:Say(LN,01,EXPRD + "R$" + TRANS(PRE,"@E 99,999.99") + " | R$" + TRANS(VIS,"@E 99,999.99") + NOR2) LN := LN + 1 // IF STR(PRE,10,2) > STR(100,10,2) // oPrn:Say(LN,01,REDUZIDO + "2X R$" + TRANS(PRE/2,"@E 999.99") + " (30/60 Dias) |") // ELSE oPrn:Say(LN,01,REDUZIDO + "1X R$" + TRANS(PRE,"@E 999.99") + " (30 Dias) |") // ENDIF LN := LN + 1 oPrn:Say(LN,01,"Tot R$" + TRANS(PRE,"@E 999.99") + " % Acr. " + STR(PER,5,2) + " |" + NORMAL) LN := LN + 2 ELSE oPrn:CMSay(LN,2," " + STRZERO(PRO,13),OFNT2) IF XCO = 0 // Na Primeira estiqueta tem que pular mais (Não sei Pq) LN := LN + 0.7 ELSE LN := LN + 0.4 ENDIF oPrn:CMSay(LN,0,SUBSTR(DPRO,1,38),OFNT3) LN := LN + 0.4 oPrn:CMSay(LN,0," A PRAZO | A VISTA",OFNT5) LN := LN + 0.4 oPrn:CMSay(LN,0," R$" + TRANS(PRE,"@E 99,999.99") + " | R$" + TRANS(VIS,"@E 99,999.99"),OFNT5) LN := LN + 0.4 // IF STR(PRE,10,2) > STR(100,10,2) // oPrn:CMSay(LN,0,"2X R$" + TRANS(PRE/2,"@E 999.99") + " (30/60 Dias)",OFNT4) // ELSE oPrn:CMSay(LN,0,"1X R$" + TRANS(PRE,"@E 99,999.99") + " (30 Dias)",OFNT4) // ENDIF oPrn:CMSay(LN,0,SPACE(18) + "|",OFNT5) LN := LN + 0.4 oPrn:CMSay(LN,0,"T R$" + TRANS(PRE,"@E 99,999.99") + " % Acr. " + STR(PER,5,2),OFNT4) oPrn:CMSay(LN,0,SPACE(18) + "|",OFNT5) LN := LN + 0.8 ENDIF XCO := XCO + 1 NETI := NETI + 1 IF IMP = 1 IF NETI = 11 // NETI := 0 // LN := 0 // OPRN:ENDPAGE() ENDIF ELSE IF NETI = 9 NETI := 0 LN := 0 ENDPAGE PAGE ENDIF ENDIF ENDDO SELE 26 SKIP UNLOCK ENDDO IF IMP = 1 OPRN:LZERABUFFER:=.F. // PULAR PÁGINA=.F. NÃO PULAR=.T. OPRN:ENDPAGE() OPRN:END() ELSE ENDPAGE ENDPRINT ENDIF ENDIF IF VRAD2 = 2 // DUAS COL. SELE 4 ZAP *************************** Adiciona os produtos na Matriz SELE 26 GO TOP DO WHILE !EOF() PRO := PRODUTO COP := QUANTIDADE XCO := 0 DO WHILE XCO < COP SELE 4 INCREG2() REPL PRODUTO WITH PRO UNLOCK COMMIT XCO := XCO + 1 ENDDO SELE 26 SKIP UNLOCK ENDDO *************************************** LN := 1.52 NETI := 0 XCO := 0 SELE 4 GO TOP DO WHILE !EOF() IF IMP = 1 // NETI := 0 // LN := 0 // OPRN:ENDPAGE() ELSE IF NETI = 10 NETI := 0 LN := 1.52 XCO := 0 ENDPAGE PAGE ENDIF ENDIF PRO1 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO1,13) DPRO1 := DESCRICAO PRE1 := PRECO VIS1 := PREVIS PER1 := ((PRE1*100)/VIS1)-100 SELE 4 SKIP UNLOCK IF !EOF() PRO2 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO2,13) DPRO2 := DESCRICAO PRE2 := PRECO VIS2 := PREVIS PER2 := ((PRE2*100)/VIS2)-100 ELSE PRO2 := 0 PRE2 := 0 ENDIF IF IMP = 1 oPrn:Say(LN,01,EXPRD + STRZERO(PRO1,13) + "-" + NOR2 + REDUZIDO + SUBSTR(DPRO1,1,38) +; IIF(PRO2<>0,EXPRD + " " + STRZERO(PRO2,13) + "-" + NOR2 + REDUZIDO + SUBSTR(DPRO2,1,38) + NORMAL,"")) LN := LN + 1 oPrn:Say(LN,01,EXPRD + " A PRAZO | A VISTA" + IIF(PRO2<>0,SPACE(14) + " A PRAZO | A VISTA","")) LN := LN + 1 oPrn:Say(LN,01,EXPRD + "R$" + TRANS(PRE1,"@E 99,999.99") + " | R$" + TRANS(VIS1,"@E 99,999.99") +; IIF(PRO2<>0,EXPRD + SPACE(11) + "R$" + TRANS(PRE2,"@E 99,999.99") + " | R$" + TRANS(VIS2,"@E 99,999.99") + NOR2,"")) LN := LN + 1 oPrn:Say(LN,01,REDUZIDO + "1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias) |" +; IIF(PRO2<>0,SPACE(49) + "1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias) |","")) LN := LN + 1 oPrn:Say(LN,01,"Tot R$" + TRANS(PRE1,"@E 999.99") + " % Acr. " + STR(PER1,5,2) + " |" +; IIF(PRO2<>0,SPACE(49) + "Tot R$" + TRANS(PRE2,"@E 999.99") + " % Acr. " + STR(PER2,5,2) + " |" + NORMAL,"")) LN := LN + 2 // oPrn:Say(LN,01,REDUZIDO + "1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias) |" +; // IIF(PRO2<>0,SPACE(49) + IIF(STR(PRE2,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE2/2,"@E 999.99") + " (30/60 Dias) |","1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias) |"),"")) // oPrn:Say(LN,01,REDUZIDO + IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias) |","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias) |") +; // IIF(PRO2<>0,SPACE(49) + IIF(STR(PRE2,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE2/2,"@E 999.99") + " (30/60 Dias) |","1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias) |"),"")) ELSE oPrn:CMSay(LN,2," " + STRZERO(PRO1,13) + IIF(PRO2<>0,SPACE(28) + STRZERO(PRO2,13),""),OFNT2) // IF XCO = 0 // Na Primeira estiqueta tem que pular mais (Não sei Pq) // LN := LN + 0.7 // ELSE LN := LN + 0.4 // ENDIF XCO := 1 oPrn:CMSay(LN,0.8,SUBSTR(DPRO1,1,38),OFNT3) IF PRO2<>0 oPrn:CMSay(LN,11.5,SUBSTR(DPRO2,1,38),OFNT3) ENDIF LN = LN + 0.4 oPrn:CMSay(LN,0," A PRAZO | A VISTA "+IIF(PRO2<>0,"A PRAZO | A VISTA",""),OFNT5) LN = LN + 0.4 oPrn:CMSay(LN,0," R$" + TRANS(PRE1,"@E 99,999.99") + " | R$" + TRANS(VIS1,"@E 99,999.99")+; IIF(PRO2<>0," R$" + TRANS(PRE2,"@E 99,999.99") + " | R$" + TRANS(VIS2,"@E 99,999.99"),""),OFNT5) LN = LN + 0.4 oPrn:CMSay(LN,0.8,"1X R$" + TRANS(PRE1,"@E 99,999.99") + " (30 Dias)" ,OFNT4) IF PRO2<>0 oPrn:CMSay(LN,11.5,"1X R$" + TRANS(PRE2,"@E 99,999.99") + " (30 Dias)",OFNT4) ENDIF oPrn:CMSay(LN,0,SPACE(20) + "|" + IIF(PRO2<>0,SPACE(39) + "|",""),OFNT5) LN = LN + 0.4 oPrn:CMSay(LN,0.8,"T R$" + TRANS(PRE1,"@E 99,999.99") + " % Acr. " + STR(PER1,5,2),OFNT4) IF PRO2<>0 oPrn:CMSay(LN,11.5,"T R$" + TRANS(PRE2,"@E 99,999.99") + " % Acr. " + STR(PER2,5,2),OFNT4) ENDIF oPrn:CMSay(LN,0,SPACE(20) + "|" + IIF(PRO2<>0,SPACE(39) + "|",""),OFNT5) LN = LN + 0.55 // oPrn:CMSay(LN,0,IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias)") +; // IIF(PRO2<>0,SPACE(38)+"1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias)",""),OFNT4) // IIF(PRO2<>0,SPACE(38)+IIF(STR(PRE2,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE2/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias)"),""),OFNT4) // oPrn:CMSay(LN,0,IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias)") +; ENDIF NETI := NETI + 1 SELE 4 IF !EOF() SKIP UNLOCK ENDIF ENDDO IF IMP = 1 OPRN:LZERABUFFER:=.F. // PULAR PÁGINA=.F. NÃO PULAR=.T. OPRN:ENDPAGE() OPRN:END() ELSE // IF NETI <> 10 ENDPAGE // ENDIF ENDPRINT ENDIF ENDIF IF VRAD2 = 3 // TRÊS COL. APENAS JATO DE TINTA SELE 4 ZAP *************************** Adiciona os produtos na Matriz SELE 26 GO TOP DO WHILE !EOF() PRO := PRODUTO COP := QUANTIDADE XCO := 0 DO WHILE XCO < COP SELE 4 INCREG2() REPL PRODUTO WITH PRO UNLOCK COMMIT XCO := XCO + 1 ENDDO SELE 26 SKIP UNLOCK ENDDO *************************************** LN := 1.52 NETI := 0 XCO := 0 SELE 4 GO TOP DO WHILE !EOF() IF NETI = 10 NETI := 0 LN := 1.52 XCO := 0 ENDPAGE PAGE ENDIF PRO1 := PRODUTO ************************* PEGA O 1º PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO1,13) DPRO1 := DESCRICAO PRE1 := PRECO VIS1 := PREVIS PER1 := ((PRE1*100)/VIS1)-100 ************************* PEGA O 2º PRODUTO SE TIVER SELE 4 SKIP UNLOCK IF !EOF() PRO2 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO2,13) DPRO2 := DESCRICAO PRE2 := PRECO VIS2 := PREVIS PER2 := ((PRE2*100)/VIS2)-100 ELSE PRO2 := 0 PRE2 := 0 ENDIF ************************* PEGA O 3º PRODUTO SE TIVER SELE 4 SKIP UNLOCK IF !EOF() PRO3 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO3,13) DPRO3 := DESCRICAO PRE3 := PRECO VIS3 := PREVIS PER3 := ((PRE3*100)/VIS3)-100 ELSE PRO3 := 0 PRE3 := 0 ENDIF IF IMP = 1 ELSE oPrn:CMSay(LN,2," " + STRZERO(PRO1,13) + IIF(PRO2<>0,SPACE(13) + STRZERO(PRO2,13),"")+ IIF(PRO3<>0,SPACE(14) + STRZERO(PRO3,13),""),OFNT2) // IF XCO = 0 // Na Primeira estiqueta tem que pular mais (Não sei Pq) // LN := LN + 0.7 // ELSE LN := LN + 0.4 // ENDIF XCO := 1 oPrn:CMSay(LN,0.6,DPRO1,OFNT6) IF PRO2<>0 oPrn:CMSay(LN,7.4,DPRO2,OFNT6) ENDIF IF PRO3<>0 oPrn:CMSay(LN,14.0,DPRO3,OFNT6) ENDIF LN = LN + 0.4 oPrn:CMSay(LN,0," A PRAZO | A VISTA "+IIF(PRO2<>0,"A PRAZO | A VISTA ","")+IIF(PRO3<>0,"A PRAZO | A VISTA",""),OFNT7) LN = LN + 0.4 oPrn:CMSay(LN,0," R$" + TRANS(PRE1,"@E 99,999.99") + " R$" + TRANS(VIS1,"@E 99,999.99")+; IIF(PRO2<>0," R$" + TRANS(PRE2,"@E 99,999.99") + " R$" + TRANS(VIS2,"@E 99,999.99"),"")+; IIF(PRO3<>0," R$" + TRANS(PRE3,"@E 99,999.99") + " R$" + TRANS(VIS3,"@E 99,999.99"),""),OFNT9) oPrn:CMSay(LN,0,SPACE(13) + "|" + IIF(PRO2<>0,SPACE(26) + "|","")+ IIF(PRO3<>0,SPACE(24) + "|",""),OFNT7) LN = LN + 0.4 oPrn:CMSay(LN,0.6,"1X R$" + TRANS(PRE1,"@E 99,999.99") + " (30 Dias)" ,OFNT8) IF PRO2<>0 oPrn:CMSay(LN,7.6,"1X R$" + TRANS(PRE2,"@E 99,999.99") + " (30 Dias)",OFNT8) ENDIF IF PRO3<>0 oPrn:CMSay(LN,14.2,"1X R$" + TRANS(PRE3,"@E 99,999.99") + " (30 Dias)",OFNT8) ENDIF oPrn:CMSay(LN,0,SPACE(13) + "|" + IIF(PRO2<>0,SPACE(26) + "|","")+ IIF(PRO3<>0,SPACE(24) + "|",""),OFNT7) LN = LN + 0.4 oPrn:CMSay(LN,0.6,"T R$" + TRANS(PRE1,"@E 99,999.99") + " %Ac. " + STR(PER1,5,2),OFNT8) IF PRO2<>0 oPrn:CMSay(LN,7.6,"T R$" + TRANS(PRE2,"@E 99,999.99") + " %Ac. " + STR(PER2,5,2),OFNT8) ENDIF IF PRO3<>0 oPrn:CMSay(LN,14.2,"T R$" + TRANS(PRE3,"@E 99,999.99") + " %Ac. " + STR(PER3,5,2),OFNT8) ENDIF oPrn:CMSay(LN,0,SPACE(13) + "|" + IIF(PRO2<>0,SPACE(26) + "|","")+ IIF(PRO3<>0,SPACE(24) + "|",""),OFNT7) LN = LN + 0.55 // oPrn:CMSay(LN,0,IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias)") +; // IIF(PRO2<>0,SPACE(38)+"1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias)",""),OFNT4) // IIF(PRO2<>0,SPACE(38)+IIF(STR(PRE2,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE2/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias)"),""),OFNT4) // oPrn:CMSay(LN,0,IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias)") +; ENDIF NETI := NETI + 1 SELE 4 IF !EOF() SKIP UNLOCK ENDIF ENDDO IF IMP = 1 // OPRN:LZERABUFFER:=.F. // PULAR PÁGINA=.F. NÃO PULAR=.T. OPRN:ENDPAGE() OPRN:END() ELSE // IF NETI <> 10 ENDPAGE // ENDIF ENDPRINT ENDIF ENDIF IF VRAD2 = 4 // CINCO COL. SELE 4 ZAP *************************** Adiciona os produtos na Matriz SELE 26 GO TOP DO WHILE !EOF() PRO := PRODUTO COP := QUANTIDADE XCO := 0 DO WHILE XCO < COP SELE 4 INCREG2() REPL PRODUTO WITH PRO UNLOCK COMMIT XCO := XCO + 1 ENDDO SELE 26 SKIP UNLOCK ENDDO *************************************** LN := 0 NETI := 0 XCO := 0 SELE 4 GO TOP DO WHILE !EOF() STORE 0 TO PRO2,PRO3,PRO4,PRO5 PRO1 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO1,13) DPRO1 := DESCRICAO PRE1 := PRECO VIS1 := PREVIS PER1 := ((PRE1*100)/VIS1)-100 SELE 4 SKIP UNLOCK IF !EOF() PRO2 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO2,13) DPRO2 := DESCRICAO PRE2 := PRECO VIS2 := PREVIS PER2 := ((PRE2*100)/VIS2)-100 SELE 4 SKIP UNLOCK IF !EOF() PRO3 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO3,13) DPRO3 := DESCRICAO PRE3 := PRECO VIS3 := PREVIS PER3 := ((PRE3*100)/VIS2)-100 SELE 4 SKIP UNLOCK IF !EOF() PRO4 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO4,13) DPRO4 := DESCRICAO PRE4 := PRECO VIS4 := PREVIS PER4 := ((PRE4*100)/VIS2)-100 SELE 4 SKIP UNLOCK IF !EOF() PRO5 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR(PRO5,13) DPRO5 := DESCRICAO PRE5 := PRECO VIS5 := PREVIS PER5 := ((PRE5*100)/VIS2)-100 ELSE PRO5 := 0 PRE5 := 0 ENDIF ELSE PRO4 := 0 PRE4 := 0 ENDIF ELSE PRO3 := 0 PRE3 := 0 ENDIF ELSE PRO2 := 0 PRE2 := 0 ENDIF IF IMP = 1 oPrn:Say(LN,0,STRZERO(PRO1,13) + " " + ; IIF(PRO2<>0,STRZERO(PRO2,13),"") + " " + ; IIF(PRO3<>0,STRZERO(PRO3,13),"") + " " + ; IIF(PRO4<>0,STRZERO(PRO4,13),"") + " " + ; IIF(PRO5<>0,STRZERO(PRO5,13),"")) LN := LN + 1 oPrn:Say(LN,0,"R$" + TRANS(PRE1,"@E 9,999.99") + ; IIF(PRO2<>0," R$" + TRANS(PRE2,"@E 9,999.99"),"") + ; IIF(PRO3<>0," R$" + TRANS(PRE3,"@E 9,999.99"),"") + ; IIF(PRO4<>0," R$" + TRANS(PRE4,"@E 9,999.99"),"") + ; IIF(PRO5<>0," R$" + TRANS(PRE5,"@E 9,999.99"),"")) LN := LN + 2 ELSE oPrn:CMSay(LN,0,STRZERO(PRO1,13) + " " + ; IIF(PRO2<>0,STRZERO(PRO2,13),"") + " " + ; IIF(PRO3<>0,STRZERO(PRO3,13),"") + " " + ; IIF(PRO4<>0,STRZERO(PRO4,13),"") + " " + ; IIF(PRO5<>0,STRZERO(PRO5,13),""),OFNT2) IF XCO = 0 // Na Primeira estiqueta tem que pular mais (Não sei Pq) LN := LN + 0.7 ELSE LN := LN + 0.4 ENDIF XCO := 1 oPrn:CMSay(LN,0,"R$" + TRANS(PRE1,"@E 999.99") + ; IIF(PRO2<>0," R$" + TRANS(PRE2,"@E 999.99"),"") + ; IIF(PRO3<>0," R$" + TRANS(PRE3,"@E 999.99"),"") + ; IIF(PRO4<>0," R$" + TRANS(PRE4,"@E 999.99"),"") + ; IIF(PRO5<>0," R$" + TRANS(PRE5,"@E 999.99"),""),OFNT1) LN := LN + 0.7 ENDIF NETI := NETI + 1 IF IMP = 1 // NETI := 0 // LN := 0 // OPRN:ENDPAGE() ELSE IF NETI = 9 NETI := 0 LN := 0 XCO := 0 ENDPAGE PAGE ENDIF ENDIF SELE 4 IF !EOF() SKIP UNLOCK ENDIF ENDDO IF IMP = 1 OPRN:LZERABUFFER:=.F. // PULAR PÁGINA=.F. NÃO PULAR=.T. OPRN:ENDPAGE() OPRN:END() ELSE IF NETI <> 9 ENDPAGE ENDIF ENDPRINT ENDIF ENDIF RETURN(NIL) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 21, 2022 Report Share Posted September 21, 2022 Essa função está meio CRUEL. Ache os erros! Eu sou PHODA!! kkkkkkkkkkkkkkk Veja como eu faria: // C:\FWH...\SAMPLES\MAUDRUID.PRG - MODIFICADO: 21/09/2022 - kapiaba. #include "FiveWin.ch" #include "Utilprn.ch" // PARA? CLASSE DE TERCEIROS IMITANDO A PRINTER.PRG? #define PRETO nRGB( 0,0,0) #define XPAZULC nRGB( 111,143,175) #define BRWBACK 14483196 // Amarelo enbranquecido #define COR1 14410170 #define COR2 14810095 #define COR3 RGB(255,128,128) #define COR4 RGB(250,168,86) // Laranja #define CLR_AZUL nRGB(204, 218, 241) STATIC OMETER2, ODLCRL, XXI FUNCTION ETIPRO() LOCAL OFNC, OGETFNT, OFNC3, OFNC4, OFNC2, OFNC5, OBTN3, OBTN4 LOCAL COP, PRO, VRAD2, CSAY1, RDPR2 CorBot := { | lMouseOver | If( lMouseOver, ; { { 1/3, nRGB( 219, 230, 244 ), nRGB( 207 - 50, 221 - 25, 255 ) }, ; { 2/3, nRGB( 201 - 50, 217 - 25, 255 ), nRGB( 231, 242, 255 ) } ; }, ; { { 1/2, nRGB( 230, 230, 230 ), nRGB( 202, 223, 220 ) }, ; { 1/2, nRGB( 181, 209, 210 ), nRGB( 230, 230, 230 ) } ; } ) } VRAD2 := 1 DEFINE FONT OFNC NAME "Arial" SIZE 0, - 12 BOLD DEFINE FONT OGETFNT NAME "Arial" SIZE 0, - 12 DEFINE FONT OFNC3 NAME "ARIAL" SIZE 0, - 13 BOLD DEFINE FONT OFNC4 NAME "ARIAL" SIZE 0, - 11 DEFINE FONT OFNC2 NAME "TIMES NEW ROMAN" SIZE 0, - 17 BOLD DEFINE FONT OFNC5 NAME "TIMES NEW ROMAN" SIZE 6, - 16 BOLD DEFINE DIALOG ODLEXT RESOURCE "DLGEPRO" COLOR CLR_BLACK, RGB( 247, 248, 233 ) ; FONT OFNC TITLE "Etiquetas em Colunas" ODLEXT : LHELPICON := .F. // Tira a ? da janela ODLEXT : lTransparent := .T. // VRAD2 := 1 REDEFINE RADIO RDPR2 VAR VRAD2 ID 116, 117, 114, 118 COLOR CLR_BLACK, GETSYSCOLOR( 15 ) OF ODLEXT REDEFINE BTNBMP OBTN3 ID 111 OF ODLEXT ; RESOURCE "IMPRESS" LEFT 2007 ; PROMPT " &Imprime" TEXTRIGHT ; ACTION( IMPEPRO( VRAD2 ), VRAD2 := 1, RDPR2:REFRESH() ) oBtn3:CTOOLTIP = "Imprime as Etiquetas" SET FONT OF OBTN3 TO OFNC oBtn3:bClrGrad = CorBot REDEFINE BTNBMP OBTN4 ID 112 OF ODLEXT RESOURCE "CANCELA" LEFT 2007 ; PROMPT "Cance&la" TEXTRIGHT ACTION ODLEXT:END() oBtn4:cToolTip = "Cancelar / Sair" SET FONT OF OBTN4 TO OFNC oBtn4:bClrGrad = CorBot oBtn4:lCancel := .T. // CANCEL normal do BUTTON na BTNBMP e assim. ACTIVATE DIALOG ODLEXT CENTERED RESIZE16 ON INIT ROUNDRECTA( oDlext:hWnd, 20 ) // feche sempre as fontes. OFNC:End() OGETFNT:End() OFNC3:End() OFNC4:End() OFNC2:End() OFNC5:End() RETURN NIL // (.T.) // E UM VALID AQUI? // MAUDRUIDAS: SEM ISSO O FIVEWIN NAO SABE QUE VOCE ESTA USANDO A TDOSPRN.PRG //----- Definicao de comando SAY para TdosPrn --------------------------------- // #xcommand @ <nRow>, <nCol> SAY <cText> OF <oPrinter> => <oPrinter>:Say(<nRow>, <nCol>, <cText> ) FUNCTION IMPEPRO( VRAD2 ) LOCAL NTAM, COL, LN, NUM, NUM2, XCO, NETI, NLIN, NLI, NOR2, REDUZIDO, NORMAL, EXPRD, NOR /* CORRETO E AQUI, TEM QUE DECLARAR AS VARIAVEIS, LOCAL, MEMVAR, ETC... // SE NAO TRAVAR O PROGRAMA OU DEXAIR LENTO, DEIXE NO LOCAL. APENAS SUGESTAO STORE 0 TO PRO2, PRO3, PRO4, PRO5 // MELHOR POR NO INICIO DO MODULO // PODE TRAVAR O PROGRAMA. // ISSO PODE SER REPITIR MILHOES DE X. */ SELE 26 GO TOP IF EOF() MSGALERT( "Lote de Etiquetas Está Vazio, Favor Incluir Produtos !!!", "Mensagem" ) RETURN( .F. ) ENDIF IMP := ESCIMP() // ESCOLHE A TIPO DE IMPRESSÃO (MATRICIAL OU JATO DE TINTA) IF IMP = 0 RETURN NIL ENDIF IF IMP = 1 // USANDO TDOSPRN.PRG IF VRAD2 = 3 MSGALERT( "Não Existe Impressão de 3 Col. Para Imp. Matricial", "Atenção..." ) RETURN( NIL ) ENDIF // SE FOR IMPRESSORA USB, TEM QUE USAR O PRINTERFILERAW() /* OPRN := TDOSPRN():NEW( "LPT1" ) // MATRICIAL? SENAO, NAO VAI OPRN:LZERABUFFER := .T. // PULAR PÁGINA=.F. NÃO PULAR=.T. //(onde dá o erro) */ oPrn:= TDosPrn():New( "ETIQUETA.TXT" ) // para ir para um arquivo .txt // oPrn:= TDosPrn():New() // para ir para impressora em definitivo // oPrn := TDosPrn():New("lpt1") // para ir para impressora em definitivo // Este Comando, Liga a Impressora. NÆo Tirar Nunca oPrn:StartPage() // da Start(inicializa) na p gina. oPrn:lZeraBuffer := .T. // Inibe o Pulo da P gina NOR := CHR( 18 ) REDUZIDO := CHR( 15 ) NORMAL := CHR( 18 ) EXPRD := CHR( 14 ) + CHR( 15 ) NOR2 := CHR( 27 ) + CHR( 33 ) + CHR( 0 ) + NOR ELSE // usando PRINTER.PRG PRINTER OPRN NAME "IMPRESSÃO DE ETIQUETAS EM COLUNAS" PREVIEW MODAL OPRN:SETPAGE( 9 ) NTAM := oPrn:nLogPixelX()/10 // FECHE AS FONTES AO SAIR DO RELATORIO USANDO A PRINTER.PRG DEFINE FONT OFNT1 NAME "COURIER NEW" SIZE NTAM, - ( NTAM + 5 ) DEFINE FONT OFNT2 NAME "COURIER NEW" SIZE NTAM, - ( NTAM + 5 ) BOLD DEFINE FONT OFNT3 NAME "COURIER NEW" SIZE NTAM - 3, - ( NTAM + 5 ) BOLD DEFINE FONT OFNT4 NAME "COURIER NEW" SIZE NTAM - 18, - ( NTAM + 18 ) BOLD DEFINE FONT OFNT5 NAME "COURIER NEW" SIZE NTAM + 2, - ( NTAM + 10 ) BOLD DEFINE FONT OFNT6 NAME "COURIER NEW" SIZE NTAM - 32, - ( NTAM + 32 ) BOLD DEFINE FONT OFNT7 NAME "COURIER NEW" SIZE NTAM + 1, - ( NTAM + 25 ) BOLD DEFINE FONT OFNT8 NAME "COURIER NEW" SIZE NTAM - 30, - ( NTAM + 30 ) BOLD DEFINE FONT OFNT9 NAME "COURIER NEW" SIZE NTAM - 2.5, - ( NTAM + 5 ) BOLD ENDIF // CURSORWAIT() // ATRASA O PROGRAMA - DESNECESSARIO. IF IMP = 1 // OPRN:STARTPAGE() oPrn:= TDosPrn():New( "ETIQUETA.TXT" ) // para ir para um arquivo .txt // oPrn:= TDosPrn():New() // para ir para impressora em definitivo // oPrn := TDosPrn():New("lpt1") // para ir para impressora em definitivo // Este Comando, Liga a Impressora. NÆo Tirar Nunca oPrn:StartPage() // da Start(inicializa) na p gina. oPrn:lZeraBuffer := .T. // Inibe o Pulo da P gina ELSE PAGE ENDIF IF VRAD2 = 1 // UMA COL. LN := 0 NETI := 0 SELE 26 GO TOP WHILE .NOT. EOF() SYSREFRESH() PRO := PRODUTO COP := QUANTIDADE SELE 11 SET ORDER TO 1 SEEK STR( PRO, 13 ) DPRO := DESCRICAO PRE := PRECO VIS := PREVIS PER := ( ( PRE * 100 )/VIS ) - 100 XCO := 0 WHILE XCO < COP SYSREFRESH() IF IMP = 1 oPrn:Say( LN, 01, EXPRD + STRZERO( PRO,13 ) + " - " + NOR2 + REDUZIDO + SUBSTR( DPRO,1,20 ) + NORMAL ) LN := LN + 1 oPrn:Say( LN, 01, EXPRD + " A PRAZO | A VISTA" ) LN := LN + 1 oPrn:Say( LN, 01, EXPRD + "R$" + TRANS( PRE,"@E 99,999.99" ) + " | R$" + TRANS( VIS,"@E 99,999.99" ) + NOR2 ) LN := LN + 1 // IF STR(PRE,10,2) > STR(100,10,2) // oPrn:Say(LN,01,REDUZIDO + "2X R$" + TRANS(PRE/2,"@E 999.99") + " (30/60 Dias) |") // ELSE oPrn:Say( LN, 01, REDUZIDO + "1X R$" + TRANS( PRE,"@E 999.99" ) + " (30 Dias) |" ) // ENDIF LN := LN + 1 oPrn:Say( LN, 01, "Tot R$" + TRANS( PRE,"@E 999.99" ) + " % Acr. " + STR( PER,5,2 ) + " |" + NORMAL ) LN := LN + 2 ELSE oPrn:CMSay( LN, 2, " " + STRZERO( PRO,13 ), OFNT2 ) IF XCO = 0 // Na Primeira estiqueta tem que pular mais (Não sei Pq) LN := LN + 0.7 ELSE LN := LN + 0.4 ENDIF oPrn:CMSay( LN, 0, SUBSTR( DPRO,1,38 ), OFNT3 ) LN := LN + 0.4 oPrn:CMSay( LN, 0, " A PRAZO | A VISTA", OFNT5 ) LN := LN + 0.4 oPrn:CMSay( LN, 0, " R$" + TRANS( PRE,"@E 99,999.99" ) + " | R$" + TRANS( VIS,"@E 99,999.99" ), OFNT5 ) LN := LN + 0.4 // IF STR(PRE,10,2) > STR(100,10,2) // oPrn:CMSay(LN,0,"2X R$" + TRANS(PRE/2,"@E 999.99") + " (30/60 Dias)",OFNT4) // ELSE oPrn:CMSay( LN, 0, "1X R$" + TRANS( PRE,"@E 99,999.99" ) + " (30 Dias)", OFNT4 ) // ENDIF oPrn:CMSay( LN, 0, SPACE( 18 ) + "|", OFNT5 ) LN := LN + 0.4 oPrn:CMSay( LN, 0, "T R$" + TRANS( PRE,"@E 99,999.99" ) + " % Acr. " + STR( PER,5,2 ), OFNT4 ) oPrn:CMSay( LN, 0, SPACE( 18 ) + "|", OFNT5 ) LN := LN + 0.8 ENDIF XCO := XCO + 1 NETI := NETI + 1 IF IMP = 1 IF NETI = 11 // NETI := 0 // LN := 0 // OPRN:ENDPAGE() ENDIF ELSE IF NETI = 9 NETI := 0 LN := 0 ENDPAGE PAGE ENDIF ENDIF ENDDO SELE 26 SKIP // UNLOCK //?? ENDDO IF IMP = 1 // DESNECESSARIO AO SAIR E SIM NO ACTIVATE DA IMPRESSAO. // OPRN:LZERABUFFER := .F. // PULAR PÁGINA=.F. NÃO PULAR=.T. OPRN:ENDPAGE() OPRN:END() /* oPrn:EndPage() oPrn:End() //--- imprime no spool do windows, liberando o micro para trabalhar. ImpSpool( "ETIQUETA.TXT",, .F. ) //--- opcionamente pode-se apagar o arquivo passando .t. no 3o. parametro. */ ELSE ENDPAGE ENDPRINT ENDIF ENDIF IF VRAD2 = 2 // DUAS COL. SELE 4 ZAP //************************** Adiciona os produtos na Matriz SELE 26 GO TOP WHILE .NOT. EOF() SYSREFRESH() PRO := PRODUTO COP := QUANTIDADE XCO := 0 WHILE XCO < COP SYSREFRESH() SELE 4 INCREG2() REPL PRODUTO WITH PRO // NAO E RECOMENDAVEL AQUI. NO WHILE. // UNLOCK // COMMIT XCO := XCO + 1 ENDDO SELE 26 SKIP //UNLOCK ENDDO // RECOMENDAVEL Joao COMMIT UNLOCK //************************************** LN := 1.52 NETI := 0 XCO := 0 SELE 4 GO TOP WHILE .NOT. EOF() SYSREFRESH() IF IMP = 1 // NETI := 0 // LN := 0 // OPRN:ENDPAGE() ELSE IF NETI = 10 NETI := 0 LN := 1.52 XCO := 0 ENDPAGE PAGE ENDIF ENDIF PRO1 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO1, 13 ) DPRO1 := DESCRICAO PRE1 := PRECO VIS1 := PREVIS PER1 := ( ( PRE1 * 100 )/VIS1 ) - 100 SELE 4 SKIP // UNLOCK //?? IF .NOT. EOF() PRO2 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO2, 13 ) DPRO2 := DESCRICAO PRE2 := PRECO VIS2 := PREVIS PER2 := ( ( PRE2 * 100 )/VIS2 ) - 100 ELSE PRO2 := 0 PRE2 := 0 ENDIF IF IMP = 1 oPrn:Say( LN, 01, EXPRD + STRZERO( PRO1,13 ) + "-" + NOR2 + REDUZIDO + SUBSTR( DPRO1,1,38 ) + ; IIF( PRO2 <> 0, EXPRD + " " + STRZERO( PRO2,13 ) + "-" + NOR2 + REDUZIDO + SUBSTR( DPRO2,1,38 ) + NORMAL, "" ) ) LN := LN + 1 oPrn:Say( LN, 01, EXPRD + " A PRAZO | A VISTA" + IIF( PRO2 <> 0,SPACE(14 ) + " A PRAZO | A VISTA","" ) ) LN := LN + 1 oPrn:Say( LN, 01, EXPRD + "R$" + TRANS( PRE1,"@E 99,999.99" ) + " | R$" + TRANS( VIS1,"@E 99,999.99" ) + ; IIF( PRO2 <> 0, EXPRD + SPACE( 11 ) + "R$" + TRANS( PRE2,"@E 99,999.99" ) + " | R$" + TRANS( VIS2,"@E 99,999.99" ) + NOR2, "" ) ) LN := LN + 1 oPrn:Say( LN, 01, REDUZIDO + "1X R$" + TRANS( PRE1,"@E 999.99" ) + " (30 Dias) |" + ; IIF( PRO2 <> 0, SPACE( 49 ) + "1X R$" + TRANS( PRE2,"@E 999.99" ) + " (30 Dias) |", "" ) ) LN := LN + 1 oPrn:Say( LN, 01, "Tot R$" + TRANS( PRE1,"@E 999.99" ) + " % Acr. " + STR( PER1,5,2 ) + " |" + ; IIF( PRO2 <> 0, SPACE( 49 ) + "Tot R$" + TRANS( PRE2,"@E 999.99" ) + " % Acr. " + STR( PER2,5,2 ) + " |" + NORMAL, "" ) ) LN := LN + 2 // oPrn:Say(LN,01,REDUZIDO + "1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias) |" +; // IIF(PRO2<>0,SPACE(49) + IIF(STR(PRE2,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE2/2,"@E 999.99") + " (30/60 Dias) |","1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias) |"),"")) // oPrn:Say(LN,01,REDUZIDO + IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias) |","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias) |") +; // IIF(PRO2<>0,SPACE(49) + IIF(STR(PRE2,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE2/2,"@E 999.99") + " (30/60 Dias) |","1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias) |"),"")) ELSE oPrn:CMSay( LN, 2, " " + STRZERO( PRO1,13 ) + IIF( PRO2 <> 0,SPACE(28 ) + STRZERO(PRO2,13 ),"" ), OFNT2 ) // IF XCO = 0 // Na Primeira estiqueta tem que pular mais (Não sei Pq) // LN := LN + 0.7 // ELSE LN := LN + 0.4 // ENDIF XCO := 1 oPrn:CMSay( LN, 0.8, SUBSTR( DPRO1,1,38 ), OFNT3 ) IF PRO2 <> 0 oPrn:CMSay( LN, 11.5, SUBSTR( DPRO2,1,38 ), OFNT3 ) ENDIF LN = LN + 0.4 oPrn:CMSay( LN, 0, " A PRAZO | A VISTA " + IIF( PRO2 <> 0,"A PRAZO | A VISTA","" ), OFNT5 ) LN = LN + 0.4 oPrn:CMSay( LN, 0, " R$" + TRANS( PRE1,"@E 99,999.99" ) + " | R$" + TRANS( VIS1,"@E 99,999.99" ) + ; IIF( PRO2 <> 0, " R$" + TRANS( PRE2,"@E 99,999.99" ) + " | R$" + TRANS( VIS2,"@E 99,999.99" ), "" ), OFNT5 ) LN = LN + 0.4 oPrn:CMSay( LN, 0.8, "1X R$" + TRANS( PRE1,"@E 99,999.99" ) + " (30 Dias)" , OFNT4 ) IF PRO2 <> 0 oPrn:CMSay( LN, 11.5, "1X R$" + TRANS( PRE2,"@E 99,999.99" ) + " (30 Dias)", OFNT4 ) ENDIF oPrn:CMSay( LN, 0, SPACE( 20 ) + "|" + IIF( PRO2 <> 0,SPACE(39 ) + "|","" ), OFNT5 ) LN = LN + 0.4 oPrn:CMSay( LN, 0.8, "T R$" + TRANS( PRE1,"@E 99,999.99" ) + " % Acr. " + STR( PER1,5,2 ), OFNT4 ) IF PRO2 <> 0 oPrn:CMSay( LN, 11.5, "T R$" + TRANS( PRE2,"@E 99,999.99" ) + " % Acr. " + STR( PER2,5,2 ), OFNT4 ) ENDIF oPrn:CMSay( LN, 0, SPACE( 20 ) + "|" + IIF( PRO2 <> 0,SPACE(39 ) + "|","" ), OFNT5 ) LN = LN + 0.55 // oPrn:CMSay(LN,0,IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias)") +; // IIF(PRO2<>0,SPACE(38)+"1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias)",""),OFNT4) // IIF(PRO2<>0,SPACE(38)+IIF(STR(PRE2,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE2/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias)"),""),OFNT4) // oPrn:CMSay(LN,0,IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias)") +; ENDIF NETI := NETI + 1 SELE 4 IF .NOT. EOF() SKIP // UNLOCK // ?? ENDIF ENDDO IF IMP = 1 // OPRN:LZERABUFFER := .F. // PULAR PÁGINA=.F. NÃO PULAR=.T. OPRN:ENDPAGE() OPRN:END() ELSE // IF NETI <> 10 ENDPAGE // ENDIF ENDPRINT ENDIF ENDIF IF VRAD2 = 3 // TRÊS COL. APENAS JATO DE TINTA SELE 4 ZAP //************************** Adiciona os produtos na Matriz SELE 26 GO TOP WHILE .NOT. EOF() SYSREFRESH() PRO := PRODUTO COP := QUANTIDADE XCO := 0 WHILE XCO < COP SYSREFRESH() SELE 4 INCREG2() REPL PRODUTO WITH PRO /* UNLOCK COMMIT */ XCO := XCO + 1 ENDDO SELE 26 SKIP // UNLOCK ENDDO // RECOMENDAVEL AQUI COMMIT UNLOCK //************************************** LN := 1.52 NETI := 0 XCO := 0 SELE 4 GO TOP WHILE .NOT. EOF() SYSREFRESH() IF NETI = 10 NETI := 0 LN := 1.52 XCO := 0 ENDPAGE PAGE ENDIF PRO1 := PRODUTO //************************ PEGA O 1º PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO1, 13 ) DPRO1 := DESCRICAO PRE1 := PRECO VIS1 := PREVIS PER1 := ( ( PRE1 * 100 )/VIS1 ) - 100 //************************ PEGA O 2º PRODUTO SE TIVER SELE 4 SKIP // UNLOCK IF .NOT. EOF() PRO2 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO2, 13 ) DPRO2 := DESCRICAO PRE2 := PRECO VIS2 := PREVIS PER2 := ( ( PRE2 * 100 )/VIS2 ) - 100 ELSE PRO2 := 0 PRE2 := 0 ENDIF //************************ PEGA O 3º PRODUTO SE TIVER SELE 4 SKIP // UNLOCK IF .NOT. EOF() PRO3 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO3, 13 ) DPRO3 := DESCRICAO PRE3 := PRECO VIS3 := PREVIS PER3 := ( ( PRE3 * 100 )/VIS3 ) - 100 ELSE PRO3 := 0 PRE3 := 0 ENDIF IF IMP = 1 ELSE oPrn:CMSay( LN, 2, " " + STRZERO( PRO1,13 ) + IIF( PRO2 <> 0,SPACE(13 ) + STRZERO(PRO2,13 ),"" ) + IIF( PRO3 <> 0,SPACE(14 ) + STRZERO(PRO3,13 ),"" ), OFNT2 ) // IF XCO = 0 // Na Primeira estiqueta tem que pular mais (Não sei Pq) // LN := LN + 0.7 // ELSE LN := LN + 0.4 // ENDIF XCO := 1 oPrn:CMSay( LN, 0.6, DPRO1, OFNT6 ) IF PRO2 <> 0 oPrn:CMSay( LN, 7.4, DPRO2, OFNT6 ) ENDIF IF PRO3 <> 0 oPrn:CMSay( LN, 14.0, DPRO3, OFNT6 ) ENDIF LN = LN + 0.4 oPrn:CMSay( LN, 0, " A PRAZO | A VISTA " + IIF( PRO2 <> 0,"A PRAZO | A VISTA ","" ) + IIF( PRO3 <> 0,"A PRAZO | A VISTA","" ), OFNT7 ) LN = LN + 0.4 oPrn:CMSay( LN, 0, " R$" + TRANS( PRE1,"@E 99,999.99" ) + " R$" + TRANS( VIS1,"@E 99,999.99" ) + ; IIF( PRO2 <> 0, " R$" + TRANS( PRE2,"@E 99,999.99" ) + " R$" + TRANS( VIS2,"@E 99,999.99" ), "" ) + ; IIF( PRO3 <> 0, " R$" + TRANS( PRE3,"@E 99,999.99" ) + " R$" + TRANS( VIS3,"@E 99,999.99" ), "" ), OFNT9 ) oPrn:CMSay( LN, 0, SPACE( 13 ) + "|" + IIF( PRO2 <> 0,SPACE(26 ) + "|","" ) + IIF( PRO3 <> 0,SPACE(24 ) + "|","" ), OFNT7 ) LN = LN + 0.4 oPrn:CMSay( LN, 0.6, "1X R$" + TRANS( PRE1,"@E 99,999.99" ) + " (30 Dias)" , OFNT8 ) IF PRO2 <> 0 oPrn:CMSay( LN, 7.6, "1X R$" + TRANS( PRE2,"@E 99,999.99" ) + " (30 Dias)", OFNT8 ) ENDIF IF PRO3 <> 0 oPrn:CMSay( LN, 14.2, "1X R$" + TRANS( PRE3,"@E 99,999.99" ) + " (30 Dias)", OFNT8 ) ENDIF oPrn:CMSay( LN, 0, SPACE( 13 ) + "|" + IIF( PRO2 <> 0,SPACE(26 ) + "|","" ) + IIF( PRO3 <> 0,SPACE(24 ) + "|","" ), OFNT7 ) LN = LN + 0.4 oPrn:CMSay( LN, 0.6, "T R$" + TRANS( PRE1,"@E 99,999.99" ) + " %Ac. " + STR( PER1,5,2 ), OFNT8 ) IF PRO2 <> 0 oPrn:CMSay( LN, 7.6, "T R$" + TRANS( PRE2,"@E 99,999.99" ) + " %Ac. " + STR( PER2,5,2 ), OFNT8 ) ENDIF IF PRO3 <> 0 oPrn:CMSay( LN, 14.2, "T R$" + TRANS( PRE3,"@E 99,999.99" ) + " %Ac. " + STR( PER3,5,2 ), OFNT8 ) ENDIF oPrn:CMSay( LN, 0, SPACE( 13 ) + "|" + IIF( PRO2 <> 0,SPACE(26 ) + "|","" ) + IIF( PRO3 <> 0,SPACE(24 ) + "|","" ), OFNT7 ) LN = LN + 0.55 // oPrn:CMSay(LN,0,IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias)") +; // IIF(PRO2<>0,SPACE(38)+"1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias)",""),OFNT4) // IIF(PRO2<>0,SPACE(38)+IIF(STR(PRE2,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE2/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE2,"@E 999.99") + " (30 Dias)"),""),OFNT4) // oPrn:CMSay(LN,0,IIF(STR(PRE1,10,2) > STR(100,10,2),"2X R$" + TRANS(PRE1/2,"@E 999.99") + " (30/60 Dias)","1X R$" + TRANS(PRE1,"@E 999.99") + " (30 Dias)") +; ENDIF NETI := NETI + 1 SELE 4 IF .NOT. EOF() SKIP // UNLOCK // ??? ENDIF ENDDO IF IMP = 1 // OPRN:LZERABUFFER:=.F. // PULAR PÁGINA=.F. NÃO PULAR=.T. OPRN:ENDPAGE() OPRN:END() ELSE // IF NETI <> 10 ENDPAGE // ENDIF ENDPRINT ENDIF ENDIF IF VRAD2 = 4 // CINCO COL. SELE 4 ZAP //************************** Adiciona os produtos na Matriz SELE 26 GO TOP WHILE .NOT. EOF() SYSREFRESH() PRO := PRODUTO COP := QUANTIDADE XCO := 0 WHILE XCO < COP SYSREFRESH() SELE 4 INCREG2() REPL PRODUTO WITH PRO /* UNLOCK COMMIT */ XCO := XCO + 1 ENDDO SELE 26 SKIP // UNLOCK //??? VICIO OCULTO? ENDDO // RECOMENDAVEL COMMIT // 1 UNLOCK // 2 //************************************** LN := 0 NETI := 0 XCO := 0 SELE 4 GO TOP WHILE .NOT. EOF() SYSREFRESH() // MAUDRUIDAS: STORE 0 TO PRO2, PRO3, PRO4, PRO5 // MELHOR POR NO INICIO DO MODULO // PODE TRAVAR O PROGRAMA. // ISSO PODE SER REPITIR MILHOES DE X. PRO1 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO1, 13 ) DPRO1 := DESCRICAO PRE1 := PRECO VIS1 := PREVIS PER1 := ( ( PRE1 * 100 )/VIS1 ) - 100 SELE 4 SKIP // UNLOCK //?? IF .NOT. EOF() PRO2 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO2, 13 ) DPRO2 := DESCRICAO PRE2 := PRECO VIS2 := PREVIS PER2 := ( ( PRE2 * 100 )/VIS2 ) - 100 SELE 4 SKIP // UNLOCK IF .NOT. EOF() PRO3 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO3, 13 ) DPRO3 := DESCRICAO PRE3 := PRECO VIS3 := PREVIS PER3 := ( ( PRE3 * 100 )/VIS2 ) - 100 SELE 4 SKIP // UNLOCK /// POHHHHAA.... KKKKKK IF .NOT. EOF() PRO4 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO4, 13 ) DPRO4 := DESCRICAO PRE4 := PRECO VIS4 := PREVIS PER4 := ( ( PRE4 * 100 )/VIS2 ) - 100 SELE 4 SKIP // UNLOCK //??? IF .NOT. EOF() PRO5 := PRODUTO SELE 11 SET ORDER TO 1 SEEK STR( PRO5, 13 ) DPRO5 := DESCRICAO PRE5 := PRECO VIS5 := PREVIS PER5 := ( ( PRE5 * 100 )/VIS2 ) - 100 ELSE PRO5 := 0 PRE5 := 0 ENDIF ELSE PRO4 := 0 PRE4 := 0 ENDIF ELSE PRO3 := 0 PRE3 := 0 ENDIF ELSE PRO2 := 0 PRE2 := 0 ENDIF IF IMP = 1 oPrn:Say( LN, 0, STRZERO( PRO1,13 ) + " " + ; IIF( PRO2 <> 0, STRZERO( PRO2,13 ), "" ) + " " + ; IIF( PRO3 <> 0, STRZERO( PRO3,13 ), "" ) + " " + ; IIF( PRO4 <> 0, STRZERO( PRO4,13 ), "" ) + " " + ; IIF( PRO5 <> 0, STRZERO( PRO5,13 ), "" ) ) LN := LN + 1 oPrn:Say( LN, 0, "R$" + TRANS( PRE1,"@E 9,999.99" ) + ; IIF( PRO2 <> 0, " R$" + TRANS( PRE2,"@E 9,999.99" ), "" ) + ; IIF( PRO3 <> 0, " R$" + TRANS( PRE3,"@E 9,999.99" ), "" ) + ; IIF( PRO4 <> 0, " R$" + TRANS( PRE4,"@E 9,999.99" ), "" ) + ; IIF( PRO5 <> 0, " R$" + TRANS( PRE5,"@E 9,999.99" ), "" ) ) LN := LN + 2 ELSE oPrn:CMSay( LN, 0, STRZERO( PRO1,13 ) + " " + ; IIF( PRO2 <> 0, STRZERO( PRO2,13 ), "" ) + " " + ; IIF( PRO3 <> 0, STRZERO( PRO3,13 ), "" ) + " " + ; IIF( PRO4 <> 0, STRZERO( PRO4,13 ), "" ) + " " + ; IIF( PRO5 <> 0, STRZERO( PRO5,13 ), "" ), OFNT2 ) IF XCO = 0 // Na Primeira estiqueta tem que pular mais (Não sei Pq) LN := LN + 0.7 ELSE LN := LN + 0.4 ENDIF XCO := 1 oPrn:CMSay( LN, 0, "R$" + TRANS( PRE1,"@E 999.99" ) + ; IIF( PRO2 <> 0, " R$" + TRANS( PRE2,"@E 999.99" ), "" ) + ; IIF( PRO3 <> 0, " R$" + TRANS( PRE3,"@E 999.99" ), "" ) + ; IIF( PRO4 <> 0, " R$" + TRANS( PRE4,"@E 999.99" ), "" ) + ; IIF( PRO5 <> 0, " R$" + TRANS( PRE5,"@E 999.99" ), "" ), OFNT1 ) LN := LN + 0.7 ENDIF NETI := NETI + 1 IF IMP = 1 // NETI := 0 // LN := 0 // OPRN:ENDPAGE() ELSE IF NETI = 9 NETI := 0 LN := 0 XCO := 0 ENDPAGE PAGE ENDIF ENDIF SELE 4 IF .NOT. EOF() SKIP // UNLOCK //??? ENDIF ENDDO IF IMP = 1 // OPRN:LZERABUFFER := .F. // PULAR PÁGINA=.F. NÃO PULAR=.T. OPRN:ENDPAGE() OPRN:END() ELSE IF NETI <> 9 ENDPAGE ENDIF ENDPRINT ENDIF ENDIF RETURN NIL // FIM Abs. Se precisar, avise que eu te envio no seu email, basta dizer em cual, ok? Regards, saludos. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 21, 2022 Report Share Posted September 21, 2022 Maudruidas: Reveja isso: RESIZE16 Se estiver usando 32 bits, isto não é necessario, isto era para FiveWin 16 Bits. Abs. Regards, saludos. Quote Link to comment Share on other sites More sharing options...
maudruidas Posted September 21, 2022 Author Report Share Posted September 21, 2022 Muito obrigado, mais uma vez, vou fazer os ajustes e aviso aqui se deu certo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 22, 2022 Report Share Posted September 22, 2022 Maudruidas, se voce tiver impressora na UBS, por favor teste para mim, e retorne se esta funçao esta funcionando, PLS. //----------------------------------------------------------------------------// // Funcao : ImpSpool( cFileTxt, cPorta, lErase ) // Autor : Ednaldo Rolim (edrol@pop.com.br) // Descricao : Envia um arquivo TXT criado pela TDosPrn para uma // porta de Impressora. //----------------------------------------------------------------------------// FUNCTION ImpSpool( cFileTxt, cPorta, lErase ) LOCAL CPRINTER // para capturar antes da impressão // cPorta := PrnGetPorta() // WinExec( cPorta ) // depois da impressão // WinExex( "Net Use Lpt1: \Delete" ) // Ficou mais facil e simples do que criar as portas na Classe TDosPrn // cPorta := If( cPorta == nil, Alltrim( PrnGetPort() ), cPorta ) ; lErase := If( lErase == nil, .T., lErase ); // cPorta := PrnGetPort() Default cPorta := Alltrim( PrnGetPort() ), lErase:= .t. cPrinter := PrinterPortToName( cPorta ) IF EMPTY( cPrinter ) cPrinter := PrinterPortToName( "USB002" ) IF EMPTY(cPrinter) cPrinter := PrinterPortToName( "USB001" ) IF EMPTY(cPrinter) cPrinter := PrinterPortToName( "USB003" ) ENDIF ENDIF ENDIF IF .NOT. FILE( cFileTxt ) MsgInfo( OemToAnsi( "NÇO ACHEI O ARQUIVO MODO TEXTO PARA IMPRIMIR NA MATRICIAL" ), ; OemToAnsi( "NÇO ACHEI O ARQUIVO MODO TEXTO PARA IMPRIMIR NA MATRICIAL" ) ) RETURN( .F. ) ENDIF IF .NOT. EMPTY( cPrinter ) // TEM USB PrintFileRaw( cPrinter, TrueName( "CUPOM.TXT" ), "Impressão de Vendas" ) ELSEIF LEN( cPorta ) <= 5 .and. Left( Upper(cPorta), 4 ) = "LPT1" //--- Spool Local - Matricial em LPT1 cPorta:= "PRN" WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) ELSE //--- Spool Remoto - Matricial em LPT1 WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) ENDIF IF lErase // Vem .T. da tela de vendas FERASE( cFileTxt ) ENDIF RETURN( .T. ) gracias, thanks Regards, saludos. Quote Link to comment Share on other sites More sharing options...
maudruidas Posted September 22, 2022 Author Report Share Posted September 22, 2022 Bom dia, minha impressora matricial não é USB, é paralelo. Continua dando o mesmo erro, observei que dentro desta Classe (Tdosprn.prg) não existe esta opção OPRN:LZERABUFFER será que nesta versão fivewin está faltando eu compilar algo? Veja minha compilação: @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for xHarbour 21.02 - Feb. 2021 Harbour development power ³Ü ECHO ³ (c) FiveTech 1993-2021 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß ECHO Compiling... SET GT=GTGUI SET HDIR=C:\XHARBOUR21 SET FWH=C:\FWH21 SET BCDIR=C:\BCC73 @If Exist SiscPF.exe Del SiscPF.exe @If Exist *.Bak Del *.Bak @If Exist *.Obj Del *.Obj @If Exist *.Log Del *.Log @If Exist *.Map Del *.Map @If Exist *.PPO Del *.Ppo @If Exist *.TDS Del *.TDS @If Exist *.Bc Del *.bc @If Exist *.C Del *.C %hdir%\bin\harbour SiscPF /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Entrada /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Funcoes /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Bematech /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Reorg /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Config /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Sobre /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cademp /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour CADGRU /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relgru /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Codbar /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadsub /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relsub /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadpro /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relpro /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Etipro /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadcli /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcli /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Placli /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relani /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Carani /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadfor /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relfor /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadusu /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relusu /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Pdv /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Senusu /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Vendas /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadest /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadcid /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcid /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadpra /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relpra /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Extrato /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relbal /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relest /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relpat /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Venmen /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Balvpro /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relmais /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Baldia /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Balmes /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relrec /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Atrasin /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Atrana /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Balcon /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Calcpro /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Atusal /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Tabela /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadnot /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadcfo /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcfo /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Compras /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relnot /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Emicom /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relacom /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Carpag /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Compagsi /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Pagfre /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Conpag /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Conpagan /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relbxpg /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Atrap2 /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Orca /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Emiorc /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relorc /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Caddav /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Emidav /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Emicdav /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Reldav /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Impdav /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadche /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadban /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relban /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relche /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadibpt /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relibpt /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Eminfe4 /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Importa /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Gerar /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadcai /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadcon /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcoc /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadcons /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcos /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcai /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relsin /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcai2 /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcai3 /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcai5 /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadord /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadtab /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Reltab /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadtabpr /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcup /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Gerbal /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relpatv /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Senger /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Senmod /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relvpro /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Altppro /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relmin /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Financ /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Confven /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcsin /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcana /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Conspre /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Emidav2 /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Promono /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Proncm /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Calcus /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cotacao /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Bxcli /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Recibo /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Bxfor /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Cadcta /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Relcta /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour Code128 /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour ./include/Timprime /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log %hdir%\bin\harbour ./include/Utilprn /n /i%fwh%\include;%hdir%\include /p %2 %3 > clip.log @type clip.log IF ERRORLEVEL 1 PAUSE IF ERRORLEVEL 1 GOTO EXIT %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include SiscPF.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Entrada.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Funcoes.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Bematech.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Reorg.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Config.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Sobre.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cademp.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadgru.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relgru.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Codbar.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadsub.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relsub.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadpro.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relpro.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Etipro.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadcli.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcli.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Placli.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relani.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Carani.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadfor.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relfor.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadusu.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relusu.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Pdv.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Senusu.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Vendas.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadest.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadcid.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcid.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadpra.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relpra.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Extrato.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relbal.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relest.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relpat.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Venmen.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Balvpro.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relmais.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Baldia.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Balmes.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relrec.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Atrasin.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Atrana.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Balcon.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Calcpro.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Atusal.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Tabela.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadnot.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadcfo.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcfo.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Compras.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relnot.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Emicom.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relacom.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Carpag.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Compagsi.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Pagfre.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Conpag.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Conpagan.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relbxpg.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Atrap2.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Orca.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Emiorc.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relorc.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Caddav.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Emidav.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Emicdav.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Reldav.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Impdav.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadche.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadban.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relban.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relche.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadibpt.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relibpt.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Eminfe4.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Importa.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Gerar.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadcai.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadcon.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcoc.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadcons.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcos.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcai.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relsin.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcai2.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcai3.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcai5.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadord.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadtab.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Reltab.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadtabpr.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcup.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Gerbal.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relpatv.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Senger.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Senmod.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relvpro.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Altppro.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relmin.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Financ.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Confven.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcsin.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcana.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Conspre.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Emidav2.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Promono.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Proncm.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Calcus.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cotacao.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Bxcli.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Recibo.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Bxfor.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Cadcta.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Relcta.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Code128.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Timprime.C >> clip.log %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include Utilprn.C >> clip.log echo -O2 -eSiscPF.exe -I%hdir%\include SiscPF.c > b32.bc %bcdir%\bin\bcc32 -M -c -v @b32.bc :ENDCOMPILE echo c0w32.obj + > b32.bc echo SiscPF.obj + >> b32.bc echo Entrada.obj + >> b32.bc echo Funcoes.obj + >> b32.bc echo Bematech.obj + >> b32.bc echo Reorg.obj + >> b32.bc echo Config.obj + >> b32.bc echo Sobre.obj + >> b32.bc echo Cademp.Obj + >> b32.bc echo CADGRU.Obj + >> b32.bc echo Relgru.Obj + >> b32.bc echo Codbar.Obj + >> b32.bc echo Cadsub.Obj + >> b32.bc echo Relsub.Obj + >> b32.bc echo Cadpro.Obj + >> b32.bc echo Relpro.Obj + >> b32.bc echo Etipro.Obj + >> b32.bc echo Cadcli.Obj + >> b32.bc echo Relcli.Obj + >> b32.bc echo Placli.Obj + >> b32.bc echo Carani.Obj + >> b32.bc echo Relani.Obj + >> b32.bc echo Cadfor.Obj + >> b32.bc echo Relfor.Obj + >> b32.bc echo Cadusu.Obj + >> b32.bc echo Relusu.Obj + >> b32.bc echo Pdv.Obj + >> b32.bc echo Senusu.Obj + >> b32.bc echo Vendas.Obj + >> b32.bc echo Cadest.Obj + >> b32.bc echo Cadcid.Obj + >> b32.bc echo Relcid.Obj + >> b32.bc echo Cadpra.Obj + >> b32.bc echo Relpra.Obj + >> b32.bc echo Extrato.Obj + >> b32.bc echo Relbal.Obj + >> b32.bc echo Relest.Obj + >> b32.bc echo Relpat.Obj + >> b32.bc echo Venmen.Obj + >> b32.bc echo Balvpro.Obj + >> b32.bc echo Relmais.Obj + >> b32.bc echo Baldia.Obj + >> b32.bc echo Balmes.Obj + >> b32.bc echo Relrec.Obj + >> b32.bc echo Atrasin.Obj + >> b32.bc echo Atrana.Obj + >> b32.bc echo Balcon.Obj + >> b32.bc echo Calcpro.Obj + >> b32.bc echo Atusal.Obj + >> b32.bc echo Tabela.Obj + >> b32.bc echo Cadnot.Obj + >> b32.bc echo Cadcfo.Obj + >> b32.bc echo Relcfo.Obj + >> b32.bc echo Compras.Obj + >> b32.bc echo Relnot.Obj + >> b32.bc echo Emicom.Obj + >> b32.bc echo Relacom.Obj + >> b32.bc echo Carpag.Obj + >> b32.bc echo Compagsi.Obj + >> b32.bc echo Pagfre.Obj + >> b32.bc echo Conpag.Obj + >> b32.bc echo Conpagan.Obj + >> b32.bc echo Relbxpg.Obj + >> b32.bc echo Atrap2.Obj + >> b32.bc echo Orca.Obj + >> b32.bc echo Emiorc.Obj + >> b32.bc echo Relorc.Obj + >> b32.bc echo Caddav.Obj + >> b32.bc echo Emidav.Obj + >> b32.bc echo Emicdav.Obj + >> b32.bc echo Reldav.Obj + >> b32.bc echo Impdav.Obj + >> b32.bc echo Cadche.Obj + >> b32.bc echo Cadban.Obj + >> b32.bc echo Relban.Obj + >> b32.bc echo Relche.Obj + >> b32.bc echo Cadibpt.Obj + >> b32.bc echo Relibpt.Obj + >> b32.bc echo Eminfe4.Obj + >> b32.bc echo Importa.Obj + >> b32.bc echo Gerar.Obj + >> b32.bc echo Cadcai.Obj + >> b32.bc echo Cadcon.Obj + >> b32.bc echo Relcoc.Obj + >> b32.bc echo Cadcons.Obj + >> b32.bc echo Relcos.Obj + >> b32.bc echo Relcai.Obj + >> b32.bc echo Relsin.Obj + >> b32.bc echo Relcai2.Obj + >> b32.bc echo Relcai3.Obj + >> b32.bc echo Relcai5.Obj + >> b32.bc echo Cadord.Obj + >> b32.bc echo Cadtab.Obj + >> b32.bc echo Reltab.Obj + >> b32.bc echo Cadtabpr.Obj + >> b32.bc echo Relcup.Obj + >> b32.bc echo Gerbal.Obj + >> b32.bc echo Relpatv.Obj + >> b32.bc echo Senger.Obj + >> b32.bc echo Senmod.Obj + >> b32.bc echo Relvpro.Obj + >> b32.bc echo Altppro.Obj + >> b32.bc echo Relmin.Obj + >> b32.bc echo Financ.Obj + >> b32.bc echo Confven.Obj + >> b32.bc echo Relcsin.Obj + >> b32.bc echo Relcana.Obj + >> b32.bc echo Conspre.Obj + >> b32.bc echo Emidav2.Obj + >> b32.bc echo Promono.Obj + >> b32.bc echo Proncm.Obj + >> b32.bc echo Calcus.Obj + >> b32.bc echo Cotacao.Obj + >> b32.bc echo Bxcli.Obj + >> b32.bc echo Recibo.Obj + >> b32.bc echo Bxfor.Obj + >> b32.bc echo Cadcta.Obj + >> b32.bc echo Relcta.Obj + >> b32.bc echo Code128.Obj + >> b32.bc echo Utilprn.Obj + >> b32.bc echo Timprime.Obj + >> b32.bc echo SiscPF.obj >> b32.bc echo SiscPF.exe >> b32.bc echo SiscPF.map >> b32.bc echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib %fwh%\lib\libmysql.lib + >> b32.bc echo .\include\CODBAR.lib + >> b32.bc echo %fwh%\lib\pgsql.lib + >> b32.bc echo %fwh%\lib\libpq.lib + >> b32.bc echo %hdir%\lib\hbhpdf.lib + >> b32.bc echo %hdir%\lib\libharu.lib + >> b32.bc echo %hdir%\lib\png.lib + >> b32.bc echo %hdir%\lib\rtl.lib + >> b32.bc echo %hdir%\lib\vm.lib + >> b32.bc rem echo %hdirl%\%GT%.lib + >> b32.bc echo %hdir%\lib\gtgui.lib + >> b32.bc echo %hdir%\lib\lang.lib + >> b32.bc echo %hdir%\lib\macro.lib + >> b32.bc echo %hdir%\lib\rdd.lib + >> b32.bc echo %hdir%\lib\dbfntx.lib + >> b32.bc echo %hdir%\lib\dbfcdx.lib + >> b32.bc echo %hdir%\lib\dbffpt.lib + >> b32.bc echo %hdir%\lib\hbsix.lib + >> b32.bc echo %hdir%\lib\debug.lib + >> b32.bc echo %hdir%\lib\common.lib + >> b32.bc echo %hdir%\lib\codepage.lib + >> b32.bc echo %hdir%\lib\pp.lib + >> b32.bc echo %hdir%\lib\pcrepos.lib + >> b32.bc echo %hdir%\lib\ct.lib + >> b32.bc echo %hdir%\lib\zlib.lib + >> b32.bc echo %hdir%\lib\hbzip.lib + >> b32.bc echo %hdir%\lib\libmisc.lib + >> b32.bc echo %hdir%\lib\tip.lib + >> b32.bc echo %hdir%\lib\hbzebra.lib + >> b32.bc echo %hdir%\lib\png.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\uuid.lib + >> b32.bc echo %bcdir%\lib\ws2_32.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc echo Sisc20n.res >> b32.bc %bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built SiscPF GOTO EXIT ECHO rem delete temporary files @del SiscPF.c :LINKERROR ECHO * There are errors GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG SiscPF does not exist :EXIT Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 22, 2022 Report Share Posted September 22, 2022 Bom dia. Meu caro se você não INCORPORAR a classe TDOSPRN.PRG na compilação, como você vai invocá-la? Ela não é NATIVA DO FIVEWIN. Que houve, a IDADE CHEGOU? kkkkkkkkkkkkk tais ficando velho, né? kkkkkkkkkkkkkkkkkkkkkkkkkkkk Regards, saludos. Quote Link to comment Share on other sites More sharing options...
maudruidas Posted September 22, 2022 Author Report Share Posted September 22, 2022 Idade e correria, kkkkkkkk, vou incorporar e te aviso. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.