mkyx

para gerar os botoes e as janelas, usei a rotina abaixo. FUNCTION AD_LABEL(LI,CI,LF,CF,cTEXT,nPLCR,nCLRTEXT,nCLRLINE,nCLRFUNDO,oFONT2,odlg2) local hPen,I,nWidth,hOldPen,NP,C,I0 local nHeight := Abs( oFont2:nHeight ) oDlg2:GetDC() nWidth := GetTextWidth( oDlg2:hDC, cText,if(nPLCR="*",oFont1,oFont2) ) if nWidth < 0 nWidth *=-1 endif hPen := CreatePen( 0, 1, nCLRLINE) hOldPen := SelectObject( oDlg2:hDc, hPen ) MoveTo( oDlg2:hDC, CI+5,LI,HPEN ) IF UPPER(nPLCR)="L" LineTo( oDlg2:hDC, CI+8,LI,HPEN ) MoveTo( oDlg2:hDC, CI+8+nWIDTH+1,LI,HPEN ) ELSEIF UPPER(nPLCR)="C" nP:=(CF-CI-nWIDTH)/2 LineTo( oDlg2:hDC, CI+nP,LI,HPEN ) MoveTo( oDlg2:hDC, CI+nP+nWIDTH+1,LI,HPEN ) ELSEIF UPPER(nPLCR)="R" LineTo( oDlg2:hDC, CF-8-nWIDTH-1,LI,HPEN ) MoveTo( oDlg2:hDC, CF-8,LI,HPEN ) ENDIF LineTo( oDlg2:hDC, CF-5,LI,HPEN ) LineTo( oDlg2:hDC, CF-4,LI+1,HPEN ) LineTo( oDlg2:hDC, CF-3,LI+1,HPEN ) LineTo( oDlg2:hDC, CF-2,LI+2,HPEN ) LineTo( oDlg2:hDC, CF-1,LI+3,HPEN ) LineTo( oDlg2:hDC, CF-1,LI+4,HPEN ) LineTo( oDlg2:hDC, CF,LI+5,HPEN ) LineTo( oDlg2:hDC, CF,LF-5,HPEN ) LineTo( oDlg2:hDC, CF-1,LF-4,HPEN ) LineTo( oDlg2:hDC, CF-1,LF-3,HPEN ) LineTo( oDlg2:hDC, CF-2,LF-2,HPEN ) LineTo( oDlg2:hDC, CF-3,LF-1,HPEN ) LineTo( oDlg2:hDC, CF-4,LF-1,HPEN ) LineTo( oDlg2:hDC, CF-5,LF,HPEN ) LineTo( oDlg2:hDC, CI+5,LF,HPEN ) LineTo( oDlg2:hDC, CI+4,LF-1,HPEN ) LineTo( oDlg2:hDC, CI+3,LF-1,HPEN ) LineTo( oDlg2:hDC, CI+2,LF-2,HPEN ) LineTo( oDlg2:hDC, CI+1,LF-3,HPEN ) LineTo( oDlg2:hDC, CI+1,LF-4,HPEN ) LineTo( oDlg2:hDC, CI,LF-5,HPEN ) LineTo( oDlg2:hDC, CI,LI+5,HPEN ) LineTo( oDlg2:hDC, CI+1,LI+4,HPEN ) LineTo( oDlg2:hDC, CI+1,LI+3,HPEN ) LineTo( oDlg2:hDC, CI+2,LI+2,HPEN ) LineTo( oDlg2:hDC, CI+3,LI+1,HPEN ) LineTo( oDlg2:hDC, CI+4,LI+1,HPEN ) LineTo( oDlg2:hDC, CI+5,LI,HPEN ) SelectObject( oDlg2:hDc, hOldPen ) DeleteObject( hPen ) C:=3 I0:=-1 for i=LI+1 TO LF-1 hPen1 := CreatePen( 0, 1, nCLRFUNDO) IF I>=(LF-3) .and. i0<0 C:=1 I0:=1 endif MoveTo( oDlg2:hDC, CI+1+IF(C=0,1,IF(C>0,C,0)),I,HPEN1 ) LineTo( oDlg2:hDC, CF-IF(C=0,1,IF(C>0,C,0)),I,HPEN1 ) C:=C+I0 next IF UPPER(nPLCR)="L" nP:=CI+8 ELSEIF UPPER(nPLCR)="C" nP:=INT((CF-CI-nWIDTH)/2)+CI ELSEIF UPPER(nPLCR)="R" nP:=CF-8-nWIDTH ELSEIF UPPER(nPLCR)="D" nP:=INT((CF-CI-nWIDTH)/2)+CI //+nWIDTH/2 ELSEIF UPPER(nPLCR)="*" nP:=INT((CF-CI-nWIDTH*2.3)/2)+CI ENDIF RText( oDlg2, cTEXT,IF(UPPER(nPLCR)="*",LI,if(UPPER(nPLCR)="D",(((LF-LI)/2)+LI)-(nHeight/2),LI-nHeight/2)), nP, nClrText, oFont2 ) oDlg2:ReleaseDC() RETURN .T. //----------------------------------------------------------------------------// Function RText( oDLG2,cPrompt,Y,X,nClrText2,oFont2) Local hOldFont, nOldMode, nOldClrText,nOldBkMode * oDlg2:GetDC() nOldClrText:=SetTextColor(oDLG2:hDC,nClrText2) nOldBkMode:=SetBkMode(oDLG2:hDC,1) NoldBkMode:=SetbkMode(nrgb(224,226,222),1) hOldFont:=SelectObject(oDLG2:hDC,oFont2:hFont) TextOut(oDLG2:hDC,Y,X,cPrompt,Len(cPrompt)) SelectObject(oDLG2:hDC,hOldFont) SetBkMode(oDLG2:hDC,nOldBkMode) SetTextColor(oDLG2:hDC,nOldClrText) oDlg2:ReleaseDC() Return NIL FUNCTION Textura(oDlgTxt,aCorBar) LOCAL hWnd:=oDlgTxt:hWnd LOCAL aRec:=GetClientRect(hWnd) LOCAL oBrush,nX,nStp:=(aRec[3]-aRec[1])/2 LOCAL nColor1:=aCorBar[1],nColor2:=aCorBar[2] LOCAL nColorR1:=nRgbRed(nColor1),nColorG1:=nRgbGreen(nColor1),nColorB1:=nRgbBlue(nColor1) LOCAL nColorR2:=nRgbRed(nColor2),nColorG2:=nRgbGreen(nColor2),nColorB2:=nRgbBlue(nColor2) LOCAL nSomaR:=ABS(nColorR2-nColorR1),nSomaG:=ABS(nColorG2-nColorG1),nSomaB:=ABS(nColorB2-nColorB1) nSomaR:=IIF(nSomaR<0,0,(nSomaR/((aRec[3])/2))) nSomaG:=IIF(nSomaG<0,0,(nSomaG/((aRec[3])/2))) nSomaB:=IIF(nSomaB<0,0,(nSomaB/((aRec[3])/2))) *oDlgTxt:GetDC() aRec[3]:=0 FOR nX:=1 TO nStp aRec[3]+=2 DEFINE BRUSH oBrush COLOR nRgb(nColorR1,nColorG1,nColorB1) FillRect(oDlgTxt:hDC,aRec,oBrush:hBrush) RELEASE BRUSH oBrush aRec[1]+=2 nColorR1:=IIF(nColorR2>=nColorR1,nColorR1+nSomaR,nColorR1-nSomaR) nColorG1:=IIF(nColorG2>=nColorG1,nColorG1+nSomaG,nColorG1-nSomaG) nColorB1:=IIF(nColorB2>=nColorB1,nColorB1+nSomaB,nColorB1-nSomaB) NEXT oDlgTxt:ReleaseDC() RETURN(NIL)

Bom dia, fivewinners, Alguém poderia indicar alguns comandos que poderia fazer os mesmos efeitos, resultando a tela abaixo, sem precisar usar os comandos gráficos? Porque usando os comandos gráficos, quando abro a tela umas 10 vezes, as figuras e as cores das janelas ficam tudo preto, perde as cores.

Boa tarde, Algum no grupo, ja tem disponivel um módulo pra fazer comanda de restaurante pra celular? Só o módulo de comanda, onde registra a mesa, o numero de pessas, o garcom, e os itens solicitados Obrigado.

Se for dentro do estado de sao paulo, pode esquecer, não funciona mais. No estado do rio de janeiro, está normal.

Boa noite, Valdir, Como vc disse, seu sistema não tem dado muito trabalho, então, preencha esse espaço de tempo, aprendendo uma nova tecnologia. Para cansaço físico e mental, temos suplementos, que podemos mandar fazer em farmácia de manipulação, como: Vitamina D3 10000 UI, Cloreto de Magnésio treonato 700 mg, Ginseng Panax 100 mg . Metilcobalamina 1 mg, ômega 3, etc. Tudo isso, são comidas de astronautas, são suplementos, que complementam a nossa alimentação, e nos dá mais vigor físico. Parar? Never.

Pessoal, resolvido, usando o comando TTXTFILE():NEW(), acho que eu estava "viajando", (pode ser sobrecarga de serviços a fazer) quando testei esse comando na primeira, pra ter dado errado. Ficou assim: P_DESTINO:="D:\WINSQL" // pasta destino oque_2:="CC.PRG" // nome do prg a ser alterado oque:="LABEL" // comando a ser localizado dentro da linha e alterado para GROUP OQUE_1:="@" // complemento do comando label: @ LI,CI TO LF,CF LABEL "TITULO" OF ODLG PIXEL SS0:=CURDRIVE()+":\"+CURDIR()+"\"+OQUE_2 //arquivo fonte, original ARQ_SPED:=P_DESTINO+"\"+oque_2 // arquivo destino IF !FILE("&ARQ_SPED.") ARQ00=FCREATE("&ARQ_SPED.",0) FCLOSE(ARQ00) ENDIF num:=0 OFILE:=TTXTFILE():NEW("&SS0.") DO WHILE .NOT. OFILE:LEOF() apCode:=OFILE:READLINE() if alltrim(upper(oque))$upper(apcode) .and. OQUE_1="@" .AND. "@"$APCODE .AND. !("GROUP"$upper(apcode)) num:=num+1 SS:="OGRP"+ALLTRIM(STR(NUM))+" " p:=at("TO",UPPER(APCODE)) if p>0 APCODE=STUFF(APCODE,P,0,"GROUP "+SS) endif ENDIF APCODE:=APCODE+chr(13)+chr(10) ARQ00=FOPEN("&ARQ_SPED.",2) FSEEK(ARQ00,0,2) FWRITE(ARQ00,APCODE,LEN(APCODE)) FCLOSE(ARQ00) OFILE:SKIP() ENDDO OFILE:END() USE DBCLOSEALL() ? "FIM" Essa rotina substitue do PRG, o comando: @ LI,CI TO LF,CF LABEL "TITULO" OF ODLG PIXEL por esse: @ LI,CI GROUP OGRP1 TO LF,CF LABEL "TITULO" OF ODLG PIXEL Obrigado a todos, pela contribuição. Até a próxima.

