d2mpavan

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...

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ópia ACBrNFSe1.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 begin ACBrNFSe1.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ópia Memo_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! Titulos.ini CB010300.REM