Error al correr compilado sin Debug

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Este debate tiene 4 respuestas, 2 mensajes y ha sido actualizado por última vez el 4 años, 1 mes por Xevi. This post has been viewed 611 times

Mostrando 4 respuestas a los debates

Autor

Entradas

19-10-2020 a las 12:07 #1289

Xevi
Participante

Siguiendo con las pruebas, compilando en modo debug, corre correctamente.

Compilo el mismo proyecto cquitando el Debug y al ejecutar un clic en un Browse que lanza un WAlert, no me lanza WAlert y veo en la console del inspector del navegador este mensaje...

Como digo, compilando en modo Debug, funciona correctamente.

Un Saludo,

Xevi.
19-10-2020 a las 13:09 #1290

Alfredo Sanz
Superadministrador

Seguramente será algún problema con la encriptación de datos que hacemos al quitar el modo debug.

Pincha en donde pone @soft:6 y en @soft:11 para poder ver el html que da el error y mándame el código que te sale.

19-10-2020 a las 13:22 #1291

Xevi

Participante

Fredy,

He intentado ver donde "casca"

PROCEDURE ProvaArrayBrowse()
   Local aItems := {}
   Local n

   For n:=1 To 50
      AAdd( aItems, { "Registro " + ToString(n), "Columna2" } )
   Next

   WITH OBJECT TWebPage():New()
      :lAlerts := .T.

      WSeparator():New(:WO):Create()
      WSeparator():New(:WO):Create()


      //Un contenedor del Browse
      WITH OBJECT WBevel():New(:WO)
         :oStyle:cPadding_left := 0      //No dejo márgenes a la izquierda
         :oStyle:cPadding_right := 0     //No dejo márgenes a la derecha

         WITH OBJECT  WArrayBrowse():New(:WO)
            :cId := "table"
            :lIncludeArray := .f.
            :nStyle       := xc_Striped      // Estilo visual, con pautado pijama
            :cClrHeadPane := "black"         // Color de Fondo a las cabeceras
            :cClrHeadText := "white"         // Color del texto de cabeceras
            :oStyle:cLine_height := 0        //Quito altura entre registro y registro

            :cOnClick     := "DatosRegistro"
            :cAjaxBevel    := "nflcargo"
            :nIndexValue     := 1

            :cCSS += "table.striped>tbody>tr>td { border: 1px solid #dee2e6; }"   // Borde al Browse, interlineado y entre columnas
            :cCSS += "#table_head1 { padding-top: 0px; padding-bottom: 2px; }"  // Menos alto título columnas
            :cCSS += "#table_head2 { padding-top: 0px; padding-bottom: 2px; }"  // debo establecerlas a TODAS

            :cCSS += cssMakeScrollable()

            // Añadimos Columnas
            WITH OBJECT :AddCol( "Col1", xc_Right, xc_Right ) AS WItemColBrowse // texto cabecera, alineacion cabecera, alineacion datos AS wItemColBrowse
               :nWidth := 25
            END WITH

            WITH OBJECT :AddCol( "Col2", xc_Center, xc_Left ) AS WItemColBrowse
               :lBold  := .T.
               :nWidth := 75
            END WITH

             :aItems := AsciiHTML(aItems)  // Le alimentamos datos directamente de la consulta

             :Create()

         END WITH  //ArrayBrowse

         :Create()
      END WITH  //Bevel

      oCgi:SendPage( :Create() )
   END WITH //WebPage

RETURN
//------------------------------------------------------------------------------
static FUNCTION cssMakeScrollable()
LOCAL cTxt
   //https://stackoverflow.com/questions/47723996/table-with-fixed-thead-and-scrollable-tbody
   TEXT INTO cTxt
     .table > thead { display:table; width: 100%; background: black; }
     .table > thead > tr { width: calc(100% - 17px); }
     .table > thead > tr > th { border-bottom: 1px black solid; }
     .table > tbody {  max-height: 485px; overflow-y: scroll; display: block; }
     tr { display: table; width: 100%; }
   ENDTEXT

