Como bloquear movimento após fechamento financeiro

Compart. 0

Quando é feito o fechamento financeiro, conciliação bancária, é importante que nenhum movimento retroativo seja feito sem a observância do departamento financeiro.

Qualquer inclusão, exclusão, cancelamento deve ser travado para todos os processos que integram com o módulo financeiro.

Existe uma rotina que vou disponibilizar, que você pode colocar em seu menu, e o próprio usuário que fez o fechamento, pode bloquear a movimentação financeira retroativa e assim não atrapalhar o bom andamento das conciliações!

Crie um menu como abaixo com a user function BLQFINA:

Ao abrir, você verá a seguinte tela:

Ao clicar em OK, o que a rotina faz?

O campo de data “Movimentacoes somente a partir de” é gravado no parâmetro MV_DATAFIN
O campo “Permite baixas P/R anteriores a data do bloqueio?” é gravado no parâmetro MV_BXDTFIN

Existem 2 parâmetros que são alterados:

MV_DATAFIN: Determina a data em que serão iniciadas as movimentações financeiras

MV_BXDTFIN: Determina se as operações de baixas a pagar e a receber considerarão a data definida no parâmetro

Para as operações de inclusão, exclusão e alterações de Contas a Receber e a Pagar (FINA040 e FINA050), o Sistema sempre verifica a data definida no parâmetro MV_DATAFIN. Caso a data da operação seja inferior à data definida no parâmetro, não será permitido reallizar nenhuma destas operações, independente do tipo de documento utilizado (NF, PA, RA, BOL, etc.).

O parâmetro MV_BXDTFIN será considerado nas operações de Baixas a pagar e Baixas a receber, independente do tipo de baixa (Dação, Devolução, Normal, etc.), que envolvem:
Baixas a Receber ((FINA070): baixa, baixa por lote, cancelamento de baixa e exclusão de baixa.
Baixas a Receber Automática (FINA110)
Baixas a Pagar (Fina080): baixa, baixa por lote, cancelamento de baixa e exclusão de baixa.
Baixas a Pagar Automática (FINA090)
Nestas operações, o Sistema verifica a configuração do parâmetro MV_BXDTFIN para determinar se as baixas serão efetuadas, independente do parâmetro MV_DATAFIN.

Segue o código abaixo:

/*/{Protheus.doc} BLQFINA
Permite ao usuário pré selecionado via parâmetros informar datas de bloqueio para movimentação financeira
@author Fernando Bueno (www.fbsolutions.com.br)
@since 03/05/2014
@version 1.0
@return ${return}, ${return_description}
@example
(examples)
@see (links_or_references)
/*/
User Function BLQFINA() 

// Definição das variáveis do programa. 
Local cCodUsr := RetCodUsr() 
Public _mvDATAFIN := GetMv("MV_DATAFIN") 
Public _mvBXDTFIN := GetMv("MV_BXDTFIN") 
Public _mvusuarios := GetMv("MV_X_ALFIN") //Não esqueça de criar este parâmetro
Private oPermBx

// Verifica se o usuário é o Administrador do sistema ou usuários autorizados. 
If !Alltrim(cCodUsr) $ _mvusuarios 
     Alert("Somente o Administrador ou usuários autorizados podem executar esta rotina.") 
     Return 
EndIf 

// Solicita ao usuário informação 
@ 150, 1 TO 400, 635 DIALOG oMyDlg TITLE OemToAnsi("Bloqueio de movimentação financeira") 
@   2, 10 TO 110, 610 
@ 10, 18 Say OemToAnsi(" Movimentações somente a partir de ") 
@ 10,150 Get _mvDATAFIN Size 50,50 
@ 30, 18 Say OemToAnsi(" Permite baixas P/R anteriores a data do bloqueio? ") 
//@ 18,115 Get _mvBXDTFIN Size 50,50
@ 30,150 MSCOMBOBOX oPermBx VAR IIF(AllTrim(_mvBXDTFIN)=="1","Permite","Nao permite") ITEMS {OemToAnsi("Permite"),OemToAnsi("Não permite")} SIZE 056, 010 OF oMyDlg COLORS 0, 16777215 PIXEL 

@ 110,150 BMPBUTTON TYPE 01 ACTION (RunProc(), Close(oMyDlg)) 
@ 110,180 BMPBUTTON TYPE 02 ACTION Close(oMyDlg) 
Activate Dialog oMyDlg Centered 
Return 

Static Function RunProc() 

// Faz validações e Altera os parâmetros. 
If !Empty(_mvDATAFIN) 
     PutMv("MV_DATAFIN",_mvDATAFIN)
EndIf

If oPermBx:nAt == 1
	  PutMv("MV_BXDTFIN","1")
Else
	  PutMv("MV_BXDTFIN","2")
EndIf 

return

/*/{Protheus.doc} BLQFINA

Permite ao usuário pré selecionado via parâmetros informar datas de bloqueio para movimentação financeira

@author Fernando Bueno (www.fbsolutions.com.br)

@since 03/05/2014

@version 1.0

@return ${return}, ${return_description}

@example

(examples)

@see (links_or_references)

/*/

User Function BLQFINA()

// Definição das variáveis do programa.

Local cCodUsr := RetCodUsr()

Public _mvDATAFIN := GetMv("MV_DATAFIN")

Public _mvBXDTFIN := GetMv("MV_BXDTFIN")

Public _mvusuarios := GetMv("MV_X_ALFIN") //Não esqueça de criar este parâmetro

Private oPermBx

// Verifica se o usuário é o Administrador do sistema ou usuários autorizados.

If !Alltrim(cCodUsr) $ _mvusuarios

Alert("Somente o Administrador ou usuários autorizados podem executar esta rotina.")

Return

EndIf

// Solicita ao usuário informação

@ 150, 1 TO 400, 635 DIALOG oMyDlg TITLE OemToAnsi("Bloqueio de movimentação financeira")

@ 2, 10 TO 110, 610

@ 10, 18 Say OemToAnsi(" Movimentações somente a partir de ")

@ 10,150 Get _mvDATAFIN Size 50,50

@ 30, 18 Say OemToAnsi(" Permite baixas P/R anteriores a data do bloqueio? ")

//@ 18,115 Get _mvBXDTFIN Size 50,50

@ 30,150 MSCOMBOBOX oPermBx VAR IIF(AllTrim(_mvBXDTFIN)=="1","Permite","Nao permite") ITEMS {OemToAnsi("Permite"),OemToAnsi("Não permite")} SIZE 056, 010 OF oMyDlg COLORS 0, 16777215 PIXEL

@ 110,150 BMPBUTTON TYPE 01 ACTION (RunProc(), Close(oMyDlg))

@ 110,180 BMPBUTTON TYPE 02 ACTION Close(oMyDlg)

Activate Dialog oMyDlg Centered

Return

Static Function RunProc()

// Faz validações e Altera os parâmetros.

If !Empty(_mvDATAFIN)

PutMv("MV_DATAFIN",_mvDATAFIN)

EndIf

If oPermBx:nAt == 1

PutMv("MV_BXDTFIN","1")

Else

PutMv("MV_BXDTFIN","2")

EndIf

return

Sobre
Últimos Posts

Fernando Bueno

Consultor em FB Solutions

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando em diversos mercados desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Últimos posts por Fernando Bueno (exibir todos)

Aplicativos Mobile Protheus - 12 de junho de 2018
Tabelas Protheus - 12 de junho de 2018
Como bloquear movimento após fechamento financeiro - 8 de junho de 2018