error TXBROWSE:CARGOS

[jpcavagnaro]

Hola gente, en la versión 23.07 me da este error, cosa que en la 22.12 no.

Me falta agregar alguna librería?

Este es parte del código:

*-----------------
DEFINE WINDOW oWndChild MDICHILD OF oWnd FROM 0, 0 TO 24, 79TITLE "Carga Informe de Auditoría " font oFont11
DEFINE DIALOG princfac RESOURCE "Informe" ;
OF oWndChild

REDEFINE FOLDER ofld1 ID 110 OF princfac ;
PROMPT "&Encabezado", "&Información General", "No Conformidades Anteriores", "Resultados", "Cierre" ; // BITMAPS "new", "open1", "Presupu";
DIALOGS "solapa1", "solapa2w", "Solapa5w", "Solapa3w", "Solapa4w" // round 10 transparent // BOTTOM

* 4 ------------------------------------------------------------------------------------------------------------------------

REDEFINE GET onrocli var xnrocli ID 101 OF ofld1:aDialogs[ 1 ] picture "999999" valid iif ( xnrocli <> 0, ( val_cli( xnrocli ), onrocli:Refresh(), onomcli:refresh(), odircli:refresh(), BuscoAntInfo( xnrocli, xNUsuario, ofld1:aDialogs[ 1 ] ), .t. ), .t. )
redefine BTNBMP BtnB prompt HB_UTF8CHR( 57626 ) font oSegoe ID 4016 OF ofld1:aDialogs[ 1 ] noborder ACTION ( val_cli( 9999 ), onrocli:Refresh(), onomcli:refresh(), odircli:refresh(), BuscoAntInfo( xnrocli, xNUsuario, ofld1:aDialogs[ 1 ] ), .t. )

BtnB:lTransparent = .t.



REDEFINE say onomcli var xnombre ID 202 OF ofld1:aDialogs[ 1 ]
REDEFINE say odircli var xdomic ID 206 OF ofld1:aDialogs[ 1 ]
REDEFINE COMBOBOX oAudit_ant var wAudit_Ant ITEMS Taudit_antf ;
ON CHANGE ( xAudit_Ant := oAudit_ant:nAt, CargoAntInfo( xAudit_Ant, ofld1:aDialogs[ 1 ] ) ) ;
ID 4001 OF ofld1:aDialogs[ 1 ] when len( Taudit_antf ) > 0
REDEFINE say oNaudit var xnaudit ID 4022 OF ofld1:aDialogs[ 1 ] picture "99999999"
REDEFINE say oSitios var xSitios ID 102 OF ofld1:aDialogs[ 1 ] picture "@x"
REDEFINE say oContacto VAR xContacto ID 103 OF ofld1:aDialogs[ 1 ] picture "@x"
redefine say oEmail var xEmail id 104 of ofld1:aDialogs[ 1 ] picture "@x"
redefine say oFecha_Ini var dtoc( xFecha_Ini ) id 105 of ofld1:aDialogs[ 1 ]
redefine say oFecha_Fin var dtoc( xFecha_Fin ) id 106 of ofld1:aDialogs[ 1 ]
redefine say oCriterio var xCriterio id 107 of ofld1:aDialogs[ 1 ]
redefine say oLiderAudit var xLiderAudit id 108 of ofld1:aDialogs[ 1 ] picture "9999" //valid ( val_usua( xLiderAudit ), oLiderAudit:Refresh(), oNomAudit:refresh(), .t. )
redefine say oNomAudit var xNomAudit id 4015 of ofld1:aDialogs[ 1 ]
REDEFINE say oNormas var xNormas ID 4012 OF ofld1:aDialogs[ 1 ]

* 2 -------------------------------------------------------------------------------------------------------------

