Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Post - domenico

Pagine: [1] 2 3
1
Programmazione / Inviare mail con 2 o più allegati
« il: 02 Dicembre 2019, 15:36:18 »
Salve ragazzi. Ho un problema. Non riesco ad allegare più di un documento nelle mail. Ho fatto svariate prove ma mi carica sempre e solo un allegato. Vi allego il codice
Codice: [Seleziona]
 ''****PER thunderbird  
     comandomail = "thunderbird -compose to='"
     comandomail &= destinatario
     comandomail &= "',subject='"
     comandomail &= oggetto
     comandomail &= "',body='"
     comandomail &= corpo
   
   
     If allegato = "no" Then
     comandomail &= "'"
     Else
     comandomail &= "',attachment='"
     comandomail &= allegato
     End If
     
     If allegato1 = "no" Then
     comandomail &= "'"
     Else
     comandomail &= ","
     comandomail &= allegato1 & "'"
     End If

Potete aiutarmi? Grazie in anticipo

2
Programmazione / Re:lettura dati da tessera sanitaria e carta di identità digitale
« il: 23 Agosto 2019, 13:50:05 »
Ragazzi scusate per la mia assenza e grazie per le risposte che avete postato! Non so proprio come procedere. sto cercando in tutti i modi di far funzionare il lettore ma non va e quindi mi sono bloccato prima ancora di partire. Appena riesco a concludere qualcosa vi aggiorno immediatamente! ;)

3
Programmazione / Re:lettura dati da tessera sanitaria e carta di identità digitale
« il: 19 Agosto 2019, 00:08:48 »
Effettivamente, quello che mi serve è risalire in un modo o nell'altro ai dati delle tessere. Ho provato con il lettore di codici a barre e, non so se per un mio errore, ma il risultato della lettura, sia della tessera sanitaria che della carta di identità, è solamente il codice fiscale. Ho provato a leggere i dati come suggerito da Gainluigi ma non riesco a leggerli perchè il sistema no rileva il lettore e nel Gnome Virtual File System non c'è nulla.  :hatecomputer:

4
Programmazione / lettura dati da tessera sanitaria e carta di identità digitale
« il: 18 Agosto 2019, 10:15:14 »
Buongiorno a tutti. Sono alle prese con un gestionale e sto cercando di scaricare in una textarea i dati letti da un lettore smart card della trust. Ho effettuato molte ricerche ma senza nessun risultato. Qualcuno di voi ha già affrontato l'argomento? è una cosa fattibile? Grazie in anticipo!

5
Programmazione / Re:PDF Writer - Stampa nell'ultima pagina
« il: 09 Marzo 2017, 09:29:26 »
Grazie 1000 ragazzi. Ho risolto il problema! ;D ;D ;D

6
Programmazione / Re:PDF Writer - Stampa nell'ultima pagina
« il: 02 Marzo 2017, 10:01:00 »
Buongiorno. In pratica la parte che ho indicato sotto ( DA DOVE È COMMENTATO INIZIO PARTE INTERESSATA), la inserisce in ogni pagina ma vorrei la inserisse solo nell'ultima

