JUDSON ROSA

dll da flexdocs mais as funcoes do gilmer tenho acompanhado e atualizado as versões q ele manda. ja fiz todos os testes do method StruIcms , empresa normal e do simples , somente esse cST == "60" que dando erro

na 3.10 funcionava esse icms60 , agora na 4.00 começou a dar esse erro , vc tem alguma essa rotina para icms60 na nfe 4.00 ??

Alguem tem algum exemplo da tag ICM60 ( regime normal ) na versao 4.00 pode ser o fonte e a xml . desde ja agradeço

aqui so diz alem dessa msg , 5505 - erro; XML nao atende a espefificação do schema xml o ambiente e de homologacao segue xml 21180700761071000107550020000000051000000058nfe.xml

Bom dia , quando eu estou usando : indFinal>0</indFinal ( não consumidor final ) ICMS60 ( REGIME NORMAL ) , :vBCSTRet := 0.00 :pST := 0.00 :vICMSSTRet := 0.00 :vBCSTRet := 0.00 :vBCSTDest := 0.00 :vICMSSTDest := 0.00 :vBCFCPSTRet := "" :pFCPSTRet := "" :vFCPSTRet := "" :pRedBCEfet := 0.00 :vBCEfet := 0.00 :pICMSEfet := 0.00 :vICMSEfet := 0.00 esta dando essa msg: ( não seria so quando e o condumifor final = 1 ??? ) Função: TVONFEUTIL2G:VALIDAXML Erro na XML: ----------- 1 - Linha:0001 Coluna:1839 Campo:[NIHIL] Conteúdo:[NIHIL] Erro:O elemento 'ICMS60' no espaço para nome 'http://www.portalfiscal.inf.br/nfe' apresenta conteúdo incompleto. Lista de possíveis elementos esperados: 'pST' no espaço para nome 'http://www.portalfiscal.inf.br/nfe'.

consegui Aguiar , era o TVONFECOBR e TVONFEPAG , atualizei com a ultima do gilmer. so deu o erro : Error description: Warning BASE/1004 Message not found: TVONFEPAG:VTROCO mais criei aqui : CLASS TVoNFePag Data IndPag DATA tPag DATA vPag DATA vTroco ********* DATA CNPJ_Opc DATA tBand_Opc DAtA cAut_Opc e resolveu

Aguiar , ainda nao consegui resolver o erro 5505 , aflexdocs me passou o seguinte: Prezado Sr. judson rosa,Verifique a consolidação da NF-e, o problema do XML anexado que causa o erro 5505 é porque os grupos pag e cobr estão com as posições trocadas, seria o cobr primeiro e depois o pag. Eu vi que isso realmente esta acontecendo na minha xml : -<transp> <modFrete>9</modFrete> -<vol> <qVol>1</qVol> </vol> </transp> -<pag> -<detPag> <tPag>02</tPag> <vPag>55.00</vPag> </detPag> -<detPag> <tPag>03</tPag> <vPag>60.00</vPag> </detPag> -<detPag> <tPag>99</tPag> <vPag>47.30</vPag> </detPag> </pag> -<cobr> -<fat> <nFat>0000021003-1</nFat> <vOrig>162.30</vOrig> <vLiq>162.30</vLiq> </fat> -<dup> <nDup>0000021003-1</nDup> <dVenc>2018-07-13</dVenc> <vDup>55.00</vDup> </dup> -<dup> <nDup>0000021003-2</nDup> <dVenc>2018-07-23</dVenc> <vDup>60.00</vDup> </dup> -<dup> <nDup>0000021003-3</nDup> <dVenc>2018-08-02</dVenc> <vDup>47.30</vDup> </dup> </cobr> So nao entendo o porque , sendo que eu mando gerar primeiro a tag < cobr > e depois a < pag > //Carrega Duplicatas e pagamentos oSayMsg:ctitle("Carregando as duplicatas da nota fiscal...") ; oSayMsg:refresh() LoadDuplicatas( oNFe , WNOTA ) ----->>> aqui oItem := TVoNfeCobr() loadpgtoNfe( oNFe , wnota ) ----->>> aqui oItem := TVoNFePag() e na xml gera invertido , vi que isso aconteceu com vc , como vc resolveu isso ???

Aguiar , voce consegui resolver esse erro 5505 ????

kkkkk , se la tivesse o numero o erro 5018 , era mamão com açúcar , kkkk

