<CXP:BuildError/>

Compilation Error

Description: One or more errors occurred during the compilation of a resource required to build this page. Please review the following specific error details and modify your source code appropriately.

Files:

CXP File: C:\inetpub\wwwroot\cox\srl\srl.cxp
Intermediate Xbase++ Code: C:\inetpub\wwwroot\cox\srl\cxp-application\srl.cxp.20250603-60945514.dll

Message(s):

Compiler: error XBT0200: Syntax Error in Line 60
The compiler has detected a syntactically incorrect expression.

0058 }
0059 
0060 /*
0061 * ---
0062 * --- xs sm md lg

Compiler: error XBT0250: Incomplete expression in Line 63
An incomplete expression was detected (e.g. in one line of code only x or a[x], or a == 0 is written. This is not allowed.)

0061 * ---
0062 * --- xs sm md lg
0063 * ---
0064 *     xs =    0-767 pixels.
0065 *     sm =  768-991 pixels.

Compiler: error XBT0200: Syntax Error in Line 64
The compiler has detected a syntactically incorrect expression.

0062 * --- xs sm md lg
0063 * ---
0064 *     xs =    0-767 pixels.
0065 *     sm =  768-991 pixels.
0066 *     md =  992-1199 pixels.

Compiler: error XBT0200: Syntax Error in Line 60
The compiler has detected a syntactically incorrect expression.

0058 }
0059 
0060 /*
0061 * ---
0062 * --- xs sm md lg

Compiler: error XBT0250: Incomplete expression in Line 63
An incomplete expression was detected (e.g. in one line of code only x or a[x], or a == 0 is written. This is not allowed.)

0061 * ---
0062 * --- xs sm md lg
0063 * ---
0064 *     xs =    0-767 pixels.
0065 *     sm =  768-991 pixels.

Compiler: error XBT0200: Syntax Error in Line 64
The compiler has detected a syntactically incorrect expression.

0062 * --- xs sm md lg
0063 * ---
0064 *     xs =    0-767 pixels.
0065 *     sm =  768-991 pixels.
0066 *     md =  992-1199 pixels.

Build Process

The builder was invoked with the following parameters, the output is shown below.

Current Directory:

C:\Program Files (x86)\Alaska Software\cxp20\bin

Command:

C:\Program Files (x86)\Alaska Software\cxp20\bin\cxc-builder.exe

Parameters:

"@C:\inetpub\wwwroot\cox\srl\cxp-application\srl.cxp.20250603-60945514.lst"

Output:

wwwlogin.prg(60:0): error XBT0200: Syntax Error

wwwlogin.prg(63:0): error XBT0250: Incomplete expression

wwwlogin.prg(64:0): error XBT0200: Syntax Error

wwwlogin.prg(60:0): error XBT0200: Syntax Error

wwwlogin.prg(63:0): error XBT0250: Incomplete expression

wwwlogin.prg(64:0): error XBT0200: Syntax Error

File c:\inetpub\wwwroot\cox\srl\srl.cxp successfully processed.

Full Source

In the following the full source code of your resource is shown.

<%#PAGE trace="yes" implements="COX-SRL" %>

<%#code locality="page-global"%>



<%

#include "srl.ch"

#include "wwwim.ch"



// This section is injected into the module header

STATIC COXEnv   := COXWWW()



#include "j_compat.prg"

#include "wwwim.prg"

%>



<!DOCTYPE html>

<html lang="it">

<head>

  @(CoxAziHeader())



  <meta name="robots"      content="noindex" >



  <link href="image/ico.jpg" rel="icon" type="image/x-icon" >



  <meta charset="utf-8" >

  <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no" >



  <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/4.5.2/css/bootstrap.min.css" >

  <link rel="stylesheet" href="https://use.fontawesome.com/releases/v5.7.0/css/all.css" integrity="sha384-lZN37f5QGtY3VHgisS14W3ExzMWZxybE1SJSEsQp9S+oqd12jhcu+A56Ebc1zFSJ" crossorigin="anonymous" >

  <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css" >

  <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/font-awesome/4.5.0/css/font-awesome.min.css" >



  <style>

   .navbar-nav li:hover > ul.dropdown-menu {

    display: block;

    }



   .dropdown-submenu {

    position:relative;

    }

   .dropdown-submenu>.dropdown-menu {

    top: 0;

    left: 100%;

    margin-top:-6px;

    }



   /* rotate caret on hover */

   .dropdown-menu > li > a:hover:after {

    text-decoration: underline;

    transform: rotate(-90deg);

    }



    .instagram .fab {

    font-size:30px;

    background: #d6249f;

    background: radial-gradient(circle at 30% 107%, #fdf497 0%, #fdf497 5%, #fd5949 45%,#d6249f 60%,#285AEB 90%);

    -webkit-background-clip: text;

    -webkit-text-fill-color: transparent;

    }



/*

* ---

* --- xs sm md lg 

* ---

*     xs =    0-767 pixels.

*     sm =  768-991 pixels.

*     md =  992-1199 pixels.

*     lg = 1200 pixels and up.

*/



   @media (min-width: 576px) {

        .card-deck .card {

            min-width: 50.1%; /* 1 Column */

            margin-bottom: 12px;

            max-width: 100%;

            border: 1px solid #F5F5F5 !important;

        }

    }



    @media (min-width: 768px) {

        .card-deck .card {

            min-width: 33.4%;  /* 2 Columns */  

            max-width: calc(calc(100% / 2) - 30px);                   

            border: 1px solid #F5F5F5 !important;

        }

    }



    @media (min-width: 992px) {

        .card-deck .card {

            min-width: 25.1%;  /* 3 Columns */

            max-width: calc(calc(100% / 3) - 30px);

            border: 1px solid #F5F5F5 !important;

        }

    }



    @media (min-width: 1200px) {

        .card-deck .card {

            min-width: 20.1%;  /* 4 Columns */

            max-width: calc(calc(100% / 4) - 30px);

            border: 1px solid #F5F5F5 !important;

        }

    }



    @media (min-width: 1600px) {

        .card-deck .card {

            min-width: 17.1%;  /* 5 Columns */

            max-width: calc(calc(100% / 5) - 30px);

            border: 1px solid #F5F5F5 !important;

        }

    }



    /* Red on del line */

    del {

          text-decoration-color:#FF0000 !important;

        }



    /* Button over stretched card */

    .card .btn {

                z-index: 2;

                position: relative;

                }



    /* Grigio Ebay */

    .card { border-radius:20px       !important;

            background-color:#F5F5F5 !important;

           }



    /* Card Image Top Round */

    .card-img-top {

            border-radius:20px 20px 0px 0px !important;

                  }



    /* Card Image Left Round */

    .img-fluid {

            margin-left:0                   !important;

            border-radius:20px 0px 0px 20px !important;

                }



   /* Make the image fully responsive */

      .carousel-inner img {

           max-height: 80vh;

           max-width: 100%;

           object-fit: cover;

           object-position: center;

          }



    /* Font reducing */

    html {

           font-size: 14px;

          }



    /* ==== Scheda Articolo ===== */

    /* Position the image container (needed to position the left and right arrows) */

    .container {

     position: relative;

     }

    

    /* Hide the images by default */

    .mySlidesV {

     display: none;

     }



    .mySlidesL {

     display: none;

     }



    .mySlidesO {

     display: none;

     }



    /* Add a pointer when hovering over the thumbnail images */

    .cursor {

     cursor: pointer;

     }



    /* Next & previous buttons */

    .prev,

    .next {

     cursor: pointer;

     position: absolute;

     top: 40%;

     width: auto;

     margin-top: -50px;

     color: #ffd814;

     font-weight: bold;

     font-size: 50px;

     border-radius: 0 3px 3px 0;

     user-select: none;

     -webkit-user-select: none;

     }



     /* Position the "next button" to the right */

     .next {

      right: 30px;      

      border-radius: 3px 0 0 3px;

      }



     /* On hover, add a grey background color with a little bit see-through */

     .prev:hover,

     .next:hover {

      background-color: rgba(245, 245, 245, 0.8);

      }



     /* Number text (1/3 etc) */

     .numbertext {

      color: #ffd814;

      font-size: 12px;

      position: absolute;

      margin-top: 15px;

      margin-left: 15px;

      }



     .row:after {

      content: "";

      display: table;

      clear: both;

      }



     /* Six columns side by side */

     .column {

      float: left;

      width: 16.66%;

      }



     /* Add a transparency effect for thumnbail images */

     .image {

      opacity: 0.6;

      }



     .active,

     .image:hover {

      opacity: 1;

      border: 1px solid;

      border-color: orange;

      border-radius: 10px;

      }

     /* ==== Fine Scheda Articolo ===== */

  </style>

</head>



<body>

  <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.5.1/jquery.min.js"></script>

  <script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.16.0/umd/popper.min.js"></script>

  <script src="https://maxcdn.bootstrapcdn.com/bootstrap/4.5.2/js/bootstrap.min.js"></script>

  <script src="jquery/js/jquery-3.6.0.slim.js"></script>



  <script>

    $(document).ready(function(){

         $(#ordinamento12).on(change, function() {

           // Qui puoi chiamare la tua pagina web, ad esempio con AJAX o reindirizzando

           // Per esempio, reindirizzare:

              window.location.href = $(this).val();

           });

         $(#ordinamento6).on(change, function() {

           // Qui puoi chiamare la tua pagina web, ad esempio con AJAX o reindirizzando

           // Per esempio, reindirizzare:

              window.location.href = $(this).val();

           });

         $(#ordinamento3).on(change, function() {

           // Qui puoi chiamare la tua pagina web, ad esempio con AJAX o reindirizzando

           // Per esempio, reindirizzare:

              window.location.href = $(this).val();

           });



         $(#offerte12).on(change, function() {

           // Qui puoi chiamare la tua pagina web, ad esempio con AJAX o reindirizzando

           // Per esempio, reindirizzare:

           if (this.checked) {

              window.location.href = $(this).val()+"on"

           } else {

              window.location.href = $(this).val()+"off"

           }

           });

         $(#offerte6).on(change, function() {

           // Qui puoi chiamare la tua pagina web, ad esempio con AJAX o reindirizzando

           // Per esempio, reindirizzare:

           if (this.checked) {

              window.location.href = $(this).val()+"on"

           } else {

              window.location.href = $(this).val()+"off"

           }

           });

         $(#offerte3).on(change, function() {

           // Qui puoi chiamare la tua pagina web, ad esempio con AJAX o reindirizzando

           // Per esempio, reindirizzare:

           if (this.checked) {

              window.location.href = $(this).val()+"on"

           } else {

              window.location.href = $(this).val()+"off"

           }

           });



         $(.toast).toast({delay: 4000});

         $(.toast).toast(show);

     });

  </script>



