FiveTech Software tech support forums

Code: Select all | Expand

; 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

Code: Select all | Expand

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

Code: Select all | Expand

* ------------------------------------------------------- GSCONTR
STATIC FUNCTION GScontr( )
LOCAL cExec :=  "STASCO.BAT",;
            fTmp :=  "INPUT.TXT"

LOCAL cRiga := ""

LOCAL cA, cP := "", cQ,  cR,  nP

LOCAL cRep := ""

LOCAL  cCP := "1"   // Default Contanti

* --- Determina Tipo Pagamento
*  Contanti
 cCP := "1"

*  Pos / Bancomat
 cCP := "3"

* --- Inizio Creazione Testo per Scontrino Fiscale
cRiga := "CLEAR" + CHR(13) + CHR(10)
cRiga += "CHIAVE REG" + CHR(13) + CHR(10)

* --- File o Vettore/Array con I Dati Che Interessano
* In Questo Caso File XAPP_03
*
XAPP_03->( DBGOTOP() )
DO WHILE !XAPP_03->( EOF() )

   IF XAPP_03->DOC_QTA > 0      // Se Quantita' > 0

         nIva := ALLTRIM( STR(XAPP_03->IVA_PERC) )  // Trasformo Iva in Stringa 

         * --- Punta su Articolo
         * WinEcr Limita La Descrizione a 20 Caratteri, se Supporta si più Aumentare il 20
         *
         * ----- Descrizione
         cA := UPPER(LEFT(ALLTRIM(XAPP_03->ART_DESC),20) )

         * Tolgo Caratteri Strani
         cA := STRTRAN( cA, ['], SPACE(1) )
         cA := STRTRAN( cA, ["], SPACE(1) )
         cA := STRTRAN( cA, [,], SPACE(1) )
         cA := STRTRAN( cA, ".", SPACE(1) )
         cA := STRTRAN( cA, "ø", SPACE(1) )
         cA := STRTRAN( cA, "!", SPACE(1) )
         cA := STRTRAN( cA, "*", SPACE(1) )
         cA := STRTRAN( cA, "+", SPACE(1) )
         cA := STRTRAN( cA, "-", SPACE(1) )
         cA := STRTRAN( cA, "/", SPACE(1) )
         cA := STRTRAN( cA, "", SPACE(1) )
         cA := STRTRAN( cA, "|", SPACE(1) )
         cA := STRTRAN( cA, "&", SPACE(1) )
         cA := STRTRAN( cA, "%", SPACE(1) )
         cA := STRTRAN( cA, "…", "A" )
         cA := STRTRAN( cA, "Š", "E" )
         cA := STRTRAN( cA, "‚", "E" )
         cA := STRTRAN( cA, "", "I" )
         cA := STRTRAN( cA, "•", "O" )
         cA := STRTRAN( cA, "—", "U" )

         * ----- Reparto
         cRep := ALLTRIM( XAPP_03->PLU )

         * ----- Prezzo Vendita
         nP  := XAPP_03->PRE_VEN
   
         IF nP <> 0     // se Prezzo > 0
             nP := ROUND(nP, 2)

            * --- Serve il . nel Prezzo come Separatore Decimali - Trasformo in Stringa
             cP := ALLTRIM( STR(nP) )

             * ----- Quantita'
             cQ := ALLTRIM(TRANSFORM(XAPP_03->DOC_QTA,"9999.99"))
             cQ := STRTRAN( cQ, ",", "." )

              * Reparto Obbligatorio se Non Previsto nel File/Vettore Metto 1
              IF EMPTY( cRep )
                   cR := "1"
               ELSE
                   cR := PADR( LEFT(cRep,1) ,1, "")     // Allineato se Superiore ad 1 Carattere
               ENDIF
      
               * Costrizione Riga Scontrino

               cRiga += "VEND REP=" + cR + "," +;
                                "QTY="      + cQ + "," +;
                                "PRE="      + cP + "," +;
                                "DES="      + CHR(39) + cA + CHR(39) +;
                                CHR(13) + CHR(10)


        ENDIF
   ENDIF
   XAPP_03->( DBSKIP() )
ENDDO

* --- a Questo Punto la Stringa cRiga Contiene La Parte Iniziale  Tante Righe Quante Sono gli Articoli

 * --- SubTotale
 cRiga += "SUBTOT" + CHR(13) + CHR(10)
 cRiga += "CHIUS T=" + cCP

* --- Genera File Esterno ASCII

FERASE( fTmp )

* --- Adatta con le funzioni di Harbour
dfFCreate( fTmp )
dfFAppend( cRiga )

dfFClose()

* ----- Esegue Programma Esterno
IF FILE( cExec )
   dfSwap(cExec)        // Adatta con il tuo comando di essecuzione
ELSE
   dbMsgW("Batch " + cExec + " Non Esiste")
ENDIF

RETURN NIL