OA050GB1 Manipulação de informações da ferramenta antes da gravação no cadastro de produtos (OFIOA050)

Descrição:

Este Ponto de Entrada será executado na rotina Ferramentas (OFIOA050) ao ser utilizada a funcionalidade Incluir. Este ponto de entrada permite customizar as informações a serem gravadas no cadastro de produtos da ferramenta (tabela SB1).

Eventos:

{ "B1_COD" , GetSXENum("SB1","B1_COD") , Nil },;

{ "B1_CODITE" , ALLTRIM(cGrpFer) + ALLTRIM(aData[nIdxCodFer]) , Nil },;

{ "B1_GRUPO" , cMVGruFer , Nil },;

{ "B1_DESC" , ALLTRIM(aData[nIdxDesFer]) , Nil },;

{ "B1_TIPO" , cMVTipFer , Nil },;

{ "B1_UM" , "UN" , Nil },;

{ "B1_LOCPAD" , aData[nIdxLocPad] , Nil },;

{ "B1_FILIAL" , xFilial("SB1") , Nil } ;

}

lMsErroAuto := .F. // controle de erros usado na integracao

//Ponto de Entrada p/ Atualizar o Cadastro de Produto

If ExistBlock("OA050GB1") // Usado para alterar/adicionar os dados do B1 em caso de customização do B1

aB1Data := ExecBlock( "OA050GB1", .F., .F., { aB1Data } )

EndIf

MSExecAuto({|x,y| mata010(x,y)},aB1Data,nOpcA)

If lMsErroAuto

MostraErro()

Help(" ",1,"ERROCADPRO") // Erro no Cadastro da Ferramenta no SB1

lMsErroAuto := .F.

lOperOk := .F.

Else

lOperOk := .T.

Endif

Função: