Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001DCN - Cancelamento do Orçamento
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Este Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado no momento do cancelamento do Orçamento, permitindo realizar a gravação de Log.
Eventos
User Function OX001DCN()
 
MsgInfo(“Ponto de Entrada OX001DCN”,”Atencao”)
return nil
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001DCN - Cancelamento do Orçamento ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Observações
  if DBSeek(xFilial("VS4")+VS1->VS1_NUMORC)
cCont := 1
While !Eof() .and. VS4->VS4_FILIAL == xFilial("VS4") .and. VS1->VS1_NUMORC == VS4->VS4_NUMORC
 
DBSelectArea("VPM")
DBSetOrder(1)
if !DBSeek(xFilial("VPM") + VS4->VS4_NUMORC + VS4->VS4_GRUSER + VS4->VS4_CODSER)
dbSelectArea("VPM")
RecLock("VPM",.t.)
VPM->VPM_FILIAL := xFilial("VPJ")
VPM->VPM_NUMORC := VS4->VS4_NUMORC
VPM->VPM_DATCAN := dDataBase
VPM->VPM_HORCAN := val(left(time(),2)+substr(time(),4,2))
VPM->VPM_GRUSER := VS4->VS4_GRUSER
VPM->VPM_CODSER := VS4->VS4_CODSER
VPM->VPM_TIPSER := VS4->VS4_TIPSER
VPM->VPM_VALVEN := VS4->VS4_VALSER
dbSelectArea("VS0")
dbSetOrder(1)
dbSeek(xFilial("VS0")+cMotCancel)
VPM->VPM_MOTIVO := VS0->VS0_DESMOT
VPM->VPM_ORDEM  := STRZERO(cCont,3)
If VPM->(FieldPos("VPM_NOMCLI")) <> 0
VPM->VPM_NOMCLI:= M->VS1_NCLIFT
EndIf
MsUnlock()
cCont += 1
Endif
 
dbSelectArea("VS4")
dbSkip()
Enddo
Endif
if ExistBlock("OX001DCN")
ExecBlock("OX001DCN",.f.,.f.)
Endif
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não