Patch level : 10.0 patch 494

Files correlati     : lv3, lvbolacp.msk verig24.msk lvmenu
Ricompilazione Demo : [ ]
Commento            :
Aggiunta la gestione dei buoni di prelievo (con relativa chiasmata a menu e relativo profilo)

Correzioni varie sull'evasione dei buoni di prelievo


git-svn-id: svn://10.65.10.50/trunk@19564 c028cbd2-c16b-5b4b-a496-9718f37d4682

lv/lv3.cpp

@@ -8,7 +8,8 @@ int main(int argc, char** argv)
   switch (r)
   { 
   case  0: lv3100(argc, argv); break; // gestione manuale bolle                lv3100
-  case  1: lv3200(argc, argv); break; // evasione buoni si prelievo            lv3200
+  case  1: lv3200(argc, argv); break; // evasione buoni di prelievo            lv3200
+  case  2: lv3300(argc, argv); break; // gestione manuale buoni di prelievo    lv3300
   default: lv3100(argc, argv); break; // gestione manuale bolle                lv3100
   }
   return 0;

lv/lv3.h

@@ -3,5 +3,6 @@
 
 int lv3100(int argc, char* argv[]);
 int lv3200(int argc, char* argv[]);
+int lv3300(int argc, char* argv[]);
 
 #endif // __LV3_H

lv/lv3200.cpp

@@ -269,8 +269,7 @@ void TEvasione_msk::carica_righe()
 
       riga.add(rdoc.cong_pre(), sheet.cid2index(S_CONGPRE));
       riga.add(rdoc.cong_att(), sheet.cid2index(S_CONGATT));
-      riga.add(rdoc.rifbcon(),  sheet.cid2index(S_RIFBCON));
+      riga.add(rdoc.rifbcon(),  sheet.cid2index(S_RIFBCON));      
-      riga.add(rdoc.rifbrit(),  sheet.cid2index(S_RIFBRIT));
     }
     else
       rdoc.set_evaso(true);
@@ -381,6 +380,13 @@ void TEvasione_msk::genera_documento()
     long dottmp = magcli.get_long(CLIFOGIAC_DOTTM);
     long dotod  = magcli.get_long(CLIFOGIAC_DOTOD);
 
+    //recupero l'unità di misura principale di quest'articolo
+    TToken_string key;
+    key.add(codart);
+    key.add(1);
+    const TRectype& umart = cache().get(LF_UMART, key);
+    TString4 um = umart.get(UMART_UM);
+
     TRiga_documento& rdoc = doc.new_row("21");
     rdoc.put(RDOC_CODART, codart);
     rdoc.put(RDOC_CODARTMAG,codart);
@@ -399,8 +405,8 @@ void TEvasione_msk::genera_documento()
     rdoc.put(RDOC_QTA, rbpre.qta_consegnata());   //consegnato
     rdoc.put(RDOC_QTAGG1, rbpre.qta_ritirata());  //ritirato
 
-    rdoc.put("DOTOD", dotod);
+    dotod += (rbpre.qta_consegnata() - rbpre.qta_ritirata());
-    rdoc.add("DOTOD", rbpre.qta_consegnata());
+    rdoc.put("DOTOD", dotod);    
 
     bool dtmp = false;
     if (datagen >= rcont.get_date(LVRCONDV_INDTTMP) && datagen <= rcont.get_date(LVRCONDV_FIDTTMP))
@@ -409,7 +415,7 @@ void TEvasione_msk::genera_documento()
     if(dtmp)
     {
       rdoc.put("DOTMP", dottmp);
-      rdoc.add("DOTMP", rbpre.qta_consegnata());
+      rdoc.add("DOTMP", rbpre.qta_consegnata() - rbpre.qta_ritirata());
     }
     
     rdoc.put(RDOC_CODAGG1, rbpre.causale());
@@ -427,6 +433,8 @@ void TEvasione_msk::genera_documento()
       rdoc.put(RDOC_PREZZO, prezzo);
       rdoc.put(RDOC_SCONTO, rcont.get(LVRCONDV_SCONTPERC)); //sconto
     }
+
+    rdoc.put(RDOC_UMQTA, um);
   
     //scrivo il magazzino
     TString8 magazzino;
