DT_OXC09VS4_Customizacoes_na_aCols_de_Servicos_antes_do_retorno_para_o_Orcamento_Fases

Ponto de Entrada

Descrição:	Ponto de Entrada na rotina de Consulta de Peças por Aplicação, executado na momento que esta preenchendo a aCols de Serviços, antes do retorno da Consulta para o Orçamento. Finalidade: Pode ser utilizado para customizações na aCols de Serviços antes do retorno para o Orçamento Fases.
Parâmetros:	nPos = Linha do aCols de Servicos (oGetServ:aCols) ni = Linha do Vetor de Pecas Selecionadas (aSB1Sel)
Eventos:	oGetServ:aCols[nPos,len(oGetServ:aHeader)+1] := .F. oGetServ:aCols[nPos,nVS4SEQINC] := M->VS4_SEQINC := OX001SEQINC(cDescInconv) // Sequencia Inconveniente oGetServ:aCols[nPos,nVS4DESINC] := M->VS4_DESINC := cDescInconv // Descricao do Incoveniente oGetServ:aCols[nPos,nVS4GRUSER] := M->VS4_GRUSER := cVO6GRUSER // Grupo de Servico oGetServ:aCols[nPos,nVS4TIPSER] := M->VS4_TIPSER := cVS4TIPSER // Tipo de Servico oGetServ:aCols[nPos,nVS4CODSEC] := M->VS4_CODSEC := cVS4CODSEC // Codigo de Secao oGetServ:aCols[nPos,nVS4VALSER] := M->VS4_VALSER := aSB1Sel[ni,11] // Valor Servico oGetServ:aCols[nPos,nVS4VALTOT] := M->VS4_VALTOT := aSB1Sel[ni,11] // Total Servicos // If ExistBlock("OXC09VS4") // Preencher campos customizados na aCols de Servicos (VS4) do Orcamento // nPos = Linha do aCols de Servicos ( oGetServ:aCols ) // ni = Linha do Vetor ( aSB1Sel - Pecas Selecionadas ) ExecBlock("OXC09VS4",.F.,.F.,{nPos,ni}) EndIf // oGetServ:oBrowse:Refresh()
Programa Fonte:	OFIXC009.PRW
Função:	FS_ACOLS
Retorno:	n/a

Exemplo:

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

// Campos Customizados para serem preenchidos no Orcamento apos retorno da Consulta de Peças por Aplicação //

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

User Function OXC09VS4()

Local nPos := ParamIXB[01] // Linha do aCols de Servicos (oGetServ:aCols)

Local ni := ParamIXB[02] // Linha do Vetor de Pecas Selecionadas (aSB1Sel)

Local nVS4xQTSRV := FG_POSVAR("VS4_XQTSRV","oGetServ:aHeader") // Posicao no oGetServ:aHeader

Local nVS4xVLSRV := FG_POSVAR("VS4_XVLSRV","oGetServ:aHeader") // Posicao no oGetServ:aHeader

If nPos > 0 .and. ni > 0

If nVS4xQTSRV > 0

oGetServ:aCols[nPos,nVS4xQTSRV] := M->VS4_XQTSRV := aSB1Sel[ni,10] // Qtde de Servico

EndIf

If nVS4xVLSRV > 0

oGetServ:aCols[nPos,nVS4xVLSRV] := M->VS4_XVLSRV := aSB1Sel[ni,09] // Valor Unitario do Servico

EndIf

Return()