Descrição

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

Observações

Exemplos

User Function ORVW02E1
If (cQryAl003)->B1_GRUPO $ cGrupoOut
aPPA44,8 += nValEst
elseIf (cQryAl003)>BM_CODMAR $ cMarcaVW .and. (cQryAl003)>BM_PROORI == '1'
aPPA41,8 += nValEst
elseif(cQryAl003)>BM_CODMAR $ cMarcaMAN .and. (cQryAl003)>BM_PROORI == '1'
aPPA42,8 += nValEst
else
aPPA43,8 += nValEst
endif
return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

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 (cQryAl003)->B1_GRUPO $ cDescTip
DbSelectArea(cQryAl003)
Dbskip()
loop
EndIf
//
nValEst := CalcEst((cQryAl003)>B2_COD,(cQryAl003)>B2_LOCAL,MV_PAR02)2
//
If ExistBlock("ORVW02E1")
ExecBlock("ORVW02E1",.f.,.f.)
else
//
If (cQryAl003)->B1_GRUPO $ cGrupoOut
aPPA44,8 += nValEst
elseIf (cQryAl003)>BM_CODMAR $ cMarcaVW .and. (cQryAl003)>BM_PROORI == '1'
aPPA41,8 += nValEst
elseif(cQryAl003)>BM_CODMAR $ cMarcaMAN .and. (cQryAl003)>BM_PROORI == '1'
aPPA42,8 += nValEst
else
aPPA43,8 += nValEst
endif
//
endif
DbSelectArea(cQryAl003)
Dbskip()
EndDo

Variáveis

Programa Fonte

OFIRVW02.PRW