Histórico da Página

Descrição

Quando o ponto de entrada AVGERAL estiver passando no parâmetro Paramixb, o conteúdo BUSCA_UNID_MED permitirá a customização da busca de unidades de medida no processo.

Observações

Exemplos

#include "average.ch"
#include "AVGERAL.CH"

User Function AVGERAL()

Local cParam:= ""

If ValType(Type("ParamIxb"PARAMIXB) == "A",ParamIxb,If(Type("ParamIxb") = "C",ParamIxb,""))
cParam := PARAMIXB[1]
Else
cParam := PARAMIXB
EndIf

If cParam == "BUSCA_UNID_MED"
MsgInfo("Entrou no ponto de entrada 'BUSCA_UNID_MED'")
lRet := .F. 
ElseIf cParam == "ALTERA_FILIAL"
If cCampoAux == "W9_NUM"
cAvgFilial:= UPPER(PADR(xFilial(cAliasAux)+x2path(cAliasAux),50))
MsgInfo('Passou pelo ponto de entrada "ALTERA_FILIAL" ')
EndIfEndif 
EndIf

Return Nil