Histórico da Página

Descrição

Ponto de entrada localizado na rotina PPA Volkswagen/MAN para customização da , permitindo customizar a tratativa de valores de estoque.

Observações

Exemplos

User Function ORVW02E1  If (cQryAl003)->B1_GRUPO $ cGrupoOut    aPPA[44,8] += nValEst   elseIf (cQryAl003)->BM_CODMAR $  cMarcaVW .and. (cQryAl003)->BM_PROORI == '1'    aPPA[41,8] += nValEst   elseif(cQryAl003)->BM_CODMAR $  cMarcaMAN .and. (cQryAl003)->BM_PROORI == '1'    aPPA[42,8] += nValEst   else    aPPA[43,8] += nValEst   endif return

Preview

Veja também

Idioma

Português(Brasil)

VersõesVersões

Microsiga Protheus_Anteriores11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

N/A

Retorno

N/A

Eventos de chamada do Ponto de Entrada

While !(cQryAl003)->(Eof())
If  If (cQryAl003)->B1_GRUPO $ cDescTip
DbSelectArea  DbSelectArea(cQryAl003)
Dbskip  Dbskip()
loop
EndIf
  loop  EndIf  //
nValEst  nValEst := CalcEst((cQryAl003)->B2_COD,(cQryAl003)->B2_LOCAL,MV_PAR02)[2
]  //
If  If ExistBlock("ORVW02E1")
ExecBlock  ExecBlock("ORVW02E1",.f.,.f.)
else
 else   //
If   If (cQryAl003)->B1_GRUPO $ cGrupoOut
aPPA   aPPA[44,8] += nValEst
elseIf   elseIf (cQryAl003)->BM_CODMAR $ $  cMarcaVW .and. (cQryAl003)->BM_PROORI == '1'
aPPA   aPPA[41,8] += nValEst
elseif  elseif(cQryAl003)->BM_CODMAR $ $  cMarcaMAN .and. (cQryAl003)->BM_PROORI == '1'
aPPA   aPPA[42,8] += nValEst
else
aPPA  else    aPPA[43,8] += nValEst
endif
  endif   //
endif
DbSelectArea endif  DbSelectArea(cQryAl003)
Dbskip Dbskip()
EndDo

Variáveis

Programa Fonte

OFIRVW02.PRW