<%* --- Program Section%>

   

<div class="container">



<%

     COXInit() // Init Program

%>



<%if upper(::Params:OpCode) = upper(WWW_RELOAD()) // Reload forzato

     ::session:fcoxstart  = .F. 

endif%>



<%if empty(::session:fcoxstart) 

     #include "wwwSessionVar.prg"   // Dichiarazione e definizione variabile ::session:

     #include "wwwloadcfg.prg"      // Assegnazione Variabili statiche di configurazione

     if (::session:RetState = .T.) 

        if (::session:sHome = "S")

           ::session:fcoxstart  = .T.       

       else

           ::session:CXPID = "(002)"

           #include "wwwerrorloadcfg.prg"

        endif

     else

        ::session:CXPID = "(004)"

        #include "wwwerrorloadcfg.prg"

     endif

endif%>





<%* --- OVERALL%>

<%if !empty(::Params:ORDART)

     ::session:pOrder   := ::Params:ORDART

endif%>

<%if !empty(::Params:offerte)

     ::session:pOfferte := ::Params:offerte

endif%>

  

<%* --- HOME PAGE%>

<%if empty(::Params:OpCode) .or. Upper(::Params:OpCode) $ upper(WWW_CMD()) // Con alcuni tipi di comando è come se fosse la Home Page

     ::session:LastShopping := ""

     ::session:pOfferte     := "off"

     if empty(::session:fcoxstart) 

        ::session:CXPID = "(005)"

        #include "wwwconnectionlost.prg"

     else

        #include "wwwArticoloSearch.prg"  // Filtraggio per caricamento iniziale categorie/sottocategorie

        #include "wwwgetstore.prg"

        #include "wwwnavbar.prg"

        #include "wwwhome.prg"

     endif

