Ponto de Entrada
Descrição: | Ponto de Entrada na rotina de Orçamento por Fases, no momento do preenchimento da aCols de Serviços (VS4) pelo Inconveniente. |
Parametros: | _aServ = Vetor de Servicos do Inconveniente (aServ) _nServ = Linha do Vetor de Servicos do Inconveniente (nCntFor) |
Eventos: | oGetServ:aCols[oGetServ:nAt,FG_POSVAR("VS4_GRUSER","aHeaderS")] := M->VS4_GRUSER := aServ[nCntFor,1] oGetServ:aCols[oGetServ:nAt,FG_POSVAR("VS4_CODSER","aHeaderS")] := M->VS4_CODSER := aServ[nCntFor,2] oGetServ:aCols[oGetServ:nAt,FG_POSVAR("VS4_TIPSER","aHeaderS")] := M->VS4_TIPSER := aServ[nCntFor,3] oGetServ:aCols[oGetServ:nAt,FG_POSVAR("VS4_GRUINC","aHeaderS")] := M->VS4_GRUINC := aServ[nCntFor,4] oGetServ:aCols[oGetServ:nAt,FG_POSVAR("VS4_CODINC","aHeaderS")] := M->VS4_CODINC := aServ[nCntFor,5] oGetServ:aCols[oGetServ:nAt,FG_POSVAR("VS4_DESINC","aHeaderS")] := M->VS4_DESINC := aServ[nCntFor,6] If GetNewPar("MV_MIL0093","0") == "1" .and. !Empty(cVO6CODSER) .and. Alltrim(cVO6CODSER)==Alltrim(M->VS4_CODSER) // Utiliza Servicos Automaticos com o valor preenchido pelo usuario oGetServ:aCols[oGetServ:nAt,FG_POSVAR("VS4_VALSER","aHeaderS")] := M->VS4_VALSER := aServ[nCntFor,8] // Valor Servico oGetServ:aCols[oGetServ:nAt,FG_POSVAR("VS4_VALTOT","aHeaderS")] := M->VS4_VALTOT := aServ[nCntFor,8] // Total Servicos EndIf // If ExistBlock("OX01INCS") ExecBlock("OX01INCS",.f.,.f.,{aServ,nCntFor}) // PE executado no preenchimento da aCols de Servicos (VS4) pelo Inconveniente EndIf |
Programa Fonte: | OFIXX001 |
Função: | OX001INCON |
Retorno: | n/a |
Exemplo:
// PE executado no preenchimento da aCols de Servicos (VS4) pelo Inconveniente
User Function OX01INCS()
Local _aServ := ParamIxb[01] // Vetor de Servicos (aServ)
Local _nServ := ParamIxb[02] // Linha do Vetor de Servicos (nCntFor)
MsgAlert("Ponto de Entrada OX01INCS executado com sucesso!","Atenção")
Return