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_CodEmp=ListarOrigens.CodEmp;
  aParam_CodOri=ListarOrigens.CodOri;
  nParam_OffSet=ListarOrigens.OffSet;
  nParam_Limit =ListarOrigens.Limit;


  Se(nParam_CodEmp=0){
    nParam_CodEmp = 1;
  }

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

Funcao BuscaDados();{
  IntParaAlfa(nParam_CodEmp,aParam_CodEmp);
  aSql = "select \
           codemp,\
           codori,\
           desori,\
           tippro,\
           deppad \
          FROM e083ori \
          where  (e083ori.codemp = "+ aParam_CodEmp +" or 0=" + aParam_CodEmp + ")" +
          " and  (e083ori.codori = '"+ aParam_CodOri +"' or '" + aParam_CodOri + "' is null )" ;
  @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;
  }
}