Sostituisci con questi
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
Nota: ho solo copiato il tuo codice sistemando gli errori sintattici ma essendomi servito solo dell'editor del forum non è che sia necessariamente funzionante senza qualche altro ritocco (magari ci sono due statement sulla stesas riga, non so; comunque l'editor te lo segnala e li sistemi facilmente).
Nota2: se fallisce la INSERT pubblica il risulatato di Log(query); è lì che si vede cosa viene passato al PHP
Nota3: se commentando la query derivata dai campi ne inserisci una di prova con valori di test e neanche quella funziona, allora hai un problema nel PHP
			
			
			
				B4X:
			
		
		
		Sub Fetchinserimento
Dim scassaobanca As String
Dim query AsString
If RadioButton1.Checked = True Then
   scassaobanca = "cassa"
Else
   scassaobanca ="banca"
End If
entrata = "entrata"
'query di test
'query=$"INSERT INTO librocontabile (data,descrizione,cassabanca,entratauscita,categoria,euro) 'VALUES ('2017-03-21','una descrizione','cassa','entrata','Utenze','123.45');"$
'query da form
query=$"INSERT INTO librocontabile (data,descrizione,cassabanca,entratauscita,categoria,euro) VALUES ('${EditText7.text}','${EditText8.text}','${scassaobanca}','${entrata}','${Spinner3.GetItem}','${EditText9.text}');"$
Log(query)
ExecuteRemoteQuery(query,"inserisci")
End Sub
Sub JobDone(Job AsHttpJob)
ProgressDialogHide
If Job.Success Then
   Dim res As String
   res = Job.GetString
   Log("Response from server: " & res)
   Dim parser As JSONParser
   parser.Initialize(res)
  Select Job.JobName
     Case "entrate"
        Dim COUNTRIES As List
        COUNTRIES = parser.NextArray
        For i = 0 To COUNTRIES.Size - 1
           Dim m As Map = COUNTRIES.Get(i)
           Dim tl As TwoLines
           tl.First = m.Get("data")
           tl.Second = m.Get("euro")
           ListView1.AddTwoLines2(tl.First, tl.Second, tl)
       Next
    Case "uscite"
        Dim COUNTRIES As List
        COUNTRIES = parser.NextArray
        For i = 0 To COUNTRIES.Size - 1
          Dim m As Map = COUNTRIES.Get(i)
          Dim tl As TwoLines
          tl.First = m.Get("data")
          tl.Second = m.Get("euro")
          ListView2.AddTwoLines2(tl.First, tl.Second, tl)
        Next
    Case "inserisci"
  End Select
Else
  Log(Job.ErrorMessage)
  ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
	Nota: ho solo copiato il tuo codice sistemando gli errori sintattici ma essendomi servito solo dell'editor del forum non è che sia necessariamente funzionante senza qualche altro ritocco (magari ci sono due statement sulla stesas riga, non so; comunque l'editor te lo segnala e li sistemi facilmente).
Nota2: se fallisce la INSERT pubblica il risulatato di Log(query); è lì che si vede cosa viene passato al PHP
Nota3: se commentando la query derivata dai campi ne inserisci una di prova con valori di test e neanche quella funziona, allora hai un problema nel PHP