toya

Aprendi e continuo aprendendo ao longo da caminhada que quase tudo é possível nesta nossa linguagem... O que pareça não ser possível, o Python ajuda resolver sem complicação... Na questão cotação do dollar, dê uma analisada aqui: https://dadosabertos.bcb.gov.br/dataset/dolar-americano-usd-todos-os-boletins-diarios/resource/ae69aa94-4194-45a6-8bae-12904af7e176 https://olinda.bcb.gov.br/olinda/servico/PTAX/versao/v1/documentacao Chame no meu e-mail/whatsapp que te envio um pequeno exe que retorna o proposto na API...

Bom dia !!! Alguem teria um dica de como gerar o <dest> tendo como destinatário o Banco do Brasil S/A - no DF com o CNPJ 00000000000191. Retorna as Rejeições: 210 - IE do destinatario invalida 232 - IE do destinatario nao informada Dados consultados no CCC: Nome da Empresa: BANCO DO BRASIL S.A UF: DF - 53 CNPJ: 00.000.000/0001-91 Situação CNPJ: Sem restrição Inscrição Estadual (IE): 809427800174 Situação IE: Habilitado Tipo IE: IE Não Contribuinte (Canteiro de Obras, IE Virtual, outros) CNAE Principal 6432800 Data Situação na UF: 03/11/2021 UF do Emitente: PR Resultados das tentativas já efetuadas: -------------------------------------------------- </enderDest> <indIEDest>1</indIEDest> <IE>809427800174</IE> cStat = "210" xMotivo = "IE do destinatario invalida" -------------------------------------------------- <indIEDest>9</indIEDest> <IE>809427800174</IE> cStat = "210" xMotivo = "IE do destinatario invalida" -------------------------------------------------- </enderDest> <indIEDest>9</indIEDest> cStat = "232" xMotivo = "IE do destinatario nao informada" --------------------------------------------------

Bom dia !!! Kapiaba, desculpe a pergunta mal formulada... Na verdade gostaria de saber quais colegas estão ou pretendem utilizar a nova DLL Unimake-DFe... Gostaria de trocar idéias com os mesmos...

Bom dia !!! Alguém testando a nova DLL Unimake.DFe ?...

Bom dia !!! Algum colega teria um modelo de um Txt do SPED Fiscal no qual contenha os Registros 1310 e 1320 (Posto de Gasolina)?... Caso seja possível, enviar-me para o e-mail toyasis@gmail.com Mui grato...

Aos interessados, a solução que encontrei: cBase64 := alltrim( hDados["login"] ) + ":" + alltrim( hDados["senha"] ) cBasic := alltrim( HB_Base64Encode( cBase64, len( cBase64 ) ) ) cBasic := strtran( cBasic, CRLF, "" ) cXmlFile := memoread(cFile) oHTTP := CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) oHttp:Open("POST", cUrl, .f. ) oHTTP:SetRequestHeader( "Authorization", "Basic " + cBasic ) oHTTP:SetRequestHeader( "Host", cHost ) oHTTP:SetRequestHeader( "Content-Type", "multipart/form-data; boundary=" + cBoundary ) cTexto := '--' cTexto += cBoundary cTexto += CRLF cTexto += 'Content-Disposition: form-data; name="XML"; filename="'+cFile+'"' cTexto += CRLF cTexto += 'Content-Type: application/xml' cTexto += CRLF cTexto += CRLF cTexto += cXmlFile cTexto += CRLF cTexto += CRLF cTexto += '--' cTexto += cBoundary cTexto += '--' oHttp:Send( cTexto ) cRet := oHttp:ResponseText

https://flexdocs.net/guiaNFe/licenca.condicoes.html Veja este link: https://flexdocs.net/guiaNFe/licenca.uso.html

