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

Olá leao, eu fiz isso, eu atualizei tudo no componente, mais mesmo assim não vem nada, será que você consegue me passar a sua pasta de Schemas atualiza para que eu possa resolver este problema? porque a dos fontes do acbr não tem

Bom dia Italo, Veja, eu estou com a última versão dó acbr, mais a tag vICMSUFDest , mesmo sendo preenchida não e mostrada no XML, você poderia me dizer como eu posso atualizar resolver isso? agradeço

Estou usando o exemplo da pasta : C:\ACBR\Exemplos\ACBrDFe\ACBrNFe\Delphi, na ultima versão do acbr e quando gera o XML não mostra esta tag, gostaria de saber como eu poderia atualizar Schemas. agradeço

Icms em Operações Interestaduais Fiz a atualização do componente acbr e estou usando está aba de imposto, mais o XML não está trazendo os dados inseridos. Sabe como eu poderia atualizar os schemas? estou usando o trunk2

Boa noite Italo, Sobre o problema: Após fazer a instalação do componente, várias vezes, usando todas as formas possíveis, ele instala com sucesso, mais ao fechar o Delphi ele some. Eu usei o componente do AcbrNfe para compilar e salvar ele com outro nome e mesmo assim some todos os componentes, Fiz um teste em outra máquina, onde também tem o delphi só que uma máquina com o sistema operacional apenas, sem antivírus então a conclusão que cheguei foi, o antivírus que está retirando o componente. McAfee® Antivírus Oficial

as Dlls, já foi adicionado no system do Windows e no diretório do Delphi, se eu desligar a máquina ao abri novamente o Delphi componente some, já instalei várias vezes e sempre acontece a mesma coisa.

Na versão anterior o XML não existia esta linha, mais ela está aparecendo na gravação do XML.

Este problema eu já tive, cada produto possui um ncm válido que deve ser adicionado na nota, ex: Prod.NCM := dmNotaFiscal.sqlDetalheVenda.FieldByName('codigoncm').AsString; // ncm do produto Depois é necessário fazer um calculo para encontra o valor total do imposto, neste ponto voce pode usar a tabela IBPB Ex: //consulta o ncm da tabela IBPT dmNotaFiscal.sqlConsultaIBPT.Close; dmNotaFiscal.sqlConsultaIBPT.SQL.Add(''); dmNotaFiscal.sqlConsultaIBPT.SQL.Add('select * from TB_TABELAIBPT_novo where codigo =' + QuotedStr(Prod.NCM)); dmNotaFiscal.sqlConsultaIBPT.Open; //valor total do item ValorTotalImposto := ValorTotalImposto + ( (Prod.vProd ) * dmNotaFiscal.sqlConsultaIBPT.FieldByName('ALIQNAC').AsFloat); Imposto.vTotTrib := ValorTotalImposto;

Resolvido, o problema ocorre se usar ClientDataSet, passei a usar ADOQuery e o problema não existe mais.

Olá Sergio, eu localizei o problema, fiz a criação de um log e adicionei trey except nas consultas e descobri que quando tem ClientDataSet com a propriedade Active = true, o componente não abre, gera erro, e quando tenta fazer uma consulta qualquer quando vai abri o ClientDataSet ai gera o erro, vou tentar fazer apenas com o Tquery