Codice: [Seleziona]
Public Function Data()
  Dim NrecPieni As Integer
  Dim NrecTot As Integer
  Dim n, k As Integer
  Dim Nca, Nca1 As Integer
  Dim sqlr, sqlrp As String
  Dim MyRSR, MyRSP As Result
  Dim Pqua, Pimp, Ptot, Psco As String
  Dim Fpaga, Fbanc, Fiban, IdPag, Mtex As String
  
  Dim Nfat, Fa1, Fa2 As String
  Dim MT As String
  Dim $Impor As String
 Dim r As Integer
 Dim iDecimali As Integer

  Nfat = fatture.TextArea1.text
  
  If Nfat Then
    nca = InStr(Nfat, "\n")
      If nca > 0 Then
        Fa1 = Mid(Nfat, 1, nca - 1)
        Fa2 = Mid(Nfat, nca)
      Else
        If Len(Nfat) > 62 Then
          Fa1 = Mid(Nfat, 1, InStr(Nfat, " ", 58))
          Fa2 = Mid(Nfat, Len(Fa1) + 1)
        Else
          Fa1 = Nfat
        Endif
      Endif
    Endif
  
  nca = 0
  
  idpag = Fatture.TextBox6.text
  
  sqlrp = "SELECT * FROM pagamenti WHERE pagamento LIKE '%" & idpag & "'"
  
  MyRSP = MODMain.MyConn.Exec(sqlrp)
  
 If MyRSp.Available Then
  fpaga = MyRSP!pagamento
  
  If Fpaga And InStr(Fpaga, "(") Then Fpaga = Mid(Fpaga, 1, InStr(Fpaga, "(") - 1)
  
  Mtex = MyRSP!testo
  
  If UCase(fpaga) = "OMAGGIO" Then
    
    If Mtex Then
    nca = InStr(Mtex, "\n")
    
        If nca > 0 Then
            Fpaga = Fpaga & "  -  " & Mid(mtex, 1, nca - 1)
            nca1 = InStr(Mtex, "\n", nca + 1)
           Fbanc = Mid(mtex, nca, nca1 - nca)
           Fiban = Mid(mtex, nca1)
        Else   
           
            If Len(mtex) > 62 Then
                Fpaga = Fpaga & "  -  " & Mid(mtex, 1, InStr(mtex, " ", 46))          
                fbanc = Mid(mtex, (Len(fpaga) - 11), InStr(mtex, " ", 104) - (Len(fpaga) - 11))
                Fiban = Mid(mtex, Len(fbanc) + (Len(fpaga) - 10))
            Else          
                Fbanc = mtex
            Endif
       
        Endif
        
    Endif

 Else

       If Mtex Then
           nca = InStr(Mtex, "\n")
           
             If nca > 0 Then
                Fbanc = Mid(mtex, 1, nca - 1)
                Fiban = Mid(mtex, nca)
             Else
                   If Len(mtex) > 62 Then
                      fbanc = Mid(mtex, 1, InStr(mtex, " ", 58))
                      Fiban = Mid(mtex, Len(fbanc) + 1)
                   Else
                      Fbanc = mtex
                   Endif
             Endif
        Endif
 
 Endif
 Endif
  
  nca = 0
    
  sqlr = "SELECT * FROM riffatture WHERE idfatture = '" & fatture.IdRec & "'"
  
   MyRSR = MODMain.MyConn.Exec(sqlr)
   If MyRSr.Available Then
   NrecPieni = MyRSR.Count
   MyRSR.MoveFirst
 
  If NrecPieni < 21 Then  
    NrecTot = 20
    maxp = 1
    Else If NrecPieni < 54 Then   '
    NrecTot = 53
    maxp = 2
    Else If NrecPieni < 87 Then
    NrecTot = 86
    maxp = 3
    Else If NrecPieni < 120 Then
    NrecTot = 119
    maxp = 4
    Else If NrecPieni < 153 Then
    NrecTot = 152
    maxp = 5
    Else If NrecPieni < 186 Then
    NrecTot = 185
    maxp = 6
    Else If NrecPieni < 219 Then
    NrecTot = 218
    maxp = 7
    Else If NrecPieni < 252 Then
    NrecTot = 251
    maxp = 8
    Else If NrecPieni < 285 Then
    NrecTot = 284
    maxp = 9
    Else If NrecPieni < 318 Then
    NrecTot = 317
    maxp = 10
    Else If NrecPieni < 351 Then
    NrecTot = 350
    maxp = 11
    Else If NrecPieni < 384 Then
    NrecTot = 383
    maxp = 12
    Else If NrecPieni < 417 Then
    NrecTot = 416
    maxp = 13
    Else
    Message.Error("raggiunto il numero massimo di pagine consentite")
    End If
  
  Me.AddPage()
  Me.Bookmark("Page 1")
  
  Me.SetXY(10, 70)

    Me.Ln()
    
    Me.SetFont("Arial", "", 10)
    Me.SetFillColor(245, 245, 245)

    'inizo parte database ----------------------------------
    
    For n = 1 To NrecPieni 
    
      If MyRSR!quantita > 0 Then
            Pqua = Format(MyRSR!quantita, "#####0")
       Else
            Pqua = Null
      Endif

   If MyRSR!prezzo > 0 Then
   
   $Impor = CFloat(MyRSR!prezzo)
   r = InStr($Impor, ".")
   iDecimali = Len($Impor) - r
         
      If iDecimali < 2 Or r = 0 Then iDecimali = 2
      
      Select iDecimali
          Case 2
             Pimp = Format(MyRSR!prezzo, "#####0.00")
          Case 3
             Pimp = Format(MyRSR!prezzo, "#####0.000")
          Case 4
             Pimp = Format(MyRSR!prezzo, "#####0.0000")
          Case 5
             Pimp = Format(MyRSR!prezzo, "#####0.00000")
          Case 6
             Pimp = Format(MyRSR!prezzo, "#####0.000000")
      End Select

   Else
   pimp = Null
   Endif
   
   If MyRSR!sconto > 0 Then
            Psco = Format(MyRSR!sconto, "#####0.00")
       Else
            Psco = Null
      Endif
   
   If MyRSR!subtotale > 0 Then
   Ptot = Format(MyRSR!subtotale, "#####0.00")
   Else
   Ptot = Null
   Endif
    
    Me.Cell(30, 6, MyRSR!codice, False, 0, "C", False)
    Me.Cell(13, 6, Pqua, False, 0, "C", False)
    Me.Cell(95, 6, MyRSR!descrizione, False, 0, "L", False)
    Me.Cell(17, 6, Pimp, False, 0, "C", False)
    Me.Cell(15, 6, Psco, False, 0, "C", False)
    Me.SetFillColor(245, 245, 245)
    Me.Cell(20, 6, Ptot, True, 0, "C", True)
    MyRSR.MoveNext
      Me.Ln()
    Next
    
    If fatture.TextBox5.Text Then ccor = "Consegna: " & UCase(fatture.TextBox5.Text)
    'fine parte database ----------------------------------
   
    If NrecTot > NrecPieni Then
    
    For k = NrecPieni To NrecTot - 1
    Me.Cell(33, 6,, False, 0, "L", False) 
    Me.Ln()
    Next
    
    Endif

    ' INIZIO PARTE INTERESSATA

    Me.Ln() '8
             
   Me.Cell(120, 22, "", True, 0, "", False)
    Me.Ln(-3)
    Me.SetX(20)
    Me.SetFillColor(255, 255, 255)                                                                
    Me.SetFont("Arial", "I", 11)
    Me.Cell(45, 6, "Modalita' di Pagamento", False, 0, "C", True)
    Me.SetFont("Arial", "", 10)
    
   Me.Ln()
    Me.SetX(12)                                                                                      
    Me.Cell(116, 6, fpaga, False, 0, "L", False)
    
    Me.Ln(-4)
    Me.SetX(126)
    Me.Cell(15, 6, "", False, 0, "L", False) 'spinta
    Me.Cell(27, 6, "Imponibile ", False, 0, "R", False)
    Me.Cell(32, 6, fatture.textbox10.text & " ", True, 0, "R", False)
    
    
    Me.Ln(10)                                                                           
    Me.SetX(12)
    Me.Cell(116, 6, Fbanc, False, 0, "L", False)
    
    
    Me.Ln()
    Me.SetX(12)
    Me.Cell(116, 6, Fiban, False, 0, "L", False)

    Me.Ln(-9)
    Me.SetX(126)
    Me.Cell(15, 6, "", False, 0, "L", False) 'spinta
    Me.Cell(27, 6, "Tasso Iva % ", False, 0, "R", False)
    Me.Cell(32, 6, fatture.textbox3.text & " ", True, 0, "C", False)
    
    
    Me.Ln(21)
    Me.Cell(120, 22, "", True, 0, "", False)
    
    Me.Ln(-3)
    Me.SetX(22)
    Me.SetFillColor(255, 255, 255)
    Me.SetFont("Arial", "I", 11)
    Me.Cell(45, 6, "Indirizzo di Spedizione", False, 0, "C", True)
    
    Me.Ln(-11)
    Me.SetX(141)
    Me.SetFont("Arial", "", 10)
    Me.Cell(27, 6, "Imposta ", False, 0, "R", False)
    Me.Cell(32, 6, fatture.textbox4.text & " ", True, 0, "R", False)
    
    Me.Ln(17)
    Me.SetX(12)
    Me.Cell(116, 6, Indsp1, False, 0, "L", False)

    Me.Ln(-10)
    Me.SetX(141)
    Me.SetFont("Arial", "", 11)
    Me.Cell(27, 6, "Spese Sped. ", False, 0, "R", False)
    Me.Cell(32, 6, fatture.textbox2.text & " ", True, 0, "R", False)
    
   Me.Ln(15)
    Me.SetX(12)
    Me.Cell(116, 6, Indsp2, False, 0, "L", False)
    Me.Ln()
    Me.SetX(12)
    Me.Cell(116, 6, Ccor, False, 0, "L", False)
    
    Me.Ln(-14)
    Me.SetX(141)
    Me.Cell(27, 6, "Sconto/Coupon ", False, 0, "R", False)
    Me.Cell(32, 6, fatture.textbox8.text & " ", True, 0, "R", False)
    
    Me.Ln(7)
    Me.SetX(141)
    Me.Cell(27, 6, "Acconto ", False, 0, "R", False)
    Me.Cell(32, 6, fatture.textbox9.text & " ", True, 0, "R", False)
    
    Me.Ln(10)
    Me.SetX(141)
    mt = "Totale € " '& Chr(128)
    
    Me.SetFont("Arial", "B", 11)
    Me.Cell(27, 6, mt, False, 0, "R", False)
    Me.Cell(32, 6, fatture.textbox7.text & " ", True, 0, "R", False)
    
    Me.Line(10, 256, 20, 256)
    Me.Line(45, 256, 130, 256)
    
    Me.Line(10, 256, 10, 272)
    Me.Line(130, 256, 130, 272)
    
    Me.Line(10, 272, 130, 272)
    
     Me.Ln(10)
    Me.Cell(120, 16, "", False, 0, "", False)

    Me.Ln(-3)
    Me.SetX(20)
    Me.SetFillColor(255, 255, 255)
    Me.SetFont("Arial", "I", 11)
    Me.Cell(25, 6, "Annotazioni", False, 0, "C", False)
    
    Me.Ln(-3)
    Me.Cell(130, 6, "", False, 0, "L", False) 'spinta
    Me.SetFont("Arial", "", 9)
    Me.Cell(27, 6, "(S.E.& O.) ", False, 0, "R", False)
    
    Me.SetFont("Arial", "", 11)
    Me.Ln()
    Me.Ln(2)
    Me.SetX(12)
    Me.Cell(116, 6, fa1, False, 0, "L", False)
   
 Me.Ln()
    Me.SetX(12)
    Me.Cell(116, 6, fa2, False, 0, "L", False)
    Me.SetFillColor(0, 0, 0)
    Me.SetFont("Arial", "I", 5)
    Me.Code39(135, 260, fatture.TextBNum.text, False, False, 0.4, 8, False)
    
    
