mkyx

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?

testei com o app do BB e deu parametros invalidos

Só exibir na lista abaixo, os carro cuja descrição contenha a palavra da busca, que está sendo realizada, não é o suficiente?

A dll foi instalada através do exe da flexdocs e não dá nenhum erro. Eu pensei em registrar manualmente com regAsm.exe. Mas, não vou mais quebrar a cabeça com esse erro, formata e tudo se resolve.

Pessoal, eu acredito que foi alguma formatação fora do padrao, não sei como, porque acabei de pegar um computador formatado por outro tecnico, zero bala, e funcionou de primeira, e tbm, nesta mesma firma, tem um notebook com win11, que está emitindo nfe normalmente, então, resolvi mandar pra formatação, de novo, em outro tecnico.

Estou trabalhando com windows 10 pro

Bom dia, shalom, grandes guerreiros Eu tenho um cliente que o computador principal/servidor tinha win7 64 bits, e estava emitindo NFe via dll da flexdocs normalmente, mas, devidos a alguns pepinos do win7 que já morreu, esse computador foi formatado e instalado win10 pro. Então, instalei a última versão da dll, da flexdocs, e quando fui emitir a nfe, aparece a mensagem que a nfe_util não foi encontrada no computador, e o erro é justamente na linha, onde vai criar o objeto da dll, cuja linha é essa: objoNfeUtil := CreateObject( "NFe_Util_2G.util" ) Uma pergunta: Existe outros comandos além do CREATEOJECT, que eu possa substituir para criar esse objeto? Pois, ja fiz de tudo, já habilitei o dotnet no painel de controle em programas e recursos, pois estava desabilitado, desabilitei o firewall do windows, o antivirus avast, já coloque o nome da pasta do sistema dentro da lista de excessão do antivirus e do windows defender, já instalei uma versão anterior da dll da flexdocs, várias vezes, e nada até agora. Estou quase solicitando ao cliente, para levar o computador em outro tecnico para formatar e instalar o wind10 pro novamente. Desde já, eu agradeço por toda ajudar que vier. Grato Jose Adenildo/mkyx (codename: Pompeo) Guaratingueta, SP

Boa noite, fivewinner. Alguém já conseguiu gerar a chave PIx e o qr-code dessa chave? Gratidão a todos que puderem ajudar. Pompeo Guaratinguetá , SP

RESOLVIDO O erro era que na comprar de um novo certificado, deve-se enviar uma cópia do novo certificado para a sefaz.

A softhouse tem que enviar uma cópia do certificado digital da softhouse para a sefaz? Como faço isso? É porque não estou me lembrando como se faz, essa operação. Obrigado.

Olá, boa tarde, Favor explicar o termo: cadastrado na retaguarda do SAT como assim? cadastrado dentro do site da sefaz responsável pelas operações realizados via sat-cfe ?

Boa tarde, pessoal, Alguém saberia explicar o problema que está acontecendo comigo. Eu tenho dois programas que geram o codigo de vinculação para o sat-cfe, que é o programa da tanca e o programa da technospeed, ambos, geram codigo de vinculação usando o certificado digital A1. E os codigos gerados não iguais nos dois programas. Porem, quando vai fazer a vinculação usado o programa do sat, ou mesmo, se ficar a validação desse codigo de vinculação , dentro do site da sefaz, onde as softhouses mantém os seus cadastros, aparece a mensagem de codigo de vinculação INVÁLIDO. Alguém saberia ajudar, como resolver esse caso. Gratidão Pompeo - Guaratinguetá - SP

Eu tbm uso o capicom, para pegar os dados do certificado.

