Definir Numero nStatusProcesso;
Definir alfa   aMensagemProcesso;

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

Definir Numero nParam_CodEmp;
Definir Alfa   aParam_CodFam;
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=ListarFamilias.CodEmp;
  aParam_CodFam=ListarFamilias.CodFam;
  nParam_OffSet=ListarFamilias.OffSet;
  nParam_Limit =ListarFamilias.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){
    ListarFamilias.JsonOutput     = aResponse_JsonOutput;
  }
  ListarFamilias.StatusProcesso   = nStatusProcesso;
  ListarFamilias.MensagemProcesso = aMensagemProcesso;
}

Funcao BuscaDados();{
  IntParaAlfa(nParam_CodEmp,aParam_CodEmp);
  aSql = "select \
           codemp,\
           codfam,\
           codori,\
           desfam,\
           tippro,\
           deppad,\
           unimed \
          FROM e012fam \
          where  (e012fam.codemp = " + aParam_CodEmp +" or 0=" + aParam_CodEmp + ")" +
          " and  (e012fam.codfam = '"+ aParam_CodFam +"' or '" + aParam_CodFam + "' 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;
  }
}