Hola estimados, buenas noches.
estoy haciendo una prueba con tweb sólo pasando, capturando y devolviendo datos entre un archivo y otro pero me aparece un error de acceso a array en el archivo que vendría a ser el modelo en MVC.
Será problema de la versión de modharbour ya que el ejemplo tutor13.prg de tweb también me arroja el mismo error.
Agradezco de antemano su ayuda.
Atte.
Probado en Navegadores: Chrome y Edge
Servidor web: xampp version 7.2.31
Version TWeb 1.0
modharbour version Harbour 3.2.0dev (r2004201301)
windows 10 64 bits.
Error informado por el sistema
Error: Argument error
operation: array access
[ 1] = U nil
[ 2] = C cuenta
called from: pcode.hrb, MAIN, line: 4
called from: HB_HRBDO, line: 0
called from: ..\apache.prg, EXECUTE, line: 134
Source:
0002: function main()
0003: local aDatos := GetMsgServer()
0004 => AP_RPuts( "<br>",alert( aDatos[ "cuenta" ] ) )
0005:
0006: AP_SetContentType( "application/json" )
Archivo 1
controles donde ingreso los datos
ROW o
GET ID 'getcodigo' VALUE '' GRID 4 LABEL 'Codigo' OF o
GET ID 'getnombre' VALUE '' GRID 6 LABEL 'Nombre' OF o
END o
Script donde recolecto los datos y los envío al modelo
function Salvar() {
var oParam = new Object()
oParam[ 'cuenta' ] = $('#getcodigo').val()
oParam[ 'nombre' ] = $('#getnombre').val()
MsgServer( 'browse1srv.prg', oParam, PostView )
}
function PostView(dat) {
MsgInfo( dat )
}
Archivo 2
Donde capturo los datos y los devuelvo.
function main()
local aDatos := GetMsgServer()
? alert( aDatos[ 'cuenta' ] )
AP_SetContentType( "application/json" )
?? hb_jsonEncode( aDatos )
return nil