endif%>



<%* --- NAVIGAZIONE ARTICOLI%>

<%* 1 --- Main%>

<%if (::Params:OpCode == WWW_ArticoloSearch())  // Ricerca

     ::session:LastShopping = ::HttpRequest:GetVariable("REQUEST_URI") // Salvo la URL

     #include "wwwArticoloSearch.prg"  // Filtraggio 

     #include "wwwnavbar.prg"

     if len(aBody)=0 // Nessun elemento trovato

        ::session:MsgTitle = "Ricerca:"

        ::session:MsgText  = "Nessuna corrispondenza trovata."

        ::session:MsgType  = WWW_Info()

        #include "wwwbanner.prg"

     else

        #include "wwwshowbody.prg"

        if len(aBody) > WWW_nEleShowInt() .and. empty(::session:TxtSearch) .and. empty(::session:CodCli) // Consiglio di inserire una stringa

           ::session:MsgTitle = "Ricerca"

           ::session:MsgText  = "Se vuoi restringere la ricerca inserisci una o più parole nel campo Ricerca."

           ::session:MsgType  = WWW_Info()

           #include "wwwbanner.prg"

        endif

     endif

endif%>



<%* 1.1 --- Visualizzazione Scheda Articolo%>

   	<%if (::Params:OpCode == WWW_ArticoloShow())

             #include "wwwnavbar.prg"

             #include "wwwArticoloShow.prg"

        endif%>

	<%* 1.1.1 --- Zoom sulla Scheda Articolo%>

    		<%if (::Params:OpCode == WWW_ArticoloZoom())  // Zoom Articolo

                     #include "wwwnavbar.prg"

                     #include "wwwArticoloZoom.prg"

                endif%>



	<%* 1.1.2 --- Aggiungi una Riga al Carrello%>

	<%if (::Params:OpCode == WWW_CarrelloAggiungi())   // Aggiungi Carrello

                     if empty(::session:CodCli)

                        #include "wwwlogin.prg" // Rimando al Login

                     else

                        #include "wwwCarrelloRigheUpdate.prg"

                        if (::session:RetState)

                           if ::session:PDS = "S"

                              ::session:MsgTitle = "Magazzino"

                           else

                              ::session:MsgTitle = "Carrello"

                           endif



                         //::session:MsgText ... da wwwCarrelloAggiungi

                           ::session:MsgType  = WWW_Info()

                           ::HTTPResponse:Redirect(::session:LastShopping)

                        else

                           ::session:MsgTitle = "Errore aggiornamento Carrello"    // Se errore, ShowBody senza banner

                         //::session:MsgText ... da wwwCarrelloAggiungi

                           ::session:MsgType  = WWW_Danger()

                           #include "wwwnavbar.prg"

                           #include "wwwshowbody.prg"

                           #include "wwwbanner.prg"

                           #include "wwwhome.prg"

                        endif

                     endif

                endif%>



<%* 2.1 --- Login%>

