Perguntas Validação de Campo

#INCLUDE "rwmake.ch"
#include 'Topconn.ch'

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³M410LIOK  ºAutor  ³Milton              º Data ³  01/02/07   º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³ Ponto de entrada para validar as linhas do pedido de venda º±±
±±º          ³ 														      º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ AP7                                                        º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

User Function M410LIOK()

Local aAreaSC5 := SC5->(GetArea())
Local aAreaSC6 := SC6->(GetArea())
Local aAreaSB1 := SB1->(GetArea())
Local aAreaSA1 := SA1->(GetArea())
Local aArea := GetArea()
Local lRet := .T.
Local cTES, bCli

U_MostraFunc("M410LIOK()")

IF !M->C5_TIPO$"D/B"
  // Verifica se esta deletado
  IF !acols[n][len(aCols[n])]

    cTES := BuscaCols("C6_TES")           
    //acols[n][ascan(aHeader,{|x| Upper(alltrim(x[2])) == "C6_TES"})] 	
    cTES := IIF(Posicione("SF4",1,xFilial("SF4")+cTES,"F4_CREDIPI")="S",.T.,.F.)
    bCli := Posicione("SA1",1,xFilial("SA1")+M->C5_CLIENTE,"A1_ARAIPI")=.T.

    IF  cTES .and. bCli
        Alert('Verifique, pois a TES tem direito a credito de IPI e o cliente e Isento !')       
        lRet := .F.                    
    EndIF  
  
    IF  !cTES .and. !bCli
        Alert('Verifique, pois a TES não tem direito a credito de IPI !')       
        lRet := .F.                    
    EndIF  

  Endif
EndIF  
RestArea(aAreaSC5)
RestArea(aAreaSC6)
RestArea(aAreaSB1)
RestArea(aAreaSA1)
RestArea(aArea)

Return lRet