Definir Numero nStatusProcesso;
Definir alfa   aMensagemProcesso;

Definir Alfa   aResponse_JsonOutput;
Definir Alfa   aSql;
Definir Alfa   aAspaDupla;

Definir Numero nParam_CodEmp;
Definir Alfa   aParam_CodOri;
Definir Alfa   aParam_CodEmp;

Definir Interno.com.br.Soelx.Util.genericConsult WsgenericConsult;

Definir Funcao IniciaProcessamento();
Definir Funcao MontaResposta();
Definir Funcao BuscaDados();

aAspaDupla        = "\"";

IniciaProcessamento();

@------------------------------------------------------------------------------@
@----Função para iniciar a distribuição do processamento das informações-------@
@------------------------------------------------------------------------------@
Funcao IniciaProcessamento();{
  aResponse_JsonOutput = "";

  nStatusProcesso   = 1;
  aMensagemProcesso ="Processamento realizado com sucesso.";

  nParam_OffSet=ListarUnidadeMedidas.OffSet;
  nParam_Limit =ListarUnidadeMedidas.Limit;


  Se(nParam_Limit=0){
    nParam_Limit = 99999999;
  }

  Se(nStatusProcesso=1){
    BuscaDados();
  }

  MontaResposta();
}


@--Função que devolve o resultado do processamento dos dados de entrada--------@
Funcao MontaResposta();{
  Se(nStatusProcesso=1){
    ListarUnidadeMedidas.JsonOutput     = aResponse_JsonOutput;
  }
  ListarUnidadeMedidas.StatusProcesso   = nStatusProcesso;
  ListarUnidadeMedidas.MensagemProcesso = aMensagemProcesso;
}

Funcao BuscaDados();{
  aSql = "select \
           e015med.unimed       as e015med_unimed,\
           e015med.desmed       as e015med_desmed \
          FROM e015med " ;
  @Mensagem(Erro, aSql);@
  WsgenericConsult.queryCompleted = aSql;
  WsgenericConsult.Limit  = nParam_Limit;
  WsgenericConsult.OffSet = nParam_OffSet;
  WsgenericConsult.Executar();
  Se(WsgenericConsult.ErroExecucao <> ""){
    nStatusProcesso   =0;
    aMensagemProcesso =WsgenericConsult.ErroExecucao;
  }senao {
    aResponse_JsonOutput = WsgenericConsult.pmJsonResponse;
  }
}