Histórico da Página

OBJETIVO :
O objetivo da função MATA280 é fazer com que os saldos finais, calculados pelas rotinas de Recálculo do Custo Médio ou Saldo Atual para Final, sejam transferidos como saldo inicial da data estipulada.

IMPORTANTE:
Ao realizar a Virada de Saldos, o sistema procede a geração de arquivos que comportem os saldos iniciais do próximo período, além de impedir que movimentos com data menor ou igual a data do fechamento sejam incluídos.

Esta rotina pode ser executada com o sistema em uso por todos os usuários. Nesse caso, as movimentações que estejam acontecendo simultaneamente ao cálculo podem influenciar no resultado. Para que a rotina seja executada dessa forma o parâmetro MV_CUSTEXC deve estar com o conteúdo igual a “N”.

Outra forma de execução (mais segura) é com o sistema em modo exclusivo, sem outros usuários utilizando os arquivos necessários ao cálculo. Para que a rotina seja executada dessa forma, o parâmetro MV_CUSTEXC deve estar com o conteúdo igual a “S”.

MATA280.PRX

MATA280 - Transferência de Saldo ( PARAMIXB[1]PARAMIXB[2] [ PARAMIXB[3] ] [ PARAMIXB[4] ] [ PARAMIXB[5] ] [ PARAMIXB[6] ] [ PARAMIXB[7] ] [ PARAMIXB[8] ] [ PARAMIXB[9] ] ) --> Nil

• Esta função pode ser executada através de uma rotina automática.
• A data do fechamento deverá ser igual a da rotina MATA330(Recalculo do Custo MEDIO / FIFO / LIFO)
• Caso a empresa possuir varias filiais e deseja-se que a Virada de Saldos seja realizada de forma individual, deverá ser criado via Configurador um parâmetro MV_ULMES para cada filial.

No exemplo abaixo, existe a preparação do ambiente para rodar esta rotina, 
que é feita através do comando Prepare Environment.

// aemp[1] = Empresa (Caracter)
// aemp[2] = Filial  (Caracter)
// Administrador = Através de qual usuário irá executar a rotina. (Caracter)
// senha = Senha do usuário (Caracter) 

PREPARE ENVIRONMENT EMPRESA aemp[1] ;
FILIAL aemp[2] ;
USER 'Administrador' ;
PASSWORD 'senha' ;
TABLES "SB2","SB9","SC2","SD1","SD2","SD3","SB1","SF1","SF2" ;
MODULO "EST"

#INCLUDE "RWMAKE.CH"   
#INCLUDE "TBICONN.CH"
User Function My280()
  
Local lBat     := .T.  //-- Caso a rotina seja rodada em batch(.T.), senão (.F.)
Local dDataFecLocal cArq1    := "ARQF1"  //-- Arquivo onde serão descarregados os dados do arquivo SF1
Local cArq2    := "ARQD1"  //-- Arquivo onde serão descarregados os dados do arquivo SD1
Local cArq3    := "ARQF2"  //-- Arquivo onde serão descarregados os dados do arquivo SF2
Local cArq4    := "ARQD2"  //-- Arquivo onde serão descarregados os dados do arquivo SD2
Local cArq5    := "ARQD3"  //-- Arquivo onde serão descarregados os dados do arquivo SD3
Local cArq6    := "ARQC2"  //-- Arquivo onde serão descarregados os dados do arquivo SC2
Local cArq7    := "ARQF9"  //-- Arquivo onde serão descarregados os dados do arquivo AF9
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" USER 'Administrador' PASSWORD 'senha' MODULO "EST" TABLES "SB2","SB9","SC2","SD1","SD2","SD3","SB1","SF1","SF2"
pergunte("MTA330",.F.)
dDataFec := MV_PAR01dbSelectArea("SM0")                                                                            
dbGoTop()
dbSeek("9901")
AADD(aEmpresas,M0_CODIGO+M0_CODFIL)
MATA280(lBat,dDataFec,cArq1,cArq2,cArq3,cArq4,cArq5,cArq6,cArq7)
RESET ENVIRONMENT
Return Nil