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

Return .f.

EndIf

Pergunte(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))

If ExistBlock("OM020PAR")

ExecBlock("OM020PAR",.f.,.f., cGrpSX1)

EndIf

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

Função:

OM020REM()