edulamy

Boa tarde, existe uma forma de fazer a consulta/download do XML das NF emitidas para o transportador?

bom dia, Fiz mais esse ajuste no arquivo pnfsNFSeW_EL, pois ele usava a numeração do RPS como numero de identificação. E quando enviado o rps mais de uma vez, devido a erro no envio, acusava duplicidade de lotes no servidor. Deixei comentando como era antes. function TNFSeW_EL.GerarXml: Boolean; begin Gerador.ListaDeAlertas.Clear; Gerador.ArquivoFormatoXML := ''; Gerador.Prefixo := FPrefixo4; Gerador.Opcoes.QuebraLinha := FQuebradeLinha; if (RightStr(FURL, 1) <> '/') and (FDefTipos <> '') then FDefTipos := '/' + FDefTipos; if Trim(FPrefixo4) <> '' then Atributo := ' xmlns:' + StringReplace(Prefixo4, ':', '', []) + '="' + FURL + FDefTipos + '"' else Atributo := ' xmlns="' + FURL + FDefTipos + '"'; Gerador.wGrupo('Rps'); FNFSe.InfID.ID := StringOfChar('0', 15) + FNFSe.InfID.ID; //OnlyNumber(FNFSe.IdentificacaoRps.Numero) + //FNFSe.IdentificacaoRps.Serie; FNFSe.InfID.ID := copy(FNFSe.InfID.ID, length(FNFSe.InfID.ID) - 15 + 1, 15); GerarXML_EL; Gerador.wGrupo('/Rps'); Gerador.gtAjustarRegistros(NFSe.InfID.ID); Result := (Gerador.ListaDeAlertas.Count = 0); end;

Pessol, por necessidade de adequar o provedor EL ao layout disponibilizado por eles, tive que fazer uma alteração no form pnfsNFSeW_EL para inclusão do campo CodigoMunicipioPrestacao. Necessidade causada pelo município de Santa Maria de Jetibá - ES. Segue em anexo documentação da prefeitura e form alterado. pnfsNFSeW_EL.pas layout_rps_santa_maria_jetiba.zip

Descobri o problema, não estava preenchendo a informação referente ao ModeloDF e com isso entrava FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'CTe', 'infCte') e dava o erro "Nenhum elemento encontrado".

Juliomar, outra pergunta, existe alguma diferença entre o envio de ct-e 57 e 67? preciso criar duas rotinas distintas para cada envio?

Vou pedir para testarem e retorno, obrigado por enquanto.

Foi seguido todo o exemplo do repositório, segue abaixo a configuração referente a autenticação.

O codigo ta igual a exemplo, será que pode ser a configuração do certificado, referente aos protocolos?

Estou tendo problema no envio de CT-e modelo 67. Esta apresentando a seguinte mensagem quando faço o envio. "Nenhum elemento encontrado"

Estou recebendo esta mensagem ao fazer a consulta da chave do CTEOS para verificar a existência no SEFAZ.

Reinstalei o ACBR. E Fiz o teste usando o exemplo, e continua o erro. ERRO: Erro Interno: 0 Erro HTTP: 0 URL: https://es-santamariadejetiba-pm-nfs.cloud.el.com.br/RpsServiceService?wsdl usei a opção Enviar Lote RPS (Enviar) Debuguei o sistema e parei nesta linha do ACBrDFeSSL.pas (1044), function TDFeSSLHttpClass.Enviar. Quando executa: WriteStrToStream(FDataReq, AnsiString(ConteudoXML)); FDataReq retorna vazio. ConteudoXML possui dados, segue abaixo, supri os dados do cliente: <?xml version="1.0" encoding="UTF-8"?> <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:wsn="http://des36.el.com.br:8080/el-issonline/"><soapenv:Header/><soapenv:Body><wsn:autenticarContribuinte><identificacaoPrestador>XXXXXXXXXXXXXX</identificacaoPrestador><senha>YYYYYYYY</senha></wsn:autenticarContribuinte></soapenv:Body></soapenv:Envelope> rotina completa abaixo: function TDFeSSLHttpClass.Enviar(const ConteudoXML: String; const AURL: String; const ASoapAction: String; const AMimeType: String = ''; const AAuthorizationHeader : String = ''): String; var AMethod: String; begin FDataReq.Clear; if (ConteudoXML <> '') then begin AMethod := 'POST'; WriteStrToStream(FDataReq, AnsiString(ConteudoXML)); end else AMethod := 'GET'; HeaderReq.Clear; // Para informar Haders na requisição, use HTTPMethod(); if (AAuthorizationHeader <> '') then HeaderReq.AddHeader('Authorization', AAuthorizationHeader); FSoapAction := ASoapAction; FMimeType := AMimeType; Result := ''; try HTTPMethod( AMethod, AURL ) ; FDataResp.Position := 0; Result := ReadStrFromStream(FDataResp, FDataResp.Size); // Verifica se o ResultCode é: 200 OK; 201 Created; 202 Accepted // https://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html if not (FpHTTPResultCode in [200..202]) then raise EACBrDFeException.Create(''); except // on E:EACBrDFeException do // raise; on E:Exception do begin raise EACBrDFeException.CreateDef( Format(ACBrStr(cACBrDFeSSLEnviarException), [FpInternalErrorCode, FpHTTPResultCode, FURL] ) + sLineBreak + LastErrorDesc + sLineBreak + Result); end; end; end; FpHTTPResultCode retorna 0 e com isso chama a mensagem de erro:

