Sergio Sartori

obrigado BigWings

Vc pode me dar um exemplo como que eu passo esse parametro por favor?

Bom dia pessoal . estou com problema no envia dos arquivos da carta de correção por email! so esta chegando no email do cliente o arquivo pdf o xml não. é assim mesmo no caso da carta de correção só envia o arquivo pdf ? /*********************************************************************** esse é o codigo //********************************************************************** vCaminho := 'C:\sgmsistemagestao\Nfe\CCe\'+vAn+'\'+vMe+'\'+pegaChaveRec+'-procEventoNFe.xml'; if vEmail1 <> '' then begin vEmail:= vEmail + ';' + vEMail1; end; if vEmail2 <> '' then begin vEmail:= vEmail + ';' + vEMail2; end; Para := vEmail; if not(InputQuery('Enviar Email', 'Digite o Email de destino', Para)) then exit; OpenDialog1.InitialDir := frmListaNFe.ACBrNFe1.Configuracoes.Arquivos.PathSalvar; OpenDialog1.Title := 'Selecione ao Evento'; OpenDialog1.DefaultExt := '*.XML'; OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := frmListaNFe.ACBrNFe1.Configuracoes.Arquivos.PathSalvar; Evento := TStringList.Create; Evento.Clear; Evento.Add(OpenDialog1.FileName); frmListaNFe.ACBrNFe1.EventoNFe.Evento.Clear; frmListaNFe.ACBrNFe1.EventoNFe.LerXML(vCaminho); CC:=TstringList.Create; CC.Add('[email protected]'); //especifique um email válido CC.Add('[email protected]'); //especifique um email válido if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'SSL' then begin frmListaNFe.ACBrMail1.SetSSL := True; frmListaNFe.ACBrMail1.SetTLS := False; end else if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'TSL' then begin frmListaNFe.ACBrMail1.SetSSL := False; frmListaNFe.ACBrMail1.SetTLS := True; end else begin frmListaNFe.ACBrMail1.SetSSL := False; frmListaNFe.ACBrMail1.SetTLS := False; end; frmListaNFe.ACBrMail1.Host := DM_EMPRESA.cds_empresaSERVIDOR_EMAIL.AsString; frmListaNFe.ACBrMail1.Port := IntToStr(DM_EMPRESA.cds_empresaPORTA_EMAIL.AsInteger); frmListaNFe.ACBrMail1.Username := DM_EMPRESA.cds_empresaEMAIL.AsString; frmListaNFe.ACBrMail1.Password := DM_EMPRESA.cds_empresaSENHA_EMAIL.AsString; frmListaNFe.ACBrMail1.FromName := DM_EMPRESA.cds_empresaNOME.AsString; frmListaNFe.ACBrMail1.From := DM_EMPRESA.cds_empresaEMAIL.AsString; frmListaNFe.ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email frmListaNFe.ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) // ACBrMail1.FromName := 'Projeto ACBr - ACBrNFe'; frmListaNFe.ACBrNFe1.EnviarEmailEvento(Para, edtEmailAssunto.Text, mmEmailMsg.Lines, nil, // Lista com emails que serao enviado copias - TStrings nil, // Lista de anexos - TStrings nil // ReplyTo ); showMessage('Email enviado com sucesso.'); CC.Free; Evento.Free;

deu certo sim Obrigado.

como é bom quando encontramos pessoas que estende sua mão para nos ajudar, sem se preocuparem obter alguma vantagem em troca. isso é maravilho. Muito Obrigado pela preocupação de ajudar. Att. Sérgio

esse conteudo esta dentro de um laço. eu estou pegando todos os itens, mas não estou conseguindo pegar esse campo. mas vou usar esse exemplo que vc postou creio que agora vai dar certo. Obrigado RicardoVoigt. por sua tenção.

Boa tarde pessoal. estou com problema ao fazer uma carta de correção. da esta menssagem: Ocorreu o seguinte erro ao enviar a carta de correção: Código :494 Motivo : Rejeição: Chave de Acesso inexistente para o tpEvento que exige a existência da NF-e. consultei a NFe no portal da sefaz e a nota esta lá, como que eu resolvo esse problema? quando eu consulto a Nfe pelo acbr Rejeição: NF-e não consta na base de dados da SEFAZ. AGORA TUDO FUNCIONA QUANDO FAÇO AS OPERAÇÕES EM MODO DE HOMOLOGAÇÃO. ESTOU PRECISANDO DE AJUDA.

pessoal boa tarde. estou tentando pegar os dados da csosn dos produtos da NFe de compras mas não esta dando certo. alquem poderia me auxiliar melhor ? //*********************************** PEGA A CSOSN ************************************ if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosnVazio then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn101 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '101' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn102 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '102' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn103 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '103' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn201 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '201' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn202 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '202' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn203 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '203' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn300 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '300' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn400 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '400' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn500 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '500' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn900 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '900'; //***********************************************************************************

Obrigado pela dica, RicardoVoigt vou tentar fazer isso.

Boa tarde a todos. pessoal existe alguma tabela NCM relacionado o cest com ncm ? ate achei mas a tabela cest tem 1200 itens e a tabela ncm tem onze mil e pouco. alguem pode me ajudar nisto?

bom dia a Todos. pessoal não estou conseguindo imprimir a inutilização da NFe. já olhei aqui no form , mas tudo que eu tentei não deu certo. estou fazendo errado? alguem tem um exemplo exato como tem que ser ? Exemplo: NFE.ImprimirInutilizacao( "c:\35XXXXXXXXXXXXXXXX550010000000050000000058-inu.xml" )

Pessoal tem como salvar arquivo xml de inutilização? já olhei no demo mas não tem nada referente a isso.

quando faço a consulta da nfe transmitida e autorizada da esta mensagem, em todos os clientes. "Nfe não consta na base de dados da sefaz" pego a chave e consulto na sefaz a nota esta lá. mas no sistema diz que "Nfe não consta na base de dados da sefaz" isso acontece somente em produção em homologação funciona normalmente.

como que agente faz para baixar o xml cancelado, tem algum exemplo ?

obrigado Juliomar. vou ver se da certo.

Bom dia Juliomar. se você sabe que não tem esse recurso no manual, porque você esta peguntando se achei alguma coisa. você como um profissional que aparenta ter uma larga experiencia no assunto, como tal deveria apenas informar que isso não seria possível. você não deve ficar ironizando as pessoas, com certeza você algum dia teve duvidas sobre algo, e alguém tirou suas duvidas. nós precisamos olhar para pessoas e entender que nunca seremos os melhores, sempre haverá alguém melhor que você, por isso o verdadeiro profissional é aquele que ajuda, que orienta, que esta disposto a compartilhar, que saiba ouvir as pessoas, que saiba trabalhar em harmonia com outras pessoas, saiba que uma pessoa demora mais para aprender, outros aprendem com mais facilidade, neste fórum aonde é dito que foi feito para um ajudar o outro, não pode haver pessoas que ironoicas, sem vontade ajudar, que se acha o melhor, que acha os outros como idiotas etc. se assim for o fórum não faz sentido.

Bom dia a Todos. Estou com um problema sério, e não estou conseguindo resolver. faço o cancelamento da NFe ateai ok o problema é que quando o escritório importa o xml da nota, não há cancelamento a nota esta como venda normal. o cliente esta muito bravo e eu não sei como resolver isso. tem alguém disposto ajudar ? obrigado.

Bom dia Juliomar. se você sabe que não tem esse recurso no manual, porque você esta peguntando se achei alguma coisa. você como um profissional que aparenta ter uma larga experiencia no assunto, como tal deveria apenas informar que isso não seria possível. você não deve ficar ironizando as pessoas, com certeza você algum dia teve duvidas sobre algo, e alguém tirou suas duvidas. nós precisamos olhar para pessoas e entender que nunca seremos os melhores, sempre haverá alguém melhor que você, por isso o verdadeiro profissional é aquele que ajuda, que orienta, que esta disposto a compartilhar, que saiba ouvir as pessoas, que saiba trabalhar em harmonia com outras pessoas, saiba que uma pessoa demora mais para aprender, outros aprendem com mais facilidade, neste fórum aonde é dito que foi feito para um ajudar o outro, não pode haver pessoas que ironoicas, sem vontade ajudar, que se acha o melhor, que acha os outros como idiotas etc. se assim for o fórum não faz sentido.

Boa tarde Juliomar. ok Obrigado.

Boa tarde a todos. Pessoal como que eu faço, para sair no cupom sat na forma de pagamento, sair carnê no lugar da opção outros? tem como fazer isso.?

Boa tarde RicardoVoigt Configuracoes.Geral.SSLLib := libWinCrypt; Configuracoes.Geral.SSLCryptLib := cryWinCrypt; Configuracoes.Geral.SSLHttpLib := httpWinINet; Configuracoes.Geral.SSLXmlSignLib := xsMsXml; Configuracoes.Geral.IdentarXML := False;

pessoal na verdade o erro é esse: - Inativo ou Inoperante tente novamente. Erro Interno: 12031 Erro HTTP: 0 URL: https://nfe.fazenda.sp.gov.br/ws/nfestatusservico4.asmx Erro: Requisição não enviada. Erro: 12031 - A conexão com o servidor foi redefinida

bom dia pessoal. estou com esse problema apos carregar o certificado A1. WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - Erro: Requisicao nao enviada. 12057 - N já pesquisei no forum, fiz alguns procedimentos que esta lá, mas mesmo assim continua com o problema, e não tenho nem ideia oque fazer para resolver. alguem sabe como resolver esse problema ?

Boa tarde Solivan. obrigado pelo retorno. mas a minha duvida, creio que eu não expressei corretamente. o valor da entrada ele vai aparecer no corpo da nota como valor de entrada? exemplo um valor de 1000,00, aonde o cliente da uma entrada de 400,00 e divide o restante em 6x de 100,00 no corpo da NFe aparece o valor de entrada e o valor das parcelas? somando um total de 1000,00

Bom dia a Todos. Pessoal estou com duvidas a respeito do cancelamento da NFe. quando eu cancelo uma NFe, eu preciso alterar o xml da Nfe emitida e autorizada, para cancelada né? porque quando envio o xml para o contador, não vai ter no xml nenhuma informação que aquela nota foi cancelada. é isso mesmo? por favor me ajudem, estou meio confuso neste quesito. desde agradeço a atenção.