Pessoal, entrei em contato com a flexdocs , segue aqui as informacoes para a resolução do erro : atualização do windows 7 sp1 e a instalação da net framework versao 4.5 ou superior , foi o que resolveu o problema. agradeço a todos e compartilho aqui a solução do problema veja abaixo mais informações do suporte da flexdocs: A versão 4.00 dos Web Services requer o uso do TLS 1.2 como protocolo de comunicação segura, sendo necessário ter o .NET 4.5 (recomendável ter a atualização para 4.6.2) no equipamento.O .NET framework 4.5 é suportada a partir do Windows 7 Service Pack 1 e Windows Server 2008 R2 SP1.Para instalar o .NET 4.5 ou superior é necessário que a versão do Windows 7 ou Windows Server 2008 R2 esteja atualizado para Windows 7 Service Pack 1 ou Windows Server 2008 R2 SP1.Assim, realize o teste de conexão com a SEFAZ/GO - NF-e 4.00 que é a única UF que está aceitando somente o protocolo TLS 1.2 como protoclo de comunicação segura para verificar se o equipamento é compatível com o TLS 1.2. Os testes de conexão podem ser realizados com o aplicativo CertFlex:http://www.flexdocs.com.br/DL/uploads/CertFlex.zipDiagrama de Teste TLS 1.2 http://www.flexdocs.com.br/DL/uploads/TLS1.2.pdfSE ACONTECER ALGUM ERRO NESTE TESTE, NÃO FAÇA A ATUALIZAÇÃO DA SUA APLICAÇÃO (DLL), PARA EVITAR QUE O USUÁRIO FIQUE SEM EMITIR NOTA E TOME AS PROVIDÊNCIAS PARA RESOLUÇÃO DO PROBLEMA.ATUALIZAÇÕES QUE PODEM SER APLICADAS NO WINDOWS:http://www.flexdocs.com.br/faq/viewtopic.php?f=99&t=443Usuários de Windows 7 Service Pack 1 e Windows Server 2008 R2 SP1 que não conseguirem estabelecer a conexão com TLS 1.2, devem fazer a atualização "SP2":http://www.catalog.update.microsoft.com/Search.aspx?q=3125574CASO AS ATUALIZAÇÕES SUGERIDAS NÃO SURTAM EFEITO, TENTE UTILIZAR OUTRO EQUIPAMENTO OU FORMATE E REINSTALE O WINDOWS.Atenciosamente,Equipe de Suporte»Importante:A versão 3.10 do leiaute da NF-e vai ser desativada em 02/08/18.www.facebook.com/flexdocs

esta igual a sua justamente neste linha e que traz o erro nRet:=::oNFEUtil:ConsultaStatus2G(::SiglaWS,::SiglaUF,::Ambiente,::cCertificado,"4.00",@msgDados,@msgRetWS,@mensagem,::Proxy,::Usuario,::Senha) to achando que o erro pode estar no windows , vou testar em outra maquina com windows 10 ou windows7 spk 2 pq o meu e windows 7 spk 1

ja atualizei a versao para a mais nova: versao 4.0.5.0 data: 19/06/2018 log de erro: ************* VoNfeUtil - 02/07/2018 13:51:16 TVONFEUTIL2G:CONSULTASTATUS TVONFEUTIL2G:ENVIANFE 5018 - Erro: a mensagem SOAP de entrada não é um XML válido: [The requested security protocol is not supported.]

confusa nao kapi : :SiglaWS = SVAN ::SiglaUF = MA ::Ambiente = 2 sao os resultados das variaveis

Tentando autorizar ,mesma sequencia da 3.10 , nao pode estar errado a sequencia.

bom dia rocinha, desliguei os SSL e TLS 1.2 esta ligado baixei a dll da flexdocs versao 4.0.4.0 data: 01/05/2018 atualizei a pasta nfe_util q baixei da flexdocs com as cadeia de certificados ws e mesmo assim da esse erro ...

boa noite , estou migrando para nfe 4.00 e aparece este erro quando uso o : nRet:=::oNFEUtil:ConsultaStatus2G(::SiglaWS,::SiglaUF,::Ambiente,::cCertificado,"4.00",@msgDados,@msgRetWS,@mensagem,::Proxy,::Usuario,::Senha) 5018 - Erro: a mensagem SOAP de entrada não é um XML válido: [The requested security protocol is not supported.] sendo : ::SiglaWS = SVAN ::SiglaUF = MA ::Ambiente = 2 windowS 7 32 BITS service pack 1 agradeço a colaboração .

ufa , em uma ultima procura, http://www.vbweb.com.br/forum_resp.asp?Codigo=226890&PaginaResp=2 oFolha:Cells(nX, nI):Value := &cCampo. oFolha:Cells( nX, nI ):NumberFormat := "00000000000000" resolvido

Bom dia , estou como uma dificuldade na geracao da planilha excel , somente no campo codigo de barras, o valor correto é : 7898930919874 mais na planilha aparece: 7,89893E+12 Sendo que o meu campo no dbf e CARACTER DE 14 oFolha:Cells(nX, nI):Value := &cCampo. alguem q usa o oExcel := CreateObject( "Excel.Application" ) pode dar uma força , ja pesquisei aqui no forum mais nao encontrei nada.

vou criar um hotmail , so para gerenciar esses tipos de emails para nossos clientes

