Newsgroup: it.comp.appl.access
Titolo: vba e WinEcrConf

salve a tutti
 
di solito per stampare scontrini da gestionale a registratore di cassa 
ho sempre usato il protocollo xon-xof inviando e leggendo dati 
direttamente sulla seriale
 
ad un cliente hanno fornito un modello di registratore Ditron 
collegabile solo con cavo di rete e non seriale
ed hanno installato il software WinEcrConf
 
qui lo screen
https://ibb.co/swkPM4G
 
 
senza alcuna documentazione e supporto a riguardo in quando "non di loro 
competenza"
 
qualcuno conosce questo software?
mi aspettavo di inviare i miei soliti comandi alla com1 e che questo 
facesse la conversione e lo mandasse alla ethernet del registratore ma 
nulla.
 
a corredo c'è pure questo software senza una minima documentazione
https://ibb.co/7Sw5nz1
 
 
se non ricordo male qualcuno aveva gestito la stampa scontrino tramite 
la creazione di txt da inviare alla com. era per caso con questo tipo di 
registratore?
 
grazie
BFS
 
 

scarica questo  "
shadoware.it/SetupWinEcrCom_3.0.26.zip
"
 
ci trovi il manuale e qualche esempio.
 
nel tuo programma devi inserire il riferimento ocx a coEcrCom


ottimo grazie
 

Il 17/12/2020 12:27, 
shad...@gmail.com
 ha scritto:

Porta pazienza ma non trovo nella documentazione la spiegazione dei 
metodi dell'ocx
 
è installato correttamente infatti con un
Me.CoEcrCom0.AboutBox
mi appare la dialog box della licenza
 
per stampare uno scontrino mi aspetterei  qualcosa del tipo
 
Me.CoEcrCom0.Open (qui non so cosa inserire...forse COM1 o 1  o port 1)
'qui non so quale metodo per inviare il comando di vendita
Me.CoEcrCom0.Close
 
 
hai uno straccio di esempio?
 
grazie
BFS

 
lancia start/ditron/winEcrConf
con "winEcrConf" configuri i parametri del registratore
porta logica com/rete ecc...
 
 
crea un file di testo con di dati vendita,   es. "scontr.ecr"
 
; Esempio di scontrino di vendita inviato ad ECR mediante WINECRCOM
; -----------------------------------------------------------------
 
CLEAR        				;preme il tasto C
 
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
 
 
dal programma usa la seguente  semplice sub  per stampare lo scontrino 
 
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
 
ditron_Error:
 
'  ErrorLog err.Number, err.Description, 0, "Form_frmTouch", "ditron"
 
 Resume exit_here
 
End Sub
 


lunedi provo
graze infinite
 
BFS

 
 
 
non va
sia con il tuo codice che con il demo che hanno inserito loro ottengo 
sempre l'errore
 
ERRORE 0/14 : ERRORI DURANTE L'ESECUZIONE DEL BATCH
 
sia collegandolo in seriale che in rete
 
la connessione la fa, ma il comando di invio del file da errore
 
https://ibb.co/2gMP3Ws
 
 
ho tentatato tutte le configurazini possibili di protocolli ma nulla
qualche idea?
BFS
 

hai abilitato il registratore di cassa  ad accettare i comandi da rete o seriale?

 
 
si spero, mi sono attenuto alle indicazioni del produttore
 
sia tramite rs232 sia in modalità host pc
al termine della procedura di programmazione digito 101+totale per 
metterlo online. il loro demo fa la connessione ma non elabora i comandi
 
ma nulla
 
 
ho pure provato con la sequenza trovata online per abilitare sarema e 
rendermi indipendente dal loro driver e usare direttamente la seriale
 
1)       Digitare 4 + Chiave + 9 + Subtotale + Totale
 
2)      Scorrere con il tasto Subtotale le varie opzioni fino ad 
Xon/Xoff e confermare con Totale
 
3)      Impostare come protocollo 40185 (corrisponde a 9600 – No Parity 
– 1 StopBit – 8 Bit per Carattere) e confermare
 
4)      Impostare il valore “0” (corrisponde a Xon/Xoff Sarema) e confermare
 
5)      Lasciare a “0” le opzioni e confermare
 
6)      Premere 2 volte sul tasto Credito/Fine per uscire dalla 
programmazione
 
7)      Digitare 101 + Totale per abilitare la comunicazione
 
 
ma nulla da fare
la porta si apre ma al primo comando...errore
 
sicuramente manca qualcosa da abilitare
 
 
BFS