REDEFINE XBROWSE oRApertur ID 10 OF ofld1:aDialogs[ 2 ] FIELDS ;
RApertur->nombre, ;
RApertur->apellido, ;
RApertur->CargoArea ;
headers "Nombre", "Apellido", ;
"CargoArea" ;
Sizes 250, 250, 250 ;
ALIAS AliasRA autosort FASTEDIT LINES CELL font ofontBR // BACKGROUND aGrad HORIZONTAL
colorxbrw( oRApertur, .f. )
WITH OBJECT oRApertur:Nombre
:bOnPostEdit := { | o, x, k | RApertur->nombre := x } //PostEdit( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END
WITH OBJECT oRApertur:Apellido
:bOnPostEdit := { | o, x, k | ( RApertur->Apellido := x ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END
WITH OBJECT oRApertur:CargoArea
:bOnPostEdit := { | o, x, k | ( RApertur->CargoArea := x, veofin() ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END

If !Empty( oRApertur:aCols ); oRApertur:Cargos := nil; endif


oRApertur:bLClicked := { || ( dbselectarea( "RApertur" ), ofld1:aDialogs[ 2 ]:update(), oRApertur:gotop(), oRApertur:update(), oRApertur:refresh() ) }
oRApertur:bKeyDown := { | nKey | VeoReg(, 1, oRApertur, nkey, "RApertur" ) }
redefine say oObjetivo var xObjetivo memo id 4001 of ofld1:aDialogs[ 2 ] update
redefine get oAlcance var xAlcance memo id 132 of ofld1:aDialogs[ 2 ] update
redefine get oManuales var xManuales id 102 of ofld1:aDialogs[ 2 ]
redefine get oReqNoApli var xReqNoApli id 4005 of ofld1:aDialogs[ 2 ]
redefine BTNBMP 2007 prompt spac( 5 ) + HB_UTF8CHR( 57604 ) + " Editar " font oSegoe oNota id 4002 OF ofld1:aDialogs[ 2 ] ACTION RichEdit5( @xInstrucciones, "Instrucciones", 9, 9, 30, 140 )
redefine BTNBMP 2007 prompt spac( 5 ) + HB_UTF8CHR( 57604 ) + " Editar " font oSegoe oNota id 4003 OF ofld1:aDialogs[ 2 ] ACTION RichEdit5( @xComentarios , "Comentarios ", 9, 9, 30, 140 )
redefine BTNBMP 2007 prompt spac( 5 ) + HB_UTF8CHR( 57604 ) + " Editar " font oSegoe oNota id 4004 OF ofld1:aDialogs[ 2 ] ACTION RichEdit5( @xIntroduccion , "Introducción ", 9, 9, 30, 140 )

* 3 ------------------------------------------------------------------------------------------------------------------------

REDEFINE XBROWSE oNoConfAnt ID 11 OF ofld1:aDialogs[ 3 ] FIELDS ;
au_NCAnt->hecho, ;
au_NCAnt->comentario, ;
au_NCAnt->Estado, ;
au_NCAnt->Interna ;
headers "NoConf", "Comentario", ;
"Estado", "Interna" ;
SIZES 230, 230, 230, 50 ;
ALIAS AliasNCA autosort FASTEDIT LINES CELL font ofontBR // BACKGROUND aGrad HORIZONTAL

oNoConfAnt:lHScroll := ( .f. )
If !Empty( oNoConfAnt:aCols ); oNoConfAnt:Cargos := nil; endif
colorxbrw( oNoConfAnt, .f. )

WITH OBJECT oNoConfAnt:NoConf
:bOnPostEdit := { | o, x, k | VeoHecho( x, oNoConfAnt ) } //PostEdit( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END

WITH OBJECT oNoConfAnt:comentario
:bOnPostEdit := { | o, x, k | VeoComentario( x, oNoConfAnt ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END
WITH OBJECT oNoConfAnt:estado
:bOnPostEdit := { | o, x, k | ( au_NCAnt->estado := x ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END
WITH OBJECT oNoConfAnt:Interna
:bOnPostEdit := { | o, x, k | ( au_NCAnt->Interna := upper( x ) ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END

oNoConfAnt:bLClicked := { || dbselectarea( "au_NCAnt" ) }
oNoConfAnt:bKeyDown := { | nKey | VeoReg(, 1, oNoConfAnt, nkey, "au_NCAnt" ) }

* 4 -----------------------------------------------------------------------------------------------------------------------

REDEFINE COMBOBOX oTProcesos var wTProcesos ITEMS TProcesos ;
ON CHANGE ( xprocesos := oTProcesos:nAt, CargoProcesoInfo( xprocesos, ofld1:aDialogs[ 4 ] ) ) ;
ID 4001 OF ofld1:aDialogs[ 4 ]
*
REDEFINE get oSitioProc var xSitioProc ID 102 OF ofld1:aDialogs[ 4 ] // on change (xmodiproc := "S")
redefine get oParticipanProc var xParticipanProc memo id 132 of ofld1:aDialogs[ 4 ] update // on change (xmodiproc := "S")
*
REDEFINE XBROWSE oResultado ID 12 OF ofld1:aDialogs[ 4 ] FIELDS ;
au_audit->norma, ;
au_audit->apartado, ; // au_audit->proceso, ; au_audit->resultado , ;
au_audit->clasifica ; // au_audit->Interna ;
headers "Norma", ;
"Requisito", ; // "Proceso" , ; "Resultado", ;
"Clasifica" ; //,"Interna" ;
Sizes 80, 80, 200 ;
ALIAS AliasAU autosort FASTEDIT LINES CELL font ofontBR // BACKGROUND aGrad HORIZONTAL
colorxbrw( oResultado, .f. )

oResultado:lHScroll := ( .f. )

WITH OBJECT oResultado:Norma
:bOnPostEdit := { | o, x, k | VeoNorma( x, oResultado ) } //PostEdit( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END
WITH OBJECT oResultado:Requisito
:bOnPostEdit := { | o, x, k | VeoApartado( x, oResultado ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END
* WITH OBJECT oResultado:Resultado
* :bOnPostEdit := { | o, x, k | VeoResultado( x, oResultado ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
* :nEditType := EDIT_GET
* END
WITH OBJECT oResultado:Clasifica
:bOnPostEdit := { | o, x, k | Veo_Clasifica( x, oResultado ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET //_LISTBOX
* :aEditListTxt := tHallazgos
END
* WITH OBJECT oResultado:Interna
* :bOnPostEdit := { | o, x, k | ( au_Audit->Interna := upper(x), xmodiproc := "S" ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
* :nEditType := EDIT_GET
* END

oResultado:bLClicked := { || dbselectarea( "au_audit" ) }
oResultado:bKeyDown := { | nKey | VeoReg(, 1, oResultado, nkey, "au_audit" ) }
redefine BTNBMP 2007 prompt spac( 5 ) + HB_UTF8CHR( 57604 ) + " Guardar Cambios " font oSegoe oNota id 4002 OF ofld1:aDialogs[ 4 ] ACTION GuardoProceso()

* 5 ------------------------------------------------------------------------------------------------------------------------

REDEFINE XBROWSE oRCierre ID 11 OF ofld1:aDialogs[ 5 ] FIELDS ;
RCierre->nombre, ;
RCierre->apellido, ;
RCierre->CargoArea ;
headers "Nombre", "Apellido", ;
"CargoArea" ;
SIZES 250, 250, 250 ;
ALIAS AliasRC autosort FASTEDIT LINES CELL font ofontBR // BACKGROUND aGrad HORIZONTAL

colorxbrw( oRCierre, .f. )

WITH OBJECT oRCierre:Nombre
:bOnPostEdit := { | o, x, k | RCierre->nombre := x } //PostEdit( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END

WITH OBJECT oRCierre:Apellido
:bOnPostEdit := { | o, x, k | ( RCierre->Apellido := x ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END
WITH OBJECT oRCierre:CargoArea
:bOnPostEdit := { | o, x, k | ( RCierre->CargoArea := x, veofin() ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END

oRCierre:bKeyDown := { | nKey | VeoReg(, 1, oRCierre, nkey, "RCierre" ) }
oRCierre:bLClicked := { || dbselectarea( "RCierre" ) }

redefine BTNBMP 2007 prompt spac( 5 ) + HB_UTF8CHR( 57604 ) + " Editar " font oSegoe oNota id 4004 OF ofld1:aDialogs[ 5 ] ACTION RichEdit5( @xConclusion, "Conclusión", 9, 9, 30, 140 )
redefine BTNBMP 2007 prompt spac( 5 ) + HB_UTF8CHR( 57604 ) + " Editar " font oSegoe oNota id 4003 OF ofld1:aDialogs[ 5 ] ACTION RichEdit5( @xComCierre , "Comentarios Cierre ", 9, 9, 30, 140 )

* 6 ------------------------------------------------------------------------------------------------------------------------

redefine BTNBMP oCanc1 2007 prompt HB_UTF8CHR( 57642 ) + " Confirma " font oSegoe oNota id 991 OF princfac ACTION ActualiInfo() // when xfinalizada = nil
redefine BTNBMP 2007 prompt HB_UTF8CHR( 58102 ) + " Imprimir " font oSegoe ID 4002 OF princfac ACTION ( ImprimirInfo() )

redefine BTNBMP oCan 2007 prompt HB_UTF8CHR( 57615 ) + " Volver " font oSegoe ID 992 OF princfac ACTION ( lsave := .f., dbCloseall() , princfac:End(), oWndChild:End() ) // cancel
oCan:lCancel := .t.
redefine BTNBMP oCanc 2007 prompt HB_UTF8CHR( 57615 ) + " Dar por terminada " font oSegoe ID 4001 OF princfac ACTION ( CierraAudit( xnaudit ), dbCloseall() , princfac:End(), oWndChild:End() ) // when xLiderAudit = xNUsuario // cancel

ACTIVATE DIALOG princfac CENTERED nowait ON INIT ( princfac:Move( 0, 0 ) ) //, oRich:LoadRtf( xobserva ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 ))

oWndChild:nWidth := princfac:nWidth + 7
oWndChild:nHeight := princfac:nHeight + 32

ACTIVATE WINDOW oWndChild on init ( onrocli:setfocus() )

[nageswaragunupudi]

Code: Select all  Expand view  RUN

REDEFINE XBROWSE oRApertur ID 10 OF ofld1:aDialogs[ 2 ] FIELDS ;
RApertur->nombre, ;
RApertur->apellido, ;
RApertur->CargoArea ;
headers "Nombre", "Apellido", ;
"CargoArea" ;
Sizes 250, 250, 250 ;
ALIAS AliasRA autosort FASTEDIT LINES CELL font ofontBR // BACKGROUND aGrad HORIZONTAL
 

Can you please clarify are you using ALIAS "AliasRA" or "RApertur" ?
When you defined the ALIAS AliasRA, then how the FIELDS RApertur->nombre valid?
Should it not be AliasRA->nombre ?
Can you please clarify?

[nageswaragunupudi]

Anyway, for now, please comment out:

Code: Select all  Expand view  RUN

::Cargos := nil

at line 5823 of xbrowse.prg

[jpcavagnaro]

Mr. Rao, funciono comentando la linea.

Con el Alias siempre lo trabaje así y funciono.

Muchas gracias