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.
+ Como disponibilizar dados para o seu cliente sem consumir licenças+ Diversos Cursos Protheus em formato EAD pra você fazer de acordo com o seu ritmo!
+ Aprender ADVPL é mais fácil e mais barato do que você imagina.
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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
/*/{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 |
Fernando Bueno
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.