Identificador de Regra

Definir Numero IntNCodEmp;
Definir Numero IntNCodFil;
Definir Numero IntNNumOcp;
Definir Numero IntNLisAtributosCabecalho;

 

/*Retornam valor*/
Definir Alfa IntAObsOCp;
Definir Numero IntNCodTra;
Definir Numero IntNCodMot;
Definir Alfa IntAObsMot;

 

 

Definir Alfa S_N;
Definir Alfa aRecebeValor;
Definir Numero nRecebeValor;

 

/* Utilização de atributos dos dados gerais*/
S_N = "N";

 

ListaRegraPrimeiro(IntNLisAtributosCabecalho, S_N); @Posiciona no primeiro registro da lista {Colunas(NomeAtributo | ValorAtributo)} @
Se (S_N = "S"){
  S_N = "N"; 
  enquanto (S_N <> "S") { @Lista Preenchida / recebeu atributos@

    ListaRegraObterValorAlfa(IntNLisAtributosCabecalho, "NomeAtributo", aRecebeValor, S_N); @Obtém o valor da coluna da linha posicionada.@

    Se (aRecebeValor = "aObservacaoComprador") {
      ListaRegraObterValorAlfa(IntNLisAtributosCabecalho, "ValorAtributo", aRecebeValor, S_N); @Obtém o valor da coluna da linha posicionada.@
      Se (S_N <> "N") {
        IntAObsOcp = aRecebeValor;
      }                                                                                     
    }        
    ListaRegraProximo(IntNLisAtributosCabecalho, S_N); @Posiciona no próximo registro@
    ListaRegraFim(IntNLisAtributosCabecalho, S_N); @Atualiza variável final de lista@
  }
}