Sergio Sartori

bom a que eu faço para pegar o xml de retorno quando inutilizao a numeração da nfe ? olhei o demo mas não vi nada que fizesse essa função lá.

o problema de componente Opensources é isso, já estou quase uma semana tentando resolver isso e até agora nada, você não tem uma linha objetiva para resolver o problema né?. ai agente fica testando uma coisa, depois outra. mas tudo bem, vamos enfrente. se não ser certo o acbr vou usar idsmpt do delphi mesmo, acho que vai resolver o problema. por hora obrigado pela atenção.

EMBARBOSA, já conferi esta certo. mas coloquei os dados manualmente sem espaço em branco etc. mas não deu certo. mas os arquivos da emissão da nfe esta funcionando normal. consigo enviar normalmente, usando a mesma configuração do emitente. quanto fazer o teste, eu já exclui a pasta do acbr, e baixei novamente + o demo vem sempre desatualizado. inclusive hoje fiz isso exclui a pasta instalei o acbr novamente mas continua o exemplo da nfe antigo. usando este link https://svn.code.sf.net/p/acbr/code/trunk2 até desisti de atualizar.

não estou conseguindo enviar o arquivo da cc nfe, esta dando esse erro smtp:error unable to send mail from 501 5.1.3 invalid address já atualizei as dll mas continua a mesma coisa; MenuPrincipal.ACBrNFe1.NotasFiscais.Clear; MenuPrincipal.ACBrNFe1.NotasFiscais.LoadFromFile(vCaminho); //ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; try 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 MenuPrincipal.ACBrMail1.SetSSL := True; MenuPrincipal.ACBrMail1.SetTLS := False; end else if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'TSL' then begin MenuPrincipal.ACBrMail1.SetSSL := False; MenuPrincipal.ACBrMail1.SetTLS := True; end else begin MenuPrincipal.ACBrMail1.SetSSL := False; MenuPrincipal.ACBrMail1.SetTLS := False; end; // ACBrMail1.AddCC(vEmail1); // ACBrMail1.AddReplyTo('um_email'); // opcional // ACBrMail1.AddBCC(vEmail2); // opcional MenuPrincipal.ACBrMail1.Host := DM_EMPRESA.cds_empresaSERVIDOR_EMAIL.AsString; MenuPrincipal.ACBrMail1.Port := IntToStr(DM_EMPRESA.cds_empresaPORTA_EMAIL.AsInteger); MenuPrincipal.ACBrMail1.Username := DM_EMPRESA.cds_empresaEMAIL.AsString; MenuPrincipal.ACBrMail1.Password := DM_EMPRESA.cds_empresaSENHA_EMAIL.AsString; MenuPrincipal.ACBrMail1.FromName := DM_EMPRESA.cds_empresaNOME.AsString; MenuPrincipal.ACBrMail1.From := DM_EMPRESA.cds_empresaEMAIL.AsString; MenuPrincipal.ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email MenuPrincipal.ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) // ACBrMail1.FromName := 'Projeto ACBr - ACBrNFe'; MenuPrincipal.ACBrNFe1.EnviarEmailEvento(Para, edtEmailAssunto.Text, mmEmailMsg.Lines, nil, // Lista com emails que serao enviado copias - TStrings nil, // Lista de anexos - TStrings nil // ReplyTo ); finally ShowMessage('Carta de Correção enviada com sucesso!'); CC.Free; end; será que esta errado ?

ok, obrigado BigWings

Boa Tarde pessoal. estou com uma duvida a respeito do cancelamento da NFe. quando faço o cancelamento da nfe, preciso gravar no xml como cancelado não é isso? porque estou com um problema, com as notas que foram canceladas, ao enviar para o contador o xml o mesmo contabilizou como venda normal sem cancelamento, uma vez que no xml não tem nenhuma informação se a Nfe foi ou não cancelada. o contador me disse que so o meu sistema que não esta marcando o xml como cancelado, e isso é um problema uma vez que ele importa para o sistema de contabilidade e o próprio sistema já verifica se aquela nota foi ou não cancelada, como o meu xml esta normal o sistema entende que não ouve cancelamento. como consigo resolver este problema? antes eu usava a emissão e cancelamento por meio de uma api paga, como api fazia tudo, nem sabia desse problema, então eu não tinha esse problema, mas migrei para acbr, agora preciso de ajuda . um exemplo por favor?

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.

bom dia Solivan. Então, mas como você faz com a entrada? porque dividir o valor restante em parcelas tudo bem, mas e o valor de entrada? vc lança como na nota ?

obrigado Ricardo. vou fazer a correção. e testar Pessoal obrigado a todos que responderão, um Feliz Ano Novo a todos, muita paz, alegria. Deus abençoe a todos vocês neste Novo Ano. vou precisar muito da Ajuda de vocês. Abraço a todos.

Bom dia a todos, de ante mão já saldo a todos com um Feliz Anos Novo, com muita paz, alegria trabalho e sucesso. pessoal estou com uma duvida a respeito da forma de pagamento na NFe. eu posso na NFe usar uma forma de pagamento por exemplo: um valor de 1000,00 o cliente da uma entrada de 400,00 e parcelar o restante, 600,00 isso é possível na NFe ? pode ser feito não pode ser feito. pelo que me lembro não achei nada a respeito na nota técnica. se alguém puder tirar minha duvida, e for possível, me envie um exemplo por favor.!

