Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada será executado no final da gravação  da tabela VO4 na rotina Apontamento Eletrônico (OFIOM070) e permite atualizar campos da tabela VO4.

Localização:

Atualizações \ Mov Produtivos \ Apontam Eletronico (OFIOM070)

Eventos:

// Limpa variaveis de Memoria

FS_LIMPA070()

///////////////////////////////////

// Gravar Motivo de Cancelamento //

///////////////////////////////////

If !Empty(VO4->VO4_MPAUSA) .AND. Len(aMotCancel) > 0

OFA210VDT("000006",aMotCancel[1],"2",VO1->VO1_FILIAL,VO1->VO1_NUMOSV,aMotCancel[4])

EndIf

//////////////////////

// Ponto de Entrada //

//////////////////////

If ExistBlock("OM070DGR")

ExecBlock("OM070DGR", .f., .f.)

EndIf

End Transaction

Programa Fonte:

OFIOM070.PRW

Função:

FS_APONTAMENTO()

Exemplo:

#Include 'Protheus.ch'

/*

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

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

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

##|Função | OM070DGR | Autor | MIL | Data | 05/09/18 |##

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

##|Descrição | Inclusão na Gravação de Apontamento Eletrônico (VO4) |##

## no final da função FS_APONTAMENTO() |##

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

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

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

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

*/

User Function OM070DGR()

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

Return