Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Otavio de Albergaria B. Favarelli

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (mirlene.silva)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

Ponto de entrada localizado na rotina Garantia MutuaMútua. Esta posicionado depois da liberação ou rejeição do pedido de garantia mutuamútua, dentro da transação. Assim, o cliente poderá realizar atualizações nos dados conforme sua necessidade.

Observações

Exemplos

#include "Protheus.ch"

User Function OA550DGR()

MsgInfo("Ponto de Entrada depois da gravação do pedido de garantia mutuamútua).")

Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

Begin Transaction
dbSelectArea("VDF")
dbGoTo(nReg)

If !RecLock("VDF",.f.)
Help(" ",1,"REGNLOCK")
DisarmTransaction()
Return .f.
EndIf
FG_GRAVAR("VDF")
VDF->VDF_STATUS := cOper
MSMM(VDF->VDF_OBSMEM,TamSx3("VDF_OBSERV")1,,M->VDF_OBSERV,1,,,"VDF","VDF_OBSMEM")
MsUnLock()

// Se foi rejeitado, altera a OS ...
If cOper == "R"
dbSelectArea("VO1")
dbSetOrder(1)
dbSeek( xFilial("VO1") + VDF->VDF_NUMOSV )
If !RecLock("VO1",.f.)
HELP(" ",1,"REGBLOQ")
DisarmTransaction()
Return .f.
EndIf
VO1->VO1_GARMUT := "2"
MsUnLock()
EndIf
//

If ExistBlock("OA550DGR")
ExecBlock("OA550DGR",.f.,.f.)
EndIf

End Transaction

...