Ainda nao estou conseguindo enviar NFS-e para esta prefeitura...

Foi atualizado algo neste sentido, pois ainda não esta imprimindo esta informação na impressão do evento.

Obrigado Italo, já pedi ao meu cliente para me enviar o XML correto, estou fazendo uma rotina no sistema para importar os dados do XML para meu banco de dados.

Ao carregar o XML da NFS-e não são listados os campos Numero, CodigoVerificacao, DataEmissao, DataEmissaoRps, Competencia. Testei tambem no exemplo carregando o XML para impressão da NF e os campos não são preenchidos, envio em anexo o pdf(gerado pelo app exemplo) e o XML. NFS-e.pdf nfse_7751.xml

Italo, as rotinas da EL ainda estão em homologação? Ou é alguma particularidade? Estou enviando a documentação disponibilizada no site da prefeitura. layout_rps.zip

Italo, bom dia! Estou fazendo testes com o exemplo e mesmo informando o usuario e senha, retorna a mensagem abaixo quando consulto um xml: Inicio TNFSeConsultarNFSeRPS ERRO: Erro Interno: 0 Erro HTTP: 0 URL: https://es-santamariadejetiba-pm-nfs.cloud.el.com.br/RpsServiceService?wsdl A documentação do Webservice é muito fraca. Sabe dizer o que pode estar acontecendo? Já usei o CNPJ/Inscrição Municipal e senha de acesso ao site como parametro para usuario e senha no programa. O erro abaixo acontece quando tento enviar a NF pelo meu sistema:

Cidades.ini Obrigado Italo. Não vou conseguir testar agora, mas segue o arquivo em anexo. Não tenho o Link de homologação, irei tentar buscar essa informação mais tarde, visto que os demais municipios que utilizam o EL não possui esta configuração.

Bom dia, gostaria de saber se estão fazendo a integração com o webservice da Prefeitura de Santa Maria de Jetiba/ES? Em anexo envio o arquivo disponibilizado pela prefeitura com o Layout. Obrigado! layout_rps.zip

Envia sem acento, limite de caracteres = 20

Boa tarde. Estou com um problema em um cliente onde, já fiz de tudo, troquei as DLLs da pasta do ACBR, registrei a capcom, mudei as configurações do SSL do componente e mesmo assim o CT-E nao esta sendo enviado. Se eu pego um executável atualizado com o ACBR até o dia 03/04/2020 as CT-E's são enviadas normalmente, mas a impressão do DACTE esta fora do enquadro, mas deixei o cliente usando o anterior pois ele não pode ficar parado. .

Ficou certo desta forma. obrigado.

Bom dia, alguem poderia me explicar como resolver este problema na impressão do DACTE? Esta com margem na lateral direita da impressão. Estou usando o ACBr_CTeDacteRL

usei o svn para atualizar.

Estou com problema na instalação do ACBR: Compiling package C:\Arquivos\Componentes\D7\acbr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\Arquivos\Componentes\D7\acbr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\Arquivos\Componentes\D7\acbr\Fontes\ACBrDFe\ACBrDFeSSL.pas(201) Error: Undeclared identifier: 'THttpHeader' C:\Arquivos\Componentes\D7\acbr\Fontes\ACBrDFe\ACBrDFeUtil.pas(82) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrDFe\ACBrDFeException.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.