Linha Microsiga Protheus

Árvore de páginas

Carregando...

Versões comparadas

Versão antiga 1

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

Gravado em

comparado com

Nova versão Atual

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

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 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

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 Formulario Formulário de Garantia Mutua
If ExistBlock("OA550SGM")
ExecBlock("OA550SGM",.f.,.f.,)
EndIf
//

EndIf

...