Para quem utiliza e/ou integra vossa aplicação com uma DLL Delphi na qual é utilizada a função FormatDateTime('yymmddhhmm', Now), deve estar se deparando com um erro do tipo: <numero> is not a valid integer value. Adotei a seguinte solução, digo isto para quem tem acesso à recompilação da tal DLL,: Todo <idLote> que adota este controle sequencial via DLL será tratado como um parâmetro que será gerado pela minha aplicação. Isto é em razão do <idLote> ser "Número seqüencial autoincremental único para identificação do Lote." conforme reza nos MOC de alguns DFe. Podendo também, para quem achar util, utilizar a função abaixo para adotar como sequencial sem a exigência do "anterior + 1"... function BugAno2022Sequencial(dData, cTime) // #toya: 05/01/2022 - 07:00:00 - JOB#NFe - Projeto Mrb local Result := "" local n0 := 0 local n31122021 := 211231 local nDifBug := 0 local cDia := "" local cMes := "" local cAno := "" local cData := "" local cHora := "" local cMinutos := "" DEFAULT dData := date() DEFAULT cTime := time() cDia := strzero(day(dData), 2, 0) cMes := strzero(month(dData), 2, 0) cAno := strzero(year(dData), 4, 0) cData := substr(cAno, 3) + cMes + cDia cHora := left(cTime, 2) cMinutos := substr(cTime, 4, 2) if dData >= ctod("01/01/2022") n0 := val(cData) nDifBug := n0 - n31122021 Result := strzero(n31122021 + nDifBug - 8869, 6, 0) + cHora + cMinutos else Result := strzero(val(cData), 6, 0) + cHora + cMinutos endif return Result Com um pedido de desculpa aos colegas, estou alterando o PRG com os devidos ajustes. Segue abaixo a função para efetuar o retorno de um array contendo a Data e a Hora/Minuto a que se refere o Sequencial informado... function BugAno2022RestDataHora(pcSequencial) // #toya: 05/01/2022 - 07:00:00 - JOB#NFe - Projeto Mrb local Result := {ctod(""),"00:00:00"} local cAux := "" DEFAULT pcSequencial := "" pcSequencial := alltrim(pcSequencial) if len(pcSequencial) <> 10 msgstop("Sequencial invalido.", "AVISO") return Result endif cAux := left(pcSequencial, 6) if cAux <= "211231" Result := {ctod(substr(cAux, 5, 2) + "/" + substr(cAux, 3, 2) + "/" + "20" + left(cAux, 2)), substr(pcSequencial, 7, 2) + ":" + substr(pcSequencial, 9, 2) + ":00" } else Result := {ctod("31/12/2021") + val(cAux) - 211231, substr(pcSequencial, 7, 2) + ":" + substr(pcSequencial, 9, 2) + ":00" } endif return Result

Mestre Vailton ... Este retorno é o do Postman... No meu caso não esta anexando o arquivo... Vide esta postgem onde testo tambem com cURL... http://forums.fivetechsupport.com/viewtopic.php?f=6&t=41157&p=246518&sid=501aecec24c2d4dc1692c6a289118f77#p246518 Mui grato...

Consegui até aqui... Autentica, mas não envia o arquivo... #Include "FiveWin.ch" function NFSe() local cFile := "" local cUrl:= "" local cBasic := "" local cHost := "" local cRet := "" local cAux := "" local oHTTP := nil cUrl := "https://treinamento.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=migra_pinhais" cBasic := "MDkyNDczNDMwMDAxMjA6SXBtQDIwMjE=" cFile := "H:\NFSe\S_NS9_000000003-nfSe.xml" cHost := "treinamento.atende.net" oHTTP := CreateObject( "Msxml2.ServerXMLHTTP.6.0" ) oHTTP:Open( "POST" , cUrl, .f. ) oHTTP:SetRequestHeader( "Authorization", "Basic " + cBasic ) oHTTP:SetRequestHeader( "Content-Type", "multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW" ) oHTTP:SetRequestHeader( "Content-Disposition", chr(34)+"form-data; name=\"+chr(34)+"XML\"+chr(34)+"; filename="+cFile+chr(34)) oHTTP:SetRequestHeader( "Cookie", "PHPSESSID=ocqn90l0rfmovu1d8jrojju7s5; cidade=migra_pinhais" ) oHTTP:SetRequestHeader( "Content-Type", "text/xml" ) oHTTP:SetRequestHeader( "Host", cHost ) ohttp:Send( ) cRet := oHTTP:responseText cAux += memoread( "nfsetoya.prg" ) cAux += CRLF + CRLF + CRLF cAux += "//" + replicate( "-", 78 ) cAux += CRLF cAux += "Retorno:" cAux += CRLF + CRLF cAux += cRet cAux += CRLF + CRLF + CRLF cAux += "//" + replicate( "-", 78 ) cAux += CRLF + CRLF cAux += "no Postman:" cAux += CRLF + CRLF cAux += "Code e Retorno:" cAux += CRLF + CRLF cAux += memoread( "nfsetoya_postman.txt" ) cAux += CRLF + CRLF MemoWrit( "NFSetoya.txt", cAux ) cFile := cFilePath( GetModuleFileName( GetInstance() ) ) + "NFSetoya.txt" WinExec( "H:\Aplicativos\Notepad++\Notepad++.exe " + cFile ) return nil //------------------------------------------------------------------------------ Retorno: <?xml version="1.0" encoding="ISO-8859-1"?> <retorno> <mensagem> <codigo>9999 - Arquivo XML da Nota Fiscal de Servi?Eletr?a n?enviado!</codigo> </mensagem> </retorno> //------------------------------------------------------------------------------ no Postman: Code e Retorno: var client = new RestClient("https://treinamento.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=migra_pinhais"); client.Timeout = -1; var request = new RestRequest(Method.POST); request.AddHeader("Authorization", "Basic MDkyNDczNDMwMDAxMjA6SXBtQDIwMjE="); request.AddHeader("Cookie", "PHPSESSID=ocqn90l0rfmovu1d8jrojju7s5; cidade=migra_pinhais"); request.AddFile("XML", "/H:/NFSe/S_NS9_000000003-nfSe.xml"); IRestResponse response = client.Execute(request); Console.WriteLine(response.Content); <?xml version="1.0" encoding="ISO-8859-1"?> <retorno> <mensagem> <codigo>00209 - J� consta uma NFSe para o referido prestador de servi�o com o mesmo IDENTIFICADOR de arquivo </codigo></mensagem> </retorno>

