Linha Microsiga Protheus

Árvore de páginas

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