RETURN cTxt
//------------------------------------------------------------------------------
PROCEDURE DatosRegistro()
   Local cHtml
//   Local oRegistro := GetRowValue( oCGI:GetCGIValue( "table" ) )

      WITH OBJECT WMsgAlert():New()
         :cText := 'Datos Registro'
         :Create()
         cHtml := :FullHtml()
      END WITH

   oCGI:SendScript( cHtml )
RETURN
//------------------------------------------------------------------------------
//Fredy te ha comentado el uso de una función que utiliza, pero que no esta aun incluida en Nefele, estaré en la proxima versión pero por ahora puedes incluirla en tu proyecto.
static FUNCTION  GetRowValue( cDato )
Local eRetorno
// En cDato llega en indice (nIndexValue del browse que será el campo clave en la base de datos) y el id html de la linea para poder cambiarla
   cDato := hb_ATokens( cDato , "|" )

   WITH OBJECT eRetorno := TExsTruct():New()
      :AddMember( "cValue")
      :AddMember( "cId")
      :cValue := cDato[1]
      :cId    := cDato[2]
   END

RETURN eRetorno

100

101

102

PROCEDURE ProvaArrayBrowse()

Local aItems := {}

Local n

For n:=1 To 50

AAdd( aItems, { "Registro " + ToString(n), "Columna2" } )

WITH OBJECT TWebPage():New()

:lAlerts := .T.

WSeparator():New(:WO):Create()

//Un contenedor del Browse

WITH OBJECT WBevel():New(:WO)

:oStyle:cPadding_left := 0 //No dejo márgenes a la izquierda

:oStyle:cPadding_right := 0 //No dejo márgenes a la derecha

WITH OBJECT WArrayBrowse():New(:WO)

:cId := "table"

:lIncludeArray := .f.

:nStyle := xc_Striped // Estilo visual, con pautado pijama

:cClrHeadPane := "black" // Color de Fondo a las cabeceras

:cClrHeadText := "white" // Color del texto de cabeceras

:oStyle:cLine_height := 0 //Quito altura entre registro y registro

:cOnClick := "DatosRegistro"

:cAjaxBevel := "nflcargo"

:nIndexValue := 1

:cCSS += "table.striped>tbody>tr>td { border: 1px solid #dee2e6; }" // Borde al Browse, interlineado y entre columnas

:cCSS += "#table_head1 { padding-top: 0px; padding-bottom: 2px; }" // Menos alto título columnas

:cCSS += "#table_head2 { padding-top: 0px; padding-bottom: 2px; }" // debo establecerlas a TODAS

:cCSS += cssMakeScrollable()

// Añadimos Columnas

WITH OBJECT :AddCol( "Col1", xc_Right, xc_Right ) AS WItemColBrowse // texto cabecera, alineacion cabecera, alineacion datos AS wItemColBrowse

:nWidth := 25

END WITH

WITH OBJECT :AddCol( "Col2", xc_Center, xc_Left ) AS WItemColBrowse

:lBold := .T.

:nWidth := 75

END WITH

:aItems := AsciiHTML(aItems) // Le alimentamos datos directamente de la consulta

:Create()

END WITH //ArrayBrowse

:Create()

END WITH //Bevel

oCgi:SendPage( :Create() )

END WITH //WebPage

RETURN

//------------------------------------------------------------------------------

static FUNCTION cssMakeScrollable()

LOCAL cTxt

//https://stackoverflow.com/questions/47723996/table-with-fixed-thead-and-scrollable-tbody

TEXT INTO cTxt

.table > thead { display:table; width: 100%; background: black; }

.table > thead > tr { width: calc(100% - 17px); }

.table > thead > tr > th { border-bottom: 1px black solid; }

.table > tbody { max-height: 485px; overflow-y: scroll; display: block; }

tr { display: table; width: 100%; }

ENDTEXT

RETURN cTxt

//------------------------------------------------------------------------------

PROCEDURE DatosRegistro()

Local cHtml

