Histórico da Página

Ponto de Entrada

Descrição:	Este Ponto de Entrada será executado na rotina Req Pecas (OFIOM020) ao ser executada a funcionalidade Alterar. A mesma permite alterar informações das peças que serão transferidas de estoque e que não tem a localização da peça informada.
Localização:	Atualizações \ Mov Oficina \ Req Peças (OFIOM020)
Eventos:	If Localiza(SB1->B1_COD) If Empty( Posicione("VOI",1,xFilial("VOI")+aPecasAlt[iP,4],"VOI_LOCALI") ) ; .Or. Empty( Posicione("VOI",1,xFilial("VOI")+VO3->VO3_TIPTEM,"VOI_LOCALI") ) // Cancela Gravacao Help(" ",1,"SALDOLOCLZ") lRet := .f. DisarmTransaction() Break EndIf //Executa RdMake da Ordem de Busca if ExistBlock("RDLOCALIZ") ExecBlock("RDLOCALIZ",.f.,.f.,{@aItensNew}) Endif EndIf If ExistBlock("OM020APEC") // Ponto de Entrada para alterar informações das peças que serão transferidas // de estoque e que não tem a localização da peça informada aItensNew := ExecBlock("OM020APEC", .f., .f., {aItensNew}) EndIf MSExecAuto({\|x\| MATA261(x)},aItensNew) If lMsErroAuto // Cancela Gravacao lRet := .f. DisarmTransaction() Break EndIf
Programa Fonte:	OFIOM020.PRW
Função:	FS_ALTREQ()
Retorno:	aItensNew - Vetor - contém os produtos que serão transferidos de estoque. A estrutura que está sendo enviada como parâmetro para o Ponto de Entrada não pode sofrer alteração.
Parâmetros	aItensNew - Vetor - contém os produtos que serão transferidos de estoque para o almoxarifado informado no cadastro do tipo de tempo.

Exemplo:

#include "TOTVS.ch"

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | OM020APEC | Autor | MIL | Data | 12/04/19 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Alterar informações das peças que serão transferidas de |##

## | estoque e que não tem a localização da peça informada na |##

## | função FS_ALTREQ() - gravação da alteração da rotina |##

## | Requisiçao de Peças (OFIOM020) |##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function OM020APEC()

Local aItensNew := ParamIXB[1]

MsgAlert("Ponto de Entrada OM020APEC executado com sucesso!")

Return aItensNew