Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina Req Pecas (OFIOM020) ao ser executada a funcionalidade Alterar. A mesma permite criar validações customizadas antes da gravação da alteração. | ||||||||
Localização: | Atualizações \ Mov Oficina \ Req Pecas (OFIOM020) | ||||||||
Eventos: | If aPecas[i,1] // Servicos If Len(aServicos)#0 .And. aScan(aServicos,{|x| x[4] == aPecas[i,2]}) # 0 For iS:=1 to Len(aServicos) // Mesmo Tipo de Tempo If aServicos[iS,4] == aPecas[i,2] lIgual := .f. // Se utiliza inconveniente, a Sequencia deve ser a mesma if lInconveniente if aServicos[iS,12] == aPecas[i,13] lIgual := .t. endif else lIgual := .t. endif // if lIgual aServicos[iS,1] := aPecas[i,1] endif nValor := nValor + aServicos[iS,8] EndIf Next EndIf EndIf Next // Alterar lMsHelpAuto := .F. //Validacao por Ponto de Entrada If ExistBlock("OM020ALT") // Valida antes da Requisicao lRet := ExecBlock("OM020ALT",.f.,.f.) If !lRet Return (.f.) Endif Endif If !lAltCli nValor := 0 Endif //Validacao por Ponto de Entrada lVerTpgCC := .t. If PEVERTPGCC // Verifica tipo de Pagamento para Checagem de Credito lVerTpgCC := ExecBlock("VERTPGCC",.f.,.f.,{"OFIOM020"}) Endif | ||||||||
Programa Fonte: | OFIOM020.PRW | ||||||||
Função: | FS_ALTREQ() | ||||||||
Retorno: |
|
Exemplo:
#include "Protheus.ch"
User Function OM020ALT()
Local lRetorno := .f.
If MsgYesNo("Confirma alteração da Requisicao ?")
lRetorno := .t.
EndIf
Return lRetorno
User Function OM020RDOK()
Local cReqDevAux := ParamIxb[1] // 0-Devolução / 1-Requisição
Local lRetorno := .t.
MsgInfo("Ponto de entrada OM020RDOK executado com sucesso!","Atenção")
Return lRetorno
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas