FUNCTION CapturaAsientosContabilidad( cNomEmp,cNomSis,cAnoSys,dFecUsr,cPatSis,;
cPatInt,lSisInt,cNomUsr,cCodCaj,cCodCia,;
cForCap,oWnd,lAnexar,cSucCod,cComMod,;
cDocMod,cDetEnc,lAsiMod,cTipMov,cOriFun,;
cNuePat,cNueCon )
*>>>>DECLARACION DE VARIABLES
#INCLUDE "CAMPOS\ARC-CAJA.PRG" // Archivos del Sistema
LOCAL oNomEmp
LOCAL cTitNit := "Nit : "
LOCAL cTitFec := "Fecha : "
LOCAL cTitHor := "Hora : "
LOCAL lShared := .T. // .T. Compartir Archivos
LOCAL oBrwDet := NIL // Browse de transacion
LOCAL GetList := {}
LOCAL cSalPa1
LOCAL cDisAct := DISKNAME()
LOCAL PathAct := XDIRNAME()
LOCAL vConBrw := {}, oGrpDet
LOCAL cAlias := "CTB", aData, oBrw
LOCAL lActEnc := .F.
LOCAL fNtxCtb := ''
LOCAL fNtxCtc := ''
LOCAL fNtxFec := ''
LOCAL fNtxCCo := ''
LOCAL fNtxCte := ''
LOCAL FileEnc := ""
LOCAL fNtxEnc := ""
LOCAL FileCtb
LOCAL cPatLoc := "C:\TEMP\CONTA"
LOCAL nSecFil := ALLTRIM(STR(hb_random(10000),5,0))
LOCAL cTipCon := "", SW := .F.
cambiaTemp(@cPatLoc)
PRIVATE xPatSis := cPatSis, cPatNit := cPatSis, xNueCon := ""
IF cNuePat == NIL
cTipCon := " NIIF"
ENDIF
IF M->cManCon == "S" .OR. M->lManCap
ELSE
MYMEN("Aviso. M¢dulo no activado")
RETURN .F.
ENDIF
IF !covierteArchivosContabilidad(cPatSis,STR(YEAR(M->dFecUsr),4) )
RETURN .F.
ENDIF
SET PRINTER TO
SET PRINTER TO &(cArcImp)
xTipMov := cTipMov
M->cModAct := "CONTABILIDAD"
salvaVariablesPublicas(M->vVariblesPublicas)
PRIVATE lEstCom := .T., xCodSuc := M->cCodSuc
PRIVATE lTabUniCon := .F.
DEFAULT cDetEnc := SPACE(40)
IF cSucCod == NIL
cSucCod := M->cCodSuc
ENDIF
IF lAsiMod == NIL
lAsiMod := .F.
ENDIF
IF !(M->lManCon .OR. M->lManCap) // .AND. VALOPUSR('4')
MYMEN("Aviso informativo. Este m¢dulo no esta activado. Solicitelo al distribuidor de RUSSOFT")
RETURN .f.
ENDIF
IF !VALOPUSR('4')
MYMEN("Aviso informativo. No tiene permisos para esta opci¢n")
RETURN .f.
ENDIF
MEMVAR lManNro,XVecDat
PUBLIC XVecDat := ARRAY(5)
//PUBLIC lCapMes := .T.
PUBLIC zMesAct := SPACE(2)
PUBLIC cMesGra := ''
PUBLIC nDebDoc := 0
PUBLIC nCreDoc := 0
PUBLIC lManNro := .F.
PUBLIC cCapCon := "S"
PUBLIC cCodCom := SPACE(16), lTerLee := .F., OBRWCONFW2
PUBLIC oCtaCon, cCtaCon := SPACE(20)
PUBLIC cCodCon := SPACE(5), oComBox
cCodCon := cComMod
M->cTipCap := 'S'
M->lCapMes := .T.
IF oWnd == NIL
oWnd := GetWndDefault()
ENDIF
IF lAnexar == NIL
lAnexar := .T.
ENDIF
SETKEY(VK_F1,NIL)
SETKEY(VK_F2,NIL)
SETKEY(VK_F3,NIL)
SETKEY(VK_F4,NIL)
SETKEY(VK_F5,NIL)
SETKEY(VK_F6,NIL)
SETKEY(VK_F7,NIL)
SETKEY(VK_F8,NIL)
SETKEY(VK_F9,NIL)
SETKEY(VK_F10,NIL)
SETKEY(VK_F11,NIL)
SETKEY(VK_F12,NIL)
SET DELETED ON
SET ESCAPE ON
*>>>>VERIFICACION O CREACION DEL DIRECTORIO PARA MOVIMIENTOS
*>>>>FIN VERIFICACION O CREACION DEL DIRECTORIO PARA MOVIMIENTOS CONTABLES
IF !lUsaTab(xPatSis+"\","EMPRESA.DAT","EMP",{},lShared)
restauraVariablesPublicas(M->vVariblesPublicas)
RETURN .f.
ENDIF
EMP->( DBGOTOP() )
IF YEAR(dFecUsr) < VAL(EMP->cAnoCCoEmp)+1 // A¥OS ANTERIORES YA CERRADOS
MYMEN("Aviso. El mes contable ya esta cerrado")
RETURN .T.
ENDIF
nAnoCon := VAL(EMP->cAnoCCoEmp)+1
nMesCon := EMP->nMesConEmp
dFecCon := CTOD("'"+STR(nMesCon,2,0)+'/'+STR(nNroDias(nMesCon,STR(nAnoCon,4)),2)+'/'+STR(nAnoCon,4)+"'")
nMesDoc := MONTH(dFecUsr)
nAnoDoc := YEAR(dFecUsr)
dFecDoc := CTOD("'"+STR(nMesDoc,2,0)+'/'+STR(nNroDias(nMesDoc,STR(nAnoDoc,4)),2)+'/'+STR(nAnoDoc,4)+"'")
IF dFecDoc < dFecCon
MENSAJES("Error. El periodo : "+DTOC(dFecDoc)+'. Ya esta cerrado','Verif¡quelo. ESC para salir','N')
RETURN .F.
ENDIF
IF VAL(EMP->cAnoCCoEmp) < 1000
MENSAJES("Error. Debe indicar el a¤o y el mes de saldos iniciales",;
"Ruta: BASES\EMPRESA\MODULO DE CONTABILIDAD\A¥O Y MES CONTABLE","N")
restauraVariablesPublicas(M->vVariblesPublicas)
RETURN .f.
ENDIF
IF !EMPTY(EMP->dCieProEmp)
IF YEAR(dFecUsr) <> YEAR(EMP->dCieProEmp) .AND. !lAsiMod
MENSAJES('Advertencia. A¤o seleccionado no coincide con el a¤o contable','Verif¡quelo','N')
ELSE
* A¥O ACTUAL ES VALIDO
ENDIF
ELSE
IF YEAR(dFecUsr) >= VAL(EMP->cAnoCCoEmp)+1
IF YEAR(dFecUsr) > VAL(EMP->cAnoCCoEmp)+1 .AND. !lAsiMod
MENSAJES('Advertencia. A¤o seleccionado no coincide con el a¤o contable','Verif¡quelo','N')
ELSE
* A¥O ACTUAL ES VALIDO
ENDIF
ELSE
MENSAJES('Error. El documento seleccionado ¢ la fecha actual pertenecen a un a¤o ya CERRADO','Verif¡quelo','N')
restauraVariablesPublicas(M->vVariblesPublicas)
RETURN .f.
ENDIF
ENDIF
*>>>>FIN DECLARACION DE VARIABLES
IF cForCap == 'S' // CAPTURA EN ARCHIVO VACIO.. SIEMPRE.. VALIDAR QUE SEA ASI
cNomMes := M->cNroUsr
M->zMesAct := LLENA0(STR(MONTH(dFecUsr),2,0))
cMesGra := cMes(MONTH(dFecUsr),3)
FileCtb := 'MOCOT'+nSecFil+M->cCiaAct+M->cNroUsr+'.TMC'
fNtxCtb := 'MOCOT'+nSecFil+M->cCiaAct+M->cNroUsr+'.CDX'
cMesRea := cMes(MONTH(dFecUsr),3)
FilReaD := 'MOCON'+cMesRea+'.DAT'
FilReaI := 'MOCON'+cMesRea+'.CDX'
FERASE(cPatLoc+''+FileCtb)
FERASE(cPatLoc+''+fNtxCtb)
IF lAsiMod // TABLAS DE MOV. PARAR PROCESOS ESPECIALES
IF xTipMov == "FIJ"
FilReaD := "MOVIFIJO.DAT"
FilReaI := "MOVIFIJO.CDX"
FileEnc := "ENCAFIJO.DAT"
fNtxEnc := "ENCAFIJO.CDX"
ELSEIF xTipMov == "CIE"
FilReaD := "MOCONCIE.DAT"
FilReaI := "MOCONCIE.CDX"
FileEnc := "ENCACIER.DAT"
fNtxEnc := "ENCACIER.CDX"
ELSEIF xTipMov == "PRU"
FilReaD := "MOCONPRU.DAT"
FilReaI := "MOCONPRU.CDX"
FileEnc := "ENCABPRU.DAT"
fNtxEnc := "ENCABPRU.CDX"
ELSEIF xTipMov == "MOD"
FilReaD := "ASTOMODE.DAT"
FilReaI := "ASTOMODE.CDX"
FileEnc := "ENCMODEL.DAT"
fNtxEnc := "ENCMODEL.CDX"
ENDIF
ELSE
FileEnc := "ENCCONTA.DAT"
fNtxEnc := "ENCCONTA.CDX"
ENDIF
IF lAnexar
CREAMESTEMPORAL_CONTA(cPatLoc,FileCtb)
ENDIF
ELSE
restauraVariablesPublicas(M->vVariblesPublicas)
RETURN .f.
ENDIF
IF !lAnexar // .AND. !lAsiMod
M->zMesAct := M->xMesAct
// CREA EL TEMPORAL "FileCtb"
IF !CargaDocumentoContable(cSucCod,cComMod,cDocMod,cMesGra,cPatLoc+"\"+FileCtb)
restauraVariablesPublicas(M->vVariblesPublicas)
RETURN .f.
ENDIF
CLOSE CTB // CIERRE LA TABLA REAL DEL MOVIMIENTO (MANTENIMIENTO LA USA ASI, PERO EN REGISTRO NO, USA EL TEMPORAL)
ENDIF
IF EMPTY(M->zMesAct) .OR. M->zMesAct == NIL
M->zMesAct := LLENA0(STR(MONTH(dFecUsr),2,0))
ENDIF
IF !lUsaTab(xPatSis+'','CPTOSCON.DAT','CPT',{"CPTOSCON.CDX"},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'CARTERA.DAT','CAC',{'CARTERA.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'COSTOS.DAT','COS',{'COSTOS.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'CECOSTOS.DAT','CCO',{'CECOSTOS.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'DIFERIDO.DAT','DIF',{'DIFERIDO.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'RANGOCAR.DAT','RAN',{},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'ESTRPRES.DAT','PRE',{'ESTRPRES.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'TERCEROS.DAT','TER',{'TERCEROS.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'VALRPRES.DAT','VAL',{'VALRPRES.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",'ACTIVOS.DAT','ACT',{'ACTIVOS.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'','CLIENTES.DAT','CLI',{'CLIENTES.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'','VENDEDOR.DAT','VEN',{'VENDEDOR.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'','OPERARIO.DAT','OPE',{'OPERARIO.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'','PLANCTAS.DAT','PLA',{'PLANCTAS.CDX'},lShared) .OR.;
!lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",FileEnc,"ECO",{fNtxEnc},.T.)
IF cOriFun == NIL
CLOSE ALL
ENDIF
restauraVariablesPublicas(M->vVariblesPublicas)
RETURN .f.
ENDIF
SELECT CPT
GO TOP
IF lFlock("CPT","CONCEPTOS DE CONTABILIDAD",.f.)
CPT->( DBGOTOP() )
IF EMP->cTipConCon == "C"
REPLACE CPT->cNombreAlt WITH ALLTRIM(CPT->cNombreCon)+" - "+VERTIPOASIENTO(CPT->cTipConCon) ALL
ELSEIF EMP->cTipConCon == "N"
REPLACE CPT->cNombreAlt WITH ALLTRIM(CPT->cNombreCon)+" - NIIF" ALL
ELSE
REPLACE CPT->cNombreAlt WITH ALLTRIM(CPT->cNombreCon) ALL
ENDIF
REPLACE CPT->cEstadoCon WITH "N" FOR EMPTY(CPT->cEstadoCon)
CPT->( DBCOMMIT() )
CPT->( DBUNLOCK() )
ENDIF
CPT->( DBSETORDER(2) )
// creacion de encabezado para sistemas viejos
IF lAnexar // .AND. !lAsiMod // SI YA INGRESO A MANT. YA SE EJECUTO ESTE PROCESO
IF !lUsaTab(xPatSis+'\CONTABIL'+M->xAnoCon+"\",FilReaD,'CTB',{FilReaI},.T.)
restauraVariablesPublicas(M->vVariblesPublicas)
RETURN .f.
ENDIF
CTB->( DBGOTOP() )
IF M->lTabUniCon
// VER SI ES NECESARIO FILTRAR "CTB" PARA CUANDO SEA UNA UNICA TABLA ... SQL ¢ DBF "MOVCONTA.DAT"
FiltraDetalleContable(dFecUsr,xCodSuc )
ENDIF
IF !VerificaExistenciaEncabezadoDelMes("CTB") // SEGUN MOVIMIENTO DEL MES ... LO HARIA PARA LOS DOCE MESES .. DESACTIVA EN EL 2012 ??
lActEnc := .T.
ENDIF
ECO->( DBGOTOP() )
IF lActEnc .AND. CTB->( !EOF() ) // PARA SISTEMAS NUEVOS ... DESACTIVAR O SE ASUME QUE YA TODOS ACTUALIZARON EN EL 2012
MYMEN("Aviso informativo. A continuaci¢n se creara la tabla de encabezados contables. El sistema le avisara cuando termine")
xCreaEncabezadoContable("CTB",NIL,lAsiMod,FileEnc,fNtxEnc,xPatSis+"\CONTABIL\"+M->xAnoCon+"\")
MYMEN("Aviso informativo. El proceso termin¢ con ‚xito")
ENDIF
CLOSE ECO // EL ENCABEZADO LO ABRE AL CREAR EL DETALLE Y SE CREA EL ENCABEZADO SEGUN DETALLE.....
CLOSE CTB // CIERRA LA TABLA DE DETALLES CONTABLES .. LA REAL DEL SISTEMA
ENDIF
// TRABAJA CON UN TEMPORAL .. Q ESTA VACIA SI ES lAnexar O LLENA CON EL DOCUMENTO A CORREGIR si es !lAnexar
IF !lUsaTab(cPatLoc+'',FileCtb,"CTB",{},.F.,NIL,"DBFCDX")
IF cOriFun == NIL
CLOSE ALL
ENDIF
restauraVariablesPublicas(M->vVariblesPublicas)
RETURN .f.
ENDIF
// temporal de captura de asientos
SELECT CTB
INDEX ON cComConCon+cNroDocCon+cTipMovCon+STR(nNroIteCon,5,0) TAG ORDER1 TO &(cPatLoc+''+fNtxCtb)
INDEX ON cComConCon+cNroDocCon+cCodCtaCon+cTipMovCon TAG ORDER8 TO &(cPatLoc+''+fNtxCtb)
INDEX ON cComConCon+cNroDocCon+STR(nNroIteCon,5,0) TAG ORDER3 TO &(cPatLoc+''+fNtxCtb)
DBSETORDER(1)
IF PARAMETRO(224)
IF lPregunta("Desea eliminar registros repetidos ?")
SELECT CTB
DBSETORDER(3)
DBGOTOP()
nNroAnt := 0
cCtaAnt := ""
nValAnt := ""
DO WHILE CTB->( !EOF() )
IF nNroAnt == CTB->nNroIteCon .AND. ;
cCtaAnt == CTB->cCodCtaCon .AND. ;
nValAnt == CTB->nVlrDocCon
REPLACE CTB->cDetMovCon WITH "X"
SW := .T.
ENDIF
nNroAnt := CTB->nNroIteCon
cCtaAnt := CTB->cCodCtaCon
nValAnt := CTB->nVlrDocCon
CTB->( DBSKIP() )
ENDDO
CTB->( DBCOMMIT() )
GO TOP
DELETE FOR ALLTRIM(CTB->cDetMovCon) == "X"
CTB->( DBCOMMIT() )
//PACK
IF SW
MYMEN("Aviso. Para terminar con proceso de eliminaci¢n de registros repetidos, debe ejecutar integridad de datos")
ENDIF
ENDIF
MYMEN("Favor revisar si existen ¡tems repetidos")
ENDIF
SELECT CTB
DBSETORDER(1)
CTB->( DBGOTOP() )
AADD( vConBrw,{ "STR(CTB->nNroIteCon,5)", ("Item") , "99999" , .F., 6 } )
AADD( vConBrw,{ "CTB->cCodCtaCon", ("C¢digo Cuenta") , REPL("X",20) , .F., 16 } )
AADD( vConBrw,{ "XlSekCodigo(CTB->cCodCtaCon,'PLA',NIL,'cNombreCta')", "Nombre de la Cuenta" , REPL("X",20) , .F., 24 } )
AADD( vConBrw,{ "TRANS( CTB->nMovDebCon,'999,999,999,999.99' )", ("Valor D‚bito") , REPL("X",18) , .F., 18 } )
AADD( vConBrw,{ "TRANS( CTB->nMovCreCon,'999,999,999,999.99' )", ("Valor Cr‚dito") , REPL("X",18) , .F., 18 } )
AADD( vConBrw,{ "TRANS( CTB->nVlrBasCon,'999,999,999,999.99' )", "Valor Base/IVA" , REPL("X",18) , .F., 18 } )
AADD( vConBrw,{ "CTB->cNitTerCon", "Tercero" , REPL("X",12) , .F., 12 } )
AADD( vConBrw,{ "CTB->cDetMovCon" , "Detalle" , REPL("X",28) , .F., 28 } )
AADD( vConBrw,{ "CTB->cCodCcoCon" , "C. Costos" , REPL("X",3) , .F., 8 } )
AADD( vConBrw,{ "CTB->cDocRefCon" , "Doc. Referencia" , REPL("X",20) , .F., 20 } )
SET _3DLOOK ON
IF SW_FONDO
DEFINE DIALOG oDlg RESOURCE 10001 TITLE "Captura de asientos contables : "+cTipCon ;
COLOR cColorTexto,cColorFondo OF oWnd
ELSE
DEFINE DIALOG oDlg RESOURCE 10001 TITLE "Captura de asientos contables : "+cTipCon ;
COLOR CLR_BLACK,RGB(240,240,240) OF oWnd
ENDIF
IF SW_FONDO
REDEFINE BITMAP oBmp1 ID 4024 OF oDlg RESOURCE "RUSSOFT"
REDEFINE GROUP oGrpDet ID 4001 OF oDlg COLOR cColorTexto,cColorFondo TRANSPARENT
REDEFINE GROUP oGrpDet ID 4003 OF oDlg COLOR cColorTexto,cColorFondo TRANSPARENT
REDEFINE GROUP oGrpDet ID 4004 OF oDlg COLOR cColorTexto,cColorFondo TRANSPARENT
REDEFINE GROUP oGrpDet ID 4005 OF oDlg COLOR cColorTexto,cColorFondo TRANSPARENT
REDEFINE GROUP oGrpDet ID 4033 OF oDlg COLOR cColorTexto,cColorFondo TRANSPARENT
REDEFINE GROUP oGrpDet ID 4034 OF oDlg COLOR cColorTexto,cColorFondo TRANSPARENT
REDEFINE GROUP oGrpDet ID 4035 OF oDlg COLOR cColorTexto,cColorFondo TRANSPARENT
REDEFINE GROUP oGrpDet ID 4002 OF oDlg COLOR cColorTexto,cColorFondo TRANSPARENT
REDEFINE SAY ID 4007 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4008 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4009 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4015 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4016 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4010 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4011 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4013 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4014 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4070 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4026 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4029 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4025 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4022 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4023 OF oDlg COLOR cColorTexto,cColorFondo
//REDEFINE SAY ID 4041 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4040 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4043 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4044 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4045 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4020 OF oDlg COLOR cColorTexto,cColorFondo
REDEFINE SAY ID 4021 OF oDlg COLOR cColorTexto,cColorFondo
ELSE
REDEFINE BITMAP oBmp1 ID 4024 OF oDlg RESOURCE "RUSSOFT"
REDEFINE GROUP oGrpDet ID 4001 OF oDlg COLOR CLR_BLACK, RGB(240,240,240)
REDEFINE GROUP oGrpDet ID 4003 OF oDlg COLOR CLR_BLACK, RGB(240,240,240)
REDEFINE GROUP oGrpDet ID 4004 OF oDlg COLOR CLR_BLACK, RGB(240,240,240)
REDEFINE GROUP oGrpDet ID 4005 OF oDlg COLOR CLR_BLACK, RGB(240,240,240)
REDEFINE GROUP oGrpDet ID 4033 OF oDlg COLOR CLR_BLACK, RGB(240,240,240)
REDEFINE GROUP oGrpDet ID 4034 OF oDlg COLOR CLR_BLACK, RGB(240,240,240)
REDEFINE GROUP oGrpDet ID 4035 OF oDlg COLOR CLR_BLACK, RGB(240,240,240)
REDEFINE GROUP oGrpDet ID 4002 OF oDlg COLOR CLR_BLACK, RGB(240,240,240)
REDEFINE SAY ID 4007 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4008 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4009 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4015 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4016 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4010 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4011 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4013 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4014 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4070 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4026 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4029 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4025 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4022 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4023 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
//REDEFINE SAY ID 4041 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4040 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4043 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4044 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4045 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4020 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
REDEFINE SAY ID 4021 OF oDlg COLOR CLR_BLACK,RGB(240,240,240)
ENDIF
ACTIVATE DIALOG oDlg CENTER ;
ON INIT ( LeeRegistrosContabilidad( oDlg,cNomEmp,cNomSis,cAnoSys,dFecUsr,;
cPatInt,lSisInt,cNomUsr,cCodCaj,cCodCia,;
cForCap,oWnd,vConBrw,oGrpDet,lAnexar,zMesAct,cSucCod,cComMod,cDocMod,cDetEnc,lAsiMod,nSecFil ) ,;
InitCapturaContable(lAnexar,oDlg) , xdisplay(oDlg,5,.T.,nil) ) ;
VALID ( IF(!M->lTerLee,IIF(MsgYesNo(HB_OEMTOANSI("Desea abandonar la captura de asientos." ),"RUSSOFT - Terminar" ),(lTerCap := .T. ) ,;
( lTerCap := .F. ) ),lTerCap := .T. ) )
SET KEY VK_F1 TO
SET KEY VK_F2 TO
SET KEY VK_F3 TO
SET KEY VK_F4 TO
SET KEY VK_F5 TO
SET KEY VK_F6 TO
SET KEY VK_F7 TO
SET KEY VK_F8 TO
SET KEY VK_F9 TO
SET KEY VK_F10 TO
SET KEY VK_F11 TO
SET KEY VK_F12 TO
SET KEY VK_ESCAPE TO
RELEASE oNomCta,oGetTer,cCodTer,oNomTer,cNomTer,oGetDes,cGetDes,oVlrBas,nVlrBas,oPreRef,;
cPreRef,oDocRef,nDocRef,oPlaCar,nPlaCar,oVlrCan,nVlrCan,oCenCos,cCenCos,oCodAct,;
cCodAct,oCodDif,cCodDif,oSalCta,nSalCta,oSalCCo,nSalCCo,oSalTer,nSalTer,cClaVal,;
vDatAnt,nVlrOtr,oVlrOtr,cCodMon,oCodMon,oTotCta,nTotCta,oTotDeb,nTotDeb,oTotCre,;
nTotCre,nVlrDeb,oVlrDeb,nVlrCre,oVlrCre,vVecObj,lModReg,EstoyAdentro12,cPreDoc,;
zMesAct,cMesGra,nDebDoc,nCreDoc,lManNro,cCapCon,cCodCom,lTerLee,;
OBRWCONFW2,oCtaCon,cCtaCon,cCodCon,oComBox,oTotTer,nTotTer,oTotCCo,nTotCCo,;
nDocTra,oSayCon,xDlg,oSayDoc,oSayPre,xForCap,xCodCli,cGetDet,xSucCod,xAnexar2,xAsiMod,;
cDocMov,nBasCal,oGetDet,oGetCli
RELEASE xTipMov
//RELEASE lTerCap
RELEASE cState
RELEASE oDlg
RELEASE Ctrl_A , Ctrl_Q , Ctrl_P , Ctrl_N ,Ctrl_Z , Ctrl_T ,;
Ctrl_I , Ctrl_R , Ctrl_F , Ctrl_D , Ctrl_E , Ctrl_L ,;
Ctrl_G , Ctrl_Y , Ctrl_S, Ctrl_M
RELEASE XVecDat
RELEASE zMesAct
RELEASE cMesGra
RELEASE nDebDoc
RELEASE nCreDoc
RELEASE lManNro
RELEASE cCapCon
RELEASE cCodCom , lTerLee , OBRWCONFW2
RELEASE oCtaCon , cCtaCon
RELEASE cCodCon , oComBox
IF lAnexar
IF cOriFun == NIL
CLOSE ALL
ENDIF
ELSE
IF SELECT("CTB") <> 0
CLOSE CTB
ENDIF
ENDIF
releaseVariablesPublicas(M->vVariblesPublicas)
IF M->cPatNit <> xPatSis
cNuePat := cPatNit
cNueCon := xNueCon
ENDIF
RETURN !lTerCap
//******************************************************************