<%if (::Params:OpCode == WWW_Login()) // Login esplicito

              #include "wwwlogin.prg"

        endif%>

	<%* 2.1.1 --- Registrazione%>

	<%if (::Params:OpCode == WWW_Registrazione())   // Registrazione

                     ::session:PIva         := ::Params:CodFis

                     ::session:CodCli       := ""

                     if wwwCheckPIvaCF(::session:PIva, "IT")

                        ::session:PIva   := ::Params:CodFis

                        ::session:CodCli := ""

                        COXDecodePIVA(::session:PIva, @::session:CodCli)

                        if empty(::session:CodCli)

                           cHome       = ::File+"?Opcode="+www_Logout()

                           #include "wwwRegistrazione.prg"

                           ::session:MsgTitle = "Inserimento Dati"

                           ::session:MsgText  = "Inserisci i tuoi dati ed assegnati una Password."

                           ::session:MsgType  = WWW_Warning()

                           #include "wwwbanner.prg"

                        else

                           cHome       = ::File+"?Opcode="+www_Logout()

                           #include "wwwClienteDati.prg"  

                           ::session:MsgTitle = "Ricerca Dati"

                           ::session:MsgText  = "Hai già fatto acquisti nel nostro negozio. Devi solo controllare i dati ed assegnarti una Password. Controlla anche che lindirizzo mail sia valido."

                           ::session:MsgType  = WWW_Warning()

                           #include "wwwbanner.prg"

                        endif

                     else

                        #include "wwwPIVARegistrazione.prg"

                        ::session:MsgTitle = "Errore"

                        ::session:MsgText  = "Codice Fiscale/Partita IVA <"+::session:PIva+"> non valido. Inserire un valore corretto."

                        ::session:MsgType  = WWW_Danger()

                        #include "wwwbanner.prg"

                     endif

                 endif%>



	<%* 2.1.2 --- Codice Fiscale per Registrazione%>

                <%if (::Params:OpCode == WWW_PIVARegistrazione())   // Check Codice Fiscale per la Registrazione

                     #include "wwwPIVARegistrazione.prg"

                endif%>



	<%* 2.1.3 --- Input Codice Fiscale%>

                <%if (::Params:OpCode == WWW_GetCodFis())   // Get Codice Fiscale

                     #include "wwwgetcodfis.prg"

                endif%>



	<%* 2.1.4 --- Check Username+Pwd%>

        	<%if (::Params:OpCode == WWW_Check())   // Username e Password

                      ::session:DES           := ""

                      ::session:Destin        := ""  

                      ::session:CodCli        := ""  

                      ::session:RagSoc        := ""  

                      ::session:Mail          := "" 

                      ::session:Piva          := "" 



                      ::session:pOfferte      := "off"

                                   // ::Params:CodCli può essere Codice Cliente, Partita IVA, ecc.

                      if COXCheckUser(::Params:CodCli, ::Params:Password, @::session:ACQ, @::session:WEB, @::session:ADM, @::session:PDS, @::session:CodPDS, @::session:CodCli, @::session:Ragsoc, @::session:Mail, @::session:PIva)

                         #include "wwwSetUserProfile.prg"                         

                      else

                         ::session:RetState    := .F.

                         ::session:CodCli      := ""

                         ::session:ACQ         := ""

                         ::session:WEB         := ""

                         ::session:ADM         := ""

                         ::session:PDS         := ""

                         ::session:CodPDS      := 0

                         ::session:Ragsoc      := ""

          

                         ::session:MsgTitle = "Credenziali errate"

                         ::session:MsgText  = "Reinserire lindirizzo mail e la password oppure recupera le credenziali."

                         ::session:MsgType  = WWW_Warning()

                      endif



                      if empty(::session:LastShopping)  

                         #include "wwwArticoloSearch.prg"  // Filtraggio 

                         #include "wwwgetstore.prg"

                         #include "wwwnavbar.prg"

                         #include "wwwbanner.prg"

                         #include "wwwhome.prg"

                      else

                         #include "wwwgetstore.prg"

                         ::HTTPResponse:Redirect(::session:LastShopping) // Chiamata al Carrello in attesa...

                      endif

                endif%>



	<%* 2.1.5 --- Recupero Credenziali%>

        	<%if (::Params:OpCode == WWW_RecuCred())   // Recupera Username e Password

                     ::session:RetState = COXRecuCred(::Params:CodFis, @::session:MsgText)

                     #include "wwwnavbar.prg"

                     if (::session:RetState)

                        ::session:MsgTitle = "Recupero Credenziali."

                      //::session:MsgText ... da wwwCOXRecuCred

                        ::session:MsgType  = WWW_Warning()

                        #include "wwwbanner.prg"

                     else

                        ::session:MsgTitle = "Attenzione!"

                      //::session:MsgText ... da wwwCOXRecuCred

                        ::session:MsgType  = WWW_Warning()

                        #include "wwwbanner.prg"

                     endif

                     #include "wwwhome.prg"

                endif%>



<%* 2.2 --- Logout%>

        <%if (::Params:OpCode == WWW_Logout())  // Logout

             ::session:pOfferte     := "off"

             ::session:nOrd := 0    // Controllo ordini aperti del Cliente

             #include "wwwOrderState.prg"

             if !(empty(::session:CodCli) .or. empty(::session:Ragsoc) .or. empty(::session:nOrd)) // Test no unpolite message

                ::session:MsgTitle = "Logout"

                ::session:MsgText  = ::session:Ragsoc+", grazie per aver acquistato da noi. "+;

                                     "Hai "+j_nstr(::session:nOrd)+" "+if(::session:nOrd=1, "ordine", "ordini")+" in lavorazione. "+;

                                     "A presto!"



               ::session:MsgText  = ::session:Ragsoc+", grazie per averci visitato. A presto!"

               ::session:MsgType  = WWW_Info()

               #include "wwwbanner.prg"

             endif



             #include "wwwlogout.prg" 

            ::HTTPResponse:Redirect(::File) 

        endif%>