@@ -450,7 +458,7 @@ void TEvasione_msk::genera_documento()
     err = doc.write();
     const TString4 stato = cache().get("%TIP", ini_get_string(CONFIG_DITTA, "lv", "TIPODOC_PRE", NULL, 0), "S2").mid(1,1);
     bpre.put(DOC_STATO, stato);
-    bpre.write();
+    bpre.rewrite();
     set(F_STATO, stato);
   }
 
@@ -470,7 +478,6 @@ void TEvasione_msk::genera_documento()
 
   reset(F_NDOC);
   send_key(K_TAB, F_NDOC);
-  field(F_NDOC).set_focus();
 }
 
 //EVADI_TUTTO: metodo che forza a "evaso" tutte le righe e lancia la generazione del buono di consegna associato
@@ -519,6 +526,8 @@ void TEvasione_msk::salva()
   TDoc_key kdoc(get_int(F_ANNO), get(F_CODNUM), get_long(F_NDOC));
   TBuono_prelievo doc(kdoc);
 
+  TLaundry_contract cont(get_long(F_CODCF), get_long(F_CODCONT));
+
   //nel caso avessi spezzato le righe, risrcivendole da capo mi vengono ordinate per codice
   //ATTENZIONE: devo eliminare le sole righe che sono sullo sheet, cioè quelle che hanno 
   //quantità da consegnare maggiore di zero
@@ -528,7 +537,7 @@ void TEvasione_msk::salva()
     TBuono_prelievo_row rdoc(row);
 
     if (rdoc.qta_dacons() > 0)
-      doc.destroy_row(i, true);
+      doc.destroy_row(i, true);    
   }
 
   TSheet_field& sheet = sfield(F_RIGHE);
@@ -539,7 +548,7 @@ void TEvasione_msk::salva()
   //per ogni riga dello sheet genero una riga documento
   FOR_EACH_SHEET_ROW(sheet, r, riga)  
   {
-    TRiga_documento& row = doc.new_row("21");
+    TRiga_documento& row = doc.new_row("24");
     TBuono_prelievo_row rdoc(row);
 
     const char flgev = riga->get(sheet.cid2index(S_EVASO))[0];
@@ -549,18 +558,51 @@ void TEvasione_msk::salva()
     else
       flag = false;
 
+    const TString80 codart = riga->get(sheet.cid2index(S_CODART));
+
     rdoc.set_evaso(flag);
-    rdoc.set_codart(riga->get(sheet.cid2index(S_CODART)));
+    rdoc.set_codart(codart);
     rdoc.set_desart(riga->get(sheet.cid2index(S_ARTDESCR)));
     rdoc.set_causale(riga->get(sheet.cid2index(S_CAUSALE)));
     rdoc.set_qta_ritirata(riga->get_int(sheet.cid2index(S_RITIRATO)));
     rdoc.set_qta_dacons(riga->get_int(sheet.cid2index(S_DACONS)));
     rdoc.set_qta_consegnata(riga->get_int(sheet.cid2index(S_CONSEGNATO)));
-    rdoc.set_num_pacchi(riga->get_int(sheet.cid2index(S_PACCHI)));
+    rdoc.set_num_pacchi(riga->get_int(sheet.cid2index(S_PACCHI)));    
     rdoc.set_cong_att(riga->get_int(sheet.cid2index(S_CONGPRE)));
     rdoc.set_cong_pre(riga->get_int(sheet.cid2index(S_CONGATT)));
     rdoc.set_rifbcon(riga->get(sheet.cid2index(S_RIFBCON)));
-    rdoc.set_rifbrit(riga->get(sheet.cid2index(S_RIFBRIT)));
+
+     //recupero l'unità di misura principale di quest'articolo
+    TToken_string key;
+    key.add(codart);
+    key.add(1);
+    const TRectype& umart = cache().get(LF_UMART, key);    
+    rdoc.set_um(umart.get(UMART_UM));
+    
+    //recupero il codiva di quest'articolo
+    const TRectype& anamag = cache().get(LF_ANAMAG, codart);
+    rdoc.set_codiva(anamag.get(ANAMAG_CODIVA));
+
+    const TRectype& rcont = cont.row(codart);
+
+    //controllo da dove devo prendere il  prezzo
+    real prezzo;
+
+    if (cont.get_int(LVCONDV_TIPOLIS) == 0)
+      prezzo = rcont.get_real(LVRCONDV_PREZZO);
+    else
+      prezzo = anamag.get_real(ANAMAG_COSTSTD);
+    rdoc.set_prezzo(prezzo);
+
+    //scrivo il magazzino
+    TString8 magazzino;
+    TString8 magazzinoc;
+    
+    magazzino  << ini_get_string(CONFIG_DITTA, "lv", "CODMAG") << ini_get_string(CONFIG_DITTA, "lv", "CODMAGN");
+    magazzinoc << ini_get_string(CONFIG_DITTA, "lv", "CODMAG") << ini_get_string(CONFIG_DITTA, "lv", "CODMAGC");
+
+    rdoc.set_mag(magazzino);
+    rdoc.set_magc(magazzinoc);
   }
   doc.rewrite();
 }
