Definir Numero nStatusProcesso;
Definir alfa   aMensagemProcesso;

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

Definir Alfa   aParam_UniMed;

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=ListarUnidadeMedidaConversao.OffSet;
  nParam_Limit =ListarUnidadeMedidaConversao.Limit;
  aParam_UniMed=ListarUnidadeMedidaConversao.Unimed;


  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){
    ListarUnidadeMedidaConversao.JsonOutput     = aResponse_JsonOutput;
  }
  ListarUnidadeMedidaConversao.StatusProcesso   = nStatusProcesso;
  ListarUnidadeMedidaConversao.MensagemProcesso = aMensagemProcesso;
}

Funcao BuscaDados();{
  aSql = "select \
           e015tcu.unimed                 as e015tcu_unimed,\
           e015tcu.unime2                 as e015tcu_unime2,\
           e015tcu.tipcnv                 as e015tcu_tipcnv,\
           e015tcu.vlrcnv                 as e015tcu_vlrcnv,\
           e015tcu.codreg                 as e015tcu_codreg \
          FROM e015tcu \
          where     (e015tcu.unimed = '"+ aParam_UniMed +"' or '" + aParam_UniMed + "' is null)" +
          " order by e015tcu.unimed " ;
  @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;
  }
}