Descrição: | Ponto de Entrada na rotina de Orçamento por Fases, executado na mudança de linhas da grid de Peças e Serviços, utilizado para tratar quais campos da grid podem ser alterados. | |||||||||
Localização: | Atualizações \ Mov Oficina \ Orçamento por Fases | |||||||||
Eventos: | /*/{Protheus.doc} OX0010181_CamposAlterarLinha Executado na mudança de linhas nas grids de Peças e Serviços (Evento bChange) Chama PE que possibilita a alteração do aAlter das GetDados: 1-Peças / 2-Serviços @type function @author Andre Luis Almeida @since 21/09/2021 /*/ Static Function OX0010181_CamposAlterarLinha( lPEAltCpos , nTpGD , aAltPad ) Local aRet := {} Default lPEAltCpos := ExistBlock("OX001ALT") Default nTpGD := 0 Default aAltPad := {} If lPEAltCpos .and. nTpGD > 0 aRet := ExecBlock("OX001ALT",.f.,.f.,{ nTpGD , aClone(aAltPad) }) // ( nTpGD: 1-Peças ou 2=Serviços , vetor padrão aAlter ) If nTpGD == 1 // Peças oGetPecas:aAlter := oGetPecas:oBrowse:aAlter := aClone(aRet) // Seta aAlter de Peças ElseIf nTpGD == 2 // Serviços oGetServ:aAlter := oGetServ:oBrowse:aAlter := aClone(aRet) // Seta aAlter de Servicos EndIf EndIf Return | |||||||||
Programa Fonte: | OFIXX001 .PRW | |||||||||
Função: | OX0010181_CAMPOSALTERARLINHA () | |||||||||
| Parâmetros: |
| |||||||||
| Retorno: |
|
Exemplo:
Include totvs.ch
/*
Ponto de Entrada na rotina de Orcamento por Fases, executado na mudança de linhas da grid
de Peças e Serviços, utilizado para tratar quais campos da grid podem ser alterados.
*/
User Function OX001ALT()
Local nTpGD := ParamIXB[01] // nTpGD: 1-Peças ou 2=Serviços
Local aRet := ParamIXB[02] // vetor padrão aAlter
/*
If nTpGD == 1 // Pecas
If !Empty(M->VS3_XTESTE)
aRet := {} // limpar o vetor que contem os campos que podem ser alterados
EndIf
ElseIf nTpGD == 2 // Servicos
If !Empty(M->VS4_XTESTE)
aRet := {} // limpar o vetor que contem os campos que podem ser alterados
EndIf
EndIf
*/
//
MsgInfo("Ponto de Entrada OX001ALT executado com sucesso!")
//
Return aClone(aRet)
