Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

Seja-Profissional-Saiba-mais.png Beneficios_banner.png

 

registro F129 e F139 gravando errado


Diego
  • Este tópico foi criado há 3716 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Olá Diego

Por favor seja mais específico: em quais campos a gravação está sendo errada? Se possível, poderia verificar onde está o erro no código e postar a correção?

Obrigado.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

realmente foi bem vago meu post

o erro esta no campo IND_PROC o case estava incorreto

procedure TBloco_F.WriteRegistroF129(RegF120: TRegistroF120) ;

  var

    intFor      : integer;

    strIND_PROC : AnsiString;

begin

  if Assigned(RegF120.RegistroF129) then

  begin

    for intFor := 0 to RegF120.RegistroF129.Count - 1 do

    begin

      with RegF120.RegistroF129.Items[intFor] do

      begin

        case IND_PROC of

          opJusticaFederal : strIND_PROC := '1';

          opSecexRFB       : strIND_PROC := '3';

          opOutros         : strIND_PROC := '9';

          opNenhum         : strIND_PROC := '';

        end;


        Add( LFill('F129')   +

             LFill(NUM_PROC) +

             LFill(strIND_PROC) ) ;

      end;


      RegistroF990.QTD_LIN_F := RegistroF990.QTD_LIN_F + 1;

    end;

    /// Variavél para armazenar a quantidade de registro do tipo.

    FRegistroF129Count := FRegistroF129Count + RegF120.RegistroF129.Count;

  end;

end;

Link to comment
Share on other sites

  • Consultores

Blz. Já corrigi aqui, vou subir agora a tarde.

EDIT: Acabei de fazer o commit.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Este tópico foi criado há 3716 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.