// 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