Função: MATA105 - Solicitação ao Almoxarifado
| Versões: | Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Português (Brasil) |
Descrição:
OBJETIVO:
Esta rotina é executada toda vez que for identificada a necessidade de algum produto/material.
Observação:
A solicitação ao armazém permite gerar requisições de materiais (Pré-requisições), não vinculadas a uma ordem de produção.
A rotina Solicitação ao Armazém controla os produtos solicitados por um determinado departamento ou usuário ao armazém.
O Sistema permite o acompanhamento dos saldos, quantidades e compra do material.
Identificada a necessidade, o usuário deve incluir a solicitação ao armazém, o que desencadeará a execução de uma série de processos controlados pelo sistema.
Programa Fonte:
MATA105.PRX
Sintaxe:
MATA105 - Solicitação ao Almoxarifado ( [ PARAMIXB1 ] [ PARAMIXB2 ] [ PARAMIXB3 ] ) --> NIL
Retorno:
-
NIL(nulo)
Exemplos
#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function ROTMATA105()Local dEMISSAO:=DATE()Local cPRODUTO:= '1'Local nQUANT := 6Local cITEM := '01'Local aCabec := {}Local aItens := {}PRIVATE lMsErroAuto := .F. //------------------------//| Abertura do ambiente |//------------------------PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST" TABLES "SCP","SB1" dEMISSAO:= dDataBaseConOut(Repl("-",80))ConOut(PadC("Teste - SOLICITACAO AO ARMAZEM",80))ConOut("Inicio: "+Time())//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Inclusao |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aCabec := {}aadd(aCabec,{"CP_PRODUTO" ,cPRODUTO ,})aadd(aCabec,{"CP_EMISSAO" ,dEMISSAO ,})aItens := {}aAdd(aItens,{})aadd(aItens[len(aItens)],{"CP_PRODUTO" ,cPRODUTO,})aadd(aItens[len(aItens)],{"CP_QUANT" ,nQUANT,})aadd(aItens[len(aItens)],{"CP_ITEM" ,cITEM,})MSExecAuto({|x,y,z| MATA105(x,y,z)},aCabec,aItens,3) If !lMsErroAuto ConOut("Incluido com sucesso! ") Else ConOut("Erro na inclusao!")EndIfConOut("Fim : "+Time())Return Nil
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| PARAMIXB1 | Array of Record | Cabeçalho da Solicitação ao Almoxarifado | |||||||||||||||
| PARAMIXB2 | array_of_record | Itens da Solicitação ao Almoxarifado | |||||||||||||||
| PARAMIXB3 | numerico | Opção escolhida: 3-Inclusão 4-Alteração 5-Exclusão |