MTA241PCO - Rotina de baixa da pré-requisição

LOCALIZAÇÃO   :  Function A241Inclui - Função para inclusão de movimentos internos (Requisições e Devoluções internas) Modelo 2

EM QUE PONTO :  Apos a montagem do aCols, vale ressaltar que este ponto de entrada e somente utilizado quando utilizada a rotina de baixa da pre-requisição. ('MATA185')

MATA241.PRX

MTA241PCO - Rotina de baixa da pré-requisição ( ) --> lRet

lRet(logico)
• .T. ou .F.

#INCLUDE 'RWMAKE.CH'User Function MTA241PCO()Local lRet     := .F.Local nX       := 0Local cTmAnt   := cTmLocal aAreaAnt := GetArea()Private n      := 0cTm := '501' //-- Informar Tipo de Movimentacao utilizada pelo Cliente para baixa da pre-requisiçcaoFor nX := 1 To Len(aCols) n := nX //-- Verifica validacoes do PCO lRet := PCOVldLan('000151','02','MATA240',.T.)  If !lRet  Exit EndIf Next nX//-- Restaura Variaveis de ambienten   := 1cTm := cTmAnt//-- Restaura area anteriorRestArea(aAreaAnt)Return lRet