Definir Numero nStatusProcesso;
Definir alfa   aMensagemProcesso;

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

Definir Numero nParam_CodEmp;
Definir Numero nParam_CodFil;
Definir Numero nParam_NumAne;
Definir Numero nParam_NumPfa;

Definir Alfa   aParam_CodEmp;
Definir Alfa   aParam_CodFil;
Definir Alfa   aParam_NumAne;
Definir Alfa   aParam_NumPfa;



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=ListarDetalhes.CodEmp;
  nParam_CodFil=ListarDetalhes.CodFil;
  nParam_NumAne=ListarDetalhes.NumAne;
  nParam_NumPfa=ListarDetalhes.NumPfa;
  Se((nParam_CodEmp=0) ou (nParam_CodFil=0) ou (nParam_NumAne=0) ou (nParam_NumPfa=0)){
    nStatusProcesso   = 0;
    aMensagemProcesso ="Todos os parâmetros de entrada deve ser preenchidos";
  }

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

  MontaResposta();
}


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

Funcao BuscaDadosPrefatura();{
  IntParaAlfa(nParam_CodEmp,aParam_CodEmp);
  IntParaAlfa(nParam_CodFil,aParam_CodFil);
  IntParaAlfa(nParam_NumAne,aParam_NumAne);
  IntParaAlfa(nParam_NumPfa,aParam_NumPfa);

  aSql ="select "+
           " case when e073tra.codtra is not null then  cast(e073tra.codtra as varchar(10)) || '-' || e073tra.nomtra  else '' end " + aAspaDupla + "Transportadora:" + aAspaDupla + "," +
           " case when redespacho.codtra is not null then  cast(redespacho.codtra as varchar(10)) || '-' || redespacho.nomtra  else ' ' end "+ aAspaDupla + "Redespacho:" + aAspaDupla + "," +
           " e135pfa.obspfa " + aAspaDupla + "Observações:"   + aAspaDupla + "," +
           " (select 'Pedido:' || LISTAGG( DISTINCT " +
           "             CASE " +
           "               WHEN E120PED.NUMPED IS NOT NULL " +
           "               THEN  CAST(e120ped.NUMPED AS VARCHAR(10)) ||  REPLACE(coalesce(e120ped.USU_OBSPED, '') ,chr(13),'') " +
           "               ELSE ' ' " +
           "             END, ',' " +
           "           ) WITHIN GROUP ( ORDER BY e120ped.NUMPED) " +
           "  from e135pes " +
           "  INNER JOIN e120ped" +
           "    ON  e120ped.CODEMP = e135pes.CODEMP" +
           "    AND e120ped.CODFIL = e135pes.CODFIL" +
           "    AND e120ped.NUMPED = e135pes.NUMPED" +
           "  where e135pes.codemp = e135pfa.codemp" +
           "  and   e135pes.codfil = e135pfa.codfil" +
           "  and   e135pes.numane = e135pfa.numane" +
           "  and   e135pes.numpfa = e135pfa.numpfa" +
           " ) " + aAspaDupla +  "Obs. Interna:" + aAspaDupla + "," +
           " ' ' " + aAspaDupla + "Obs. Nota:"    + aAspaDupla +
         "from e135pfa \
         left join e073tra \
           on e073tra.codtra = e135pfa.codtra \
         left join e073tra redespacho \
           on redespacho.codtra = e135pfa.codred " +
         " where e135pfa.codemp = "+ aParam_CodEmp +
         " and   e135pfa.codfil = "+ aParam_CodFil +
         " and   e135pfa.numane = "+ aParam_NumAne +
         " and   e135pfa.numpfa = "+ aParam_NumPfa ;
  WsgenericConsult.queryCompleted = aSql;
  WsgenericConsult.Executar();
  Se(WsgenericConsult.ErroExecucao <> ""){
    nStatusProcesso   =0;
    aMensagemProcesso =WsgenericConsult.ErroExecucao;
  }senao {
    aResponse_JsonOutput = WsgenericConsult.pmJsonResponse;
  }
}