sim , so funcionou com hotmail. peguei uma conta aqui do meu filho e testei e mandou blz o email. o fonte e o mesmo que tem por aqui , mais vou postar : {"Hotmail" , 'pop3.live.com' , 'smtp.live.com' , .t. , 25,995,.T.},; // ok Function fSendMail ( cProvedor, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass ) ****************** Private oCfg, oMsg, oError, nEle, cToken, ; aAttach := {}, ; lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ; nSendOpt := 2 // send using: 1 = pickup folder 2 = port 3 = remote mail server * por por * ta ta * Nome Provedor endereço pop3 endereço smtp Autenticacao smtp pop ssl * // 465 Private aProvedor := { {"UOL (Universo On-Line)" , 'pop3.uol.com.br' , 'smtps.uol.com.br' , .t. , 587,995,.t.},; {"Terra" , 'pop.terra.com.br' , 'smtp.terra.com.br' , .t. , 587,110,.f.},; {"IG (Internet Generation)" , 'pop3.ig.com.br' , 'smtp.ig.com.br' , .t. , 465,995,.t.},; // ok {"iBest" , 'pop.ibest.com.br' , 'smtp.ibest.com.br' , .t. , 465,995,.t.},; // {"iTelefônica" , 'pop.itelefonica.com.br' , 'smtp.itelefonica.com.br' , .t. , 025,110,.f.},; {"Gmail (Google Mail)" , 'pop.gmail.com.br' , 'smtp.gmail.com.br' , .t. , 465,995,.t.},; // {"Yahoo" , 'pop.mail.yahoo.com.br' , 'smtp.mail.yahoo.com.br' , .t. , 587,995,.t.},; // ok {"Hotmail" , 'pop3.live.com' , 'smtp.live.com' , .t. , 25,995,.T.},; // ok {"BOL (Brasil On-Line)" , 'pop3.bol.com.br' , 'smtps.bol.com.br' , .t. , 465,995,.T.}} // {"Fotosombra" , 'pop.fotosombra.com.br' , 'smtp.fotosombra.com.br' , .t. , 025,110,.f.} } Default cSubject := "", ; cBody := "" * nPosicao := ASCAN(aProvedor, {|a| Upper(AllTrim(a[1])) = Upper(AllTrim(cProvedor)) } ) * nPort := aProvedor[nPosicao, 5] lAuth := aProvedor[nPosicao, 4] cMailServer := aProvedor[nPosicao, 3] cSSL := aProvedor[nPosicao, 7] * If "GMAIL.COM" $ Upper( cMailServer ) .and. ( Empty( cUser ) .or. Empty( cPass ) ) MsgStop( "Com GMail são requeridos nome do usuario e senha", "Atenção" ) Return .f. EndIf CursorWait() nEle := 1 lRet := .f. While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) ) AAdd( aAttach, AllTrim(cToken) ) EndDo ? ":Value = AllTrim(cMailServer)" , AllTrim(cMailServer) ? ":Value = nPort " , nPort ? ":Value = nSendOpt " , nSendOpt ? ":Value = lAuth " , lAuth ? ":Value = cSSL " , cSSL ? ":Value = Alltrim(cUser)" , Alltrim(cUser) ? ":Value = AllTrim(cPass)" , AllTrim(cPass) Try oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value = AllTrim(cMailServer) :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value = nPort :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value = nSendOpt :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value = lAuth :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value = cSSL :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value = Alltrim(cUser) :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value = AllTrim(cPass) :Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value = 30 :Update() END WITH CATCH oError MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "CDO.Configuração" ) END TRY oMsg := CreateObject( "CDO.Message" ) With Object oMsg :Configuration = oCfg :From = AllTrim(cFrom) :To = AllTrim(cTo) :Subject = AllTrim(cSubject) :MDNRequested = .F. :TextBody = AllTrim(cBody) For nEle := 1 To Len( aAttach ) :AddAttachment = AllTrim(aAttach[ nEle ]) Next If ! Empty( cBCC ) :BCC = AllTrim(cBCC) EndIf ? "send" :Send() End With MsgInfo("Mensagem Enviada com Sucesso!","Atençao") lRet := .t. Catch oError CursorArrow() MsgStop( "Não foi possível enviar a mensagem para "+AllTrim(cTo) + CRLF + ; "Error: " + cValToChar( oError:GenCode) + CRLF + ; "SubC: " + cValToChar( oError:SubCode ) + CRLF + ; "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ; "SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + ; "Mensagem: " + oError:Description ) lRet := .f. End Try oCfg := Nil oMsg := Nil If lRet MsgInfo("Email Enviado com Sucesso","Email") End CursorArrow() Return ( lRet )

Pessoal no apagar das luzes , testei com uma conta do hotmail.com e nao e q FUNCIONOU . agora pq sera que com os outros nao funcionam vou criar uma conta entao no hotmail so para ser meu provedor de emails , so sendo assim .

como assim ?? acabei de fazer teste com o IG de uma amigo programador ( helio ) q ele me garante q esta rotina funciona com ele , e mesmo assim tbm nao funcionou . entao ja testei com o yahoo , gmail e ig e nada .

opa , vou testar Marca , to cansado de testar e nao dar certo . obrigado

KAPI , fiz todos os testes e nada , obrigado ai , infelizmente vou desistir . Alguem me indica o componente PAGO , pois nao aguento mais ( kkk ) , preciso disso no nosso sistema agradeço a todos.

ata kapi tem q fazer a configuração na conta do yahoo. vou configurar e t falo.