Linha Microsiga Protheus

Árvore de páginas

MATA340 - Processa Acerto de Inventário

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

ExpL01
Lógico
Variável lógica que determina se a execução da função é originada de rotina automática. Conteúdo deve ser (.T.)


X



ExpC01
Caracter
Variável do tipo caracter que informa o código do inventário que deverá ser processado o acerto (B7_DOC)


X



ExpL02
Lógico
Variável lógica para definir se o processamento deverá ser executado apenas para o registro previamente posicionado na tabela SB7, correspondente ao código de inventário desejado (.T.) ou se deverá ser processada para todos os itens que compreedem o código de inventário informado (.F.)


X


Idiomas:

Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

A rotina MATA340 permite que seja processado o acerto de inventário para outros documentos de inventários previamente cadastrado.dastrado.

Programa Fonte:MATA340 

Sintaxe:

MATA340 - Processa Acerto de Inventário ( < ExpL01>, < ExpC01>, < ExpL02> ) --> Nil

Retorno:

Nil

    (nulo)
  • Nenhum
Observações:

Existem dois métodos de utilização para o processamento de acerto de inventário automático:

Método 1 - Utiliza a parametrização (.T.,cCodInv,.F.) que determina se deve ser feito o acerto de todos os itens que correspondem ao código do inventário informado. Sem necessidade de criar um laço para varrer a tabela de itens de inventário SB7.

Método 2 - Utiliza a parametrização (.T.,cCodlnv,.T.) que implica o processo de acerto do inventário apenas para o item correspondente ao código de inventário (cCodlnv) previamente posicionado na tabela SB7. É necessária a utilização de um laço para processar cada item posicionado na SB7 no código de inventário desejado.

Exemplo:
// Existem dois métodos de utilização da rotina automática, maiores detalhes consultar as observações// Método 1User Function MyMata340()Local lAuto	   := .T.Local cCodInv	   :=  "000001"Local lIndividual  := .F.Local lOk	   := .T.Private lMsErroAuto := .F.PREPARE ENVIRONMENT EMPRESA "YY" FILIAL "01" MODULO "EST" TABLES "SB7"   DbSelectArea("SB1")DbSetOrder(1)If !SB7->(MsSeek(xFilial("SB7")+cCodInv))	lOk := .F.	ConOut(OemToAnsi("Cadastrar inventário: "+cCodInv))EndIfIf lOk	ConOut(Repl("-",80))	ConOut(PadC("Teste de Acerto de Inventário",80))	ConOut("Inicio: "+Time())		//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//| Teste de Processamento                                            |	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   					                MSExecAuto({|x,y,z| mata340(x,y,z)}, ExpL01, ExpC01, ExpL02)				If !lMsErroAuto			ConOut("Processado com Sucesso! Documento: "+cCodInv)			Else			ConOut("Erro no processamento de acerto de inventário!")		EndIf		ConOut("Fim  : "+Time())EndIfRESET ENVIRONMENTReturn Nil