Boa noite rochina, A variável apcode, recebe o resultado da função memoline APCODE:= MemoLine( arq_prg, 500, i, 8, .T. ) Só que memoline, só lê linha de ate 254, e o padrão é 79, se não foi mencionado nenhum valor. e eu preciso de uma função que leia linhas com mais de 254 caracteres. obrigado.

Boa noite, De acordo com o manual do xharbour, a função mlcount, só processa linhas ate 254 caracteres, e o padrão desse comando é 79. Assim, enquanto a rotina pegava linha por linha do prg, só conseguia processar até 254, e eu preciso que precesse a linha inteira. Nos meus prgs, tem linhas até 400 caracteres por linha (linhas com mais de 254 caracteres). Logo, se a função só manipula até 254 caracteres, essas linha ficam truncadas. só B.O. Vou testar essas funçoes: FOpen(), FRead(), FSeek(), FWrite() e FClose()

Boa tarde, fivewinner. Eu sempre usei o comando @ l,c Label, nos meus programas, então, todas as molduras, dentro dos window e dialog, foram feitas com esse comando: @ label Agora, estou precisando alterar todos os comandos @ label, para o @ GROUP, essa rotina de alteração já está ok, mas, o problema está na leitura dos PRGs e regravação, pois, quando uso o comando memoread, mlcount, memoline, e memowrite, não grava a linha inteira, só 79 caracteres, ou só 254 caracteres, e nos meus módulos tem linhas que chega a 500 caracteres por linha como resolver esse problema de ler e regravar linhas com mais de 254 caracteres? como estou fazendo: SS0:=CURDRIVE()+":\"+CURDIR()+"\WINCOM.PRG" arq_prg:=memoread(SS0) NOVO_ARQ:="" QTL := MLCount(arq_prg,500, 8, .T. ) // aqui vc pode alterar para o valor que vc quiser, que não funciona - MLCount(arq_prg) esse comando não funciona tbm FOR I=1 TO QTL APCODE:= MemoLine( arq_prg, 500, i, 8, .T. ) APCODE1:=APCODE if alltrim(upper(oque))$upper(apcode) .and. OQUE_1="@" .AND. "@"$APCODE .AND. !("GROUP"$upper(apcode)) nreg:=nreg+1 SS:="OGRP"+ALLTRIM(STR(NREG))+" " p:=at("TO",UPPER(APCODE)) if p>0 APCODE=STUFF(APCODE,P,0,"GROUP "+SS) endif ENDIF APCODE:=ALLTRIM(APCODE)+chr(13)+chr(10) NOVO_ARQ:=NOVO_ARQ+APCODE NEXT SS1:="D:\WINPRG\WINCOM.PRG" MEMOWRIT(SS1,NOVO_ARQ) ? "O arquivo "+ss0+" foi gravado em "+ss1 Já testei tbm com os camandos, que tbm não funcionam? OFILE:=TTXTFILE():NEW("&SS0.") DO WHILE .NOT. OFILE:LEOF() apCode:=OFILE:READLINE() . . .

