Arivaldo

E vc. consegue alinhar corretamente isso? Pois é passado para o componente uma string certo ?

Bom dia Italo, desculpe minha insistência vc. conseguiu dar uma verificada no meu tópico acima ?

Ou seja, somente um serviço com um descrição gigante especificando todos os serviços? Acho muito estranho sou da cidade de Araras-SP olha só o modelo de uma nota fiscal emitida pelo emissor da prefeitura. Tem como fazer isso pelo componente ? rp_nfse.684.pdf

Boa tarde Italo, estou preparando uma rotina para a geração da NFSe e no exemplo ele somente passa um serviço. Vc. pode me orientar como passar para o componente n serviços para um mesmo fornecedor? Na mesma nota. Obrigado.

Também estou com esta dúvida? Alguém já passou por isso ? Como lançar mais de um serviço na NFSe ?

Não o que aconteceu comigo foi o seguinte, tenho um sistema de gestão que gera o arquivo no layout para o emissor de nfe. Utilizei este mesmo arquivo para importar para o componente do ACBR. Só q. existia um erro (que já foi corrigido) que na hora de validar dava um erro dizendo que não carregava o ICMSSN sendo que eu estava utilizando Serviço! Caso vc. utilize o fonte é so atualizar o repositório. Com relação ao ACBrNFeMonitor não sei lhe dizer!

Para gerar a NF-e e gero um arquivo txt e importo para o componente ACBr a NFse também possibilita isso ?

Me desculpe, acabei instalado o Reporte do Danfe e não o do DanfeSe para conseguir instalar no Delphi 2007 tive que remover a qrpt.dcp e a visualclx conforme o Italo comentou !

Italo, fechei o delphi e compilei de novo e passou !!!!

Beleza fiz o que vc. falou e deu certo ! Continuei com a instalação e ao instalar o proximo pacote AcbrNfseDanfseQrPck e exibido a seguinte mensagem Add vcljpg. Add QR4RunD2007. ? Dei sim e da acess violation o que devo fazer ?

Opa, agora deu certo, maravilha !!!!! Muito obrigado.

Italo desconsidere a pergunta anterior pois tinha criado um diretório a mais e o delphi não estava encontrando o arquivos só que agora esta pedindo por : [DCC Warning] ACBrNFSeUtil.pas(116): W1055 PUBLISHED caused RTTI ($M+) to be added to type 'NotaUtil' [DCC Warning] ACBrNFSeWebServices.pas(235): W1055 PUBLISHED caused RTTI ($M+) to be added to type 'TWebServices' [DCC Error] ACBrNFSeWebServices.pas(1198): E2003 Undeclared identifier: 'ParseText' [DCC Error] ACBrNFSeWebServices.pas(1201): E2003 Undeclared identifier: 'SeparaDados' [DCC Error] ACBrNFSeWebServices.pas(1436): E2003 Undeclared identifier: 'ParseText' [DCC Error] ACBrNFSeWebServices.pas(1439): E2003 Undeclared identifier: 'SeparaDados' [DCC Error] ACBrNFSeWebServices.pas(1699): E2003 Undeclared identifier: 'ParseText' [DCC Error] ACBrNFSeWebServices.pas(1702): E2003 Undeclared identifier: 'SeparaDados' [DCC Error] ACBrNFSeWebServices.pas(1957): E2003 Undeclared identifier: 'ParseText' [DCC Error] ACBrNFSeWebServices.pas(1960): E2003 Undeclared identifier: 'SeparaDados' [DCC Error] ACBrNFSeWebServices.pas(2212): E2003 Undeclared identifier: 'ParseText' [DCC Error] ACBrNFSeWebServices.pas(2215): E2003 Undeclared identifier: 'SeparaDados' [DCC Error] ACBrNFSeWebServices.pas(2470): E2003 Undeclared identifier: 'ParseText' [DCC Error] ACBrNFSeWebServices.pas(2473): E2003 Undeclared identifier: 'SeparaDados' [DCC Error] ACBrNFSe.pas(15): F2063 Could not compile used unit '..\..\..\Fontes\ACBrNFSe\ACBrNFSeWebServices.pas'

Ok, removi e agora esta pedindo [DCC Error] ACBr_NFSe.dpk(64): F1026 File not found: 'ACBrNFSe.dcu'

Bom dia gerei o arquivo com a base de calculo de iss conforme novo arquivo txt: 2-3-NFe_537.txt o mesmo foi importado e gerou o xml: 35111012761278000160550010000005371054278246-nfe.xml E continuo gerando o mesmo erro !

Estou tendo o mesmo problema ? Uso delphi2007

Que isso, agradeço por estar me ajudando!

Conforme eu expliquei no tópico acima "Bom dia, tenho um sistema de gestão e dele gero um arquivo txt e importo para o componente acbr.", não estou setando os campos pelo componente e sim importando um arquivo texto conforme anexado no tópico acima!!

