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

• Para verificar se na base de dados existe saldo pendente de distribuição. Se o cliente não quiser executar o relatório, deverá criar/alterar o parâmetro MV_A280SDA, configurando com o conteúdo F (False).
  
• O relatório Saldo a Distribuir somente verifica o saldo pendente de distribuição dentro do período de fechamento de estoque. Deverá ser utilizada a data do período de fechamento.

O parâmetro MV_A280GRV define se o cliente gera os registros de saldos iniciais das tabelas SB9, SBJ e SBK, para produtos que não possuem movimentação dentro do período ou que possuam saldo zerado em quantidade ou valor.

Se .T (True/Verdadeiro) todos os produtos e armazéns têm seus saldos levados para as tabelas de saldos iniciais (SB9, SBJ e SBK).

Se .F.(False/ Falso) somente os produtos e armazéns que possuem movimentação dentro do período de processamento e produtos e armazéns que não possuam quantidades e custos zerados, tem seus registros de saldos iniciais gravados. Os produtos que não se enquadrarem nesta regra (obsoletos) não são mais levados pela rotina.