corrigindo essa linha: T=T+(VAL(SUBSTR(CODEAN13,I,1))*VAL(SUBSTR(CODEAN13,I,1))) o correto é T=T+(VAL(SUBSTR(CODEAN13,I,1))*VAL(SUBSTR(DIGI,I,1)))

E tenho um software para computador local, onde pelo teclado o funcionário digita o codigo de matricula e uma senha, aceitando até 3 período por dia, manha, tarde, e noite pode registar os dias de feriados do mês (os automáticos não precisa), afastamentos, ferias, etc e emitir o espelho do cartão de ponto, já tudo calculado, horas extras, faltas, atrasos. Mas, o que eu saiba, por lei, só pode usar esses sistemas de computador, para as empresas de até 10 funcionários. Acima de 10 funcionários, tem que comprar o relógio com digital, que sai o ticket na hora de bater o ponto. Isso evita fraude. Para o juiz, o sistema de computador é passivel de fraude, o patrão, pode alterar o horário do funcionário e roubá-lo. Espero ter ajudado.

eu faço assim: // A VARIAVEL CODEAN13 GUARDA O CÓDIGO EAN13 DIGITADO PELO OPERADOR DIGI="131313131313" T=0 FOR I=1 TO 12 T=T+(VAL(SUBSTR(CODEAN13,I,1))*VAL(SUBSTR(CODEAN13,I,1))) NEXT I DIG="0" IF (T/10)>INT(T/10) DIG=STR(((INT(T/10)+1)*10)-T,1) ENDIF IF RIGHT(CODEAN13,1)#DIG MSGINFO("Código de barra inválido!","Favor verificar:") endif

