hleorj

Mexer na unit pcnNFe.pas, eu conto com uma mão

Então, seria muito bom se pudesse : De TpcnMotivoDesoneracaoICMS = (mdiTaxi, mdiDeficienteFisico, mdiProdutorAgropecuario, mdiFrotistaLocadora, mdiDiplomaticoConsular, mdiAmazoniaLivreComercio, mdiSuframa, mdiVendaOrgaosPublicos, mdiOutros, mdiDeficienteCondutor, mdiDeficienteNaoCondutor, mdiOrgaoFomento, mdiOlimpiadaRio2016, mdiSolicitadoFisco ); Para TpcnMotivoDesoneracaoICMS = (mdiTaxi, mdiDeficienteFisico, mdiProdutorAgropecuario, mdiFrotistaLocadora, mdiDiplomaticoConsular, mdiAmazoniaLivreComercio, mdiSuframa, mdiVendaOrgaosPublicos, mdiOutros, mdiDeficienteCondutor, mdiDeficienteNaoCondutor, mdiOrgaoFomento, mdiOlimpiadaRio2016, mdiSolicitadoFisco, mdiNenhum); e De // N28 - Motivo da desoneração do ICMS *************************** function motDesICMSToStr(const t: TpcnMotivoDesoneracaoICMS): string; begin // 1 – Táxi; // 2 – Deficiente Físico; // 3 – Produtor Agropecuário; // 4 – Frotista/Locadora; // 5 – Diplomático/Consular; // 6 – Utilitários e Motocicletas da // Amazônia Ocidental e Áreas de // Livre Comércio (Resolução // 714/88 e 790/94 – CONTRAN e // suas alterações); // 7 – SUFRAMA; // 8 – Venda a Orgãos Publicos; // 9 – outros. (v2.0) // 10 – Deficiente Condutor (Convênio ICMS 38/12). (v3.1) // 11 – Deficiente não Condutor (Convênio ICMS 38/12). (v3.1) // 12 - Orgão Fomento // 16 - Olimpiadas Rio 2016 result := EnumeradoToStr(t, ['1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '16', '90'], [mdiTaxi, mdiDeficienteFisico, mdiProdutorAgropecuario, mdiFrotistaLocadora, mdiDiplomaticoConsular, mdiAmazoniaLivreComercio, mdiSuframa, mdiVendaOrgaosPublicos, mdiOutros, mdiDeficienteCondutor, mdiDeficienteNaoCondutor, mdiOrgaoFomento, mdiOlimpiadaRio2016, mdiSolicitadoFisco]); end; Para // N28 - Motivo da desoneração do ICMS *************************** function motDesICMSToStr(const t: TpcnMotivoDesoneracaoICMS): string; begin // 1 – Táxi; // 2 – Deficiente Físico; // 3 – Produtor Agropecuário; // 4 – Frotista/Locadora; // 5 – Diplomático/Consular; // 6 – Utilitários e Motocicletas da // Amazônia Ocidental e Áreas de // Livre Comércio (Resolução // 714/88 e 790/94 – CONTRAN e // suas alterações); // 7 – SUFRAMA; // 8 – Venda a Orgãos Publicos; // 9 – outros. (v2.0) // 10 – Deficiente Condutor (Convênio ICMS 38/12). (v3.1) // 11 – Deficiente não Condutor (Convênio ICMS 38/12). (v3.1) // 12 - Orgão Fomento // 16 - Olimpiadas Rio 2016 result := EnumeradoToStr(t, ['1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '16', '90', ''], [mdiTaxi, mdiDeficienteFisico, mdiProdutorAgropecuario, mdiFrotistaLocadora, mdiDiplomaticoConsular, mdiAmazoniaLivreComercio, mdiSuframa, mdiVendaOrgaosPublicos, mdiOutros, mdiDeficienteCondutor, mdiDeficienteNaoCondutor, mdiOrgaoFomento, mdiOlimpiadaRio2016, mdiSolicitadoFisco, mdiNenhum]); end; Mas.. Existe a Unit pcnNFe.pas. que precisaria ser atualizada , com outro(s) De.. para .. : De property motDesICMS: TpcnMotivoDesoneracaoICMS read FmotDesICMS write FmotDesICMS; Para Property motDesICMS: TpcnMotivoDesoneracaoICMS read FmotDesICMS write FmotDesICMS default mdiNenhum;

A rotina executa a leitura do xml e grava as informações nas devidas tabelas. Não existe um único IF. Por que ? sei que quase todas propriedades , possuem um valor padrão : property orig: TpcnOrigemMercadoria read Forig write Forig default oeNacional; property CST: TpcnCSTIcms read FCST write FCST default cst00; property CSOSN: TpcnCSOSNIcms read FCSOSN write FCSOSN; property modBC: TpcnDeterminacaoBaseIcms read FmodBC write FmodBC default dbiMargemValorAgregado; Dica, mantenha pcnConversao original.

