Histórico da Página

Ponto de Entrada que valida as getdados antes da confirmação do cadastro da rotina Regras do Negócio, na função TudoOk.

FATA100.PRX

FT100TOK - TudoOK Regras do Negócio ( [ oGetD1 ], [ oGetD2 ], [ oGetD3 ] ) --> lRet

lRet(logico)
• .T. a validação foi aceita .F. a validação não foi aceita

Para validar dados do cabeçalho, as variáveis estão na memória, onde poderão também ser validadas.

User Function FT100TOKLocal lRet      := .T.Local oGetD1	:= Paramixb[1]Local oGetD2	:= Paramixb[2]Local oGetD3	:= Paramixb[3]Local cEnchoice := M->ACS_DESCRI	Alert("Entrou no P.E FT100TOK.")	If oGetD1:aCols[1][2]= "001" // Tabela de preço		Alert("Descrição do cabeçalho->"+Alltrim(cEnchoice)+ CHR(13)+CHR(10)+"Tabela:"+oGetD1:aCols[1][2]+" Esta tabela de preço é invalida para este mês!!")		lRet:= .F.    EndIf    If oGetD2:aCols[1][2]= "01" //Produto		Alert("Este produto é invalido para este mês!!")		lRet:= .F.    EndIf    If oGetD3:aCols[1][2]= "001" //Grupo do Produto		Alert("Este grupo de produto é invalido para este mês!!")		lRet:= .F.    EndIfReturn(lRet)