Ciao a tutti,
ho realizzato una soluzione per gestire le richieste dei clienti, le attività e l'ubicazione del personale esterno.
La soluzione è aperta a possibili integrazioni di terzi..(voi?)
La soluzione utilizza:
-server virtuale AMAZON raggiungibile a questo link: www.mardomcat.it
-app MARDOM STAC (B4A) (link)
-app CUSTOMER SUPPORT (B4I e B4A) customizzabile dal server, da dare ai clienti finali (link apple link android)
Tutti e tre gli ambienti (server e apps) utilizzano GOOGLE DATASTORE come repository dei dati.
		
		
	
	
		 
	 
Per chi fosse interessato la soluzione è "semi aperta" ovvero la soluzione è in grado di recepire i dati che
arrivano da altre app.
I dati inviati al server possono essere consultati direttamente sul portale www.mardomcat.it
il protocollo per inviare i dati con una propria app è il seguente:
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
Prima di inviare i dati occorre registrarsi con un proprio account sul portale.
grazie per l'attenzione.
ciao a tutti
ps
chi vuole può contattarmi anche via PM
UPDATE-1 analisi della risposta del server
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			ho realizzato una soluzione per gestire le richieste dei clienti, le attività e l'ubicazione del personale esterno.
La soluzione è aperta a possibili integrazioni di terzi..(voi?)
La soluzione utilizza:
-server virtuale AMAZON raggiungibile a questo link: www.mardomcat.it
-app MARDOM STAC (B4A) (link)
-app CUSTOMER SUPPORT (B4I e B4A) customizzabile dal server, da dare ai clienti finali (link apple link android)
Tutti e tre gli ambienti (server e apps) utilizzano GOOGLE DATASTORE come repository dei dati.
Per chi fosse interessato la soluzione è "semi aperta" ovvero la soluzione è in grado di recepire i dati che
arrivano da altre app.
I dati inviati al server possono essere consultati direttamente sul portale www.mardomcat.it
il protocollo per inviare i dati con una propria app è il seguente:
			
				B4X:
			
		
		
		  'Struttura del campo messaggio:
    'LLL        >>  3 caratteri numerici indica la lunghezza del campo seguente
    'TIPO CAMPO >>  1 CARATTERE NUMERICO (valori ammessi 0-4)
    'LLL        >>  3 caratteri numerici indica la lunghezza del campo seguente
    'NOME CAMPO >>  nome del campo
    'LLL        >>  3 caratteri numerici indica la lunghezza del campo seguente
    'DATI      >>  contenuto del campo
    'legenda TIPO CAMPO
    '0 stringa
    '1 numero
    '2 data
    '3 ora
    '4 barcode
' nota: il messaggio può essere ripetuto n volte con dati diversi all'interno dello stesso blocco d'invio.
'Ovvero: .."par3", messaggio1 & messaggio2 & messaggio3, "par4"...
    job4.Initialize("richiestasup1",Me)
    Dim user As String="miouser"
    Dim passwordOperatore As String ="miapassword"
    Dim dataCorrente As String="21/09/2017"
    Dim oraCorrente As String="14:54"
    Dim codiceCliente As String="xxxx"
    Dim headerMessaggio As String="xxxxx"
    Dim messaggio As String="xxxxx"
    Dim nomeApp As String="nome della tua app"
    job4.Download2("http://mardomstac1.appspot.com/", Array As String("par0", "richiestasup1", _
    "par1",    user, "par2", passwordOperatore,"par3", messaggio,"par4", dataCorrente, _
    "par5", oraCorrente,"par6",codiceCliente,"par7",nomeApp,"par8",headerMessaggio))Prima di inviare i dati occorre registrarsi con un proprio account sul portale.
grazie per l'attenzione.
ciao a tutti
ps
chi vuole può contattarmi anche via PM
UPDATE-1 analisi della risposta del server
			
				B4X:
			
		
		
		Sub jobdone (job As HttpJob)
Select job.JobName
 
Case "richiestasup1"
    Dim rispostaDelServer As String=""
    Dim identificativoMessaggio As String=""
    If job.Success = True Then 
        If job.GetString.Length >= 3 Then        rispostaDelServer       = job.GetString.SubString2(0,3)
        If job.GetString.Length >  3 Then        identificativoMessaggio = job.GetString.SubString(3)
    End If
    If rispostaDelServer ="101" Then
        Log("ERRORE: user o password errati")
    End If
    If rispostaDelServer ="" Then
        Log("ERRORE GENERICO")
    End If
    If rispostaDelServer ="100" Then
        Log("identificativo univoco del messaggio inviato:" &identificativoMessaggio)
    End If
End Select
End Sub
			
				Last edited: 
			
		
	
								
								
									
	
								
							
							 
				 
 
		 
 
		 
 
		
 
 
		 
 
		 
 
		 
 
		