Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina de Cancelamento de OS (OFIOM150) e é utilizado para realizar a validação do cancelamento de um tipo de tempo dentro da Transação, após o cancelamento de Tipo(s) de Tempo da Ordem de Serviço.

Localização:

Atualização \ Mov Oficina \ Cancelamento OS (OFIOM150)

Eventos:

If ExistBlock("VA150DPGR")

If !ExecBlock("VA150DPGR",.f.,.f.,{})

lMsErroAuto := .t.

EndIf

EndIf

//Projeto WHI SC

If GetNewPar("MV_MIL0006","") == "SCA" .AND. FindFunction("OFINSC01")

If lCancOS

OFSC01(.f.,.t.,VO1->VO1_NUMOSV,"","")//lEnd, lAuto, cTipTem, cLibVOO

ElseIf Len( aAltOSV ) > 0

For nCont := 1 To Len(aAltOSV)

OFSC01(.f.,.t.,aAltOSV[nCont,01],aAltOSV[nCont,02],aAltOSV[nCont,03])//lEnd, lAuto, cTipTem, cLibVOO

Next

Endif

EndIf

If !lOM150Auto

///////////////////////////////////

// Gravar Motivo de Cancelamento //

///////////////////////////////////

If Len(aMotCancel) > 0

OFA210VDT("000002",aMotCancel[1],"2",VO1->VO1_FILIAL,VO1->VO1_NUMOSV,aMotCancel[4])

EndIf

EndIf

End Transaction

lMsHelpAuto := .f.

Programa Fonte:

OFIOM150.PRW

Função:

FS_GRACANCEL()
Retorno:.T. ou .F.

Exemplo:

#Include 'Protheus.ch'

// Ponto de Entrada utilizado para alterações após o cancelamento de

// Tipo(s) de Tempo da Ordem de Serviço

#include "Protheus.ch"

User Function VA150DPGR()

MsgInfo("Ponto de Entrada VA150DPGR executado com sucesso!")

Return .t.