Jump to content

dev botao

representacaonumerica em branco


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

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 comment
Share on other sites

  • Administradores

Bom dia.

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 comment
Share on other sites

  • Este tópico foi criado há 1236 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.