Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include "protheus.ch" User Function AF050VTP() Local aBensTipos := {'55','56','57'} //Outras regras dependendo do que deseja ser avaliado e validado Return aBensTipos |
Exemplo da manipulação do PE pelo sistema:
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
If ExistBlock("AF050VTP") If lResult .and. !AFA050VlTp(cFilDe, cFilAte) If IsBlind() LogRecord( 'ID:AF050VLTP' ) Else HELP(" ",1,"AF050VLTP",,STR0033,1,0) //"Existem ativo(s) com tipo nao tratado" EndIf lResult := .F. EndIf EndIf |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
If ExistBlock("AF050VTP") aAux := ExecBlock( "AF050VTP", .F., .F. ) If ValType(aAux)=="A" For nX := 1 to Len(aAux) If ValType(aAux[nX])=="C" AADD(aTipos, aAux[nX]) EndIf Next EndIf Endif |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas