Sw ELA GEST OLIVETTI

giovedì 07 aprile 2011 - 11.37
Tag Elenco Tags  VB.NET  |  .NET 2.0  |  Windows XP  |  Visual Studio Express

piegapaura78 Profilo | Newbie

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

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

piegapaura78 Profilo | Newbie

sei riuscito ad importare i file ocx?

piegapaura78 Profilo | Newbie

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

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

alberto_righeschi Profilo | Newbie

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

Ciao,
sapresti dirmi dove posso scaricare gli ocx e i manuali d'uso? Dal sito Olivetti non riesco a trovare nulla
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 !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5