Histórico da Página

Ponto de Entrada

Descrição:	Este ponto de entrada tem a finalidade de permitir que o cliente dê manutenção na parambox da opção de Remessa para Manutenção Externa na rotina de Requisição de Peças (OFIOM020).
Localização:	Atualizações / Mov. Oficina / Req. Peças (OFIOM020)
Eventos:	If

Len(aPeca) <= 0MsgInfo("OS sem requisição de peças")

lCtrlLote .and. aScan(aPeca, { |x| !Empty(x[PECA_LOTECT]) } ) <> 0

Return .f.

EndIf

//

Pergunte(

"OFM020REM"

cGrpSX1,.f.,,,,.f.)

cMVPar06 := MV_PAR06

cFatParRem := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),VO1->VO1_FATPAR+VO1->VO1_LOJA,VO1->VO1_PROVEI+VO1->VO1_LOJPRO)

nTamX3Cli := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),TamSX3("VO1_FATPAR")[1],TamSX3("VO1_PROVEI")[1])

nTamX3Loj := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),TamSX3("VO1_LOJA")[1],TamSX3("VO1_LOJPRO")[1])

SetMVValue(cGrpSX1, "MV_PAR04

:=

", Subs(cFatParRem,1,nTamX3Cli))

SetMVValue(cGrpSX1, "MV_PAR05

:=

", Subs(cFatParRem,nTamX3Cli+1,nTamX3Loj

)

aAdd(aParamBox,{1,STR0184,MV_PAR01,"@!","","DJ" ,"",2,.f.})

aAdd(aParamBox,{1,STR0185,MV_PAR02,"@!","","SF4","",TamSX3("F4_CODIGO"

)

[1],.f.}

)

aAdd(aParamBox,{1,STR0035,MV_PAR03,"@!","","VEG","",TamSX3("VEG_CODIGO")[1],.T.})

aAdd(aParamBox,{1,STR0030,MV_PAR04,"@!","","VSA","",0,.T.})

aAdd(aParamBox,{1,STR0031,MV_PAR05,"@!","","" ,"",0,.T.})

If ExistBlock("OM020PAR")

aParamBox :=

ExecBlock("OM020PAR",.f.,.f.,

{ aParamBox }If !ParamBox(aParamBox,"",@aRetParam,,,,

cGrpSX1)

EndIf

Parâmetros: aParamBox - Vetor contendo campos da parambox

Pergunte(cGrpSX1,.T.,,,,.f.)

Return .f.

EndIf

cParOPER := aRetParam[1]

cParCODTES := aRetParam[2]

cParFORMUL := aRetParam[3]

cParFATPAR := aRetParam[4]

cParLOJA := aRetParam[5]

Programa Fonte:	OFIOM020.PRW
Função:	OM020REM()

Retorno

:

Não há.

Parâmetro:

Nome	Tipo	Descrição
cGrpSX1	Caracter	Nome do grupo de perguntas.

aParamBox - Vetor contendo campos da parambox

Exemplo:

Include totvs.ch

User Function OM020PAR()

aParamBox

cGrpSX1 := ParamIxb

[01]

SetMVValue(cGrpSX1, "MV_PAR03", '000001') // alteração do parâmetro de fórmulas.

aParamBox[3,9] := .f. // Retirada do campo fórmula de obrigatorio

MsgInfo("Ponto de entrada OM020PAR executado com sucesso!")

Return

(aParamBox)

Árvore de páginas

Versões comparadas

Versão antiga 16

Nova versão 107

Chave

Ponto de Entrada