Boa tarde, Tenho um cliente com windows 7 professional 32 bits, e quando executa o camando abaixo, para enviar e-mail, através da dll da flexdocs, aparece esse erro: DISP_E_MEMBERNOTFOUND: ENVEMAIL, e fecha o programa. A linha que é executada para enviar o email é essa: objNFeUtil := CreateObject("NFe_Util_2G.util") cResultado := objNFeUtil:EnvEmail(eMailRemetente, nomeRemetente, eMailDestinatario, eMailBcc, assunto, mensagem, arquivos, smtpCliente, smtpPorta, smtpSSL, smtpUsuario, smtpSenha, HTML, confirmacao, msgResultado) Em todos os outros clientes, está funcionando normalmente. Alguém já passou por isso? Obrigado.

A solução é usar o email do site do cliente, ou o email do próprio site da softhouse.

Boa noite, pessoal Por que será que a rotina abaixo, de buscar os dados do cnpj na internet, não funciona no windows 7, e dá o erro? Quando não lê, emite a mensagem: "Não conseguiu enviar solicitação para requisição dos dados do CNPJ" FUNCTION PEGA_CNPJ(CPF_C,OBJ01_C,FAN_C,OBJ02_C,NE_C,OBJ03_C,CE_C,OBJ04_C,EN_C,OBJ05_C,NU_C,OBJ06_C,CPL_C,OBJ07_C,BA_C,OBJ08_C,CD_C,OBJ09_C,UF_C,OBJ10_C,DTN_C,OBJ11_C,TEL_C,OBJ12_C,EM_C,OBJ13_C,IEST_C,OBJ14_C,SIM_NAC,OBJ15_C) Local oServerWS, cUrl, aArray, oCnpj:= TIRA(CPF_C,"Z") IF LEN(oCnpj)#14 MSGINFO("Este botão só busca dados de pessoal jurídica!") return .t. endif cUrl:= "https://publica.cnpj.ws/cnpj/"+Alltrim(oCnpj) Try oServerWS := CreateObject( 'MSXML2.ServerXMLHTTP.5.0' ) Catch oError try oServerWS := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' ) catch oError try oServerWS := CreateObject("Microsoft.XMLHTTP") catch oError ? e:Description return nil end END end TRY oServerWS:open('GET', cUrl, .f.) oServerWS:setRequestHeader('Content-Type' , 'text/xml; charset=utf-8') // Obtém ou define o valor de cabeçalho de Content-type HTTP. oServerWS:send() CATCH ? "Não conseguiu enviar solicitação para requisição dos dados do CNPJ" return .t. END IF oServerWS:Status != 200 // OK MsgStop( Alltrim(STR(oServerWS:Status)) +" - "+ oServerWS:StatusText , "Erro") RETURN NIL ENDIF WHILE oServerWS:readyState != 4 oServerWS:waitForResponse(1000) END txt:= oServerWS:responseText Arq_1:=ALLTRIM(txt) cBat:=CURDRIVE()+":\"+CURDIR()+"\LEITURA_CNPJ.TXT" nHandle := FCreate( cBat ) FWrite( nHandle, Arq_1 ,LEN(Arq_1) ) FClose( nHandle ) ** a partir daqui o conteudo da variavel arq_1, é tratada e separada os dados. .......

NFe (danfe) está normal, pois são servidores diferentes.

O site da sefaz está bixado, para enviar NFCE e consultar a NFCE. Está demorando muito tempo para enviar e consutar o retorno.

Primeiro, o erro começou dando duplicidade nos cupons, então, atualizei a ddl da flexdocs, agora demora um tempão para enviar, e depois fica consultando indefinidamente a sefaz para pegar o retorno, aí, eu reinicio o computador porque trava tudo, e quando volta, o xml do cupom está formado e gravado, cada coisa loka, que está acontecendo, num dá pra entender. vou verificar as rotinas do sistema, já que o xml completo está retornando. Gratidão a todos

Boa tarde, Alguém está tendo problemas ao emitir NFCE? Uso a classe do Gilmer, juntamento com as dll da Flexdocs. Desde ontem 23/06/2022, que nenhum dos meus clientes, que usam a NFCE, não estão conseguim emitir. e antes disso, estava normal. Desde já agradeço pelo ajuda. Att. Pompeo Guaratinguetá, SP