vc pode montar um rotina, para verificar a validade do 13º dígito.

Vixi, quase acertou, não está mais dando erro de ausência da função hb_sha256, agora, só está aparecendo a mensagem que a compilação não pode ser concluida. Deve ser conflito de versão.

Boa noite fivewinner, Alguém sabe como gerar a codificação hb_sha256, quando ao compilar o programa, aparece a mensagem de função inexistente? uso fivewin com o compilador comercial xharbour e tbm não consegui achar a lib, dessa função se alguem puder ajudar, será muito bem vindo essa necessidade é para codificar e assinar os arquivos json, de boletos, para enviar para o banco bradesco, via webservice. Ainda não testei o envio ao banco, até agora, só gerei o arquivos json, e travou na assinatura. Obrigado a todos.

Boa noite, FiveWinners Alguém sabe como deixar os cantos arredondados, no comando que exibe imagens, o IMAGE ? Exemplo do camando: GCFILE:=PASTA_FOTO+"\FOTO000000.JPG" @ 10,10 IMAGE oImage1 SIZE 100,100 OF oWnd PIXEL noborder CURSOR OCURSOR oImage1:Progress( .F. ) oImage1:LoadBmp( gcFile ) oImage1:ltransparent:=.T. oImage1:lStretch:=.T. oImage1:ScrollAdjust() oImage1:Refresh()

eu faria assim, dentro do for/next: for nm=1 to total_de_mesas mesas:=mesa+strzero(nm,3) if &mesas.="aberto" **** exibe o número da mesa, uma figura de uma mesa ocupada, quantidade de pessoas, hora que abriu, e o valor gasto até o monento, dentro de um quadrado ou retângulo com bordas arredondadas ou dentro de um círculo endif next

Kapiaba, o exemplo que vc postou através do mega, tbm não funciona, baixei aqui, executei, gerei o qrcode, mas, o aplicativo do BB não lê. Obrigado.

baixei dessa opção: coloquei no github, divirta-se https://github.com/eduardomotta-emottasistemas/pix_qrcode.git Citar

Bom dia, gerei um qrcode, e fui pagar pelo app do BB, mas, não leu, e nem deu erro, ficou parado na câmera apontado para o qrcode, sem passar para a próxima tela. O que pode ter acontecido?

Boa tarde, fivewinner Alguém sabe explicar o porquê ao compilar a lib xhb.lib, trava as dll do sat e não emite cupom satcfe? uso o xharbour compiler comercial, não atualizado, para compilar minhas aplicações. e para ter certeza, tirei a lib xhb.lib ao compilar e o sat voltou ao normal. Será que pode ser problema de versão do fivewin e as lib do xharbour ? Att. Pompeo Guaratinguetá, SP

