CTBVALOK - Validação de lançamentos contábeis off-line

Ponto de entrada utilizado para que o cliente possa realizar uma validação adicional na confirmação da execução da rotina de lancamentos contabeis off-line.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ CTBVALOK - Ponto de Entrada para validar o Processamento     ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ExistBlock("CTBVALOK")
 nOpcABkp := ExecBlock("CTBVALOK",.F.,.F.,{nOpcA,mv_par04,mv_par05,mv_par06,mv_par07})
 If Valtype(nOpcABkp) == "N"
  nOpcA := nOpcABkp
 EndIf
EndIf
 

CTBANFE.PRW

CTBVALOK - Validação de lançamentos contábeis off-line ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ], [ PARAMIXB[5] ] ) --> nRet

nRet(numerico)
• 1 = Processa / 0 = Não Processa

#INCLUDE "RWMAKE.CH"User Function CTBVALOK() //-- nRet := 0 --> Não realiza a contabilização dos documentos de entrada//-- nRet := 1 --> Realiza a contabilização dos documentos de entradaLocal nRet     := PARAMIXB[1]//-- dDataIni --> Data inicial para filtragem dos documentos de entrada ("D1_DTDIGIT")Local dDataIni := PARAMIXB[2]//-- dDataFim --> Data final para filtragem dos documentos de entrada ("D1_DTDIGIT")Local dDataFim := PARAMIXB[3]//-- cFilIni --> Filial inicial para filtragem dos documentos de entrada ("D1_FILIAL")Local cFilIni  := PARAMIXB[4]//-- cFilFim --> Filial final para filtragem dos documentos de entrada ("D1_FILIAL")Local cFilFim  := PARAMIXB[5]//-- Exemplo de Customizacao       If Aviso("CTBVALOK","Deseja realizar a contabilização off-line ?",{"Confirma","Cancela"}) == 1	nRet := 1Else	nRet := 0EndIf	Return nRet