Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagejava
themeConfluence
titleRotina Automática
linenumberstrue
#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


04. DEMAIS INFORMAÇÕES

Nota
titleImportante
  • 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.

...