Sw ELA GEST OLIVETTI

giovedì 07 aprile 2011 - 11.37

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET | .NET 2.0 | Windows XP | Visual Studio Express

piegapaura78 Profilo | Newbie

8 messaggi | Data Invio: gio 7 apr 2011 - 11:37

sto sviluppando un applicativo per un ristorante, la parte di raccolta dati e quella di archiviazione è tutta completata, devo interfacciarmi con un registratore di cassa NETTUNA500 della olivetti per poter stampare scontrini e ricevute.
sono riuscito ad importatare nel mio progetto i file.OCX che olivetti da per gestire in modo facile le comunicazioni seriali, ma non riesco ad applicare medoto DevOpen (Device as Object) As DevStat di APPcontrol.....mi servirebbe un piccolo aiuto con qualche esempio se qualcuno ha avuto il mio stesso problema
ringrazio in anticipo

lsgoffice Profilo | Newbie

19 messaggi | Data Invio: mar 5 lug 2011 - 14:43

Ciao, anche io ho lo stesso problema, tu per caso lo hai risolto?
Grazie mille
Luca

piegapaura78 Profilo | Newbie

8 messaggi | Data Invio: mar 5 lug 2011 - 15:23

sei riuscito ad importare i file ocx?

piegapaura78 Profilo | Newbie

8 messaggi | Data Invio: mar 5 lug 2011 - 15:25

ecco di seguito il testo che ho usato.....non ho fisicamente collegato il registratore di cassa, devo finire il programma, ma dalla seriale ho visto uscire delle stringhe
questo è una bozza di prova che ho usato per vedre se mi dava errori nella compilazione il programma!

Imports BoxObjects
Imports APPCntrl

Public Class Form1
Public BoxC1 As New BoxC

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' L’ECR è collegato alla COM4.
BoxC1.CommPort = 4
' Imposta le caratteristiche della connessione
BoxC1.CommSettings = "9600,n,8,1"
' Apre la porta di comunicazione.
BoxC1.CommOpen = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BoxC1.CommOpen = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'VENDITA
Dim r As DevStat, TipoOperazione As Integer, NumeroDoc As String = Nothing
Dim DataDoc As String = Nothing, TipoPagamento As Integer, Numero As Integer
Dim Importo As String = Nothing

r = cassa.DevOpen(BoxC1)
If r <> 0 Then
'--------- Gestione messaggio di errore o warning
Form2.ShowDialog()
End If

'----------- Apertura scontrino per vendita
TipoOperazione = 1
NumeroDoc = ""
DataDoc = ""
r = cassa.App_AperturaScontrino(TipoOperazione, NumeroDoc, DataDoc)
If r <> 0 Then
'--------- Gestione messaggio di errore o warning
Form2.ShowDialog()
End If
'---------- Vendita su Reparto , REP 1 , su listino 1

Dim Operazione As String = Nothing, TipoBCR As String = Nothing, Num As String = Nothing
Dim Listino As String = Nothing, TipoDiVendita As String = Nothing, Descrittore As String = Nothing
Dim Imp As String = Nothing, Q1 As String = Nothing, Q2 As String = Nothing
Dim Q3 As String = Nothing, Q4 As String = Nothing, Qt As String = Nothing, Qv As String = Nothing
Operazione = 1
Num = "1"
Listino = 1
r = cassa.App_Vendita(Operazione, TipoBCR, Num, Listino, TipoDiVendita, _
Descrittore, Imp, Q1, Q2, Q3, Q4, Qt, Qv)
If r <> 0 Then
'--------- Gestione messaggio di errore o warning
Form2.ShowDialog()
End If
'------------ Pagamento in contanti (valuta = euro)
TipoPagamento = 1
Numero = 1
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
BoxC1.CommOpen = True
End Sub
End Class

ynnan Profilo | Newbie

1 messaggi | Data Invio: gio 4 set 2014 - 16:50

oooh grazie per il codice, avevo un errore nell'importo dell'ocx box

alberto_righeschi Profilo | Newbie

1 messaggi | Data Invio: mar 23 set 2014 - 20:29

Sono in parte riuscito a far funzionare l'ocx con vb10 ma ho la necessità di conoscere il numero di scontrino emesso, è un dato essenziale per il gestionale, senza questo dato tutto il resto è inutile, qualcuno conosce mica la strada per arrivare a quel dato? ho letto e riletto le specifiche del'ocx senza arrivare al dato che mi serve.

PS
grazie del codice, mi è stato molto d'aiuto a comprenderne il funzionamento

Daniels118 Profilo | Newbie

1 messaggi | Data Invio: mer 9 ago 2017 - 13:53

Ciao,
sapresti dirmi dove posso scaricare gli ocx e i manuali d'uso? Dal sito Olivetti non riesco a trovare nulla

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !