01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Backoffice |
Módulo: | SIGAEST - Estoque e Custos |
Rotina: | MATA105 - Solicitação ao Armazém |
Cadastros Iniciais: | MATA010 - Cadastro de Produtos |
Banco(s) de Dados: | Bancos de dados homologados pela TOTVS |
Tabelas Utilizadas: | SCP - Solicitações ao Armazém SGS - Rateio de Solicitação de Armazém |
Sistema(s) Operacional(is): | Sistemas Operacionais homologados pela TOTVS |
02. DESCRIÇÃO
A finalidade deste documento é exemplificar como a Solicitação ao Armazém pode ser feita de forma automática através de MsExecAuto (rotina automática).
É obrigatório o produto estar cadastrado na tabela SB1 (descrição genérica de produto).
03. MsExecAuto
Função: | MATA105 | ||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Parâmetros: |
|
04. EXEMPLO
Exemplo de Inclusão de Solicitação ao Armazém com item de Rateio |
---|
#Include "protheus.ch" User Function MyMata105()
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "EST" TABLES "SCP", "SGS" //Cabecalho a Incluir
For nX := 1 to len(alista) step 2 SB1->(DbSeek(xFilial("SB1")+PadR(alista[nX][1], tamsx3('CP_PRODUTO') [1]))) aadd(aLinha,{"CP_ITEM",'0'+cvaltochar(nX),Nil}) If !Empty(SB1->B1_SEGUM) aAdd(aAuto,aLinha) Next nX MSExecAuto({|x,y,z,a| mata105(x,y,z,a)},aCab,aAuto,nOpcAuto,aRateio) if lMsErroAuto RESET ENVIRONMENT Return |