Ir para conteúdo
  • Cadastre-se

mauriciobng

Membros
  • Total de ítens

    24
  • Registro em

  • Última visita

Posts postados por mauriciobng

  1. Bom Dia.

    Aproveitando a postagem estou com a seguinte dúvida.

    Uma NFCe que foi emitida em contingência, mesmo após a autorização da Receita na impressão da DANFCe mosta a mensagem "Emitido em Contingência - Pendente de Autorização". 

    Pelo que validei na unit ACBrNFeDANFEFRDM.pas , na linha 719, é feita a seguinte validação:

            if (FNFe.Ide.tpEmis <> teNormal) and EstaVazio(FNFe.procNFe.nProt) then
              FieldByName('MensagemFiscal').AsString := ACBrStr('EMITIDA EM CONTINGÊNCIA'+LineBreak+'Pendente de autorização')
            else
              FieldByName('MensagemFiscal').AsString := ACBrStr('ÁREA DE MENSAGEM FISCAL');

    Não seria o caso de validar também o cStat para exibir a Mensagem "Pendende de autorização".  exemplo:

    FieldByName('MensagemFiscal').AsString := ACBrStr('EMITIDA EM CONTINGÊNCIA'+
              ifthen(( FNFe.procNFe.cStat = 100 ) or ( FNFe.procNFe.cStat = 150 ),'',LineBreak+'Pendente de autorização'))

    Se o cStat for 100 ou 150 só exibo 'EMITIDA EM CONTINGÊNCIA'.

     

  2. Efetuei uma pequena correção nas quebras de linhas dos Dados Adicionais na Danfe do FastReport. 

    Ao concatenar as informações dos campos infAdFisco e infCpl não estava quebrando a linha.

    Método alterado:

    Function TACBrNFeFRClass.ManterInfAdi( swObs : String ) : String;
    var
      i : Integer;
      TmpStr, TmpInfoFisco : String;
    begin
      result := swObs;
      TmpStr := '';
      TmpInfoFisco := '';
      with FNFe.InfAdic do
      begin

        for i := 0 to ObsFisco.Count - 1 do
        begin
          with ObsFisco.Items do
            TmpStr := TmpStr + XCampo + ': ' + XTexto + ';';
        end;

        //Fisco
        if Length(InfAdFisco) = 0 then
          TmpInfoFisco := ''
        else
          TmpInfoFisco := InfAdFisco + ';';

        result  := result + TmpStr + TmpInfoFisco;
        TmpStr  := '';
        for i := 0 to ObsCont.Count - 1 do
        begin
          with ObsCont.Items do
            TmpStr := TmpStr + XCampo + ': ' + XTexto + ';';
        end;
        //Inf. Complementar
        if Length(InfCpl) = 0 then InfCpl := '';

        result  := result + TmpStr + InfCpl;
      end;
    end;

     

    ACBrNFeDANFEFRDM.pas

  3. Bom Dia.

    Validando a remessa e consultando o manual informado anteriormente verifiquei que na posição 42 do Segmento R é informado o tipo de desconto 3, caso a informação de desconto 3 não seja utilizada deve ser informado um tipo de desconto na posição 42 e as poições 43-50 e 51-65 preenchidas com "0".

    Então repeti o código da posição 18 na posição 42.

    ACBrBancoSicredi.pas

    • Curtir 1
  4. 0330001300001P 013174001300172580130017258  0000000000469121  6331           1201201800000000000124300000

    Pelo que notei na Linha no Santander na pos 58 está informado 1 que se refere a cobrança simples, e na posição 59 está informado 2 que seria carteira simples, no meu ver essas informações estão corretas.

     sTipoCobranca                                           + // 058 - 058 / Tipo de cobrança
        sTipoCarteira                                           + // 059 - 059 / Forma de Cadastramento = 1 Registrada / 2 Sem Registro

  5. Fiz a seguinte validação na classe ACBrBancoCaixa

     if (Copy(linha,40,2) = '11') or (Copy(linha,40,2) = '14') then   
                    Carteira := 'RG'                                                      
                else                                                                      
                    if (Copy(linha,40,2) = '21') or (Copy(linha,40,2) = '24') then      
                        Carteira := 'SR'                                                  
                    Else                                                                  
                       if (ACBrBanco.ACBrBoleto.Cedente.TipoCarteira = tctSimples) then
                          Carteira := 'SR'                                              
                       Else                                                              
                         Carteira := 'RG';

     

    ACBrBancoCaixa.pas

  6. O Campo carteira identifica se é simples =  '1' ou registrada = '2', valide se esta alimentando o campo Boleto.Cedente.TipoCarteira corretamente.

    O Tipo de cobrança pode ser '1' = Simples, '3' = Caucionada, '4' = Descontada ou '5' Vinculada, o mesmo é informado no campo Titulo.CaracTitulo.

    Espero que isso te ajude.

     

    • Curtir 1
  7. Em 2017-4-26 at 20:15, Italo Jurisato Junior disse:

    Boa noite Mauricio,

    Notei que você esta com o componente configurado para a versão 3.00

    Tente consultar, mas com o componente configurado para a versão 1.00

    Consegui Resolver o problema, foi uma alteração feita no software para poder gerar os xmls de nfe com acentos que afetou o MDFE.

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