// Local oRegistro := GetRowValue( oCGI:GetCGIValue( "table" ) )

WITH OBJECT WMsgAlert():New()

:cText := 'Datos Registro'

:Create()

cHtml := :FullHtml()

END WITH

oCGI:SendScript( cHtml )

RETURN

//------------------------------------------------------------------------------

//Fredy te ha comentado el uso de una función que utiliza, pero que no esta aun incluida en Nefele, estaré en la proxima versión pero por ahora puedes incluirla en tu proyecto.

static FUNCTION GetRowValue( cDato )

Local eRetorno

// En cDato llega en indice (nIndexValue del browse que será el campo clave en la base de datos) y el id html de la linea para poder cambiarla

cDato := hb_ATokens( cDato , "|" )

WITH OBJECT eRetorno := TExsTruct():New()

:AddMember( "cValue")

:AddMember( "cId")

:cValue := cDato[1]

:cId := cDato[2]

END

RETURN eRetorno

Si descomento la línea que hace la llamada a GetRowValue() muestra el WAlert.

Este es el ejemplo más sencillo que he podido llegar

De esta manera lo puedes probar tu mismo.

Un saludo,

Xevi.

Esta respuesta fue modificada 4 años, 1 mes por Xevi.

19-10-2020 a las 14:12 #1293

Alfredo Sanz
Superadministrador

Casi seguro que es lo que te comentaba.

En la próxima versión está corregido

Prueba a incluir estos dos ficheros en el proyecto y lo confirmamos.

Acuérdate de quitarlos cuando saquemos la versión nueva

Adjuntos:
Debes acceder para ver los archivos adjuntos.

19-10-2020 a las 14:49 #1295

Xevi

Participante

Me lanza errores al linkar...

Compilant  Proves.prg...
Enllaçant  @Soft.exe...
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x98): undefined reference to `HB_FUN_NFL_CHECKCLR'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xb8): undefined reference to `HB_FUN_NFL_PRELOADCSS'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xd8): undefined reference to `HB_FUN_NFL_MSGSAVE'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xf8): undefined reference to `HB_FUN_NFL_COMILLAS'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x118): undefined reference to `HB_FUN_NFL_TOWEB'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x138): undefined reference to `HB_FUN_NFL_TAG'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x318): undefined reference to `HB_FUN_NFL_TAG'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x448): undefined reference to `HB_FUN_NFL_PUTICON'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x5d8): undefined reference to `HB_FUN_NFL_GETMEASURETYPE'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x628): undefined reference to `HB_FUN_NFL_TOWEB'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x648): undefined reference to `HB_FUN_NFL_UPDATEARRAY'
1 Files, 0 Warnings, 11 Errors
Temps de compilació: 0.37s   Temps d'enllaçat: 0.43s   Temp total: 0.83s

Compilant Proves.prg...

Enllaçant @Soft.exe...

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x98): undefined reference to `HB_FUN_NFL_CHECKCLR'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xb8): undefined reference to `HB_FUN_NFL_PRELOADCSS'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xd8): undefined reference to `HB_FUN_NFL_MSGSAVE'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xf8): undefined reference to `HB_FUN_NFL_COMILLAS'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x118): undefined reference to `HB_FUN_NFL_TOWEB'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x138): undefined reference to `HB_FUN_NFL_TAG'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x318): undefined reference to `HB_FUN_NFL_TAG'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x448): undefined reference to `HB_FUN_NFL_PUTICON'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x5d8): undefined reference to `HB_FUN_NFL_GETMEASURETYPE'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x628): undefined reference to `HB_FUN_NFL_TOWEB'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x648): undefined reference to `HB_FUN_NFL_UPDATEARRAY'

1 Files, 0 Warnings, 11 Errors

Temps de compilació: 0.37s Temps d'enllaçat: 0.43s Temp total: 0.83s

No pasa nada... espero a que salga la actualización

Un Saludo,

Xevi.

Autor

Entradas

Mostrando 4 respuestas a los debates

Debes estar registrado para responder a este debate.

Adjuntos: