itasouza

Olá, tenho um sistema em delphi que precisar de pequenos ajustes ou criação de alguma funcionalidade nova, o projeto está com o código bem organizado e simples, caso alguém tenha interesse podemos negociar um valor hora para estas atividades.

Correto amigo. se conseguir me ajudar eu agradeço!

Pessoal, alguém sabe Quais os caminhos corretos da pasta arquivos nfe , cancelamento, inutilização, eventos etc, estou usando o fortes report – delphi xe6 Agradeço

Você me ajudou muito, você acertou a resposta do problema uff ICMSUFDest.pICMSUFDest precisa vim com o valor 40? está correto isso?

Este arquivo existe em: C:\ACBr\Fontes\ACBrDFe\ACBrNFe\PCNNFe Mais eu estou usando o : C:\ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi E não encontrei uma referencia para ele with Imposto do begin with ICMS do begin if dmNotaFiscal.sqlDetalheVenda.FieldByName('cst').AsString = '000' then // 0 - Tributado begin vTotTrib := (Prod.vProd) * dmNotaFiscal.sqlConsultaIBPT.FieldByName('ALIQNAC').AsFloat ; CSOSN := csosn101; // {verificar } ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBC := StrToFloatDef(dmNotaFiscal.sqlDetalheVenda.FieldByName('icmsbase').AsString,0); //valor total do produto ICMS.pICMS := dmNotaFiscal.sqlDetalheVenda.FieldByName('aliquotaicms').AsFloat; //aliquota do icms ICMS.vICMS := StrToFloatDef(dmNotaFiscal.sqlDetalheVenda.FieldByName('icmsvalor').AsString,0); //valor do icms ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST := 0; ICMS.vBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; IPI.cEnq := '999'; if Trim(dmNotaFiscal.sqlDetalheVenda.FieldByName('cfop').AsString) = '6502' then begin PIS.CST := pis07; COFINS.CST := cof07; CST := cst41; end; if Trim(dmNotaFiscal.sqlDetalheVenda.FieldByName('cfop').AsString) <> '6502' then begin PIS.CST := pis01; COFINS.CST := cof01; CST := cst00; end; IPI.CST := ipi53; PIS.vBC := dmNotaFiscal.sqlDetalheVenda.FieldByName('basepis').AsFloat; //valor da base do pis PIS.pPIS := dmNotaFiscal.sqlDetalheVenda.FieldByName('pis').AsFloat; //aliquota do pis PIS.vPIS := dmNotaFiscal.sqlDetalheVenda.FieldByName('valorpis').AsFloat; //valor do pis COFINS.vBC := dmNotaFiscal.sqlDetalheVenda.FieldByName('basecofins').AsFloat; //valor da base do cofins COFINS.pCOFINS:= dmNotaFiscal.sqlDetalheVenda.FieldByName('cofins').AsFloat; //aliquota do cofins COFINS.vCOFINS:= dmNotaFiscal.sqlDetalheVenda.FieldByName('valorcofins').AsFloat; //valor do cofins ValorTotalIcms:= ValorTotalIcms + dmNotaFiscal.sqlDetalheVenda.FieldByName('icmsvalor').AsFloat; ValorTotalPis := ValorTotalPis + dmNotaFiscal.sqlDetalheVenda.FieldByName('valorpis').AsFloat; ValorTotalCofins := ValorTotalCofins + dmNotaFiscal.sqlDetalheVenda.FieldByName('valorcofins').AsFloat; //icms em operações interestaduais //partilha do ICMS e fundo de probreza if ( Trim(dmNotaFiscal.sqlConsultaPedido.FieldByName('estado').AsString) <> 'SP') and ( Trim(dmNotaFiscal.sqlDetalheVenda.FieldByName('cfop').AsString) = '6108' ) then begin ICMSUFDest.vBCUFDest := StrToFloatDef(dmNotaFiscal.sqlDetalheVenda.FieldByName('icmsbase').AsString,0); ICMSUFDest.pFCPUFDest := 0; ICMSUFDest.pICMSUFDest := dmNotaFiscal.sqlDetalheVenda.FieldByName('aliquotaicms').AsFloat; ICMSUFDest.pICMSInter := RetornarAliquotaOrigemEstado(dmNotaFiscal.sqlConsultaPedido.FieldByName('estado').AsString); // uf do destino ICMSUFDest.pICMSInterPart := ICMSUFDest.pICMSUFDest - ICMSUFDest.pICMSInter; ICMSUFDest.vFCPUFDest := (ICMSUFDest.vBCUFDest * ICMSUFDest.pICMSInterPart) / 100; ICMSUFDest.vICMSUFDest := ICMSUFDest.vFCPUFDest * 0.40; ICMSUFDest.vICMSUFRemet := ICMSUFDest.vFCPUFDest * 0.60; end; end; end; Fiz uma copia do código completo da parte do importo, veja se tem alguma coisa errada por favor.