Bom dia, tenho um sistema de gestão e dele gero um arquivo txt e importo para o componente acbr. A rotina estava funcionando corretamente com produto quando fui colocar em produção no meu cliente o mesmo trabalha com serviços e ai foi que identifique no meu entender um possível erro. Conforme relatado logo abaixo. Este são os arquivos txts(Um gerado pelo meu sistema e outro pelo da Receita que inclusive foi validado! ) 2-3-NFe_535_Gerado pelo Emiisor da Receita.txt Este é o xml do componente Acbr: 35111012761278000160550010000005351000331926-nfe.xml Este é o erro que é dado na validação: Falha na validação dos dados da nota 535 Element '{http://www.portalfiscal.inf.br/nfe}ICMSSN' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}ICMS'. Expecting: {http://www.portalfiscal.inf.br/nfe}ICMS00, {http://www.portalfiscal.inf.br/nfe}ICMS10, {http://www.portalfiscal.inf.br/nfe}.... O que estou entendendo é que o XML deveria ser gerado com ISSQN e não com ICMSSN! Detalhe que é uma empresa do simples nacional e o campo CRT está com 1 Por gentileza quem puder me ajudar ficarei muito agradecido. Pois o programa está em produção. Obrigado!

Por exemplo se um email for cadastrado erradamente e enviado para o componente dará este erro : "SMTP ERROR: MailTo:Permanent Failure-Syntax error 504 5.5.2 : Recipient address rejected: need fully-qualified address." Só que se vc. reparar no código que passei acima o mesmo esta protegido só que não entra no except !!!

try ACBrNFe.NotasFiscais.Items[0].EnviarEmail(vQAux.FieldByName('MAIL_SERVER_SMTP_NFE').AsString,// edtSmtpHost.Text vQAux.FieldByName('MAIL_PORTA_NFE').AsString,//, edtSmtpPort.Text vQAux.FieldByName('MAIL_USER_NFE').AsString,//, edtSmtpUser.Text vQAux.FieldByName('MAIL_SENHA_NFE').AsString,//, edtSmtpPass.Text vQAux.FieldByName('MAIL_USER_NFE').AsString,//, edtSmtpUser.Text vDest, vQAux.FieldByName('MAIL_ASSUNTO_NFE').AsString,//, edtEmailAssunto.Text mmEmailMsg, cbEmailSSL,//, cbEmailSSL.Checked // SSL - Conexão Segura True, //Enviar PDF junto CC, //Lista com emails que serão enviado cópias - TStrings nil, // Lista de anexos - TStrings true, //Pede confirmação de leitura do email true, //Aguarda Envio do Email(não usa thread) vOPerador, //, 'ACBrNFe2' // Nome do Rementente cbEmailSSL ); if ACBrNFe.NotasFiscais.Items[0].Alertas = '' Then Begin vQaux.Close; vQaux.SQL.Clear; vAux := 'UPDATE NOTA_FISCAL N '; vAux := vAux + ' SET DT_EMAIL_NFE = SYSDATE'; vAux := vAux + ' WHERE N.NR_DA_NOTA = :NOTA'; vAux := vAux + ' AND N.ID = :ID '; vAux := vAux + ' AND N.CD_SERIE = :CD_SERIE'; vQAux.SQL.Add(vAux); vQAux.Params[0].AsString := Q1.FieldByName('NR_DA_NOTA').AsString; vQAux.Params[1].AsString := Q1.FieldByName('ID').AsString; vQAux.Params[2].AsString := Q1.FieldByName('CD_SERIE').AsString; vQAux.ExecSQL(); vQAux.Close; vQAux.Free; End; except end; Estou tratando a rotina de envio de e-mail com try dentro dela tem um if que verifica o alerta mas antes de chegar no alerta um erro é exibido para o cliente com a mensagem de alerta. "E essa mensagem que eu gostaria que não fosse exibida ou se eu pudesse tratá-la"

ACBrNFe.NotasFiscais.Items.Alertas funcionou corretamente consigo verificar por ela se o e-mail foi enviado ou não corretamente.Mas mesmo fazendo o tratamento por try o erro é exibido tem como ocultar o erro ? Obrigado!

ACBrNFe.NotasFiscais.Items[0].EnviarEmail(vQAux.FieldByName('MAIL_SERVER_SMTP_NFE').AsString,// edtSmtpHost.Text vQAux.FieldByName('MAIL_PORTA_NFE').AsString,//, edtSmtpPort.Text vQAux.FieldByName('MAIL_USER_NFE').AsString,//, edtSmtpUser.Text vQAux.FieldByName('MAIL_SENHA_NFE').AsString,//, edtSmtpPass.Text vQAux.FieldByName('MAIL_USER_NFE').AsString,//, edtSmtpUser.Text vDest, vQAux.FieldByName('MAIL_ASSUNTO_NFE').AsString,//, edtEmailAssunto.Text mmEmailMsg, cbEmailSSL,//, cbEmailSSL.Checked // SSL - Conexão Segura True, //Enviar PDF junto CC, //Lista com emails que serão enviado cópias - TStrings nil, // Lista de anexos - TStrings true, //Pede confirmação de leitura do email true, //Aguarda Envio do Email(não usa thread) vOPerador,//, 'ACBrNFe2' // Nome do Rementente cbEmailSSL ); ShowMessage(ACBrNFe.NotasFiscais.Items[0].Msg); Adicionei esta linha ShowMessage(ACBrNFe.NotasFiscais.Items[0].Msg); e o que acontece é que gera o erro pelo componente Acbr e nesta linha informada nada retorna

Para envio de e-mail também? Obrigado pela ajuda ?

Boa tarde estou com a mesma necessidade, quero saber se ocorreu algo no momento do envio e mesmo protegendo o código não consigo pegar o erro !!!