Ir para conteúdo
  • Cadastre-se

Josafar Nascimento da Silv

Membros
  • Total de ítens

    85
  • Registro em

  • Última visita

Posts postados por Josafar Nascimento da Silv

  1. Desde 1º do corrente mês estou utilizando a nova tabela IBPT 19.1.A para o Estado de Pernambuco. Verifiquei, no entanto, que há uma grande diferença de alíquotas em relação à 18.1.A (tabela anterior), sendo o NCM do produto 70191290.
    IBPT 18.1.A:
    Imposto Nacional Federal: 22,54
    Estadual : 18,00

    IBPT 19.1.A:
    Imposto Nacional Federal: 7,20
    Estadual : 0.00

    Estou muito preocupado, pois acho que está havendo algum erro ou eu não estou conseguindo entender.

  2. Prezada Graça: desculpe pela demora na minha resposta. Já resolvi o problema que esta sendo causado por dados incompletos no cadastro do veículo.

    Outrossim: gostaria de saber como deve ser o código, na hipótese de mais de uma UF de percurso. Lembro que o código abaixo foi escrito para uma UF.

      if mskUFPer.Text <> ' ' then
        begin
          with Ide.infPercurso.Add do
          begin
            UFPer:= mskUFPer.Text;    // mskUFPer = 'PB'
          end;
        end;

    • Curtir 1
  3. Sobre UF de percurso já entendi, porém não sei como declarar isto na rotina do ACBr.

    Vejam o exemplo: uma carga saindo de PE para RN, sendo PB a UF de percurso.

        if mskUFPer.Text <> '' then
        begin
          with Ide.infPercurso.Add do
          begin
            UFPer:= mskUFPer.Text;    // mskUFPer = 'PB'
          end;
        end;

    Ainda assim o MDFe não foi validado.

    1) Devo informar o código da UF ou a sigla?

    2) O código acima está errado?

    Agradeço quem pude me ajudar.

  4. Li a cartilha e não consegui entender muito bem.

    Minha situação é a seguinte:

    1) Tenho uma carga que se destina a mais de uma UF, já saindo para entrega no mesmo veículo no mesmo local de carregamento.

    2) Se incluo as notas no mesmo MDFe, ocorre o erro, pois não é permitido no mesmo MDFe incluir mais de uma UF.

    3) Se faço dois MDFe, como é recomendado, minha pergunta é se isto pode ser feito, pois serão dois MDFe com o mesmo veículo, na mesma viagem. Posso então emitir dois MDFe sem encerrar o primeiro?

  5. Estou tentando validar o boleto junto à cobrança do Santander. O arquivo remessa já foi conferido, não havendo nenhum erro. Ocorre que na linha digitável do boleto não aparece o número da carteira que no caso é '101' (5=rápida com registro, boleto emitido pelo cliente). Como verifiquei nos fontes do ACBr esta informação ocorre quando da montagem do "nosso número". Porém não consigo passar este dado através da minha rotina. Não sei se é passado através de alguma propriedade. Aguardo orientação.

  6. Prezado Amarildo: abaixo a minha rotina de encerramento e anexo o XML que estou tentando encerrar.

    procedure TfrmMDFe.btnEncerraClick(Sender: TObject);
    begin
      inherited;
      ConfiguraACBRMDFe;
      OpenDialog1.Title := 'Selecione o MDFe';
      OpenDialog1.DefaultExt := '*-MDFe.xml';
      OpenDialog1.Filter := 'Arquivos MDFe (*-MDFe.xml)|*-MDFe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
      OpenDialog1.InitialDir := DM.vpatharqmdf;
      try
      if OpenDialog1.Execute then
      begin
        ACBrMDFe.Manifestos.Clear;
        ACBrMDFe.Manifestos.LoadFromFile(OpenDialog1.FileName);
        ACBrMDFe.EventoMDFe.Evento.Clear;
        with ACBrMDFe.EventoMDFe.Evento.Add do
        begin
          with ACBrMDFe.Manifestos.Items[0].MDFe do
          begin
            vcodmdf:= ide.cMDF;
          end;
          // pesquisa tabela de mdf
          if DM.cdsMDF.Active = True then
            DM.cdsMDF.Close;
          DM.cdsMDF.Params[0].AsInteger:= vcodmdf;
          DM.cdsMDF.Open;
          infevento.chMDFe:= DM.cdsMDFCHAVE.AsString;
          infEvento.CNPJCPF:= DM.vcnpj;
          infEvento.dhEvento:= now;
          infEvento.tpEvento:= teEncerramento;
          infEvento.nSeqEvento:= 1;
          infEvento.detEvento.xJust:= 'Transporte finalizado';
          infEvento.detEvento.nProt:= DM.cdsMDFPROTOCOLOENVIO.AsString;
          infEvento.detEvento.dtEnc := Date;
          infEvento.detEvento.cUF:= strtoint(copy(inttostr(DM.cdsMDFCOD_MUNIENCERRA.AsInteger),1,2));
          infEvento.detEvento.cMun:= DM.cdsMDFCOD_MUNIENCERRA.AsInteger;
        end;
        ACBrMDFe.EnviarEvento(1);
        // atualiza tabela de MDFe
        DM.cdsMDF.Edit;
        DM.cdsMDFSITUACAO.AsString:= 'Encerrado';
        DM.cdsMDFUFFINAL.AsString:= vufencerra;
        DM.cdsMDFDATAENCERRA.AsDateTime:= now;
        DM.cdsMDFCOD_SITUACAO.AsInteger:= 132;
        DM.cdsMDF.Post;
        DM.cdsMDF.ApplyUpdates(0);
        Application.MessageBox('MDFe encerrado com sucesso.','MDFe', MB_OK);
      end
      else
      except
        on E:Exception do
        begin
          raise Exception.Create('TfrmMDFe.ActionEncerrarExecute -> ' + E.Message);
        end;
      end;

    end;

    Obs.: como estou ainda em ambiente de teste (homologação), nem tudo está redondinho. Neste caso específico, verifiquei agora que na tabela do MDFe não gravei o protocolo de envio e, no entanto, em infEvento.detEvento.nProt:= DM.cdsMDFPROTOCOLOENVIO.AsString passo para o evento um campo que está vazio. Será que não seria este o problema?

     

    mdfe nº 185 veículo placa PDK-2320-mdfe.xml

  7. Obrigado. Resolvido. Tudo é bem simples, quando se sabe. Sou novato na emissão da NFe. Já consigo emitir, validar, assinar e enviar. Outrossim, gostaria de saber como exibir várias linhas nas informações complementares. Será necessário abrir novo tópico?

     

     

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