Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TM500DEV - Validação dos Campos CTRC de Devolução
Abrangências: TOTVS Application Server 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Este Ponto de Entrada é chamado na rotina de Manutenção de Documentos, permitindo validar a digitação dos campos do CTRC de devolução.
Programa Fonte 
TMSA500.PRW
Sintaxe

TM500DEV - Validação dos Campos CTRC de Devolução ( [ PARAMIXB ] ) --> lRetPE

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB Array of Record OndeItem 1, conteúdo numérico, Percentual de desconto;Item 2, conteúdo numérico, Valor informado eItem 3, conteúdo numérico, Campo validação.
Retorno
    lRetPE(logico)
  • Onde .T. valida conteúdo do campo.
Exemplos 
#INCLUDE "PROTHEUS.CH"Static cDocto := ""Static nValor := 0User Function TM500DEV()Local aRet     := {}Local aArea    := {SZA->(GetArea()),GetArea()}Local nValDig  := ParamIXB[2]Local nCntFor1 := 0Local cGrpADev := PadR(GetMV("ES_GRPADEV",,""),Len(SZA->ZA_CODGRUP))Local lRet     := .T.If cDocto != DT6->DT6_DOC .Or. nValor != nValDig	If nValDig < DT6->DT6_VALTOT		MsgAlert("Desconto não permitido. Acione seu supervisor.","Atenção")		aRet := TmsSenha()		If aRet[1]			SZA->(DbSetOrder(1))			If SZA->(DbSeek(xFilial("SZA") + cGrpADev + PadR(aRet[2],Len(SZA->ZA_USUARIO))))				If SZA->ZA_FILRESP != cFilAnt					MsgAlert("Usuário não pertence a filial da devolução.","Atenção")					lRet := .F.				EndIf			Else				MsgAlert("Usuário não pertence ao grupo de aprovação de desconto na devolução.","Atenção")				lRet := .F.			EndIf		Else			lRet := .F.		EndIf	EndIfEndIfIf lRet	cDocto := DT6->DT6_DOC	nValor := nValDigEndIfFor nCntFor1 := 1 To Len(aArea)	RestArea(aArea[nCntFor1])Next nCntFor1Return lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não