<%* 2.3 --- ANAGRAFICA CLIENTE%>

        <%if (::Params:OpCode == WWW_ClienteDati())     // Dati Cliente

             #include "wwwClienteDati.prg"

        endif%>

	<%* 2.3.1%>

	<%if (::Params:OpCode == WWW_ClienteUpdate())   // Update Cliente

                      #include "wwwClienteUpdate.prg"

                     if (::session:RetState)

                        ::session:MsgTitle = "Registrazione/Aggiornamento."

                      //::session:MsgText ... da wwwClienteUpdate

                        ::session:MsgType  = WWW_Warning()

                        #include "wwwnavbar.prg"

                        #include "wwwbanner.prg"

                     else

                       ::session:MsgTitle = "Errore in fase di Registrazione/Aggiornamento."

                     //::session:MsgText ... da wwwClienteUpdate

                       ::session:MsgType  = WWW_Danger()

                       #include "wwwnavbar.prg"

                       #include "wwwbanner.prg"

                     endif

                     #include "wwwhome.prg"

                 endif%>



<%* 2.4 --- INDIRIZZI CLIENTE%>

<%if (::Params:OpCode == WWW_ClienteIndirizzi())     // Indirizzi Cliente

             #include "wwwClienteIndirizzi.prg"

        endif%>

	<%* 2.4.1 --- Aggiornamento Indirizzi Cliente%>

	<%if (::Params:OpCode == WWW_ClienteIndirizziUpdate())   // Update Indirizzi Cliente

                     #include "wwwClienteIndirizziUpdate.prg"

                     if (::session:RetState)

                         ::session:MsgTitle = "Aggiornamento."

                       //::session:MsgText ... da wwwClienteIndirizziUpdate

                         ::session:MsgType  = WWW_Info()

                         #include "wwwnavbar.prg"

                         #include "wwwbanner.prg"

                    else

                         ::session:MsgTitle = "Errore in fase di Aggiornamento."

                       //::session:MsgText ... da wwwClienteIndirizziUpdate

                         ::session:MsgType  = WWW_Danger()

                         #include "wwwnavbar.prg"

                         #include "wwwbanner.prg"

                    endif

                    #include "wwwhome.prg"

                endif%>



<%* --- CARRELLO%>

<%* 2.5 --- Righe Carrello%>

<%if (::Params:OpCode == WWW_CarrelloRighe())     // Righe Carrello

             #include "wwwCarrelloRighe.prg"

        endif%>

	<%* 2.5.1 --- Aggiornamento Righe Carrello%>

	<%if (::Params:OpCode == WWW_CarrelloRigheUpdate())   // Update Righe Carrello

                     #include "wwwCarrelloRigheUpdate.prg"

                     if (::session:RetState)

                         ::session:MsgTitle = "Aggiornamento."

                       //::session:MsgText ... da wwwCarrelloRigheUpdate

                         ::session:MsgType  = WWW_Info()

                         ::HTTPResponse:Redirect(::File+"?OpCode="+WWW_CarrelloRighe())  // Carrello

                     else

                         ::session:MsgTitle = "Errore in fase di Aggiornamento."

                       //::session:MsgText ... da wwwCarrelloRigheUpdate

                         ::session:MsgType  = WWW_Danger()

                         #include "wwwnavbar.prg"

                         #include "wwwbanner.prg"

                     endif

                     #include "wwwhome.prg"

                endif%>



	<%* 2.5.2 --- Conferma del Carrello%>

	<%if (::Params:OpCode == WWW_CarrelloConferma())   // Conferma del Carrello

                     #include "wwwCarrelloRigheUpdate.prg"

                     if (::session:RetState)

                        ::session:MsgTitle = "Aggiornamento."

                      //::session:MsgText ... da wwwCarrelloRigheUpdate

                        ::session:MsgType  = WWW_Info()

                        #include "wwwCarrelloConferma.prg"

                     else

                        ::session:MsgTitle = "Errore in fase di Aggiornamento."

                      //::session:MsgText ... da wwwCarrelloRigheUpdate

                        ::session:MsgType  = WWW_Danger()

                        #include "wwwnavbar.prg"

                        #include "wwwhome.prg"

                        #include "wwwbanner.prg"

                     endif

                endif%>



	<%* 2.5.3 --- Invia Ordine (Chiusura Carrello)%>

	<%if (::Params:OpCode == WWW_CarrelloInviaOrdine())   // Invia Ordine

                     #include "wwwCarrelloInviaOrdine.prg"



                     ::session:nCARRELLO       := 0        // No Numero Carrello        (CODICE   sang_bpr)

                     ::session:nQTA            := 0        // No Qta

                     ::session:dtCARRELLO      := ctod("") // No Data Apertura Carrello (DATA     sang_bpr)

                     ::session:nAmountInvoice  := 0        // No Totale Carrello        (TO_P_FAT sang_bpr)

                endif%>



<%* 2.6 --- Elenco Ordini%>

<%if (::Params:OpCode == WWW_OrdiniSearch())  // Ricerca Ordini

             #include "wwwOrdiniSearch.prg"  // Filtraggio 

             if len(aEleOrd)=0 // Nessun elemento trovato

                ::session:MsgTitle = "Ricerca:"

                ::session:MsgText  = "Nessun Ordine trovato."

                ::session:MsgType  = WWW_Info()

                #include "wwwnavbar.prg"

                #include "wwwhome.prg"

                #include "wwwbanner.prg"

            else

                #include "wwwShowOrdini.prg"

            endif

        endif%>

	<%* 2.6.1 - Show Ordine%>

	<%if (::Params:OpCode == WWW_OrdineShow())     // Visualizzazione Ordine

                     #include "wwwOrdineShow.prg"

                endif%>



