Ir para conteúdo
  • Cadastre-se

hleorj

Moderadores
  • Total de ítens

    1.303
  • Registro em

  • Última visita

  • Days Won

    9

Posts postados por hleorj

  1. 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;

     

  2. 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.

  3. 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;

     

  4. 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 .

    • Curtir 1
  5. 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 

     

  6. 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.

    image.thumb.png.9a795dd62a4b784f6a1e067562507407.png

     

    At.te 

    Marcos Silva 

    ACBrNFeDANFeRLRetrato.pas 81 kB · 0 downloads ACBrNFeDANFeRLRetrato.dfm 188 kB · 0 downloads

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

    • Curtir 1
  7. 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.

    @José M. S. Junior

    • Curtir 2
  8. 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>

    image.png

    • Curtir 2
  9. 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.

     

     

     

     

     

    • Obrigado 1
×
×
  • 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.