PEST07698 - M310ESTO - Ponto de Entrada na Confirmação do Estorno do Relacionamento entre Origem e Destino

Produto:

Microsiga Protheus®

Ocorrência:

M310ESTO: Ponto de entrada na confirmação do estorno de relacionamento entre origem e destino.

Passo a passo:

Localização: Function A310EstRel() - Função utilizada para estornar relacionamento entre origem e destino executados pela rotina de  transferência de filiais MATA310.

Em que ponto: Executado após a confirmação da janela de diálogo da função A310EstRel(); Neste momento, o usuário poderá pesquisar e manipular os registros necessários utilizando as informações descritas em tela. Neste ponto, serão passados como parâmetro

a filial, produto e armazém de origem / destino e a quantidade em estoque.

Através do uso deste ponto de entrada, será possível atualizar a base de dados. Não é esperado nenhum retorno neste ponto de entrada.

Programa fonte: MATA310.PRW

Sintaxe: M310ESTO - Permite manipulação da base de dados ( < PARAMIXB> ) --> Nil

Parâmetro:

Retorno:

Nil(nulo)

• Neste ponto de entrada não é esperado retorno.

Exemplo:

User Function M310ESTO()
Local aArea     := GetArea()
Local aAreaSB2  := SB2->( GetArea() )
Local aParams   := ParamIXB
Local cProdOrig := ParamIXB[ 01 ] //Produto Origem
Local cFilOrig  := ParamIXB[ 02 ] //Filial  Origem 
Local cLocalOrig:= ParamIXB[ 03 ] //Armazem Origem
Local cProdDest := ParamIXB[ 04 ] //Produto Destino
Local cFilDest  := ParamIXB[ 05 ] //Filial  Destino 
Local cLocalDest:= ParamIXB[ 06 ] //Armazem Destino
Local nQtdEst   := ParamIXB[ 07 ] //Quantidade em Estoque

dbSelectArea( 'SB2' )
SB2->( dbSetOrder( 1 ) )

If !SB2->( dbSeek( cFilOrig + cProdOrig + cLocalOrig ) )
    CriaSB2( cProdOrig, cFilOrig )
EndIf

If !SB2->( dbSeek( cFilDest + cProdDest + cLocalDest ) )
    CriaSB2( cProdDest, cLocalDest )
EndIf

RestArea( aAreaSB2 )
RestArea( aArea )
Return Nil