FiveTech Support Forums

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

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?

Anyway, for now, please comment out: at line 5823 of xbrowse.prg

Mr. Rao, funciono comentando la linea.

Con el Alias siempre lo trabaje así y funciono.

Muchas gracias