Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: FT100TOK - TudoOK Regras do Negócio
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Ponto de Entrada que valida as getdados antes da confirmação do cadastro da rotina Regras do Negócio, na função TudoOk.
Programa Fonte 
FATA100.PRX
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
oGetD1 Objeto Objetos da Getdados da pasta Negociação
oGetD2 Array of Record Objetos da Getdados da pasta Comercialização
oGetD3 Array of Record Objetos da Getdados da pasta Descontos
Retorno
    lRet(logico)
  • .T. a validação foi aceita .F. a validação não foi aceita
Observações

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

Exemplos 
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)
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não