Histórico da Página

#INCLUDE "PROTHEUS.CH"   

User Function P712VLD()
    Local cTela	 := ParamIxb[1]
    Local cJson	 := ParamIxb[2]
    Local oJson  := JsonObject():New()
    Local lRet   := .T.
    
    oJson:FromJson(cJson)

    If cTela == "TELA_1"
        If oJson["lGeraDoc"] == .F.
            Help(' ',1,"HelpP712VLD",, "Deve gerar documentos no final do cálculo",2,0)
            lRet := .F. 
        EndIF
    ElseIf cTela == "TELA_2"
        If Val(oJson["numberOfPeriods"]) > 30
            Help(' ',1,"HelpP712VLD",, "Só pode executar com 30 periodos ou menos",2,0)
            lRet := .F.
        EndIf
    ElseIf cTela == "TELA_3"
        If oJson["safetyStock"] == "1" 
            Help(' ',1,"HelpP712VLD",, "Estoque de segurança deve estar configurado como não",2,0)
            lRet := .F.
        EndIf

        If oJson["orderPoint"] == "1"
            Help(' ',1,"HelpP712VLD",, "Ponto de pedido deve estar configurado como não",2,0)
            lRet := .F.
        EndIf
    ElseIf cTela == "TELA_4"
        If oJson["consolidatePurchaseRequest"] != "2"
            Help(' ',1,"HelpP712VLD",, "Não pode aglutinar solicitações de compra",2,0)
            lRet := .F.
        EndIf
        
        If oJson["consolidateProductionOrder"] != "2"
            Help(' ',1,"HelpP712VLD",, "Não pode aglutinar ordens de produção",2,0)
            lRet := .F.
        EndIf
    ElseIf cTela == "TELA_5"
        If oJson["documentType"]["PREVISTOS"] != "1"
            Help(' ',1,"HelpP712VLD",, "Documentos previstos devem ser excluidos",2,0)
            lRet := .F.
        EndIf
    EndIf

Return lRet