Perguntas ROTINA CUSTOMIZADA EXECUTAR SOZINHA

Filipe é possível sim para isso pesquise, por schedule e job.

www.masteradvpl.com.br/index.php/downloa...load/583#comment-181

Filipe vai precisar modificar a rotina também.

irá usar os comandos PREPARE ENVIRONMENT

SEGUE UM JOB COMO EXEMPLO:


#INCLUDE "Protheus.ch"
#INCLUDE "Rwmake.ch"
#INCLUDE "TBICONN.CH"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³RESTA06 ºAutor ³Felipe Valenca º Data ³ 05/04/12 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Grava Saldo em estoque de todos os produtos. º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/


User Function RESTA06

Local _dData := CtoD("01/01/2010")
Local _aSaldo := {}
Local _dAte := CtoD(" / / ")

PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" MODULO "EST"

cQuery := "SELECT B1_COD,B1_LOCPAD FROM SB1010 WHERE D_E_L_E_T_ = ''"

If Select("TRB") > 0
dbSelectArea("TRB")
dbCloseArea()
Endif


dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),"TRB",.F.,.T.)

dbSelectArea("TRB")
dbGoTop()

_dAte := (dDatabase - _dData)+1
Do While !TRB->(Eof())

For _nX := 1 to _dAte

dbSelectArea("SZ5")
dbSetOrder(2)
If !dbSeek(xFilial("SZ5")+TRB->B1_COD+DtoS(_dData),.F.)
_aSaldo := CalcEst(TRB->B1_COD,TRB->B1_LOCPAD,_dData)

_aArea := GetArea()
dbSelectArea("SZ5")
RecLock("SZ5",.T.)
SZ5->Z5_COD := TRB->B1_COD
SZ5->Z5_DATA := _dData
SZ5->Z5_QUANT := _aSaldo[1]
MsUnlock()
RestArea(_aArea)
Endif
_dData := _dData + 1

Next
_dData := CtoD("01/01/2010")
TRB->(dbSkip())
EndDo

Reset ENVIRONMENT
Return