Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Anderson Brunner

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Anderson Brunner

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

710NOPC - Detalha Saldo em Estoque

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

PARAMIXB[1]
Caracter
Código do Produto.


X



PARAMIXB[2]
Numérico
Saldo.






Idiomas:

Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Detalha Saldo em Estoque

Localização:

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.
Programa Fonte:MATA710.PRX

Sintaxe:

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

Retorno:

aRet

    (vetor)
  • Deve ser retornado um array com duas dimensões:
    aRetorno[1,1] - Opcional
    aRetorno[1,2] - Quantidade
Observações:
Exemplo:


Bloco de código
titleBloco de Código
linenumberstrue
#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



#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