TXBROWSE

TXBROWSE

Postby russimicro » Mon Aug 14, 2023 3:57 pm

Application
===========
Path and name: D:\ZERUS\zeruswin.exe (32 bits)
Size: ********* bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150726)
FiveWin Version : FWH 23.04
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 35 secs
Error occurred at: 08/14/2023, 10:01:54







Error description: Error BASE/1068 Error de argumento: acceso al array
Args:
[ 1] = U
[ 2] = N 1

Stack Calls
===========
Called from: C:\FWH\source\classes\xbrowse.prg => TXBROWSE:PAINT( 2287 )
Called from: C:\FWH\source\classes\xbrowse.prg => TXBROWSE:DISPLAY( 2215 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1823 )
Called from: C:\FWH\source\classes\xbrowse.prg => TXBROWSE:HANDLEEVENT( 12420 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
Called from: FUENTES\CONTABILIDAD\FW_REGISTRO.PRG => CAPTURAASIENTOSCONTABILIDAD( 654 )

Code: Select all  Expand view


        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. ) )


 
russimicro
 
Posts: 231
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: TXBROWSE

Postby karinha » Mon Aug 14, 2023 4:27 pm

Bad:

CAPTURAASIENTOSCONTABILIDAD( 654 ) ?? Muestre esta FUNCTION, pls. ó completo.

Regards saludor.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7381
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: TXBROWSE

Postby russimicro » Mon Aug 14, 2023 7:29 pm

Code: Select all  Expand view
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

//******************************************************************
russimicro
 
Posts: 231
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: TXBROWSE - SOLUCIONADO

Postby russimicro » Mon Aug 14, 2023 11:14 pm

Solucionado...
DEFINE BRUSH oBrush FILE...no existe... en fwh 15 no marcaba error, en la 23 si...
Gracias
russimicro
 
Posts: 231
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 37 guests