Eu coloquei zero apenas como exemplo, o que seria este: GerarDetImposto Não consigo localizar nenhuma parte deste código que você pontou : GerarDetImpostoICMSUFDest

Será que não seria estas informações feita no Imposto? ICMSUFDest.vBCUFDest := 0; ICMSUFDest.pFCPUFDest := 0; ICMSUFDest.pICMSUFDest := 0; ICMSUFDest.pICMSInter := 0; ICMSUFDest.pICMSInterPart := 0; ICMSUFDest.vFCPUFDest := 0; ICMSUFDest.vICMSUFDest := 0; ICMSUFDest.vICMSUFRemet := 0; Já tentei de tudo, já atualizei tudo, mais não aparece estas informações e deveria aparecer para cada item

Faz alguns dias que atualizei o componente ACBR para fazer um ajuste referente ICMSUFDest Nota Técnica 2015/003, o problema é que mesmo preenchendo os campos corretamente o xml e gerado sem as informações, já fiz vários testes, já pesquisei no fórum do ACBR e até o momento não tenho uma solução. Se alguém aqui souber como resolver isso, e tiver condições de me dar uma solução para isso eu fico grato, mesmo que seja cobrado acho que vale a pena porque já passei dias tentando resolver isso. Atenciosamente

Observei que este campo só aparece no total <ICMSTot>, não deveria ser por item? ICMSUFDest.vBCUFDest := StrToFloatDef(dmNotaFiscal.sqlDetalheVenda.FieldByName('icmsbase').AsString,0); ICMSUFDest.pFCPUFDest := 0; ICMSUFDest.pICMSUFDest := dmNotaFiscal.sqlDetalheVenda.FieldByName('aliquotaicms').AsFloat; ICMSUFDest.pICMSInter := RetornarAliquotaOrigemEstado(dmNotaFiscal.sqlConsultaPedido.FieldByName('estado').AsString); // uf do destino ICMSUFDest.pICMSInterPart := ICMSUFDest.pICMSUFDest - ICMSUFDest.pICMSInter; ICMSUFDest.vFCPUFDest := (ICMSUFDest.vBCUFDest * ICMSUFDest.pICMSInterPart) / 100; ICMSUFDest.vICMSUFDest := ICMSUFDest.vFCPUFDest * 0.40; ICMSUFDest.vICMSUFRemet := ICMSUFDest.vFCPUFDest * 0.60;

No componente de exemplo tem na aba geral um campo para escolher Documento Fiscal, lá eu tenho ve310, mais no PathSchemas ele estava ve200, então estava ai o problema.

Este é o caminho do fonte original Acbr: C:\ACBR\Exemplos\ACBrDFe\ACBrNFe\Delphi Dentro desta pasta tem um ACBrNFe_demo.ini, que aponta o seguinte: PathSchemas=C:\Pascal\Comp\ACBr\trunk\Exemplos\ACBrNFe2\Delphi\Schemas\ve200 Peguei os Schemas neste caminho : C:\ACBR\Exemplos\ACBrDFe Fiz a alteração do PathSchemas: PathSchemas=C:\Nfe2016\Schemas\NFe\ve200 O XML e gerado mais não vem os campos ICMSUFDest Resolvido!

Claudio, fiz como você falou, veja as imagens e mesmo assim a nota não vem com os campos, veja nas imagens se você consegue identificar algum problema. agradeço https://drive.google.com/file/d/0B-svO0-4L_-NVEZubDVpdFRuX3M/view?usp=sharing https://drive.google.com/file/d/0B-svO0-4L_-NNkV6cElmZkdwSmc/view?usp=sharing

Claudio: Dentro da pasta que foi enviado, eu tenho as pastas CTe, MDFe , Nfe, e tem alguns arquivos fora desta pasta, como fica o PathSchemas? PathSchemas=C:\Nfe2016 \Schemas\ PathSchemas=C:\Nfe2016 \Schemas\ Nfe\ Como fica no component a Versão do Documento Fiscal? Ve310? já tentei com o seu arquivo e não deu certo

Claudio, poderia por favor me enviar a pasta schema, não veio a informação, [email protected] agradeço! Italo, eu estou usando este Schemas, eu fiz uma copia da pasta completa e no meu projeto eu tenho no .ini : PathSchemas=C:\Nfe2016 \Schemas\ve200 tem alguma coisa errada? visto que todo o restante da nota está com o xml correto?

Claudio, eu peguei uma copia da pasta Schemas para o fonte do meu projeto, no meu arquivo .ini esta desta forma, sabe me dizer se está correto? PathSchemas=C:\Nfe2016 \Schemas\ve200