Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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

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]

 

Parâmetros: aParamBox - Vetor contendo campos da parambox

Programa Fonte:

OFIOM020.PRW                                                                                                                                          

Função:

OM020REM                      

Retorno:

aParamBox - Vetor contendo campos da parambox

 

Exemplo:

User Function OM020PAR()

aParamBox := ParamIxb[01]

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

 

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

 

Return(aParamBox)