HERGON

Bom dia Apoio o mini encontro, de preferência em BH. Galera quando veio aqui da última vez, gostou. Herberson Gontijo

Boa tarde Alguém tem rotina de geração da GNRE pela dll da FlexDocs que possa disponibilizar? De preferência utilizando a classe do Gilmer. Herberson Gontijo

Boa tarde Tente fazer assim: cNome:=GetPvProfString( "LOCAL", "Computador", " ", "arquivo.ini") Herberson Gontijo

Olá Implementamos no nosso PDV utilizando SHIPAY. Nessa integração vc consegue disponibilizar para vários bancos e carteiras digitais sem ter que fazer um a um, compensa dar uma olhada. Att. Herberson Gontijo

Boa tarde Att. Herberson Gontijo

Bom dia Eu faço assim, talvez ajude: Function fAcertarDtHr(lMostraOk) Local oWeb, cWeb, cProcura, cExtrai, cHora, cData, lAjusta:=.f. Default lMostraOk:=.t. If !VerificaNet() If lMostraOk fMsgStop("Computador não está conectado na internet.", "Sem Acesso à Internet") Endif Return .f. Endif MsgAguarde("Verificando data/hora pela internet.", "Aguarde...") SysRefresh() CursorWait() oWeb := WebConnect():New() cWeb := oWeb:Open( "http://www.horacerta.com.br/index.php?city=sao_paulo" ) cProcura:= '<input name="mostrador" type="text" size="25" value="' cExtrai := Subs(cWeb, At(cProcura,cWeb)+53,24) cData := Alltrim(Left(alltrim(cExtrai),10)) cHora := Alltrim(StrZero(If(Right(cExtrai,2)=="PM" .and. Val(subs(cExtrai,14,2))<=11, 12, 0)+Val(subs(cExtrai,14,2)),2)+":"+subs(cExtrai,17,5)) If Val(GetPvProfString("Diversos", "Ajuste da Hora", "", CurDrive()+":\"+CurDir()+"\"+cNomeTerm+".ini"))==0 // Não alterar a hora Elseif Val(GetPvProfString("Diversos", "Ajuste da Hora", "", CurDrive()+":\"+CurDir()+"\"+cNomeTerm+".ini"))==1 cHora := TsTring(Secs(cHora)-3600) Else cHora := TsTring(Secs(cHora)+3600) Endif MsgFechaAguarde() If Ctod(cData)<>Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)<>Subs(Time(),1,5) .and. Val(cHora)<>0 If MsgYesNo("Data e hora da Internet:"+CRLF+; cData+" - "+cHora+CRLF+CRLF+; "Data e hora do computador:"+CRLF+; Dtoc(Date())+" - "+Time()+CRLF+CRLF+; "Deseja ajustar a data e hora?", "Data e hora do computador parecem desatualizadas.") lAjusta:=.t. Endif Elseif Ctod(cData)==Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)<>Subs(Time(),1,5) .and. Val(cHora)<>0 If MsgYesNo("Hora da Internet:"+CRLF+; cHora+CRLF+CRLF+; "Hora do computador:"+CRLF+; Time()+CRLF+CRLF+; "Deseja ajustar a hora?", "A hora do computador está desatualizada") lAjusta:=.t. Endif Elseif Ctod(cData)<>Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)==Subs(Time(),1,5) .and. Val(cHora)<>0 If MsgYesNo("Data da Internet:"+CRLF+; cData+CRLF+CRLF+; "Data do computador:"+CRLF+; Dtoc(Date())+CRLF+CRLF+; "Deseja ajustar a data?", "A data do computador está desatualizada") lAjusta:=.t. Endif Else If lMostraOk MsgInfo("A data/hora do seu computador conferem com as informações da internet."+CRLF+CRLF+; "Data: "+cData+" - Hora: "+cHora, "Informações da Internet") Endif Endif If lAjusta MsgRun( "Ajustando data e hora.", "Aguarde...", { || fAjustaDataHora(cData, cHora) } ) MsgInfo("Ajuste realizado com sucesso.", "Ajuste") Endif Return Nil Static Function fAjustaDataHora(cData, cHora) MyRun( "date "+cData ) MyRun( "time "+cHora ) If Ctod(cData) <> date() MyRun("timedate.cpl") //abre tela data e hora windows Endif Return .t. Tem algumas funções próprias, mas comente e teste. Herberson Gontijo

Olá Rossine Então, eu utilizo a classe do Gilmer com a dll da FlexDocs apenas para emissão da NF-e (para NFC-e, NÃO utilizo), fiz testes hoje em homologação para NF-e e tudo funcionou normal. Se quiser posso colocar um xml de exemplo com as novas tag's aqui. Abraço Herberson Gontijo

Bom dia pessoal Além de atualizar a dll da flexdocs para a versão "NFe_Util 2G v4.0.8b" tem que fazer as mudanças conforme imagem em anexo. Att. Herberson Gontijo

Rochinha Gostei muito da dica, testei via comando e funcionou bem, vou implementar no meu sistema. Obrigado. Herberson Gontijo

Bom dia Obrigado pela resposta Jmsilva, será de grande ajuda. Infelizmente não tenho a LIB do ACBr para testar. Vou tentar conseguir, mas o fonte que disponibilizou facilitará muito o meu trabalho, o que agradeço mais uma vez. Herberson Gontijo

Bom dia Alguém já implementou, em xHarbour, boletos/remessa com ACBr utilizando a DLL? Hoje utilizo o ACBr Monitor, mas gostaria de migrar para DLL, se tiver algum exemplo para me basear. Agradeço qualquer ajuda. Herberson Gontijo

Bom dia amigo Tudo bem? Eu uso o ACBr para emissão e registro dos boletos. Ainda utilizando o monitor, mas já tem a dll que já tem posts aqui no fórum, talvez seja a melhor opção. Abraços Herberson Gontijo

Boa tarde Wellington Salvo engano, em todos os estados a numeração da NF-e e NFC-e são independentes, começando em 1 até 999.999, devendo recomeçar a numeração a cada nova série. Att. Herberson Gontijo

Realmente, acho que tive que mexer na classe, só agora estou lembrando... vou colar aqui. // Consulta NF-e destinadas Method distNSU(cSiglaUFDestinado,cCNPJDestinatario,cUltNSURecebido,cVerAplic,cUltNsu,cMaxNsu,nQtdeDocto,uRetorno,lRetArray) Class TVoNFeUtil2G Local nStat:=0 Local cMsgResultado:="",nIndContinuacao:=1 local cMsgDados:="", cMsgRetWS:="",cRetTxt:="",aRegistro:={},oTxt Default cSiglaUFDestinado:=::SiglaUF,cUltNSURecebido:="0",cUltNsu:="0",lRetArray:=.t. Default cVerAplic:="",cMaxNsu:="",nQtdeDocto:=1 ::Limpa() If ::CertificadoSelecionado() If ::ConsultaStatus() Try /* cRetTxt+=::oNFEUtil:distNSU("AN",::Ambiente, ::cCertificado,; "4.00", @cMsgDados, @cMsgRetWS,@nStat,; @cMsgResultado,cCNPJDestinatario,cSiglaUFDestinado,; cUltNSURecebido,@cVerAplic,@::Recebimento,@cUltNsu,; @cMaxNsu,@nQtdeDocto,; ::proxy,::usuario,::senha,::Licenca) */ cRetTxt+=::oNFEUtil:distNSU("AN",::Ambiente, ::cCertificado,; "4.00", @cMsgDados, cMsgRetWS,@nStat,; cMsgResultado,cCNPJDestinatario,cSiglaUFDestinado,; cUltNSURecebido,cVerAplic,::Recebimento,@cUltNsu,; @cMaxNsu,@nQtdeDocto,; ::proxy,::usuario,::senha,::Licenca) Memowrit("manifest.txt", cRetTxt, .f.) Catch oError fMsgStop("Erro! oNFeUtil:DistNSU."+CRLF+; "Error: " + cValToChar( oError:GenCode) + CRLF + ; "SubC: " + cValToChar( oError:SubCode ) + CRLF + ; "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ; "SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + ; "Operação: " + cValToChar( oError:Operation ) + CRLF + ; "Mensagem: " + oError:Description, CAPTION_MSG) Return(.f.) End Try ::cStsNFe := Alltrim(Str(nStat)) ::cStsNFeMsg := cMsgResultado ::Protocolo := cUltNsu Else //Tratar erro para servidor fora Endif If !Empty(cRetTxt) ::lAutorizada:=.t. If lRetArray While .t. nPos:=At(CHR(13), cRetTxt) If nPos>0 AAdd(uRetorno, {Subs(cRetTxt,1,15), Subs(cRetTxt,17,35), Subs(cRetTxt,53,nPos-53)}) cRetTxt:=Subs(cRetTxt,nPos+1) Else Exit Endif Enddo Else uRetorno:=cRetTxt Endif Endif Endif Return( ::lAutorizada ) Att. Herberson Gontijo

Acabei de testar aqui e funcionou perfeitamente Att Herberson Gontijo