Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Peterson Oliveira de Paula

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Peterson Oliveira de Paula

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Em que ponto? Esse Ponto de Entrada será executado no processo  processo para validação da digitação das informações nas Grids de Peças, Serviços e Outros Créditos na função de atualização de O.S. 

03. DEMAIS INFORMAÇÕES

Parâmetro:

Filial Corrente
NomeTipoDescrição

cFilAnt

Caractér

cReadVar

Caracter

Variavel em memória do campo

nPosGet

Numeric

Posição do aCols

lProcIni

Lógico

Executado pela rotina de pré-preenchimento


Retorno:

NomeTipoDescrição

aFiliaisVDlRet

Array

Array com as Filiais do segmento da Linha Agricola (Verde)

Lógico

Continua ou Aborta Operação

aFiliaisVD

Array

Array com as Filiais do Segmento da Linha Contrução (Amarela)


Exemplo de utilização Advpl:

Bloco de código
themeRDark
firstline1
titleOA160SEG OFJD15FO (AdvPL)
linenumberstrue
#include 'protheus.ch'

userUser functionFunction OA160SEGOFJD15FO(cReadVar,nPosGet,lProcIni)
	Local cFilAtu := ParamIXB[1]
	Local aFiliaisVD := {"0101","0102","0103","0104","0105","0106","0107","0108","0109","0110","0111","0112","0113"}
	Local aFiliaisAM := {"0150","0151","0152"}
	Local nx := 1

	For nx := 1 to Len(aFiliaisVD)
		if aFiliaisVD[nx] == cFilAtu
			return aFiliaisVD
		EndiF
	Next

	For nx := 1 to Len(aFiliaisAM)
		if aFiliaisAM[nx] == cFilAtu
			return aFiliaisAM
		endif
	Next

	UserException("Filial não disponível para geração do ELIPS")
return nillRet 

If lProcIni

	//**** Grid de Peças ****//
	If cReadVar == "M->PEC_GRUITE" 
		oGetPeca:aCols[nPosGet,aScan("aHPeca",{|x| AllTrim(x[2])=="OUT_TIPTEM"})] := M->PEC_TIPTEM
		M->VO3_GRUITE := M->PEC_GRUITE
	EndIf

   	//**** Grid de Serviços ****//
	If cReadVar == "M->SER_GRUSER" 
		oGetSrvc:aCols[nPosGet,aScan("aHSrvc",{|x| AllTrim(x[2])=="SER_TIPTEM"})] := M->SER_TIPTEM
		M->VO4_GRUSER := M->SER_GRUSER
	EndIf

	//**** Grid Outros Créditos ****//
	If cReadVar == "M->OUT_TIPTEM" 
		oGetOutr:aCols[nPosGet,aScan("aHOutr",{|x| AllTrim(x[2])=="OUT_TIPTEM"})] := M->OUT_TIPTEM
		M->VO3_TIPTEM := M->OUT_TIPTEM
	EndIf

EndIF

lRet := .T.
 
return lRet


04. ASSUNTOS RELACIONADOS

...