Commit inicial

B4A/Snippets/beginTransaction.txt

@@ -0,0 +1,8 @@
+Starter.skmt.BeginTransaction
+For Each records() As Object In $result$.Rows
+	Log($"COL: ${$result$($result$.Columns.Get("$dbCol$"))}, VALUE: ${records($result$.Columns.Get("$dbCol$"))}"$)
+	Dim $dbCol$ As String = $result$($result$.Columns.Get("$dbCol$"))
+	Starter.skmt.ExecNonQuery2($"$sql_statement$"$)
+Next
+Starter.skmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!!
+Starter.skmt.EndTransaction

B4A/Snippets/case.txt

@@ -0,0 +1,8 @@
+Select $var$
+	Case $val1$
+		$do_something1$
+	Case $val2$
+		$do_something2$
+	Case Else
+		$do_something3$
+End Select

B4A/Snippets/createMap.txt

@@ -0,0 +1 @@
+Private $var$ As Map = CreateMap("$par1$":$val1$, "$par2$":$val2$)

B4A/Snippets/csBuilder.txt

@@ -0,0 +1,3 @@
+Dim cs As CSBuilder
+cs.Initialize
+$var$ = cs.Color(Colors.red).append(elTexto).Popall

B4A/Snippets/execNonQuery.txt

@@ -0,0 +1 @@
+Starter.skmt.ExecNonQuery($"$sql_sattement$"$)

B4A/Snippets/execQuery.txt

@@ -0,0 +1 @@
+$cursor$ = Starter.skmt.ExecQuery("$sql_statement$")

B4A/Snippets/for.txt

@@ -0,0 +1,4 @@
+'Iterates with respect to keys in a map.
+For Each $varName$ As String In $mapName$.Keys
+	$end$
+Next

B4A/Snippets/logJobDone.txt

@@ -0,0 +1,6 @@
+For Each records() As Object In $resultado$.Rows
+	LogColor($"====== ${$resultado$.Tag} - REGISTROS = ${$resultado$.Rows.Size}"$, Colors.RGB(215,37,0))
+	For Each k As String In $resultado$.Columns.Keys
+		LogColor(k & " = " & records($resultado$.Columns.Get(k)), Colors.RGB(215,37,0))
+	Next
+Next

B4A/Snippets/select.txt

@@ -0,0 +1,8 @@
+Select $var$
+	Case $val1$
+		$do_something1$
+	Case $val2$
+		$do_something2$
+	Case Else
+		$do_something3$
+End Select

B4A/Snippets/while.txt

@@ -0,0 +1,3 @@
+Do While $condicion$
+	$end$
+Loop