@@ -602,8 +644,7 @@ void TEvasione_msk::annulla_operazioni()
 
     riga.add(rdoc.cong_pre(),       sheet.cid2index(S_CONGPRE));
     riga.add(rdoc.cong_att(),       sheet.cid2index(S_CONGATT));
-    riga.add(rdoc.rifbcon(),        sheet.cid2index(S_RIFBCON));
+    riga.add(rdoc.rifbcon(),        sheet.cid2index(S_RIFBCON));    
-    riga.add(rdoc.rifbrit(),        sheet.cid2index(S_RIFBRIT));
   }
   sheet.force_update();
 }
@@ -846,7 +887,10 @@ bool TEvasione_msk::on_field_event(TOperable_field& f, TField_event e, long joll
         sistema_pacchi();
 
         if (controlla())
+        {
           genera_documento();
+          //field(F_NDOC).set_focus();
+        }
       }
     }
     break;

lv/lv3200a.uml

@@ -211,7 +211,6 @@ BEGIN
   ITEM "Cong.\nPrec."
   ITEM "Cong.\nAtt."
   ITEM "Riferimenti\nbuoni cons."
-  ITEM "Riferimenti\nbuoni rit."
 END
 
 ENDPAGE
@@ -322,11 +321,5 @@ BEGIN
   FLAGS "D"
 END
 
-STRING S_RIFBRIT 255 50
-BEGIN
-  PROMPT 1 7 "Riferimenti buono di ritiro  "
-  FLAGS "D"
-END
-
 ENDPAGE
 ENDMASK

lv/lvbolacp.src

@@ -199,12 +199,12 @@ Col(4)=FR_LIV4
 Col(5)=FR_DESCR||28
 Col(6)=FR_CAULAV|Caus.|5
 Col(7)=FR_RITIRO|Ritiro|6
-Col(8)=FR_JOLLY5|Da cons|8
+Col(8)=FR_QTA|Da cons|8
-Col(9)=FR_QTA|Cons.|6
+Col(9)=FR_QTAEVASA|Cons.|6
-Col(10)=FR_JOLLY6|Pacchi|6
+Col(10)=FR_NCOLLI|Pacchi|6
 Col(11)=FR_PREZZO||6
-Col(12)=FR_JOLLY1@R|Dotaz.|7
+Col(12)=FR_JOLLY1|Dotaz.|7
-Col(13)=FR_JOLLY2@R|D.Temp.|7
+Col(13)=FR_JOLLY2|D.Temp.|7
 Col(14)=FR_JOLLY3|Inizio|10
 Col(15)=FR_JOLLY4|Fine|10
 Col(16)=FR_UMQTA
@@ -212,19 +212,18 @@ Col(17)=FR_SCONTO
 Col(18)=FR_PERCPROV
 Col(19)=FR_PERCPROV1
 Col(20)=FR_CODIVA
