econdotta
-
Total de ítens
110 -
Registro em
-
Última visita
-
Days Won
1
Community Answers
-
econdotta's post in ACBRMail - LocaWeb classifica como Spam was marked as the answer
Olá, consegui resolver em parte o problema.
A rejeição ocorre quando eu tento enviar um e-mail para a Locaweb usando um servidor smtp internacional. Quando mudei para o nacional voltou a funcionar, embora ainda caia na pasta Spam do destinatário.
Muito obrigado a todos.
-
econdotta's post in Geração de PDF de Eventos da NFe was marked as the answer
Consegui da seguinte forma graças a ajuda do Everton Neres no canal do ACBR no Discord.
fNF_e.ACBrNFe1.NotasFiscais.Clear;
fNF_e.ACBrNFe1.NotasFiscais.LoadFromString(XML_Nota);
fNF_e.ACBrNFe1.EventoNFe.Evento.Clear;
fNF_e.ACBrNFe1.EventoNFe.LerXMLFromString(qryCorrecao.FieldByName('XML_Carta').AsString);
fNF_e.ACBrNFe1.ImprimirEventoPDF;
sNomePDF := fNF_e.ACBrNFeDANFE1.ArquivoPDF;
Onde o sNomePDF possui o caminho e o nome do PDF gerado.
Obrigado pela ajuda a todos.
Edson Condotta
-
econdotta's post in Geração Seu Numero Sicredi was marked as the answer
Olá a todos,
Segue em anexo arquivo fonte do ACBRBancoSicredi para analise e se conveniente ajuste do mesmo que eu alterei em vista do mesmo estar preenchendo do zeros somente. Isto se deve ao fato de que o ACBrTitulo.fSeuNumero estar chegando com este conteúdo '0000000000000000000000192' e na formatação na linha 224 estar pegando apenas os 10 primeiros caracteres.
Linha 224 anterior: ANumeroDocumento := PadRight(IfThen(SeuNumero <> '', SeuNumero, NumeroDocumento), 10, ' ');
Linha 224 atual: ANumeroDocumento := PadRight(IfThen(SeuNumero <> '', IntToStr(SeuNumero.ToInteger), NumeroDocumento), 10, ' ');
Desde já agradeço a atenção de todos.
ACBrBancoSicredi.pas
-
econdotta's post in Retorno Banco do Brasil 240 was marked as the answer
Olá a todos,
consegui resolver. o problema estava na remessa, eu não estava dizendo que a Modalidade era '' (vazio) e o ACBR efetuava uma outra configuração.
Tudo resolvido.
Agradeço a atenção e ajuda de todos.
-
econdotta's post in Importação Arquivo Sped was marked as the answer
Pessoal achei o meu erro.
Para acessar os Registros 0150 utilizei o seguinte código.
For Linha := 0 To SpedFiscal.Bloco_0.Registro0001.Registro0150.Count - 1 Do
Begin
Codigo := SpedFiscal.Bloco_0.Registro0001.Registro0150.Items[Linha].COD_PART;
End;
Muito obrigado a todos.
-
econdotta's post in Acesso Sefaz-MS dentro da UF MS was marked as the answer
Obrigado pelo retorno, o problema foi resolvido, era uma situação na Sefaz vejam no link abaixo. O tecnico seguiu as informações e o sistema voltou a emitir NF-e.
https://blog.tecnospeed.com.br/sefaz-mensagem-de-certificado-invalido/
Novamente agradeço a ajuda.
-
econdotta's post in NFSe Trunc2 12044 - É necessário um certificado para concluir a autenticação do cliente was marked as the answer
Pessoal, efetuei o debug (Delphi XE2) e na linha 406 da unit ACBrHTTPReqResp.pas "if HttpSendRequest(pRequest, nil, 0, Pointer(FData), Length(FData)) then" está retornado False, sendo que o conteudo de FData possui o XML do RPS assinado.
InternalErrorCode: 12044
GetWinInetError(InternalErrorCode) : 'É necessário um certificado para concluir a autenticação do cliente'#$D#$A
O Certificado é A1 com validade até 16/04/2016.
Alguma dica???