la cassa è collegato con il cavo RS232 ma volevo sapere come fare se quando sarà collegata con il cavo LAN
mi hanno spiegato di creare un file denominato scontrino.txt
perchè il software andrebbe a ricercare questo file se esiste nella cartella e crea lo scontrino
nel file scontrino.txt come deve essere creato ?
Esempio di scontrino
- Code: Select all Expand view
- ; Esempio di scontrino di vendita inviato ad ECR mediante WINECRCOM
; -----------------------------------------------------------------
CHIAVE REG ;conferma che la cassa si trovi in assetto REGistrazione
VEND REP=1,PREZZO=0.20 ;vendita semplice a reparto 1
VEND REP=2,QTY=6,PREZZO=0.25 ;vendita su reparto con quantita' non unitaria
VEND REP=3,PRE=0.30,DES='CANCELLERIA' ;vendita su reparto con descrizione
PERCA ALI=50, SUBTOT ;Sconto del 50% sul subtotale
CHIUS T=1 ;Chiusura in contanti
;fine file scontrino
ma io in fwh come faccio a fare questo file e poi ho gli articoli e i prezzi in un'altro modo
ho trovato un esempio in VB6
- Code: Select all Expand view
- Private Sub ditron()
Dim Ris As Long
Dim comando As String, Result As String
If SysCmd(acSysCmdRuntime) Then On Error GoTo ditron_Error
comando = "PORT = 1"
Ris = CoEcrCom1.Open(comando)
If Ris = 0 Then
CoEcrCom1.EventMask = 32 + 64 + 128
CoEcrCom1.OutEditOptions = 0
CoEcrCom1.EnableTradDC = False
CoEcrCom1.OperatingMode = 0
comando = "SETP CURDIR='" & gRamDrv & "' "
Ris = CoEcrCom1.EcrCmd(comando, Result)
Ris = 1
While Ris <> 0
comando = "@ scontr.ecr, ERRORI.TXT" ' richiama il file di testo creato prima . Se ci sono errori li trovi nel file ERRORI.TXT
Ris = CoEcrCom1.EcrCmd(comando, Result)
If Ris Then
If MsgBox("errore cassa: " & Ris & ". Continuo", vbCritical + vbYesNo, gProgramma) = vbNo Then Ris = 0
End If
Wend
Ris = CoEcrCom1.Close()
End If
exit_here:
On Error GoTo 0
Exit Sub
