Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Beatriz Martins

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Leandro Melo Marangoni

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este ponto de entrada tem a finalidade

do cliente dar

de permitir que o cliente dê manutenção na parambox da opção de Remessa para

manutenção externa

Manutenção Externa na rotina de

requisição de peças

Requisição de Peças (OFIOM020).

Localização:

Atualizações / Mov. Oficina / Req. Peças (OFIOM020)

Eventos:

If

Len(aPeca) <= 0

MsgInfo("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

 


Pergunte(cGrpSX1,.T.,,,,

,,,

.f.)

Return .f.

EndIf

 

cParOPER := aRetParam[1]

cParCODTES := aRetParam[2]

cParFORMUL := aRetParam[3]

cParFATPAR := aRetParam[4]

cParLOJA := aRetParam[5]

 

Parâmetros: aParamBox - Vetor contendo campos da parambox

Programa Fonte:

OFIOM020.PRW                                                                                                                                          

Função:

OM020REM()                   

 

  

Retorno:

aParamBox - Vetor contendo campos da parambox

Não há.


Parâmetro:
NomeTipoDescrição

cGrpSX1

Caracter

Nome do grupo de perguntas.

 

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)