MATA340 - Processa Acerto de Inventário

Colapse ALLExpand ALLFunção: MATA340 - Processa Acerto de Inventário

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

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

Parâmetros/ElementosNome Tipo Descrição Obrigatório Referência

ExpL01 Lógico Variável lógica quedetermina se aexecução da funçãoé originada de rotinaautomática.Conteúdo deve ser(.T.)

X

ExpC01 Caracter Variável do tipocaracter que informao código doinventário quedeverá serprocessado o acerto(B7_DOC)

X

ExpL02 Lógico Variável lógica paradefinir se oprocessamentodeverá serexecutado apenaspara o registropreviamenteposicionado natabela SB7,correspondente aocódigo de inventáriodesejado (.T.) ou sedeverá serprocessada paratodos os itens quecompreedem ocódigo de inventárioinformado (.F.)

X

Retorno(nulo)Nil

Nenhum

ObservaçõesExistem 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 quecorrespondem ao código do inventário informado. Sem necessidade de criar um laço para varrer a tabela de itensde inventário SB7.

Método 2 - Utiliza a parametrização (.T.,cCodlnv,.T.) que implica o processo de acerto do inventário apenas para oitem correspondente ao código de inventário (cCodlnv) previamente posicionado na tabela SB7. É necessária autilizaçã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 rotinaautomática, maiores detalhes consultar asobservações// Método 1User FunctionMyMata340()Local lAuto := .T.Local cCodInv := "000001"Local lIndividual := .F.Local lOk := .T.Private lMsErroAuto := .F.PREPAREENVIRONMENT 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 deInventá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 noprocessamento de acerto de inventário!") EndIfConOut("Fim : "+Time())EndIfRESETENVIRONMENTReturn Nil

AbrangênciaProtheus 10