Definir Numero nStatusProcesso;
Definir alfa   aMensagemProcesso;

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

Definir Numero nParam_CodEmp;
Definir Numero nParam_CodEmb;

Definir Alfa   aParam_CodEmp;
Definir Alfa   aParam_CodEmb;

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

Definir Funcao IniciaProcessamento();
Definir Funcao MontaResposta();
Definir Funcao BuscaDadosPrefatura();

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=Listar.CodEmp;
  nParam_CodEmb=Listar.CodEmb;
  nParam_OffSet=Listar.OffSet;
  nParam_Limit =Listar.Limit;


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

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

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

  MontaResposta();
}


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

Funcao BuscaDadosPrefatura();{
  IntParaAlfa(nParam_CodEmp,aParam_CodEmp);
  IntParaAlfa(nParam_CodEmb,aParam_CodEmb);
  aSql = "select \
           e059lep.codemp                 as codemp,\
           e059emb.codemb                 as codemb,\
           e059emb.desemb                 as desemb,\
           e059emb.abremb                 as abremb,\
           e059emb.embexp                 as embexp \
          from  e059emb \
          inner join e059lep \
            on e059lep.codemb = e059emb.codemb\
          where  (e059lep.codemp = "+ aParam_CodEmp +" or 0=" + aParam_CodEmp + ")" +
          " and  (e059emb.codemb = "+ aParam_CodEmb +" or 0=" + aParam_CodEmb + ")" ;
  @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;
  }
}