Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.42 KB | None | 0 0
  1. case "Scontrino"
  2.  
  3. codiceCliente = ""
  4. numScontrino = trim(Request("numscontr"))
  5.  
  6. Stringa = "idCanale=" & idCanale_Appo &_
  7. "&idUtente=" & idUtente_Appo & _
  8. "&idNegozio=" & idNegozio_Appo &_
  9. "&idMacchina=" & idMacchina_Appo &_
  10. "&idApplicazione=" & idApplicazione_Appo &_
  11. "&idPassword=" & idPassword_Appo &_
  12. "&idClienteCoda=" & idClienteCoda &_
  13. "&codiceStatoScontrino=" & codiceStatoScontrino
  14.  
  15. loc = "IncassiVisualizza.asp?" & Stringa
  16.  
  17. set objScontrino = server.CreateObject("pCassa.cScontrino")
  18. 'GESTISCE IL NUMERO DI TELEFONO LEGATO AD UTENZA
  19. 'if objScontrino.Emetti(Msg, _
  20. ' idCanale_Appo, _
  21. ' idNegozio_Appo, _
  22. ' idMacchina_Appo, _
  23. ' idUtente_Appo, _
  24. ' idClienteCoda, _
  25. ' codiceStatoScontrino, _
  26. ' idApplicazione_Appo, _
  27. ' codiceCliente, _
  28. ' utenza, _
  29. ' numScontrino) <> 0 then
  30. ' set objScontrino = nothing
  31. ' call EsitoOperazione(Msg,loc)
  32. 'end if
  33. if objScontrino.Emetti(Msg, _
  34. idCanale_Appo, _
  35. idNegozio_Appo, _
  36. idMacchina_Appo, _
  37. idUtente_Appo, _
  38. idClienteCoda, _
  39. codiceStatoScontrino, _
  40. idApplicazione_Appo, _
  41. codiceCliente, _
  42. "0123456789", _
  43. numScontrino) <> 0 then
  44. set objScontrino = nothing
  45. call EsitoOperazione(Msg,loc)
  46. end if
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement