Histórico da Página

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).

Eventos:

If Len(aPeca) <= 0

MsgInfo("OS sem requisição de peças")

Return .f.

EndIf

//

Pergunte("OFM020REM",.f.,,,,.f.)

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])

MV_PAR04 := Subs(cFatParRem,1,nTamX3Cli)

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 })

EndIf

If !ParamBox(aParamBox,"",@aRetParam,,,,,,,,.f.)

Return .f.

EndIf

cParOPER := aRetParam[1]

cParCODTES := aRetParam[2]

cParFORMUL := aRetParam[3]

cParFATPAR := aRetParam[4]

cParLOJA := aRetParam[5]

Função:

OM020REM