VA150DPGR Validação do Cancelamento do Tipo de Tempo Durante a Transação (OFIOM150)

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:

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

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

User Function VA150DPGR()

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

Return .t.