Endif
end

7
Programmazione / Re:PDF Writer - Stampa nell'ultima pagina
« il: 01 Marzo 2017, 11:33:17 »
In pratica Ho questo problema nella creazione delle fatture. Quando creo una nuova fattura, anche se ha più pagine, il codice mi mette in automatico il totale, il metodo di pagamento e altre informazioni che vorrei fossero visualizzate solo nell'ultima pagina. Il codice che mi inserisce in ogni pagina è nella sezione "Data()"

8
Programmazione / PDF Writer - Stampa nell'ultima pagina
« il: 27 Febbraio 2017, 17:18:25 »
Buonasera a tutti. C'è la possibilità di stampare un testo solo nell'ultima pagina del file pdf generato da pdf writer?

9
Programmazione / Re:Stampa DrawingArea
« il: 27 Luglio 2016, 01:15:59 »
Infatti. Graziee ;D

10
Programmazione / Re:Stampa DrawingArea
« il: 26 Luglio 2016, 22:06:53 »
Buonasera ragazzi. Ho capito dove facevo l'errore grazie all'allegato! Grazie 1000. Comunque si, il pdf lo genera. Ho stampato, tt ok. devo solo ingrandire un po il font dei numeri e vedere se il lettore lo legge bene! Grazie ancora! ;D ;D ;D

11
Programmazione / Re:Stampa DrawingArea
« il: 26 Luglio 2016, 17:13:03 »
ho provato e riprovato ma non sono riuscito. Non potete darmi una mano? ;D

12
Programmazione / Re:ean13
« il: 25 Luglio 2016, 23:08:24 »
ciao gianluigi. come avrai potuto vedere ho trovato qualcosa ma non riesco a stampare :D. che casino! grazie di tutto comunque!

13
Programmazione / Re:Stampa DrawingArea
« il: 25 Luglio 2016, 23:06:49 »
Buonasera. ho provato a seguire quella guida ma non sono riuscito a risolvere. forse è valido solo per le versioni precedenti a quella che ho io.

14
Programmazione / Stampa DrawingArea
« il: 24 Luglio 2016, 20:35:52 »
Ciao ragazzi.
Mi aiutate a stampare il contenuto della DrawingArea?
Ho gambas 3.8.4 e allego l'esempio del quale dovrei stampare il contenuto della DrawingArea con la funzione printer di gambas.
grazie

15
Programmazione / Re:ean13
« il: 21 Luglio 2016, 19:11:46 »
non ho capito dove devo vedere ;D

Pagine: [1] 2 3