Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

User Function MyMta280()

Local aItem         := {} //Filial
Local aListaFil     := {} //Filial
Local aParAuto      := {} //Execucao Automatica
Local cUserNamej    := "" 
Local dDate 
Local lBat  
Local oJourney 
Local oError 

ConOut(Repl("-",80))
ConOut(PadC("Fechamento - Virada de Saldos",80))
ConOut(PadC("Conectando Ambiente.....",80))

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "EST" TABLES "SB2", "SB3", "SD1", "SD2", "SD3", "SB9", "SBD", "SC2", "SF1", "SF2"

ConOut(PadC("Ambiente Conectado com Sucesso...",80))
ConOut(Repl("-",80))


cUserNamej  := "Administrador" //Usuario
dDate       := CTOD("31/01/2023") //Data do Fechamento
lBat        := .T. //Define que a rotina será executada em Batch
oJourney    := JsonObject():new() //Grupo de perguntas
oError      := ErrorBlock({|e| ::logErrorProc(e:Description, e:ErrorStack, oJourney, cDate)})

//Filial
aadd(aItem, .T.)
aadd(aItem, "D MG 01 ") //filial 
aadd(aItem, "Filial BELO HOR ") //descricao 
aadd(aItem, "53485215000106") //cgc
aadd(aItem, .F.)

aadd(aListaFil, aItem)

//Execucao Automatica
aadd(aParAuto, 2)
aadd(aParAuto, 2)
aadd(aParAuto, 2)
aadd(aParAuto, 2)

Begin Sequence
    MATA280(lBat,dDate,,,,,,,, aListaFil, aParAuto,, .F., cUserNamej)
End Sequence

ErrorBlock(oError)

RESET ENVIRONMENT

ConOut(Repl("-",80))
ConOut(PadC("Fechamento - Virada de Saldos CONCLUIDO",80))
ConOut(PadC("Encerrando Ambiente.....",80))

Return