Boa tarde Pessoal. obrigado pelo retorno. fiz assim: cStat := IntToStr(frmListaNFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.cStat); motivo := frmListaNFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.xMotivo ; nProt := frmListaNFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; dhRegEvento := DateToStr(frmListaNFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento); vChaveCancelamento := frmListaNFe.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe; frmListaNFe.AcbrNfe1.Configuracoes.Arquivos.Salvar := True; frmListaNFe.AcbrNfe1.Configuracoes.Arquivos.SalvarEvento := True; frmListaNFe.AcbrNfe1.Configuracoes.Arquivos.PathNFe := vCaminho; frmListaNFe.AcbrNfe1.Configuracoes.Arquivos.PathEvento := 'C:\sgmsistemagestao\Nfe\Calcelada'+ vPasta +'\'+vChaveCancelamento+'-procNFe.XML'; frmListaNFe.AcbrNfe1.Configuracoes.Arquivos.EmissaoPathNFe := True; mas não grava nada na pasta.

Boa tarde pessoal. estou com dificuldade, duvidas. é o seguinte, quando eu peço o cancelamento da nfe, o cancelamento é feito normalmente, porem aonde é gerado o xml de cancelamento ? e o pdf do mesmo ? isso esta ocorrendo com a Carta de correção tambem, e não tenho aminima ideia de como resolver isso. alguem pode me ajudar por favor? alguma rotina de exemplo ? obrigado.

Boa tarde Pessoal. Alguem pode me ajudar? como que eu faço para que saia o valor aproximado dos tributos, no cupom Fed Est . estou fazendo assim Total.vCFeLei12741 := DM_LANCHE.cds_itensVTOTTRIB_FED.AsFloat; mais ai só sai o fed tem outra tag que eu possa listar o total de cada tributo? já dei uma olhada no demo mas não achei nada sobre isso.

Bom a Todos. se alguém puder me ajudar, estou com dificuldade para entender como que eu faço o calculo do fundo a combate a pobreza. a duvida é: o calculo é feito por produto ou pelo total da NFe? só devo aplicar esse calculo para empresas fora do estado? se o calculo por por produtos devo somar o resultado com o total da nota? devo pegar a bc icms do produto ou o valor do icms para fazer o calculo? tem a questão da st também . estou precisando de ajuda se alguém tiver um exemplo fico grato.

Bom dia a todos. Pessoal estou com problema ao tentar cancelar uma nfe. ao executar o cancelamento da este erro : TDFeSSLXmlSignClass.Assinar não implementado já olhei o demo mas consigo achar aonde que eu estou errando. por favor se alguém puder me ajudar nisso, fico muito agradecido. segue o codigo cnpj := txtCNPJ; chave := chNFe; Justificativa := xJust; Protocolo := vProtocolo; //***************************************************************************** // Cancelamento NFe pela Chave de Acesso. //***************************************************************************** if not(InputQuery('WebServices Eventos: Cancelamento', 'Chave da NF-e', Chave)) then exit; Chave := Trim(OnlyNumber(Chave)); idLote := '1'; if not(InputQuery('WebServices Eventos: Cancelamento', 'Identificador de controle do Lote de envio do Evento', idLote)) then exit; CNPJ := copy(Chave,7,14); if not(InputQuery('WebServices Eventos: Cancelamento', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then exit; if not(InputQuery('WebServices Eventos: Cancelamento', 'Protocolo de Autorização', Protocolo)) then exit; Justificativa := 'Justificativa do Cancelamento'; if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa do Cancelamento', Justificativa)) then exit; ACBrNFe1.EventoNFe.Evento.Clear; with ACBrNFe1.EventoNFe.Evento.New do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := Justificativa; infEvento.detEvento.nProt := Protocolo; end; ACBrNFe1.EnviarEvento(StrToInt(idLote)); cStat := IntToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.cStat); motivo := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.xMotivo ; nProt := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; dhRegEvento := DateToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento); vChaveCancelamento := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe;

