Identificador de Regra

@Exemplo do identificador VEN-140NEORD02 @
@ Ordenar itens do da nota fiscal por padrão os itens são ordenados pela sua sequência @
Definir NUMERO VSIntCodEmp;
Definir NUMERO VSIntCodFil;
Definir ALFA VSIntCodSnf;
Definir NUMERO VSIntNumNfv;
Definir ALFA VSIntOrdSql;
Definir ALFA xUtiFis; @Indicativo se utiliza código fiscal@
Definir ALFA xCursor; @Cursor para acesso a base de dados@

Inicio
  Se (VSIntCodEmp = 1) 
  inicio
    Se (VSIntCodFil = 1) 
    inicio
      SQL_Criar(xCursor);
      SQL_DefinirComando(xCursor,"SELECT UTIFIS FROM E070EPF WHERE CODEMP = :xCodEmp ");
      SQL_DefinirInteiro(xCursor,"xCodEmp",VSIntCodEmp);
      SQL_AbrirCursor(xCursor);
      se (SQL_BOF(xCursor) = 0) {  
        SQL_RetornarALfa(xCursor,"UTIFIS",xUtiFis);
      }
      SQL_FecharCursor(xCursor);
      SQL_Destruir(xCursor);

      se (xUtiFis <> "S") {
        @ Exemplo ordenando pela descrição do produto e descrição da derivação @
        VSIntOrdSql = "DESPRO, DESDER";       
      }
      senao {
        @ Exemplo ordenando pela descrição fiscal @
        VSIntOrdSql = "DESFIS, ITEFIS";
      }             
    fim;
  fim; 
Fim;