Eu faço assim, nessa impressora: Analisa aí, os comandos da impressora arq_file:="TPETI"+STRZERO(T_MAQ,3)+".TXT" oPrn:=TDosPrn():New(arq_file) oPrn:startpage() n_lin:=0 QT00=0 SELECT arq_esto ARQ_ESTO->(DBSETORDER(2)) ARQ_ESTO->(ORDSCOPE(0,"")) ARQ_ESTO->(ORDSCOPE(1,"")) IF CODI>0 SS=STRZERO(CODI,6) ARQ_ESTO->(DBSEEK(SS)) ENDIF IF CODI=0 .AND. CODF=0 ARQ_ESTO->(DBGOTOP()) ENDIF TPE:=TPETIQ COL02:={} A=1 QT1=QTI QT100=QTI AVANCOU:="N" // T_ETIQ:={""} if tpe=1 COL02:={} FOR I=1 TO LEN(COL01) select arq_esto ARQ_ESTO->(DBsetorder(2)) cod:=col01 if ARQ_ESTO->(DBseek(cod)) qt_1:=if("M2"$upper(arq_esto->unidade) .or. "M3"$upper(arq_esto->unidade) .or. "M "$upper(arq_esto->unidade) .or. "M. "$upper(arq_esto->unidade) .or. "METRO"$upper(arq_esto->unidade) .or. "KILO"$upper(arq_esto->unidade) .or. "KG"$upper(arq_esto->unidade) .or. "GR"$upper(arq_esto->unidade) .or. "GRANEL"$upper(arq_esto->unidade) .or. "G. "$upper(arq_esto->unidade),1,ARQ_ESTO->QUANTIDADE) qt100:=iif(qti=0,QT_1,qti) qt100:=if(qt100<=0,1,qt100) FOR Z=1 TO QT100 AADD(COL02,COD) NEXT ENDIF NEXT FOR I=1 TO LEN(COL03) select arq_esto ARQ_ESTO->(DBsetorder(2)) cod:=col03[i,1] qt100:=col03[i,4] if qt100>0 if ARQ_ESTO->(DBseek(cod)) qt100:=if(qt100<=0,1,qt100) FOR Z=1 TO QT100 AADD(COL02,COD) NEXT ENDIF endif NEXT qt100:=-10 N_QT:=0 CETIQ:=0 POS:=0 if len(col02)>0 ** oPrn:Say(0,0,CHR(2)+"e"+CHR(13)) oPrn:Say(0,0,CHR(2)+"KI70"+CHR(13)) oPrn:Say(0,0,CHR(2)+"m"+CHR(13)) oPrn:Say(0,0,CHR(2)+"M0300"+CHR(13)) oPrn:Say(0,0,CHR(2)+"L"+CHR(13)) oPrn:Say(0,0,"H16"+CHR(13)) oPrn:Say(0,0,"D11"+CHR(13)) ** oPrn:Say(0,0,"c0300"+CHR(13)) if etiqi=2 POS1:=30+537 POS2:=320+537 POS3:=420+537 POS4:=288+537 POS5:=400+537 POS6:=20+537 POS7:=30+537 else POS1:=30 POS2:=320 POS3:=420 POS4:=288 POS5:=400 POS6:=20 POS7:=30 endif for i_1:=1 to len(col02) select arq_esto set order to 2 cod:=col02[i_1] seek cod if ARQ_ESTO->(found()) qt100:=iif(qt100=0,int(arq_esto->quantidade),qt100) qt100:=if(qt100<=0,1,qt100) DE:=alltrim(left(ARQ_ESTO->DESCRICAO,35)) PU:=ARQ_ESTO->AVISTA LOTE:=ARQ_ESTO->COD_EAN13 IF VAL(ALLTRIM(LOTE))=0 LOTE:=ARQ_ESTO->CODIGO ENDIF IF LEN(ALLTRIM(STR(VAL(LOTE),13)))<=12 LOTE:=LEFT(LOTE,12) LOTE:=ALLTRIM(STR(VAL(LOTE),13)) LOTE:="789"+STRZERO(VAL(LOTE),9) DIGI:="131313131313" T=0 FOR I0=1 TO 12 T:=T+(VAL(SUBSTR(LOTE,I0,1))*VAL(SUBSTR(DIGI,I0,1))) NEXT I0 DIG="0" IF (T/10)>INT(T/10) DIG:=STR(((INT(T/10)+1)*10)-T,1) ENDIF LOTE:=LOTE+DIG ELSE LOTE:=COD_EAN13 ENDIF ** oPrn:Say(0,0,"19110030197"+STRZERO(POS1,4)+NO_E+CHR(13)) ** oPrn:Say(0,0,"1X1100001000200L200010") oPrn:Say(0,0,"19110000215"+STRZERO(POS1,4)+NO_E+CHR(13)) oPrn:Say(0,0,"19110020210"+STRZERO(POS5,4)+str(val(cod))+CHR(13)) ** oPrn:Say(0,0,"1 3 1 2 000 0160 0050"+DE+CHR(13)) clin3:="R$" oPrn:Say(0,0,"19110030165"+STRZERO(POS2+25,4)+cLin3+CHR(13)) IF AVI clin2:=TRANSFORM(AVISTA,"@E 999999.99") clin3:="Av" oPrn:Say(0,0,"19110030165"+STRZERO(POS3,4)+cLin3+CHR(13)) ELSE clin2:=TRANSFORM(APRAZO,"@E 999999.99") clin3:="Ap" oPrn:Say(0,0,"19110030165"+STRZERO(POS3,4)+cLin3+CHR(13)) ENDIF oPrn:Say(0,0,"19110050082"+STRZERO(POS4+20,4)+cLin2+CHR(13)) ** oPrn:Say(0,0,"19110010060"+STRZERO(POS5,4)+str(val(cod))+CHR(13)) CTIPBAR:="F" CBAR:=LOTE ** oPrn:Say(0,0,"1"+cTipBar+"3 2 060 0015"+STRZERO(POS1,4)+cBar+CHR(13)) oPrn:Say(0,0,"1"+cTipBar+"321000075"+STRZERO(POS6,4)+cBar+CHR(13)) ** oPrn:Say(0,0,"1 2 1 2 000 0030 0015"+DE+CHR(13)) oPrn:Say(0,0,"19110020012"+STRZERO(POS7,4)+DE+CHR(13)) oPrn:Say(0,0,"Q0001"+CHR(13)) POS1:=30+537 POS2:=320+537 POS3:=420+537 POS4:=288+537 POS5:=400+537 POS6:=20+537 POS7:=30+537 IF (INT(I_1/2)=I_1/2 .AND. I_1<LEN(COL02) .and. etiqi=1) .or. (etiqi=2 .and. INT(I_1/2)#I_1/2 .AND. I_1<LEN(COL02)) oPrn:Say(0,0,CHR(2)+"F"+CHR(13)) oPrn:Say(0,0,"E"+CHR(13)) oPrn:Say(0,0,CHR(2)+"m"+CHR(13)) oPrn:Say(0,0,CHR(2)+"M0500"+CHR(13)) oPrn:Say(0,0,CHR(2)+"L"+CHR(13)) oPrn:Say(0,0,"H10"+CHR(13)) oPrn:Say(0,0,"D11"+CHR(13)) POS1:=30 POS2:=320 POS3:=420 POS4:=288 POS5:=400 POS6:=20 POS7:=30 ENDIF endif next oPrn:Say(0,0,CHR(2)+"f220"+CHR(13)) oPrn:Say(0,0,"E"+CHR(13)) endif ENDIF oPrn:EndPage() oPrn:End() printfileraw(cprinter,TrueName(arq_file))

O pessoal só vai realmente compilar em 64 bits, quando sair sistema operacional de 128 bits, que só vai aceitar exe compilados em 64 bits e 128 bits. Mas, por enquanto como os sistemas operacionais são 64 bits e aceitam exe 32 e 64, vamos ficar com 32 bits. Eu acredito que compilar fivewin 64 bits, é top, e a performance do programa, vai ficar melhor. Em breve, quero migrar pro 64 bits, tbm. Pompeo Guaratinguetá, SP

Bom dia, já testou emitir sem a IE ? Consultando o sintegra.gov.br, o BB não é contribuinte de ICMS.

ACHEI O ARQUIVO, FAVOR IGNORAR, ESSA REQUISIÇÃO Mas, mesmo com o arquivo CODEBAR.CH, continua dando erro de leitura, pelo App do BB. Olá, AGP.DS, fui compilar a sua versão, mas, não tenho o arquivo CODEBAR.CH Onde posso baixá-lo?