Linha Microsiga Protheus

Árvore de páginas

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