With Rem.infnf.add

[Hetosoft Sistemas]

Atualizei os fontes do acbr

e o cte que era 1.4 abilitei o 2.0 depois disso nao consigo mais compilar o projeto da erro na seguinte linha

 

Erro: comando nao existe.

with Rem.InfNF.Add

 

do comando:

 

                 case DM12.Client_CteNFTIPO.AsInteger of
                  1: begin

                      with Rem.InfNF.Add do
                       begin
                        nRoma := '';
                        nPed  := DM12.Client_CteNFNUMDOC.AsString;
                        serie := DM12.Client_CteNFSER.AsString;
                        nDoc  := DM12.Client_CteNFNUMDOC.AsString;
                        dEmi  := DM12.Client_CteNFDATAEMISSAO.AsDateTime;
                        vBC   := 0;
                        vICMS := 0;
                        vBCST := 0;
                        vST   := 0;
                        vProd := DM12.Client_CteNFVALORDOC.AsFloat;
                        vNF   := DM12.Client_CteNFVALORDOC.AsFloat;
                        nCFOP := StrToInt(cfop);
                        nPeso := 0;
                        PIN   := '';

                       end;

[Italo Giurizzato Junior]

Bom dia Heto Andrade,

 

Dentro da pasta ...\Exemplos\ACBrCTe temos um arquivo texto chamado AlimentarComponente, veja como resolver esse e outras alterações que ocorreram no componente.

[Hetosoft Sistemas]

certinho so outra duvida,

 

 

   // Valor Total dos Tributos
   imp.vTotTrib := RoundTo(DM_CNT.ConhecimentovTotTrib.AsFloat, -2);

   // Obs do Contribuinte
   if (imp.vTotTrib <> 0.0)
    then begin
     with compl.ObsCont.Add do
      begin
       xCampo := 'Lei da Transparencia';
       xTexto := 'O valor aproximado de tributos incidentes sobre o preço deste servico e de R$ ' +
                 FormatFloat('##0.00', imp.vTotTrib) + ' (' +
                 FormatFloat('#0.00', DM_CNT.ConhecimentoAliqNBS.AsFloat) + '%) ' +
                 'Fonte: IBPT';
      end;
    end;

 

 

como fazer o do CT-e porque o da NF-e tenho uma tabela em ecxel que mostra os tributos somo e faço o calculo mais com ct-e nao tem produtos,

eu pego o icms para fazer esse calculo ?

[Italo Giurizzato Junior]

Heto Andrade,

 

Não sei se esta correto, mas estou fazendo da seguinte forma:

 

1. Na mesma tabela em Excel mostra os percentuais para diversos tipos de serviços, você deve procurar o mais adequado (pAliqNBS).

2. Calculo o valor total da prestação ou seja o valor do frete (vTotPrest).

3. Calculo o valor aproximado dos tributos (vTotTrib := vTotPrest * pAliqNBS / 100)

 

Supondo que:

 

pAliqNBS = 2.8 %

vTotPrest = R$ 100.00

vTotTrib = 100.00 * 2.8 / 100 = R$ 2.80

 

Note que eu realizo esse calculo durante o lançamento dos dados, logo eles estão salvos no banco de dados as 3 informações, Aliquota, Valor do Frete e Valor Aprox. dos Tributos.

 

Espero ter ajudado.

[Hetosoft Sistemas]

brigadoooooooooooooooooooo.

[EFV]

Ola ItaloJr, Não estou conseguindo identificar a solução do problema do meu cte, segui todos os passos como descritos no arquivo alimentar componente.txt, e mesmo assim esta dando o erro 

[Error] CTe_menu.pas(715): Undeclared identifier: 'InfNF', estou passando o codigo a baixo do procedimento.

 

while not qryAuxiliar.Eof do

            begin

            {$IFDEF PL_200}

              with infCTeNorm.infDoc.infNF.Add do

              {$ELSE}

              with Rem.InfNF.Add do

              {$ENDIF}

                 begin

                    nRoma := qryAuxiliar.fieldbyname('n_romaneio_nf').AsString;

                    nPed  := qryAuxiliar.fieldbyname('n_pedido_nf').AsString;

                    serie := qryAuxiliar.fieldbyname('serie').AsString;

                    nDoc  := qryAuxiliar.fieldbyname('numero').AsString;

                    dEmi  := qryAuxiliar.fieldbyname('data_emissao').AsDateTime;

                    vBC   := RoundTo(qryAuxiliar.fieldbyname('bc_icms').AsFloat, -2);

                    vICMS := RoundTo(qryAuxiliar.fieldbyname('valor_icms').AsFloat, -2);

                    vBCST := RoundTo(qryAuxiliar.fieldbyname('bc_icms_st').AsFloat, -2);

                    vST   := RoundTo(qryAuxiliar.fieldbyname('valor_icms_st').AsFloat, -2);

                    vProd := RoundTo(qryAuxiliar.fieldbyname('valor_produtos').AsFloat, -2);

                    vNF   := RoundTo(qryAuxiliar.fieldbyname('valor_nota').AsFloat, -2);

                    nCFOP := StrToInt(qryAuxiliar.fieldbyname('cfop').AsString);

                    nPeso := RoundTo(qryAuxiliar.fieldbyname('peso_total_kg').AsFloat, -2);

                    PIN   := qryAuxiliar.fieldbyname('pin').AsString;

                  {$IFNDEF PL_200}

                    { Local de Retirada }

                     if (qryAuxiliar.fieldbyname('cnpj').AsString<>'')then

                       begin

[Italo Giurizzato Junior]

Boa tarde EFV,

 

Você incluiu na sua unit a linha para incluir o ACBr.inc?

 

exemplo:

 

{$I ACBr.inc}

 

unit Frm_MovEmitirCNT;

 

interface

 

(...)

[EFV]

ItaloJjr era isso mesmo muito obrigado