Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

representacaonumerica em branco


Recommended Posts

Apartir da ultima atualizacao  a gnre comecou a devolver no retorno representacaonumerica em branco.

Indenfiquei no acbrgnrewebservices.pas hove alteracoes, para retornar essa informacao alterei o bloco abaixo.

 

function TGNRERetRecepcao.SalvarTXT(AResultado: String): Boolean;
var
  SL, SLAux: TStringList;
  i, GuiasOk: Integer;
  Cabec, RepresentacaoNumerica, SituacaoGuia, PathNome: String;
begin
  GuiasOk := 0;
  FGNRERetorno.resGuia.Clear;

  SL := TStringList.Create;
  SLAux := TStringList.Create;
  try
    SL.Text := AResultado;
    Cabec := SL.Strings[0];
    for i := 0 to SL.Count - 1 do
    begin
      if SameText(Copy(SL.Strings[i], 1, 1), '1') then
      begin
        SituacaoGuia := Trim(Copy(SL.Strings[i], 6, 1));
        if SameText(SituacaoGuia, '0') then
        begin
          SLAux.Add(Cabec);
          SLAux.Add(SL.Strings[i]);
          Inc(GuiasOk);
          RepresentacaoNumerica := Copy(SL.Strings[i], 979, 48);

          FGNRERetorno.resGuia.New;
          FGNRERetorno.resGuia.Items[GuiasOk-1].TXT := SLAux.Text;

/******/
          FGNRERetorno.resGuia.Items[GuiasOk-1].RepresentacaoNumerica := RepresentacaoNumerica; // *** RNR ****

/*****/
          if FPConfiguracoesGNRE.Arquivos.SalvarTXT then
          begin
            if not DirectoryExists(FPConfiguracoesGNRE.Arquivos.PathArqTXT) then
              ForceDirectories(FPConfiguracoesGNRE.Arquivos.PathArqTXT);

            PathNome := PathWithDelim(FPConfiguracoesGNRE.Arquivos.PathArqTXT) +
                       RepresentacaoNumerica+'-guia.txt';
........

 

Link to post
Share on other sites

Bom dia.

Obrigada por querer ajudar, por favor anexe o pas alterado aqui.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to post
Share on other sites

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