<%* 2.7 - Acquista di nuovo%>

<%if (::Params:OpCode == WWW_AcquistadiNuovo())// Visualizzazione Articoli di Acquistati

             ::session:pOfferte      := "off"

             #include "wwwAcquistadiNuovo.prg"

             #include "wwwArticoloSearch.prg"  // Filtraggio 

             #include "wwwnavbar.prg"

             if len(aBody)=0 // Nessun elemento trovato

                ::session:MsgTitle = "Ricerca:"

                ::session:MsgText  = "Nessuna corrispondenza trovata."

                ::session:MsgType  = WWW_Info()

                #include "wwwbanner.prg"

             else

                #include "wwwshowbody.prg"

                if len(aBody) > WWW_nEleShowInt() .and. empty(::session:TxtSearch) .and. empty(::session:CodCli) // Consiglio di inserire una stringa

                   ::session:MsgTitle = "Ricerca"

                   ::session:MsgText  = "Se vuoi restringere la ricerca inserisci una o più parole nel campo Ricerca."

                   ::session:MsgType  = WWW_Info()

                   #include "wwwbanner.prg"

                endif

            endif

        endif%>



<%* 2.8 --- Svuota Carrello%>

<%if (::Params:OpCode == WWW_CarrelloSvuota())  // Elimina il carrello

             if ::session:nCarrello=0 // Carrello già vuoto

                ::session:MsgTitle = "Svuota Carrello:"

                ::session:MsgText  = "Carrello già vuoto."

                ::session:MsgType  = WWW_Info()

                #include "wwwnavbar.prg"

                #include "wwwhome.prg"

                #include "wwwbanner.prg"

            else

                #include "wwwOrdineSvuota.prg"

            endif

        endif%>



<%* 2.9 --- Svuota Carrello%>

<%if (::Params:OpCode == WWW_CarrelloAnnulla())  // Elimina il carrello

             if COXSetStatoCarrello(::session:nCarrello, ::session:sStatoAnnullato)

                ::session:nCarrello  := 0

                ::session:dtCARRELLO := ctod("") 

                ::session:nArt       := 0

                ::session:nQTA       := 0

                ::session:nAmount    := 0        



                ::session:RetState := .T.

                ::session:MsgTitle = "Carrello"

                ::session:MsgText  = "Svuotamento effettuato!"

                ::session:MsgType  = WWW_Info()

             else

                ::session:RetState := .F.

                ::session:MsgTitle = "Carrello"

                ::session:MsgText  = "Errore durante lo svuotamento. Riprovare."

                ::session:MsgType  = WWW_Warning()

             endif



             if empty(::session:LastShopping)  

                #include "wwwnavbar.prg"

                #include "wwwbanner.prg"

                #include "wwwhome.prg"

              else

                ::HTTPResponse:Redirect(::session:LastShopping) // Chiamata al Carrello in attesa...

              endif

        endif%>



<%* --- OPEN CARRELLO%>

<%* 3.0 --- Apertura remota del carrello%>

<%if (::Params:OpCode == WWW_CarOpen())     // Apertura

             pStato = ""

             pMsg   = ""



             ::session:DES           := ""

             ::session:Destin        := ""  

             ::session:CodCli        := ""  

             ::session:RagSoc        := ""  

             ::session:Mail          := "" 

             ::session:Piva          := "" 



             if COXGetCarrello(val(Base642Bin(::Params:ID)), @::session:CodCli, @::Session:nAmountInvoice, @pStato, @pMsg) .and. ;

                COXGetUser(::session:CodCli, @::session:ACQ, @::session:WEB, @::session:ADM,  @::session:PDS, @::session:CodPDS, @::session:CodCli, @::session:Ragsoc, @::session:Mail, @::session:PIva)

                #include "wwwSetUserProfile.prg"                         



                if pStato = ::session:sStatoAperto .or. pStato = ::session:sStatoValidazione .or. pStato = ::session:sStatoProntoOrdine

                   ::session:nCarrello = val(Base642Bin(::Params:ID))

                   #include "wwwCarrelloRighe.prg"

                else

                   ::HTTPResponse:Redirect(::File+'?OpCode='+www_OrdineShow()+'&pOrdine='+Base642Bin(::Params:ID)) 

                endif

             else

                ::session:RetState := .F.

                ::session:MsgTitle = "Carrello"

                ::session:MsgText  = "Carrello non trovato!"

                ::session:MsgType  = WWW_Warning()



                #include "wwwnavbar.prg"

                #include "wwwbanner.prg"

                #include "wwwhome.prg"

             endif

        endif%>



       <%* 4.0 --- Richiedi il costo del trasporto%>

<%if (::Params:OpCode == WWW_RichiediTrasporto())  // Costo del Trasporto

             if COXSetStatoCarrello(::session:nCarrello, ::session:sStatoValidazione)

                ::session:RetState := .T.

                ::session:MsgTitle = "Carrello"

                ::session:MsgText  = "In attesa di quotazione del costo di trasporto."

                ::session:MsgType  = WWW_Info()

             else

                ::session:RetState := .F.

                ::session:MsgTitle = "Carrello"

                ::session:MsgText  = "Errore durante il cambio stato del carrello. Riprovare."

                ::session:MsgType  = WWW_Warning()

             endif



             if empty(::session:LastShopping)  

                #include "wwwnavbar.prg"

                #include "wwwbanner.prg"

                #include "wwwhome.prg"

              else

                ::HTTPResponse:Redirect(::session:LastShopping) // Chiamata al Carrello in attesa...

              endif

        endif%>





<%*  qwqw--------------- da aggiornare: ADM, PDS, ecc. ----------------%>

<%* --- ANAGRAFICA ARTICOLO%>

<%if (::Params:OpCode == WWW_ArticoloUpdate())  // Aggiorna Articolo

     ::session:LastShopping = ""

     #include "wwwArticoloUpdate.prg"

     #include "wwwnavbar.prg"

     #include "wwwArticoloShow.prg"

endif%>

<%* --- Fine ANAGRAFICA ARTICOLI%>



<%* --- Check PDS+Pwd%>

<%if (::Params:OpCode == WWW_CheckPDS())   // Destinazione Password

     ::session:LastShopping = ""

     if COXCheckPDS(::session:CodCli, j_Parse2(::Params:Destinazione, "[", "]"), ::Params:Password)

        ::session:RetState := .T.

        ::session:PDS      := "S"

        ::session:DES      := j_Parse2(::Params:Destinazione, "[", "]")

        ::session:Destin   := ::Params:Destinazione

        ::HTTPResponse:Redirect(::File+"?OpCode="+WWW_PDSSet())    

     else

        ::session:RetState    := .F.

        ::session:PDS         := ""

        ::session:DES         := ""

        ::session:Destin      := ""

        ::session:LastShopping:= ""

        ::session:CodCli      := ""  // Rifacciamo la Login

     endif



     #include "wwwgetstore.prg"

     #include "wwwnavbar.prg"

     if !(::session:RetState)

        TEXT INTO cHtml WRAP

            <div class="alert alert-warning d-flex justify-content-center align-items-center">

                <strong>Attenzione!</strong>&nbspCredenziali errate. Reinserire il Magazzino e la Password.

            </div>

        ENDTEXT

        ? cHtml

     endif

     #include "wwwhome.prg"

endif%>

<%* --- Fine Check PDS+Pwd%>



<%* --- ADMSSet%>

<%if (::Params:OpCode == WWW_ADMSet())   // Set ADM Function

     ::session:LastShopping = ""

     #include "wwwADMSet.prg"

     #include "wwwgetstore.prg"

     #include "wwwnavbar.prg"

     #include "wwwhome.prg"

endif%>

<%* --- ADMSet%>



<%* --- ACQSet%>

<%if (::Params:OpCode == WWW_ACQSet())   // Set ACQ Function

     ::session:LastShopping = ""

     #include "wwwACQSet.prg"

     #include "wwwgetstore.prg"

     #include "wwwnavbar.prg"

     #include "wwwhome.prg"

endif%>

<%* --- ACQSet%>



<%* --- PDSSet%>

<%if (::Params:OpCode == WWW_PDSSet())   // Set PDS Function

     ::session:LastShopping = ""

     #include "wwwPDSSet.prg"

     #include "wwwgetstore.prg"

     #include "wwwnavbar.prg"

     #include "wwwhome.prg"

endif%>

<%* --- Fine PDS%>



<%* 2 - Righe Piattaforma Distributiva (tutti i Magazzini)%>

<%if (::Params:OpCode == WWW_PDSRighe())     // Righe Piattaforma

     #include "wwwPDSRighe.prg"

endif%>



<%* --- Pagamento PayPal%>

<%if (::Params:OpCode == WWW_PayPal())   // PayPal Payment Accepted

  * --- Chiamata da PayPal in CallBack   // NON TOCCARE

     if empty(::Params:Carrello) 

        ::session:RetState = .f.

        ::session:MsgTitle = "PayPal"

        ::session:MsgText  = "Manca il numero di carrello."

        ::session:MsgType  = WWW_Danger()

     else

        nCarrello := val(::Params:Carrello)

        PayerID   := if (::Params:PayerID = NIL, "", ::Params:PayerID)



        pStato         = ""

        pMsg           = ""

        nAmountInvoice = 0

        if COXGetCarrello(nCarrello, @::session:CodCli, @nAmountInvoice, @pStato, @pMsg) 

           cObj      := "Ordine n. "+COXCodAzi()+"/"+alltrim(str(nCarrello))+" ("+dtoc(date())+" "+Time()+")"

 

           cImporto  := "Importo Ordine EUR : "+j_nstr(nAmountInvoice,6,2)

           cMessage  := "Grazie per il pagamento, spediremo prima possibile. Ti abbiamo inviato una mail di promemoria."

           cBody     := "Gentile "+trim(::session:Ragsoc)+","+CRLF()

           cBody     += "abbiamo ricevuto il pagamento, spediremo prima possibile."        +CRLF()

           cBody     += ""                                                                 +CRLF()

           cBody     += cImporto                                                           +CRLF()

           cBody     += ""                                                                 +CRLF()

           cBody     += "Un cordiale saluto e grazie per lacquisto."                      +CRLF()

           cBody     += AZI_INT()                                                          +CRLF()

           cBody     += AZI_WEB()                                                          +CRLF()                



                          // No ReSend. questa sezione viene richiamata da COX Web dopo lInvio Ordine 

                          // e da PayPal come return_url. Occorre il flag altrimenti COX e PayPal mandano la stessa mail.

           pMsg = "" 

           if COXBprStateUpd(nCarrello, ::session:CodCli, ::session:sStatoPagato, .F., date(), PayerID, ::HttpRequest:GetVariable("REQUEST_URI"), @pMsg) 

              if COXBprSendMail(nCarrello, ::session:CodCli, cObj, cBody, .F.) 

                 ::session:RetState = .t.

                 ::session:MsgTitle = "PayPal"

                 ::session:MsgText  = "Carrello chiuso correttamente con il pagamento."

                 ::session:MsgType  = WWW_Info()

              else

                 ::session:RetState = .f.

                 ::session:MsgTitle = "PayPal"

                 ::session:MsgText  = "Errore in fase di invio mail."

                 ::session:MsgType  = WWW_Danger()

             endif

          else

             ::session:RetState = .f.

             ::session:MsgTitle = "PayPal"

             ::session:MsgText  = "Errore in fase di aggiornamento carrello. "+pMsg

             ::session:MsgType  = WWW_Danger()

          endif

       else

          ::session:RetState = .f.

          ::session:MsgTitle = "PayPal"

          ::session:MsgText  = "Carrello non trovato. "+pMsg

          ::session:MsgType  = WWW_Danger()

       endif

    endif



    nCARRELLO      := 0        // No Numero Carrello        (CODICE   sang_bpr)

    PayerID        := 0

    nAmountInvoice := 0        // No Totale Carrello        (TO_P_FAT sang_bpr)



    #include "wwwnavbar.prg"

    #include "wwwbanner.prg"

    #include "wwwhome.prg"

