Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • MATA340 - Processa Acerto de Inventário

Função: MATA340 - Processa Acerto de Inventário

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

Sintaxe

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

Parâmetros/Elementos
NomeTipoDescriçãoObrigatórioReferência
ExpL01LógicoVariável lógica que determina se a execução da função é originada de rotina automática. Conteúdo deve ser (.T.) X
ExpC01CaracterVariável do tipo caracter que informa o código do inventário que deverá ser processado o acerto (B7_DOC) X
ExpL02LógicoVariá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
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.

Exemplos 
// 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
Abrangência
Protheus 10