Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

PN350ACOLS GP180EXCL- Validação nos dados do aCols antes da gravaçãode uma matricula na exclusão de transferência.

Observações:

Ponto de entrada que permite a alteração dos dados contidos em aCols, antes do momento de efetuar a gravação,na rotina de Pré-Abonovalidar a exclusão de uma transferência.

Eventos:

Cadastro de Pré-abono.Transferência

Programa Fonte:

PONA350GPEA180.PRX.

 

USER FUNCTION

PN350GRV

GP180EXCL()
Local

aRet:={}Local lRetUsr

lRet := .

F

T.

aRet:=PARAMIXB[1] If ValType(aRet)=="A".AND.Len(aRet)>=

IF SRA->RA_FILIAL == 'D MG 01 ' .AND. SRA->RA_MAT = '900001'
     lRet := .F.
EndIf

RETURN lRet //.T. - posso excluir, .F. - Não posso Excluir

1

    // TRATATIVAS

    Alert('Passou no P.E')

    lRetUsr:=.T.

 Else

    lRetUsr:=.F.

 EndIF

RETURN (lRetUsr)