-
Total de ítens
1.303 -
Registro em
-
Última visita
-
Days Won
9
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por hleorj
-
-
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
-
Manda alguns testes( pdf ) de antes e depois , assim facilita o entendimento do problema
- 1
-
3 minutos atrás, Juliomar Marchetti disse:
Creio que nenhum de vocês olhou a pasta do exemplo de DACTe
\Exemplos\ACBrDFe\ACBrCTe\Delphi DACTe FR
Bom . Excelente
-
37 minutos atrás, fefevilela disse:
Sim... eu sei.. mas acredito que a DEMO que foi feita em Fortes está bem mais "detalhado"....
Acho que se tivermos duas versão IGUAIS com Geradores de Relatórios distintos vai ficar mais didático, concorda?
Caso não seja de interesse, eu faço apenas o DACTE então.. voces decidem ok?Abraço forte e Fast..
Espero a sua contribuição na área de Acbrcte.
Me Marque, quando o assunto for o demo em Fast DACTEC.
Grato .
- 1
-
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 ?
-
3 minutos atrás, fefevilela disse:
Ok... darei minha contribuição montando um DEMO em FASTReports para NFe e para CTe.
Ja Existe demo Em Fast da nfe . Não conhece ?
Venha ser parte do time .
Ver Anexo
-
4 minutos atrás, fefevilela disse:
É.. posso montar isso, porem esclarece uma duvida.
O problema é no DANFE (NFe) ou é DACTE (Cte) ????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
-
19 minutos atrás, fefevilela disse:
Eu tenho aplicação gerando DACTE em FAST.. mas não sei como posso ajudar....
Caso queria , ajudar
Existe um demo desenvolvido para as notas fiscais
Que pode ser seguindo como base.
-
1 hora atrás, Juliomar Marchetti disse:
Sou eu quem estou dando manutenção em questões do Fast Report.
aguarde que será resolvido e retorno para vocês
Seria ideal , existir um demo em fast para os relatórios em DACTE.
-
1 hora atrás, Juliomar Marchetti disse:
Sou eu quem estou dando manutenção em questões do Fast Report.
aguarde que será resolvido e retorno para vocês
Hehehe
-
1 hora atrás, valterpatrick disse:
Você fez a mesma alteração para o FastReport ou somente Fortes Report?
Somente Fortes report ..
Gostaria de usar a força negra , em FastReport ? Estamos aqui esperando a sua contribuição.
- 1
-
5 horas atrás, macogerais disse:
Bom dia Prezados!
Seguem as alterações realizadas nos fontes ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes, para que apareçam todos os campos.
ACBrNFeDANFeRLRetrato.pas
ACBrNFeDANFeRLRetrato.dfm
Para isso desabilitamos a opção de reorganização dos campos, quando houvesse o campo total de tributos.
Esse modelo sempre mostrará todos os campos conforme a imagem abaixo.
At.te
Marcos Silva
tente apresentar a mesma contribuição para danfe paisagem ?
- 1
-
2 horas atrás, BigWings disse:
Veja a propriedade DetRastros do componente DANFE.
aqui.merecia uma refatoração .. muito legal
-
Verifique, as propriedades existentes no componente.
Exemplo :
LarguraCodProd = 54
- 2
- 1
-
1 hora atrás, mgmobile disse:
Este é a mensagem .
Recebemos da" NOME DO MEU CLIENTE "os produtos constantes na nota fiscal ao lado bem como os boletos bancários de cobrança referentes a esta nota fiscal
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.
- 2
-
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>
- 2
-
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.
- 1
-
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
Correção - ACBrNFe.NotasFiscais.LoadFromString
em ACBrNFe
Postado
Mexer na unit pcnNFe.pas, eu conto com uma mão