endif%>

<%* --- Fine CARRELLO%>



<%* --- Admin%>

<%* 1%>

<%if (::Params:OpCode == WWW_AdminWIPShow())   // Admin Show Work in Progress

     ::session:LastShopping = ""

     #include "wwwadminwipshow.prg"

endif%>



<%* 2%>

<%if (::Params:OpCode == WWW_AdminWIPReload())   // Parametri Admin

     ::session:LastShopping = ""

     #include "wwwloadcfg.prg"

     if (::session:RetState = .T.) 

        #include "wwwadminwipshow.prg"

     else

        ::session:CXPID = "(034)"

        #include "wwwerrorloadcfg.prg"

     endif

endif%>



<%* 3%>

<%if (::Params:OpCode == WWW_AdminWIPSet())   // Admin Set Work in Progress

     ::session:LastShopping = ""

     #include "wwwadminwipset.prg"

     #include "wwwgetstore.prg"

     #include "wwwnavbar.prg"

     #include "wwwhome.prg"

endif%>

<%* --- Fine Admin%>

</div>



<script>

  /* ==== Scheda Articolo ===== */

  let slideIndex = 1;



  showSlidesV(slideIndex);

  showSlidesL(slideIndex);

  showSlidesO(slideIndex);



  function plusSlides(n) {

     showSlidesV(slideIndex += n);

     showSlidesL(slideIndex += n);

     showSlidesO(slideIndex += n);

   }



  function currentSlide(n) {

     showSlidesV(slideIndex = n);

     showSlidesL(slideIndex = n);

     showSlidesO(slideIndex = n);

   }



  function showSlidesV(n) {

     let i;

     let slides = document.getElementsByClassName("mySlidesV");

     let dots = document.getElementsByClassName("image");

     let captionText = document.getElementById("caption");

     if (n > slides.length) {slideIndex = 1}

     if (n < 1) {slideIndex = slides.length}

     for (i = 0; i < slides.length; i++) {

         slides[i].style.display = "none";

      }

     for (i = 0; i < dots.length; i++) {

         dots[i].className = dots[i].className.replace(" active", "");

      }

     slides[slideIndex-1].style.display = "block";

     dots[slideIndex-1].className += " active";

     captionText.innerHTML = dots[slideIndex-1].alt;

   }



  function showSlidesL(n) {

     let i;

     let slides = document.getElementsByClassName("mySlidesL");

     let dots = document.getElementsByClassName("image");

     let captionText = document.getElementById("caption");

     if (n > slides.length) {slideIndex = 1}

     if (n < 1) {slideIndex = slides.length}

     for (i = 0; i < slides.length; i++) {

         slides[i].style.display = "none";

      }

     for (i = 0; i < dots.length; i++) {

         dots[i].className = dots[i].className.replace(" active", "");

      }

     slides[slideIndex-1].style.display = "block";

     dots[slideIndex-1].className += " active";

     captionText.innerHTML = dots[slideIndex-1].alt;

   }



  function showSlidesO(n) {

     let i;

     let slides = document.getElementsByClassName("mySlidesO");

     let dots = document.getElementsByClassName("image");

     let captionText = document.getElementById("caption");

     if (n > slides.length) {slideIndex = 1}

     if (n < 1) {slideIndex = slides.length}

     for (i = 0; i < slides.length; i++) {

         slides[i].style.display = "none";

      }

     for (i = 0; i < dots.length; i++) {

         dots[i].className = dots[i].className.replace(" active", "");

      }

     slides[slideIndex-1].style.display = "block";

     dots[slideIndex-1].className += " active";

     captionText.innerHTML = dots[slideIndex-1].alt;

   }

</script>



<script type="text/javascript"> 

         var mobile = (/iphone|ipod|android|blackberry|mini|windows\sce|palm/i.test(navigator.userAgent.toLowerCase()));  

         if (mobile) { 

             $(.hidemobile).css(display, none); // OR you can use $(.hidemobile).hide();

                      } 

         else 

                     { 

             $(.hideweb).css(display, none); // OR you can use $(.hideweb).hide();

                     }

</script>

</body>

</html>

1036