Histórico da Página

...

Local cQuery     :=''
Local cTipo      := PARAMIXB[1]// Tipo: (1) Próximo numero de Caso / (2) Validação se o Caso já existe para o Cliente 
Local cCliente   := PARAMIXB[2]// Código do Cliente
Local cCaso      := PARAMIXB[3]// Número do Caso
Local cNumClien  := PARAMIXB[4]// Parâmetro (MV_JCASO1) - Seqüência da numeração do caso (1 - Por cliente / 2 - Independente) 
Local lUsaLacuna := PARAMIXB[5]// Parâmetro (MV_JCASO2) - Reaproveita lacunas existentes na numeração? .T. - Reaproveita; .F. - Não reaproveita. 

If cTipo =='1'
    If cNumClien =='1'
        If lUsaLacuna
            cQuery :=" SELECT NVE_NUMCAS "
        Else
            cQuery :=" SELECT MAX(NVE_NUMCAS) NVE_NUMCAS "
        EndIf
        cQuery +="   FROM "+RetSqlName( "NVE" ) +" NVE "
        cQuery +="  WHERE NVE.D_E_L_E_T_ = ' ' "
        cQuery +="    AND NVE.NVE_FILIAL = '"+xFilial("NVE") +"' "
        cQuery +="    AND NVE_CCLIEN = '"+ cCliente +"' "
        cQuery +="  ORDER BY NVE_NUMCAS"
    Else
        If lUsaLacuna
            cQuery :=" SELECT DISTINCT NVE_NUMCAS "
        Else
            cQuery :=" SELECT MAX(NVE_NUMCAS) NVE_NUMCAS "
        EndIF
        cQuery +="   FROM "+RetSqlName( "NVE" ) +" NVE "
        cQuery +="  WHERE NVE.D_E_L_E_T_ = ' ' "
        cQuery +="    AND NVE.NVE_FILIAL = '"+xFilial("NVE") +"' "
        cQuery +="  ORDER BY NVE_NUMCAS "
    EndIf
ElseIf cTipo =='2'

    cQuery :=" SELECT NVE.NVE_CCLIEN, NVE_LCLIEN, NVE_NUMCAS "
    cQuery +="   FROM "+RetSqlName( "NVE" )   +" NVE "
    cQuery +="  WHERE NVE.D_E_L_E_T_ = ' ' "
    cQuery +="    AND NVE.NVE_FILIAL = '"+xFilial( "NVE" ) +"' "
    cQuery +="    AND NVE_SITUAC = '1' "
    cQuery +="    AND NVE_NUMCAS = '"+ cCaso +"' "

    If (cNumClien =='1')
        cQuery +="    AND NVE_CCLIEN = '"+ cCliente +"' "
    EndIf
EndIf

Return cQuery

...