Example #1
0
 public static String _insertareview(
     anywheresoftware.b4a.BA _ba, String _titulo, String _nota, String _tipo) throws Exception {
   String _fecha = "";
   // BA.debugLineNum = 28;BA.debugLine="Sub InsertaReview(titulo As String, nota As String, tipo
   // As String)";
   // BA.debugLineNum = 29;BA.debugLine="Dim fecha As String";
   _fecha = "";
   // BA.debugLineNum = 30;BA.debugLine="Try";
   try { // BA.debugLineNum = 31;BA.debugLine="fecha=Mi_BD.ExecQuerySingleResult(\"SELECT
     // datetime(CURRENT_TIMESTAMP,'localtime')\")";
     _fecha = _mi_bd.ExecQuerySingleResult("SELECT datetime(CURRENT_TIMESTAMP,'localtime')");
   } catch (Exception e23) {
     (_ba.processBA == null ? _ba : _ba.processBA)
         .setLastException(
             e23); // BA.debugLineNum = 33;BA.debugLine="Log(\"catch ERROR INSERT INTO REVIEW:
     // \"&LastException.Message)";
     anywheresoftware.b4a.keywords.Common.Log(
         "catch ERROR INSERT INTO REVIEW: "
             + anywheresoftware.b4a.keywords.Common.LastException(_ba).getMessage());
   }
   ;
   // BA.debugLineNum = 36;BA.debugLine="Try";
   try { // BA.debugLineNum = 37;BA.debugLine="Mi_BD.ExecNonQuery2(\"INSERT INTO REVIEW
     // (titulo,nota,tipo,fecha_registro) VALUES (?,?,?,'\"&fecha&\"')\", Array As
     // Object(titulo,nota,tipo))";
     _mi_bd.ExecNonQuery2(
         "INSERT INTO REVIEW (titulo,nota,tipo,fecha_registro) VALUES (?,?,?,'" + _fecha + "')",
         anywheresoftware.b4a.keywords.Common.ArrayToList(
             new Object[] {(Object) (_titulo), (Object) (_nota), (Object) (_tipo)}));
   } catch (Exception e28) {
     (_ba.processBA == null ? _ba : _ba.processBA)
         .setLastException(
             e28); // BA.debugLineNum = 39;BA.debugLine="Log(\"catch ERROR INSERT INTO REVIEW:
     // \"&LastException.Message)";
     anywheresoftware.b4a.keywords.Common.Log(
         "catch ERROR INSERT INTO REVIEW: "
             + anywheresoftware.b4a.keywords.Common.LastException(_ba).getMessage());
   }
   ;
   // BA.debugLineNum = 41;BA.debugLine="End Sub";
   return "";
 }