Ir para conteúdo
  • Cadastre-se

hleorj

Moderadores
  • Total de ítens

    1.304
  • Registro em

  • Última visita

  • Days Won

    9

hleorj last won the day on 13 Setembro 2017

hleorj had the most liked content!

7 Seguidores

Sobre hleorj

Últimos Visitantes

4.766 visualizações

hleorj's Achievements

  1. Mexer na unit pcnNFe.pas, eu conto com uma mão
  2. 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;
  3. 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.
  4. 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;
  5. 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
  6. Manda alguns testes( pdf ) de antes e depois , assim facilita o entendimento do problema
  7. Bom . Excelente
  8. Espero a sua contribuição na área de Acbrcte. Me Marque, quando o assunto for o demo em Fast DACTEC. Grato .
  9. Fechado , pois existe uma mistura de assuntos .
  10. Caso não seja de interesse, eu faço apenas o DACTE então.. voces decidem ok? Sim , @fefevilela @BigWings , @Juliomar Marchetti, Concordam ?
  11. Ja Existe demo Em Fast da nfe . Não conhece ? Venha ser parte do time . Ver Anexo DemoDANFeFR-change-log.txt
  12. 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
  13. Caso queria , ajudar Existe um demo desenvolvido para as notas fiscais Que pode ser seguindo como base.
  14. Seria ideal , existir um demo em fast para os relatórios em DACTE.
  15. Hehehe
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...