-Col(21)=FR_NCOLLI
+Col(21)=FR_PNETTO
-Col(22)=FR_PNETTO
+Col(22)=FR_TARA
-Col(23)=FR_TARA
+Col(23)=FR_CAUS
-Col(24)=FR_CAUS
+Col(24)=FR_CODMAGC
-Col(25)=FR_CODMAGC
+Col(25)=FR_CODDEPC
-Col(26)=FR_CODDEPC
+Col(26)=FR_CODMAG
-Col(27)=FR_CODMAG
+Col(27)=FR_CODDEP
-Col(28)=FR_CODDEP
+Col(28)=FR_TIPORIGA|Tipo|4
-Col(29)=FR_TIPORIGA|Tipo|4
+Col(29)=FR_JOLLY5|Rif. buoni cons.|20
 
 [RIGHE]
-Tipo(0)=23
+Tipo(0)=24
-Tipo(1)=05
 
 [HANDLERS]
 Handler(0) = 106|4101

lv/lvmenu.men

@@ -103,13 +103,14 @@ Item_02 = "Acquisizione del Pulito", "lv2 -8", "F"
 Item_03 = "Generazione buoni di prelievo", "lv2 -3 P", "F"
 Item_04 = "Generazione buoni di consegna", "lv2 -3 C", "F"
 Item_05 = "Buoni di Ritiro", "lv3 -0 -filtI1=1 -defNUM_RIT(0),TIPODOC_RIT(0),lv", "F"
-Item_06 = "Buoni di Prelievo", "lv3 -0 -filtI1=1 -defNUM_PRE(0),TIPODOC_PRE(0),lv", "F"
+Item_06 = "Buoni di Prelievo", "lv3 -2 -filtI1=1 -defNUM_PRE(0),TIPODOC_PRE(0),lv", "F"
 Item_07 = "Buoni di Consegna", "lv3 -0 -filtI1=1 -defNUM_GEN,TIPODOC_GEN,lv", "F"
 Item_08 = "Fatture", "ve0 -1 -filtI1=2 -defNUM_FAT,TIPODOC_FAT,lv", "F"
 Item_09 = "Ordini Fornitori", "ve0 -1 -filtI1=3 -defNUM_ORF,TIPODOC_ORF,lv", "F"
 Item_10 = "Ordini Clienti", "ve0 -1 -filtI1=3 -defNUM_ORC,TIPODOC_ORC,lv", "F"
 Item_11 = "Fatturazione", "lv2 -4", "F"
 Item_12 = "Evasione Buoni di Prelievo manuale", "lv3 -1 M", "F"
+Item_13 = "Evasione Buoni di Prelievo barcode", "lv3 -1 B", "F"
 Item_13 = "Stampe", [LVMENU_050]
 
 [LVMENU_050]

lv/verig24.ini

@@ -0,0 +1,13 @@
+#Profilo di riga tipo merce lavanderie
+[MAIN]
+CALCOLI=*
+CAMPICALC=
+IMPONIBILE=IMPNS
+
+[HANDLERS]
+NHANDLER = 5
+1 = 133|4101
+2 = 112|4102
+3 = 105|4103
+4 = 152|4104
+5 = 103|4105

lv/verig24.uml

