// BIBLIOTECAS NECESSÁRIAS
#Include "TOTVS.ch"

// FUNÇÕES PRINCIPAIS
User Function A415LIOK()
    Local lValid    := .T.                    // CONTROLE DE VALIDAÇÃO
    Local cAliasSCK := aHeaderSCK[1][9]       // ITENS DA TABELA SCK
    Local cAliasSCL := aHeaderSCL[1][9]       // ITENS DA TABELA SCL
    Local aAreaSCK  := (cAliasSCK)->GetArea() // ARMAZENA A ÁREA CORRENTE DA SCK
    Local aAreaSCL  := (cAliasSCL)->GetArea() // ARMAZENA A ÁREA CORRENTE DA SCL

    // EXEMPLO DE VALIDAÇÃO NA TABELA SCK
    If (AllTrim((cAliasSCK)->CK_PRODUTO) == "PRDT0001")
        lValid := .F.
        Help(NIL, NIL, "SCK_PRDT_DENIED", NIL, "Produto Indisponível",;
            1, 0, NIL, NIL, NIL, NIL, NIL, {"Utilize outro produto."})
    EndIf

    // EXEMPLO DE VALIDAÇÃO NA TABELA SCJ
    If (CJ_TIPOCLI =="J" .Or. AllTrim(CJ_PROSPE) == "PRP002")
        lValid := .F.
        Help(NIL, NIL, "SCJ_PROSPCT_DENIED", NIL, "Prospect ou Tipo do Cliente não permitido",;
            1, 0, NIL, NIL, NIL, NIL, NIL, {"Entre em contato com o responsável de faturamento."})
    EndIf

    // EXEMPLO DE VALIDAÇÃO NA TABELA SCL
    If (AllTrim((cAliasSCL)->CL_PRODUTO) == "PRDT0005")
        lValid := .F.
        Help(NIL, NIL, "SCL_PRDT_DENIED", NIL, "Produto Indisponível",;
            1, 0, NIL, NIL, NIL, NIL, NIL, {"Utilize outro produto."})
    EndIf
    
    // RESTAURA O ESTADO ANTERIOR
    RestArea(aAreaSCK)
    RestArea(aAreaSCL)
Return (lValid)

Saiba mais
A415LIOK - Validação do processo de orçamento de venda