Boa tarde pessoal como que eu faço para que no xml saia de desta forma. ou seja a parte da st saia zerada. se eu deixar as st com valor zero tambem não sai. <ICMSSN900> <orig>0</orig> <CSOSN>900</CSOSN> <modBC>0</modBC> <pRedBC>0.00</pRedBC> <vBC>91.56</vBC> <pICMS>18.0000</pICMS> <vICMS>16.48</vICMS> <modBCST>0</modBCST> <pMVAST>0.00</pMVAST> <pRedBCST>0.00</pRedBCST> <vBCST>0.00</vBCST> <pICMSST>0.00</pICMSST> <vICMSST>0.00</vICMSST> <pCredSN>0.00</pCredSN> <vCredICMSSN>0.00</vCredICMSSN> </ICMSSN900> fiz assim : if dmnfe.cdsNfe_itensCFOP.AsString = '5411' then begin if dmnfe.cdsNfe_itensICMS_CSOSN.AsInteger = 900 then begin Imposto.ICMS.CSOSN := csosn900; Imposto.ICMS.modBC := dbiValorOperacao;//dbiMargemValorAgregado; Imposto.ICMS.pRedBC := 0; Imposto.ICMS.vBC := DMNFE.cdsNfe_itensICMS_VBC.AsFloat; Imposto.ICMS.pICMS := DMNFE.cdsNfe_itensICMS_PICMS.AsFloat; Imposto.ICMS.vICMS := DMNFE.cdsNfe_itensICMS_VICMS.AsFloat; Imposto.ICMS.modBCST := dbiMargemValorAgregado; Imposto.ICMS.pMVAST := 0; Imposto.ICMS.pRedBCST := 0; Imposto.ICMS.vBCST := 0; Imposto.ICMS.pICMSST := 0; Imposto.ICMS.vICMSST := 0; Imposto.ICMS.pCredSN := 0; Imposto.ICMS.vCredICMSSN := 0; end; end; por favor, estou precisando ajuda.

Neste caso então vai ser melhor contratar um componente pago mesmo, porque ai você tem todo o respaldo. Fiscal e a garantia de estar correto a forma de calcular os impostos da nfe. Abraço e Obrigado pela resposta.

Boa tarde a Todos. Pessoal estou precisando de ajuda como que eu faço os calculos dos impostos na nfe quando a empresa for simples nacional e quando for normal. não tenho experiencia nessa parte, quando o produto for substituição tributaria, quando for isento, quando for tributado. e tambem o como que eu calculo imposto fundo de pobreza. se alguem puder me ajudar, com algum exemplo completo fico muito agradecido, estou começando com acbr mas não tenho conseguido muita coisa sobre isso. se essas informações não for possivel ai vou ser obrigado aquirir componente pago para documentos fiscais, para ter suporte sobre esses calculos , mais isso é o plano b. desde já agradeço pela atenção.

Boa noite. Alguem poderia me ajudar, como que faço calculo icms, icmsst venda empresa normal para simples nacional NFE ? já olhei no exemplo do acbr, mas lá não tem calculos de tributos. pelos menos eu não encontrei. desde já agradeço.

Boa tarde a todos. pessoal alguem poderia me ajudar? estou desenvolvendo nfe e não tenho muita experiencia nesta area, como que Calcular vICMSST CST 10, 30, 70 ou 90 regime normal venda dentro e fora do estado.?

BigWings sua dica foi, perfeita. Obrigado por sua atenção.

Obrigado deu certo, isto não esta no demo do acbr. Obrigado.

Boa tarde a todos. se possível alguém poderia me explicar como que eu faço para inserir + de um produto no xml? estou fazendo assim : mas somente de 5 produtos só grava o ultimo no xml. //****************************************************************************** // produtos //****************************************************************************** vItens:= 0; Produto := NotaF.NFe.Det.Add; Produto.Prod.nItem:= vItens; vItens := 0; dmnfe.cdsNfe_itens.First; while not dmnfe.cdsNfe_itens.Eof do begin Inc(vItens); Produto.Prod.nItem := vItens; // Número sequencial, para cada item deve ser incrementado Produto.Prod.cProd := IntToStr(dmnfe.cdsNfe_itensCPROD.AsInteger);//'123456'; Produto.Prod.cEAN := dmnfe.cdsNfe_itensCEAN.AsString; Produto.Prod.xProd := dmnfe.cdsNfe_itensXPROD.AsString; Produto.Prod.NCM := dmnfe.cdsNfe_itensNCM.AsString; // Tabela NCM disponível em http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm Produto.Prod.EXTIPI := ''; Produto.Prod.CFOP := IntToStr(dmnfe.cdsNfe_itensCFOP.AsInteger); Produto.Prod.uCom := dmnfe.cdsNfe_itensUCOM.AsString; Produto.Prod.qCom := dmnfe.cdsNfe_itensQCOM.AsFloat; Produto.Prod.vUnCom := dmnfe.cdsNfe_itensVUNCOM.AsFloat; Produto.Prod.vProd := dmnfe.cdsNfe_itensVPROD.AsFloat; Produto.Prod.cEANTrib := dmnfe.cdsNfe_itensCEANTRIB.AsString; Produto.Prod.uTrib := 'UN'; Produto.Prod.qTrib := 1; Produto.Prod.vUnTrib := 100; Produto.Prod.vOutro := 0; Produto.Prod.vFrete := 0; Produto.Prod.vSeg := 0; Produto.Prod.vDesc := 0; // Produto.Prod.CEST := dmnfe.cdsNfe_itensCest.AssTring; dmnfe.cdsNfe_itens.Next; end; Produto.infAdProd := 'Informacao Adicional do Produto'; ACBrNFe1.NotasFiscais.Items[0].GravarXML('Teste.xml', ExtractFilePath(ParamStr(0))); ACBrNFe1.NotasFiscais.Clear;

Obrigado Ricardo Rohde. Isso mesmo valeu.