@@ -0,0 +1,474 @@
+#include "..\ve\verig.h"
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -14 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -24 -1 ""
+END
+
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -34 -1 "Elimina"
+  MESSAGE EXIT,K_DEL
+END
+
+BUTTON DLG_USER 10 2
+BEGIN
+  PROMPT -44 -1 "~Collega"
+  PICTURE BMP_LINK
+END
+
+ENDPAGE
+
+PAGE "Merce Lavanderia" 0 2 0 0 
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+	PROMPT 0 0 ""
+END
+
+LIST FR_TIPORIGA 2 50
+BEGIN
+  PROMPT 2 1 "Tipo riga "
+  FIELD TIPORIGA
+END
+
+GROUPBOX DLG_NULL 78 10
+BEGIN
+	PROMPT 1 3 "@bArticolo"
+END
+
+STRING FR_CODART 8
+BEGIN
+  PROMPT 2 4 "Articolo "
+  USE LF_ANAMAG KEY 1
+  INPUT CODART FR_CODART
+  DISPLAY "Codice@6" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT FR_CODART CODART
+  OUTPUT FR_DESCRART DESCR
+  FLAGS "U"
+  FIELD CODART
+  ADD RUN ve2 -3
+END
+
+STRING FR_DESCRART 50
+BEGIN
+  PROMPT 25 4 ""
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR FR_DESCRART
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Codice@8" CODART
+  COPY OUTPUT FR_CODART
+  ADD RUN ve2 -3
+  FIELD DESCR
+END
+
+STRING FR_HDESC 50
+BEGIN
+  PROMPT 100 100 "Descrizione "
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR FR_HDESC
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Codice@20" CODART
+	COPY OUTPUT FR_CODART
+END
+
+STRING FR_CODARTMAG 20
+BEGIN
+  PROMPT 200 6 ""
+  FIELD CODARTMAG
+  FLAGS "G"
+END
+
+BOOLEAN FR_CHECKED
+BEGIN
+  PROMPT 51 50 ""
+  FIELD CHECKED
+  FLAGS "D"
+END
+
+STRING FR_LIV1 15
+BEGIN
+  PROMPT 2 5 "Liv.Gia. "
+  FLAGS "U"
+  USE GCG
+  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
+  INPUT CODTAB[1,1] "1"
+  INPUT CODTAB[2,] FR_LIV1
+  DISPLAY "Livello@20" 500@->S0
+  DISPLAY "Gruppo@15" CODTAB[2,]
+  DISPLAY "Descrizione@30" S0
+  OUTPUT FR_LIV1 CODTAB[2,]
+  MESSAGE EMPTY RESET,FR_LIV2|RESET,FR_LIV3|RESET,FR_LIV4
+  MESSAGE ENABLE,FR_LIV2
+  CHECKTYPE NORMAL
+END
+
+STRING FR_LIV2 15
+BEGIN
+  PROMPT 28 5 ""
+  FLAGS "U"
+  USE GCG
+  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
+  INPUT CODTAB[1,1] "2"
+  INPUT CODTAB[2,] FR_LIV2
+  DISPLAY "Livello@20" 500@->S0
+  DISPLAY "Gruppo@15" CODTAB[2,]
+  DISPLAY "Descrizione@30" S0
+  OUTPUT FR_LIV2 CODTAB[2,]
+  MESSAGE EMPTY RESET,FR_LIV3|RESET,FR_LIV4
+  MESSAGE ENABLE,FR_LIV3
+  CHECKTYPE NORMAL
+END
+
+STRING FR_LIV3 15
+BEGIN
+  PROMPT 45 5 ""
+  FLAGS "U"
+  USE GCG
+  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
+  INPUT CODTAB[1,1] "3"
+  INPUT CODTAB[2,] FR_LIV3
+  DISPLAY "Livello@20" 500@->S0
+  DISPLAY "Gruppo@15" CODTAB[2,]
+  DISPLAY "Descrizione@30" S0
+  OUTPUT FR_LIV3 CODTAB[2,]
+  MESSAGE EMPTY RESET,FR_LIV4
+  MESSAGE ENABLE,FR_LIV4
+  CHECKTYPE NORMAL
+END
+
+STRING FR_LIV4 15
+BEGIN
+  PROMPT 62 5 ""
+  FLAGS "U"
+  USE GCG
+  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
+  INPUT CODTAB[1,1] "4"
+  INPUT CODTAB[2,] FR_LIV4
+  DISPLAY "Livello@20" 500@->S0
+  DISPLAY "Gruppo@15" CODTAB[2,]
+  DISPLAY "Descrizione@30" S0
+  OUTPUT FR_LIV4 CODTAB[2,]
+  CHECKTYPE NORMAL
+END
+
+STRING FR_UMQTA 3
+BEGIN
+  PROMPT 2 6 "U.M. "
+  USE LF_UMART KEY 2
+  JOIN %UMS INTO CODTAB=UM
+  INPUT CODART FR_CODARTMAG SE
+  INPUT UM FR_UMQTA
+  DISPLAY "Codice@20" UM
+  DISPLAY "Descrizione@50" %UMS->S0
+  OUTPUT  FR_UMQTA UM
+  FIELD UMQTA
+  FLAG "U"
+  CHECKTYPE REQUIRED
+END
+
+STRING FR_UMQTA2 2
+BEGIN
+  PROMPT 2 6 "U.M. "
+  USE %UMS
+  INPUT CODTAB FR_UMQTA2
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT  FR_UMQTA2 CODTAB
+  FIELD UMQTA
+  FLAG "U"
+  CHECKTYPE NORMAL
+END
+
+CURRENCY FR_PREZZO 15
+BEGIN
+  PROMPT 13 6 "Prezzo "
+  FLAGS "U"
+  FIELD PREZZO
+END
+
+STRING FR_SCONTO 15
+BEGIN
+  PROMPT 36 6 "Sconto "
+  FIELD SCONTO
+END
+
+NUMBER FR_PERCPROV 5 2
+BEGIN
+  PROMPT 59 6 "Provv. "
+  FIELD PERCPROV
+END
+
+NUMBER FR_PERCPROV1 5 2
+BEGIN
+  PROMPT 72 6 ""
+  FIELD PERCPROV1
+END
+
+STRING FR_CAULAV 3
+BEGIN
+  PROMPT 2 7 "Cau. Lav. "
+  USE &LVCAU
+  INPUT CODTAB FR_CAULAV 
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FR_CAULAV CODTAB
+  OUTPUT FR_DESCAU S0
+  OUTPUT FR_FLCONS B1
+  OUTPUT FR_FLRIT B0
+  CHECKTYPE REQUIRED
+  FLAGS "U"
+  FIELD CODAGG1
+END
+
+STRING FR_DESCAU 50
+BEGIN
+  PROMPT 18 7 ""
+  FLAGS "D"
+END
+
+BOOLEAN FR_FLCONS
+BEGIN
+	PROMPT 50 50 "Flag consegnato"
+	FLAGS "HG"
+END
+
+BOOLEAN FR_FLRIT
+BEGIN
+	PROMPT 50 50 "Flag ritirato"
+	FLAGS "HG"
+END
+
+NUMBER FR_RITIRO 6 0
+BEGIN
+  PROMPT 2 8 "Ritirato  "
+  FIELD QTAGG1
+END
+
+NUMBER FR_QTA 6 0
+BEGIN
+  PROMPT 20 8 "Da cons.  "
+  FIELD QTA
+END
+
+NUMBER FR_QTAEVASA 6 0
+BEGIN
+  PROMPT 40 8 "Consegnato "
+  FIELD QTAEVASA
+  FLAGS "D"
+END
+
+NUMBER FR_NCOLLI 7
+BEGIN
+  PROMPT 60 8 "Pacchi    "
+  FIELD NCOLLI
+  FLAGS "D"
+END
+
+NUMBER FR_JOLLY1 6 0
+BEGIN
+  PROMPT 2 9 "Dot. Od.  "
+  FIELD DOTOD
+  FLAGS "D"
+END
+
+NUMBER FR_JOLLY2 6 0
+BEGIN
+  PROMPT 20 9 "Dot. Tem. "
+  FIELD DOTMP
+  FLAGS "D"
+END
+
+DATE FR_JOLLY3
+BEGIN
+  PROMPT 40 9 "Inizio "
+  FIELD DADATATMP
+  FLAGS "D"
+END
+
+DATE FR_JOLLY4
+BEGIN
+  PROMPT 60 9 "Fine   "
+  FIELD ADATATMP
+  FLAGS "D"
+END
+
+NUMBER FR_TARA 15 2
+BEGIN
+  PROMPT 2 10 "Tara "
+  FIELD TARA
+END
+
+NUMBER FR_PNETTO 6 2
+BEGIN
+  PROMPT 25 10 "Peso netto "
+  FIELD PNETTO
+END
+
+STRING FR_CODIVA 4
+BEGIN
+  PROMPT 2 11 "IVA "
+  USE %IVA
+  INPUT CODTAB FR_CODIVA
+  DISPLAY "Codice@20" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT  FR_CODIVA CODTAB
+  OUTPUT  FR_DESIVA S0
+  FLAGS "U"
+  VALIDATE ZEROFILL_FUNC 2
+  CHECKTYPE NORMAL
+  FIELD CODIVA
+END
+
+STRING FR_DESIVA 50
+BEGIN
+  PROMPT 13 11 ""
+  USE %IVA KEY 2
+  INPUT S0 FR_DESIVA
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice@20" CODTAB
+  OUTPUT  FR_CODIVA CODTAB
+  OUTPUT  FR_DESIVA S0
+END
+
+STRING FR_TIPODET 1
+BEGIN
+  PROMPT 67 11 "Indetr.  "
+  USE %DET
+  INPUT CODTAB FR_TIPODET
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Tipo" I0
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FR_TIPODET CODTAB
+  CHECKTYPE NORMAL
+  FLAGS "U"
+END
+
+GROUPBOX DLG_NULL 78 6
+BEGIN
+	PROMPT 1 13 "@bMagazzino"
+END
+
+STRING FR_CODMAG 4
+BEGIN
+  PROMPT 2 14 "Magazzino      "
+  USE MAG SELECT CODTAB[4,5]==""
+  INPUT CODTAB FR_CODMAG
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FR_CODMAG CODTAB
+  OUTPUT FR_DESMAG S0
+  WARNING "Magazzino assente"
+  FLAGS "U"
+  CHECKTYPE NORMAL
+  FIELD CODMAG[1,3]
+END
+
+STRING FR_DESMAG 50
+BEGIN
+  PROMPT 26 14 ""
+  FLAGS "D"
+END
+
+STRING FR_CODDEP 4
+BEGIN
+  PROMPT 2 15 "Deposito       "
+  USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB[4,5]!="")
+  INPUT CODTAB[1,3] FR_CODMAG
+  INPUT CODTAB[4,5] FR_CODDEP
+  DISPLAY "Codice mag." CODTAB[1,3]
+  DISPLAY "Codice dep." CODTAB[4,5]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FR_CODMAG CODTAB[1,3]
+  OUTPUT FR_CODDEP CODTAB[4,5]
+  OUTPUT FR_DESDEP S0
+  MESSAGE DIRTY,FR_CODMAG|K_TAB,FR_CODMAG
+  CHECKTYPE NORMAL
+  WARNING "Deposito assente"
+  FLAGS "U"
+  FIELD CODMAG[4,5]
+END
+
+STRING FR_DESDEP 50
+BEGIN
+  PROMPT 26 15 ""
+  FLAGS "D"
+END
+
+STRING FR_CODMAGC 4
+BEGIN
+  PROMPT 2 16 "Magazzino Col. "
+  COPY USE FR_CODMAG
+  INPUT CODTAB FR_CODMAGC
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FR_CODMAGC CODTAB
+  OUTPUT FR_DESMAGC S0
+  WARNING "Magazzino assente"
+  FLAGS "U"
+  CHECKTYPE NORMAL
+  FIELD CODMAGC[1,3]
+END
+
+STRING FR_DESMAGC 50
+BEGIN
+  PROMPT 26 16 ""
+  FLAGS "D"
+END
+
+STRING FR_CODDEPC 4
+BEGIN
+  PROMPT 2 17 "Deposito       "
+  USE MAG SELECT (CODTAB[1,3]==#FR_CODMAGC) && (CODTAB[4,5]!="")
+  INPUT CODTAB[1,3] FR_CODMAGC
+  INPUT CODTAB[4,5] FR_CODDEPC
+  DISPLAY "Codice mag." CODTAB[1,3]
+  DISPLAY "Codice dep." CODTAB[4,5]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FR_CODMAGC CODTAB[1,3]
+  OUTPUT FR_CODDEPC CODTAB[4,5]
+  OUTPUT FR_DESDEPC S0
+  MESSAGE DIRTY,FR_CODMAGC|K_TAB,FR_CODMAGC
+  CHECKTYPE NORMAL
+  WARNING "Deposito assente"
+  FLAGS "U"
+  FIELD CODMAGC[4,5]
+END
+
+STRING FR_DESDEPC 50
+BEGIN
+  PROMPT 26 17 ""
+  FLAGS "D"
+END
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+	PROMPT 1 19 "@bRiferimenti documenti"
+END
+
+STRING FR_JOLLY5 20
+BEGIN
+  PROMPT 2 20 "Buono di Consegna"
+  FIELD RIFBCON
+  FLAGS "D"
+END
+  
+ENDPAGE
+
+PAGE "Analitica" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 14
+BEGIN
+  PROMPT 1 0 "Contabilita' analitica"
+END
+
+ENDPAGE
+ENDMASK