ORVW02E1 - Customização da Tratativa de Valores de Estoque do PPA

Descrição

Ponto de entrada localizado na rotina PPA Volkswagen/MAN, 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ões

Microsiga Protheus_11

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    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   //  endif  DbSelectArea(cQryAl003)  Dbskip() EndDo

Variáveis

Programa Fonte

OFIRVW02.PRW