Já tentei das duas maneiras...

Preciso de uma ajuda na transcrição HTTP (Postman) para o Harbour: ambiente Homologação POST /atende.php?pg=rest&service=WNERestServiceNFSe&cidade=migra_pinhais HTTP/1.1 Host: treinamento.atende.net Authorization: Basic MDkyNDczNDMwMDAxMjA6SXBtQDIwMjE= Cookie: PHPSESSID=7pf56uromi3p4vnrj64mi264a1; cidade=migra_pinhais Content-Length: 222 Content-Type: multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW ----WebKitFormBoundary7MA4YWxkTrZu0gW Content-Disposition: form-data; name="XML"; filename="/E:/JOBs/NFSe/xml_teste/S_NS9_000000001-nfSe.xml" Content-Type: text/xml (data) ----WebKitFormBoundary7MA4YWxkTrZu0gW cFile := "E:\JOBs\NFSe\xml_teste\S_NS9_000000001-nfSe.xml" doc := CreateObject( "MSXML2.DOMDocument" ) oHTTP := CreateObject( "MSXML2.XMLHTTP" ) oHTTP:Open( "POST" , cUrl, .f. ) oHTTP:SetRequestHeader( "Content-Type" , "text/xml" ) oHTTP:SetRequestHeader( "Authorization" , "Basic " + cBasic ) oHTTP:SetRequestHeader( "Content-Type", "multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW" ) oHTTP:SetRequestHeader( "Content-Disposition", 'form-data; name="XML"; filename=' + cFile ) http:Send() Estou tendo o seguinte retorno: <?xml version="1.0" encoding="ISO-8859-1"?> <retorno> <mensagem> <codigo>9999 - Arquivo XML da Nota Fiscal de Servi?Eletr?a n?enviado!</codigo> </mensagem> </retorno>

Abre-se um novo espaço de oportunidades onde muitos de nós, profissionais "lapidadores de bits", poderemos nos encaixar... Acesse o edital e conheça mais sobre as atribuições, perfil desejado e informações para participação no processo https://www.gov.br/anpd/pt-br/assuntos/noticias/faca-parte-da-equipe-da-anpd-1/edital-final-1.pdf O prazo é até 31/08/2021. Confesso estar mui animado com este assunto LGPD... Vamos ter muiiiitas conversas e noites ralando para adequar nossos Sistemas...

http://flexdocs.online/guiaNFe/historico.DLL.html?fbclid=IwAR3wvcTpvoKcxdA9y375SaQhPz8QBA-FKAflCvo_yK9n_HbZ1v6WzqnhUlo

Excelente indicação !!! bitsadmin.txt