OA550SGM - Geração do formulário de pedido de garantia mútua.

Descrição

Este ponto de entrada está localizado na rotina Garantia Mutua. Tem como finalidade a geração do formulário de pedido de garantia mútua. O formulário deve ser desenvolvido de acordo com as necessidades do cliente, sendo a autoria deste realizada pelo próprio cliente (personalização).

Observações

Exemplos

#include "Protheus.ch"

User Function OA550SGM()

MsgInfo(Ponto de entrada depois da gravação do pedido de garantia mú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

If !VDF->(dbSeek(xFilial("VDF") + cNumOrc))

aArea := sGetArea(aArea,"VV1")
aArea := sGetArea(aArea,"VS1")
aArea := sGetArea(aArea,"VO1")
aArea := sGetArea(aArea,"VG4")

VS1->(dbSetOrder(1))
VS1->(MsSeek( xFilial("VS1") + cNumOrc ))

VO1->(dbSetOrder(1))
VO1->(MsSeek( xFilial("VO1") + cNumOsv ))

VV1->(dbSetOrder(1))
VV1->(MsSeek( xFilial("VV1") + VO1->VO1_CHAINT ))

BEGIN TRANSACTION

VG4->(dbSetOrder(1))
If !VG4->(dbSeek(xFilial("VG4") + Str(Year(dDataBase),4) + "MUT"))
dbSelectArea("VG4")
RecLock("VG4",.t.)
VG4->VG4_FILIAL := xFilial("VG4")
VG4->VG4_ANONRO := Str(Year(dDataBase),4)
VG4->VG4_CODMAR := "MUT"
VG4->VG4_NUMERO := StrZero(1,TamSX3("VG4_NUMERO")1)
Else
RecLock("VG4",.f.)
VG4->VG4_NUMERO := Soma1(VG4->VG4_NUMERO)
EndIf

dbSelectArea("VDF")
RegToMemory("VDF",.t.,.t.) // Inicializa M->
RecLock("VDF",.t.)
FG_GRAVAR("VDF")
VDF->VDF_FILIAL := xFilial("VDF")
VDF->VDF_ANOPED := Str(Year(dDataBase),4)
VDF->VDF_NUMPED := VG4->VG4_NUMERO
VDF->VDF_STATUS := "P"
VDF->VDF_CHAINT := VO1->VO1_CHAINT
VDF->VDF_NUMOSV := cNumOsv
VDF->VDF_NUMORC := cNumOrc
VDF->VDF_CODCLI := VO1->VO1_PROVEI
VDF->VDF_LOJA := VO1->VO1_LOJPRO
VDF->VDF_CODCON := VV1->VV1_CODCON
VDF->VDF_VLREST := VS1->VS1_VTOTNF
VDF->(MsUnLock())

VG4->(MsUnLock())

END TRANSACTION

lRetorno := .t.

// Ponto de Entrada de Formulário de Garantia Mutua
If ExistBlock("OA550SGM")
ExecBlock("OA550SGM",.f.,.f.,)
EndIf
//

EndIf

Variáveis

Programa Fonte

OFIOA550.PRW