Q Tipo de erro, foi encontrado por você ? @Gustavo Déo da Silva Segue rotina Function TModelEntityImportacaoNfe.Processar: Integer; var i: Integer; lDaoFactory: iModelDaoFactory; begin Result := 0; lDaoFactory := TModelDao.New.Fabrica; fNotaDanfe.DadosDanfe(fsComp); with fNotaDanfe.OBjDmDanfe.ACBrNFe1.NotasFiscais.Items[0].NFe do begin if lDaoFactory.DaoNfeFornecedor.BuscaChaveNfe(procNFe.chNFe) .ChaveNotaEntrada > 0 then raise exception.Create('Nota Fiscal Exportada'); lDaoFactory.DaoNotaEntrada.ChaveNotaEntrada := 0; lDaoFactory.DaoNotaEntrada.CODIGODOCLIENTE := ManterCodigodoCliente(emit.CNPJCPF); lDaoFactory.DaoNotaEntrada.NNOTA := Ide.nNF; lDaoFactory.DaoNotaEntrada.DATAEMI := Ide.dEmi; lDaoFactory.DaoNotaEntrada.BASEICMS := Total.ICMSTot.vBC; lDaoFactory.DaoNotaEntrada.VALICMS := Total.ICMSTot.vICMS; lDaoFactory.DaoNotaEntrada.BCST := Total.ICMSTot.vBCST; lDaoFactory.DaoNotaEntrada.ST := Total.ICMSTot.vST; lDaoFactory.DaoNotaEntrada.VALPRO := Total.ICMSTot.vProd; lDaoFactory.DaoNotaEntrada.FRETE := Total.ICMSTot.vFrete; lDaoFactory.DaoNotaEntrada.SEGURO := Total.ICMSTot.vSeg; lDaoFactory.DaoNotaEntrada.VALDESC := Total.ICMSTot.vDesc; lDaoFactory.DaoNotaEntrada.IMPIMPORTACAO := Total.ICMSTot.vII; lDaoFactory.DaoNotaEntrada.VALIPI := Total.ICMSTot.vIPI; lDaoFactory.DaoNotaEntrada.OUTRO := Total.ICMSTot.vOutro; lDaoFactory.DaoNotaEntrada.TOT_NOTA := Total.ICMSTot.vNF; lDaoFactory.DaoNotaEntrada.fcp := Total.ICMSTot.vFCP; lDaoFactory.DaoNotaEntrada.fcpSt := Total.ICMSTot.vFCPST; lDaoFactory.DaoNotaEntrada.Tranferido := 0; lDaoFactory.DaoNotaEntrada.ChaveNotaEntrada := lDaoFactory.DaoNotaEntrada.Manutencao; end; // for i := 0 to fNotaDanfe.OBjDmDanfe.ACBrNFe1.NotasFiscais.Items[0] .NFe.Det.Count - 1 do begin with fNotaDanfe.OBjDmDanfe.ACBrNFe1.NotasFiscais.Items[0] .NFe.Det.Items[i] do begin lDaoFactory.DaoNotaEntradaItem.REGISTRO := 0; lDaoFactory.DaoNotaEntradaItem.eanforn := Prod.cProd; lDaoFactory.DaoNotaEntradaItem.cfop := StrToInt(Prod.cfop); lDaoFactory.DaoNotaEntradaItem.ChaveNotaEntrada := lDaoFactory.DaoNotaEntrada.ChaveNotaEntrada; lDaoFactory.DaoNotaEntradaItem.EAN := BuscaProduto(lDaoFactory.DaoNotaEntrada.CODIGODOCLIENTE, Prod.cProd, Prod.xProd); lDaoFactory.DaoNotaEntradaItem.QUANTIDADE := Converter(Prod.qCom); lDaoFactory.DaoNotaEntradaItem.UNITARIO := NovoUntirario((Prod.vUnCom * Prod.qCom), lDaoFactory.DaoNotaEntradaItem.QUANTIDADE); lDaoFactory.DaoNotaEntradaItem.VDESCONTO := Prod.vDesc; lDaoFactory.DaoNotaEntradaItem.vFrete := Prod.vFrete; lDaoFactory.DaoNotaEntradaItem.vSeg := Prod.vSeg; lDaoFactory.DaoNotaEntradaItem.vOutro := Prod.vOutro; lDaoFactory.DaoNotaEntradaItem.ICMS_PICMS := Imposto.ICMS.pICMS; lDaoFactory.DaoNotaEntradaItem.ICMS_VICMS := Imposto.ICMS.vICMS; lDaoFactory.DaoNotaEntradaItem.PMVAST := Imposto.ICMS.PMVAST; lDaoFactory.DaoNotaEntradaItem.PICMSST := Imposto.ICMS.PICMSST; lDaoFactory.DaoNotaEntradaItem.VICMSST := Imposto.ICMS.VICMSST; lDaoFactory.DaoNotaEntradaItem.IPI := Imposto.IPI.pIPI; lDaoFactory.DaoNotaEntradaItem.VALIPI := Imposto.IPI.vIPI; lDaoFactory.DaoNotaEntradaItem.fcp := Imposto.ICMS.vFCP; lDaoFactory.DaoNotaEntradaItem.fcpSt := Imposto.ICMS.vFCPST; lDaoFactory.DaoNotaEntradaItem.TaxaFcp := Imposto.ICMS.pFCP; lDaoFactory.DaoNotaEntradaItem.Manutencao; lDaoFactory.DaoNotaEntrada.NAT := StrToInt(Prod.cfop); end; lDaoFactory.DaoNotaEntrada.Manutencao; end; Result := lDaoFactory.DaoNotaEntrada.ChaveNotaEntrada; lDaoFactory.DaoNfeFornecedor.ChaveNotaEntrada := Result; lDaoFactory.DaoNfeFornecedor.chaveNfe := fNotaDanfe.OBjDmDanfe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe; lDaoFactory.DaoNfeFornecedor.compartilhado := fsComp; lDaoFactory.DaoNfeFornecedor.Persistir; end;

