d2mpavan
-
Total de ítens
109 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por d2mpavan
-
-
Boa Noite Italo!
Quanto as mensagens de Status, já resolvi.... faltou colocar o evento "OnStatusChange" no componente ACBRNFSE.
Me desculpe....
Agora, quanto à mensagem no envio do e-mail da NFSe, essa continua.
A única diferença entre o programa Demo ACBrNFSe com o meu é que o Demo Lê o XML diretamente do arquivo e meu software está buscando o XML diretamente de um campo texto do Banco de Dados, onde também eu armazeno o XML da NFSE, o qual comparei com o conteúdo do XML salvo pelo programa e estão exatamente iguais.
Segue abaixo as linhas de código:
Programa Demo:
procedure TfrmDemo_ACBrNFSe.btnEnviaremailClick(Sender: TObject);
var
vAux: String;
sCC: TStrings;
begin
OpenDialog1.Title := 'Selecione a NFSe';
OpenDialog1.DefaultExt := '*-NFSe.xml';
OpenDialog1.Filter := 'Arquivos NFSe (*-NFSe.xml)|*-NFSe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
OpenDialog1.InitialDir := ACBrNFSe1.Configuracoes.Arquivos.PathSalvar;if OpenDialog1.Execute then
begin
ACBrNFSe1.NotasFiscais.Clear;
ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);if not(InputQuery('Enviar e-mail', 'Destinatário', vAux))
then exit;sCC:=TStringList.Create;
sCC.Clear; // Usando para add outros e-mail como Com-CópiaACBrNFSe1.NotasFiscais.Items[0].EnviarEmail(vAux
, edtEmailAssunto.Text
, mmEmailMsg.Lines
, True //Enviar PDF junto
, nil //Lista com emails que serão enviado cópias - TStrings
, nil // Lista de anexos - TStrings
);sCC.Free;MemoDados.Lines.Add('Arquivo Carregado de: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
LoadXML(MemoResp, WBResposta);
PageControl2.ActivePageIndex := 1;
end;
end;Meu Programa:procedure TFEnviaLoteNFSE.EnviaEmail;
var
vAux, slink: String;
sCC: TStrings;
begin
if (Trim(MDNFSeCLI_EMAIL.AsString) <> '') and (Trim(MDNFSeNFSE_COD_VERIFICACAO.AsString) <> '') and
(MDNFSeNF_NUMERO.Value > 0) and (MDNFSePROCESSADA.AsString = 'Sim') then
beginACBrNFSe1.NotasFiscais.Clear;
ACBrNFSe1.NotasFiscais.LoadFromString(MDNFSeNF_INFADCFISCO.AsString,False);slink := ACBrNFSe1.LinkNFSe(StrToIntDef(MDNFSeNF_NUMERO.AsString, 0), MDNFSeNFSE_COD_VERIFICACAO.AsString);sCC:=TStringList.Create;
sCC.Clear; // Usando para add outros e-mail como Com-CópiaMemo_TXT_Email.Lines.Clear;
Memo_TXT_Email.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'e-mail_NFS-e.TXT');Memo_TXT_Email.Lines.Add('Link da NFS-e: ' + slink);ACBrNFSe1.NotasFiscais.Items[0].EnviarEmail(MDNFSeCLI_EMAIL.AsString
, 'Envio de NFS-e - ' + MEMP_RAZAO.Text
, Memo_TXT_Email.Lines
, True //Enviar PDF junto
, nil //Lista com emails que serão enviado cópias - TStrings
, nil // Lista de anexos - TStrings
);sCC.Free;MemoDados.Lines.Add('Arquivo Carregado de: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
LoadXML(MemoResp, WBResposta);
end;
end;Desculpe se ficou muito longo.Mas quem puder ajudar, ficarei muito agradecido.Daniel -
Boa Noite Italo!
Não ocorre com o programa exemplo.
Notei que, em qualquer momento, seja no envio do e-mail, seja na geração e envio do lote, o meu sistema não está exibindo as mensagens de Status....
Por exemplo: Enviando eMail...
Inclusive, as caixas de retorno no momento da Geração e envio do lote contendo o número do protocolo não aparece....
Saberia me dizer como faço para elas serem exibidas?
Estou com mais alguns problemas no envio também.... Em alguns momentos o lote é enviado normalmente e em outros me retorna uma mensagem de erro em branco, tipo uma caixa de mensagem de erro somente com o botão OK. Nesses casos, ao verificar, posso ver que o lote foi enviado e protocolado...
Desde já agradeço imensamente sua ajuda Italo!
Um Grande abraço!
Daniel
-
Bom Dia!
Estou integrando meu sistema com o ACBRNFS-e.
Já estou conseguindo enviar, emitir os DANFSe, mas quando vou enviar o e-mail surge o erro em anexo.
Porém o e-mail é enviado e inclusive chega com o XML e o PDF da NFSe.
O que poderia estar ocorrendo?
Se fosse apenas a mensagem, apesar de enviar normalmente, tudo bem.
O problema é que, como estou enviando um lote com "N" NFS-e, imagine o usuário precisar ficar pressionando "Ok" pra fechar a mensagem toda vez que um e-mail é enviado.
Do mais, a ferramenta está ótima e acredito que eu não esteja configurando algo pra estar mostrando essa mensagem de erro.
Caso necessitem de maiores informações ou algum XML, por favor me avisem.
Um grande abraço e todos!
Daniel
-
É no exemplo que estou verificando...
Tenho o Fortes Report, pode ser por ele?
Se sim, como faço pra associar?
Já encontrei o local no componente, porém não me dá nenhuma opção para inserir o Fortes.
Obrigado novamente!!!
Resolvido!!!
Já encontrei o componente pra associar.
Muito obrigado Maiquel!!!
Que Deus te abençoe!
-
Boa Tarde Maiquel!
Consegui enviar um RPS por lote.
Porem não estou conseguindo Emitir o DANFESe.
Me retorna: Componente DANFSe não associado.
O que poderia ser?
Valeu pela ajuda Maiquel !!!
Grande abraço!
-
Boa Noite!
Estou efetuando alguns testes com o Exemplo da NFSe em Delphi antes de implementar em meu software e me deparei com o seguinte problema (conforme tela em anexo):
Mensagem: Arquivo enviado fora da estrutura do arquivo XML de entrada - campo(s) obrigatório(s) faltando..... (ver imagem, por favor).
Agradeço a quem puder me ajudar.
Abraços!
Daniel
-
Boa Noite acgubamg!
Obrigado por tentar me ajudar.
Baixei o manual, porém estou usando o CNAB400.
Verifiquei o campo ocorrência (posições 109-110).
Nesse local está exatamente o que manda o manual, ou seja, "01". (Remessa conforme manda a Nota 4 do manual).
Não consegui encontrar o que possa estar ocorrendo.
Se alguém tem mais alguma sugestão.... agradeço!!
Amanhã entrarei em contato com o banco para ver o que possa estar ocorrendo.
Manterei o post atualizado.
Obrigado!!!
-
Boa Tarde a Todos!
Desculpe se abri um novo tópico sem necessidade.
É que não encontrei algo que pudesse me ajudar nesse sentido.
Pois bem... é minha primeira postagem aqui no fórum.
Eu utilizava o Cobrebem e agora estou ajustando meu SW para o ACBR.
Na Emissão do boleto, tudo ok.
Porém não estou conseguindo finalizar os testes com o Banco Itaú (segue arquivo ini com os boletos que estou enviando).
Está rejeitando conforme abaixo:
MotivoRejeicao1=OCORRÊNCIA -OCORRÊNCIA INVÁLIDA
Alguém poderia me auxiliar onde estou errando ou falta algum campo para ser informado?
Agradeço a todos!
Cannot open file ""... Erro ao enviar e-mail da NFS-e
em ACBrNFSe
Postado
Boa Noite!
Encontrei o erro.
MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
Como eu não efetue a leitura do arquivo pelo xml, o nome do arquivo estava em branco.
Não efetuei o debug do meu software antes de postar aqui.
Erro primário de minha parte, mas como estou me ambientando com a ferramenta, espero que compreendam.
Não irá acontecer novamente.
Desculpem conturbar o Fórum...