Versões: | Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
LOCALIZAÇÃO : Function MaViewSB2 - Função responsável pela montagem da consulta de saldos atuais do produto.
EM QUE PONTO : O ponto se encontra no meio da função antes da montagem do array com os saldos do produto. Deve ser utilizado para manipular os valores dos saldos apresentados na consulta..
COMXFUN.PRX
MVIEWSALDO - Manipula valores de saldos apresentados na consulta ( < PARAMIXB1> , < PARAMIXB2> , < PARAMIXB3> ) --> aRet
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
PARAMIXB1 | Caracter | Código do Produto | X | ||||||||||||||
PARAMIXB2 | Caracter | Armazém | X | ||||||||||||||
PARAMIXB3 | Vetor | Verificar PARAMIXB3 nas observações. | X |
-
aRet(vetor)
- É esperado como retorno um array com as mesmas características do array passado como parâmetro com as quantidades alteradas.
Array com os saldos a serem apresentados na consulta onde:
PARAMIXB3[1,1] -> Qtd. Disponivel (SaldoSB2())
PARAMIXB3[1,2] -> Saldo Atual (B2_QATU)
PARAMIXB3[1,3] -> Qtd. Pedido de Vendas (B2_QPEDVEN)
PARAMIXB3[1,4] -> Qtd. Empenhada (B2_QEMP)
PARAMIXB3[1,5] -> Qtd. Prevista Entrada (B2_SALPEDI)
PARAMIXB3[1,6] -> Qtd. Empenhada S.A. (B2_QEMPSA)
PARAMIXB3[1,7] -> Qtd. Reservada (B2_RESERVA)
PARAMIXB3[1,8] -> Qtd. Ter.Ns.Pd. (B2_QTNP)
PARAMIXB3[1,9] -> Qtd. Ns.Pd.Ter (B2_QNPT)
PARAMIXB3[1,10] -> Saldo Poder 3 (B2_QTER)
PARAMIXB3[1,11] -> Qtd. Emp. NF (B2_QEMPN)
PARAMIXB3[1,12] -> Qdt. a Endereçar (B2_QACLASS)
User Function MVIEWSALDO()Local cProd := PARAMIXB[1]Local cLocal := PARAMIXB[2]Local aSaldo := PARAMIXB[3]Local aRet := {}If Len(aSaldo) > 0 .And. Alltrim(cProd) == '01' .And. cLocal <> '99' aAdd(aRet,{aSaldo[1,1]+546,aSaldo[1,2],aSaldo[1,3],aSaldo[1,4]+500,aSaldo[1,5],aSaldo [1,6],aSaldo[1,7],aSaldo[1,8],aSaldo[1,9],aSaldo[1,10],aSaldo[1,11],aSaldo[1,12]}) EndifReturn(aRet)