Seria ideal mostra com mas itens Eu aconselho, a tentar diminuir a coluna desconto. sem mexer na altura da linha. Cuidado @Juliomar Marchetti, execute mas testes. @paaraujo, efetue mas testes, obrigado pela colaboração. Ps : Segue anexo , um xml para testes TESTE-NFE.xml

Manda alguns testes( pdf ) de antes e depois , assim facilita o entendimento do problema

Bom . Excelente

Espero a sua contribuição na área de Acbrcte. Me Marque, quando o assunto for o demo em Fast DACTEC. Grato .

Fechado , pois existe uma mistura de assuntos .

Caso não seja de interesse, eu faço apenas o DACTE então.. voces decidem ok? Sim , @fefevilela @BigWings , @Juliomar Marchetti, Concordam ?

Ja Existe demo Em Fast da nfe . Não conhece ? Venha ser parte do time . Ver Anexo DemoDANFeFR-change-log.txt

O tropico fala de Nfe .. mas os assuntos acabaram se misturando. Póis , não sou usuário de DACTE.. mas uso o Fast. e com o Demo no , mesmo , molde da Danfe ( nfe ). Ajudaria em muito os testes e duvidas existentes. Eu adoro o demo em Fast da Nfe , belo parque diversão com as propriedades

Caso queria , ajudar Existe um demo desenvolvido para as notas fiscais Que pode ser seguindo como base.

Seria ideal , existir um demo em fast para os relatórios em DACTE.

Hehehe

Somente Fortes report .. Gostaria de usar a força negra , em FastReport ? Estamos aqui esperando a sua contribuição.

tente apresentar a mesma contribuição para danfe paisagem ?

aqui.merecia uma refatoração .. muito legal

Verifique, as propriedades existentes no componente. Exemplo : LarguraCodProd = 54

Está informação poderia ser escrita pelo usuário em informações adicionais , sem alteração do canhoto, e a mesma constando no arquivo xm. @José M. S. Junior

Qualquer outro comentário , pode reabrir o post Grato

Bom.. Segue o que eu aplico <infAdProd>DADOS DE FCP :( BASE : 47,50 PERC. : 2,00 VALOR : 0,95) - FCP ST:( BASE. : 91,21 PERC. : 2,00 VALOR : 0,87);</infAdProd> -<infAdic> <infAdFisco>VALOR TOTAL DO FCP : 1,72 - VALOR TOTAL DO FCP ST:1,58;VENDA DE PRODUCAO DO ESTABELECIMENTO EM OPERACAO COM PRODUTO SUJEITO AO REGIME DE SUBSTITUICAO TRIBUTARIA, NA CONDICAO DE CONTRIBUINTE SUBSTITUTO</infAdFisco> <infCpl>DISQUE PROCON 151 ; ALERJ 2588-1000;PEDIDO : 00038 Rede : APOLO ;;PROTOCOLO ICMS 189/09 ITEM 34.2 RICMS RJ ;Ncm : 39241000;FAT BRUNA; ;BOLETO ANEXO</infCpl> </infAdic>

Ok .. partido da sua ideia em criar um nova propriedade : ImprimimirDadosSTemseprado (true, false) Padrão false e uma outra para propriedade para Imprimir dados de FCP.. Ser poderia desenvolver uma unica propriedade com varias opções : idstNenhum => Não imprimir informações de Substituição Tributárias ( S.T / FCP ST ) idstdadosst => Somente Imprimir informações de S.T. idstdadosfcp => Somente Imprimir informações de Fundo de combate a pobreza de S.T. ( FCP ST ) idstdadosStfcp => Imprimir informações de S.T. + FCP ST.

Informações dadas e explicadas. Só usar o seu lado negro e desenvolver a sua ideia. Se precisar de ajuda , lhe daremos o devido apoio. Grato

Deixando a minha aplicação controlar as informações que desejo