Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001DCN - Cancelamento do Orçamento
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:
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas