Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • M710NOPC - Detalha Saldo em Estoque

Ponto-de-Entrada: M710NOPC - Detalha Saldo em Estoque
Versões: Advanced Protheus 6.09 , 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
Descrição: 
LOCALIZAÇÃO: MTA711SH5() - Função que monta os arquivos de trabalho e dispara todo processo de montagem da interface com o usuário.

EM QUE PONTO : Ponto de Entrada criado para detalhar o saldo em estoque de produtos que utilizam controle de opcionais, informando ao sistema qual a quantidade de cada opcional no saldo existente.
Eventos


 

Programa Fonte 
MATA710.PRX
Sintaxe

M710NOPC - Detalha Saldo em Estoque ( < PARAMIXB[1]> , [ PARAMIXB[2] ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB[1] Caracter Código do Produto. X
PARAMIXB[2] Numérico Saldo.
Retorno
    aRet(vetor)
  • Deve ser retornado um array com duas dimensões:
    aRetorno[1,1] - Opcional
    aRetorno[1,2] - Quantidade
Observações


 

Exemplos 
#include "rwmake.ch"User Function M710NOPCLOCAL aParâmetros:=PARAMIXBLOCAL cOpcRet:="",nz:=0,nSomaOk:=0,nDif:=0LOCAL cProduto:=aParametros[1]LOCAL nSaldoAtu:=aParametros[2] //Saldo inicial no SB2LOCAL aRet:={}If cProduto == ("PA1"+Space(12))   cOpcRet:="001AZUL/"   AADD(aRet,{cOpcRet+Space(Len(SC2->C2_OPC)-Len(cOpcret)),300})   cOpcRet:="001BRAN/"   ADD(aRet,{cOpcRet+Space(Len(SC2->C2_OPC)-Len(cOpcret)),700})EndIf// A somatoria do array do retorno deve "bater" com o saldo inicialIf Len(aRet) > 0   For nz:=1 to Len(aRet)      nSomaOk+=aRet[nz,2]   Next nz   nDif:=QtdComp(nSomaOk)-QtdComp(nSaldoAtu)   aRet[Len(aRet),2]-=nDifEndIfRETURN aRet