From c76f11b41431015574a7276736de73e2d4c488c2 Mon Sep 17 00:00:00 2001
From: luca <luca@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 16 Oct 2003 09:07:35 +0000
Subject: [PATCH] Patch level         :2.0 partners 602 Files correlati    
 :or1100b.frm Ricompilazione Demo : [ ] Commento            : AO20103 Se
 faccio una Stampa Ordini per Clienti/Fornitori+Dettaglio righe mi viene
 restituito il messaggio: "Can't find item with ID 10" seguito da "Runtime
 error C:\CAMPO32\OR1.EXE".

git-svn-id: svn://10.65.10.50/trunk@11504 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 or/or1100b.frm | 139 ++++++++++++++++++++++++++++++-------------------
 1 file changed, 86 insertions(+), 53 deletions(-)

diff --git a/or/or1100b.frm b/or/or1100b.frm
index 3b0d28813..1f5cfe1e2 100755
--- a/or/or1100b.frm
+++ b/or/or1100b.frm
@@ -15,8 +15,6 @@ END
 GENERAL
 BEGIN
   OFFSET 0 0
-  FONT "Courier New"
-  SIZE 10
 END
 
 
@@ -46,7 +44,7 @@ END
 NUMERO 4 40
 BEGIN
  KEY "Intestazione stampa"
- PROMPT  40 2 "@bStampa ordini per cliente/fornitore"
+ PROMPT  40 2 "Stampa ordini per cliente/fornitore"
 END
 
 END //HEADER
@@ -54,7 +52,7 @@ END //HEADER
 
 SECTION BODY ODD 4 COLUMNWISE
 
-NUMERO 1 10
+NUMBER BODY_COL_1 10
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Codice" "Codice"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -66,17 +64,17 @@ BEGIN
  PICTURE "########"
 END
 
-STRINGA 2 40
+STRING BODY_COL_2 40
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
  KEY "Descrizione Rag Soc"
  PROMPT 2 1 ""
- FIELD LF_CLIFO->RAGSOC
+ MESSAGE _ORDINE,RAGSOC,0
 END
 
-STRINGA 3 4
+STRINGA BODY_COL_3 4
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Val." "Val."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -85,7 +83,7 @@ BEGIN
  PROMPT 3 1 ""
 END
 
-DATA 4 10
+DATA BODY_COL_4 10
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Data cons." "Data cons."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -114,7 +112,7 @@ BEGIN
  PROMPT 6 1 ""
 END
 
-STRINGA 7 4
+STRINGA BODY_COL_7 4
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "UM" "UM"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -125,7 +123,7 @@ BEGIN
  GROUP G_DETTAGLIO
 END
 
-STRINGA 8 13
+STRINGA BODY_COL_8 15
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Q.ta Ordinata" "Q.ta Ordinata"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -136,7 +134,7 @@ BEGIN
  GROUP G_DETTAGLIO
 END
 
-STRINGA 9 13
+STRINGA BODY_COL_9 15
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Q.ta Evasa" "Q.ta Evasa"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -147,9 +145,27 @@ BEGIN
  GROUP G_DETTAGLIO
 END
 
+STRINGA BODY_COL_10 13
+BEGIN
+ SPECIAL STRINGA INTESTAZIONE "@CPr. scontato" "Prezzo un. scontato"
+ SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
+ SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
+ KEY "Prezzo un. scontato" // Solo intestazione
+ FLAGS "H"
+ PROMPT 10 1 ""
+ GROUP G_DETTAGLIO
+END
 
-// Raggruppamento  righe documenti per lo stesso cli/fo
-SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF
+STRINGA BODY_COL_11 15
+BEGIN
+ SPECIAL STRINGA INTESTAZIONE "@CResiduo" "Residuo"
+ SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
+ SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
+ KEY "Residuo" // Solo intestazione
+ FLAGS "H"
+ PROMPT 11 1 ""
+ GROUP G_DETTAGLIO
+END
 
 STRINGA BODY_COL_12 15
 BEGIN
@@ -166,14 +182,14 @@ END
 // Raggruppamento  righe documenti per lo stesso cli/fo
 SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+LF_DOC->OCFPI
  
-   NUMERO 101 10
+   NUMBER 101 10
    BEGIN
     PROMPT 1 1 ""
     FLAGS "H"
     MESSAGE RESET,G_TOTALEART@
    END
    
-   STRINGA 102 40 2
+   STRING 102 40 2
    BEGIN
     KEY "Descrizione documento"
     PROMPT 2 1 ""
@@ -181,7 +197,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
     FLAGS "D"
    END
 
-   STRINGA 103 4
+   STRING 103 4
    BEGIN
     KEY "Codice Valuta"
     PROMPT 3 1 ""
@@ -223,17 +239,17 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
   SECTION RIGHEDOC 2 1 1 FILE LF_RIGHEDOC GROUP ANNO+NDOC //  changes into CODART grouping
   FLAGS "D" // Da abilitare solo su dettaglio righe
   
-    NUMERO 201 10
+    NUMBER 201 10
     BEGIN
      PROMPT 1 1 ""
     END
-    STRINGA 202 40 2
+    STRING 202 40 2
     BEGIN
      KEY "Descrizione articolo"
      PROMPT 2 1 ""
      MESSAGE _STREXPR,"**Art. "+LF_RIGHEDOC->CODART+" "+LF_ANAMAG->DESCR
     END
-    STRINGA 203 4
+    STRING 203 4
     BEGIN
      KEY "Codice Valuta"
      PROMPT 3 1 ""
@@ -248,15 +264,17 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
     BEGIN
      KEY "Valore Ordinato"
      PROMPT 5 1 ""
-     MESSAGE _ORDINE,VALORE
+     FIELD LF_RIGHEDOC->RIGAVALORE
      DRIVENBY 203
+//     PICTURE "."
     END
     VALUTA 206 15
     BEGIN
      KEY "Valore Residuo"
      PROMPT 6 1 ""
-     MESSAGE _ORDINE,VALRES
+     FIELD LF_RIGHEDOC->RIGAVALRES
      DRIVENBY 203
+//     PICTURE "."
     END   
     STRINGA 207 4
     BEGIN
@@ -264,19 +282,18 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
      PROMPT 7 1 ""
      FIELD LF_RIGHEDOC->UMQTA
     END
-    NUMERO 208 13
+    NUMBER 208 15
     BEGIN
      KEY "Q.ta Ordinata"
      PROMPT 8 1 ""
      FIELD LF_RIGHEDOC->QTA
-     PICTURE "#@,@@@"
-
+     PICTURE "########@,@@@@@"
     END
-    NUMERO 209 13
+    NUMBER 209 15
     BEGIN
      KEY "Q.ta Evasa"
      PROMPT 9 1 ""
-     MESSAGE _ORDINE,QTAEVASA
+     FIELD LF_RIGHEDOC->QTAEVASA
      PICTURE "########@,@@@@@"
     END
     VALUTA 210 13
@@ -284,16 +301,17 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
      KEY "Pr. Scontato"
      PROMPT 10 1 ""
      MESSAGE _ORDINE,PREZZONS
+//     PICTURE "."     
      DRIVENBY 203
      FLAGS "U"
     END
-    NUMERO 211 15
+    NUMBER 211 15
     BEGIN
      PROMPT 11 1 "" // Residuo
      PICTURE "########@,@@@@@"
      MESSAGE _ORDINE,RESIDUO
     END
-    NUMERO 212 15
+    NUMBER 212 15
     BEGIN
      PROMPT 12 1 "" // Giacenza attuale
      PICTURE "########@,@@@@@"
@@ -305,19 +323,19 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
 
   SECTION RIGHEART 1 0 0 FILE LF_RIGHEDOC GROUP CODVAL+CODART+DATACONS
   FLAGS "D"
-    NUMERO 301 10
+    NUMBER 301 10
     BEGIN
      PROMPT 1 1 ""
      FLAGS "H"
     END
-    STRINGA 302 40 2
+    STRING 302 40 2
     BEGIN
      KEY "Descrizione"
      PROMPT 2 1 ""
      MESSAGE _ORDINE,DESCRIZIONE|COPY,402
      FLAGS "H"
     END
-    STRINGA 303 4
+    STRING 303 4
     BEGIN
      KEY "Codice Valuta"
      PROMPT 3 1 ""
@@ -339,6 +357,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
      PROMPT 5 1 ""
      FIELD LF_RIGHEDOC->RIGAVALORE
      MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405
+//     PICTURE "."
      DRIVENBY 303
      FLAGS "H"
    END
@@ -347,9 +366,10 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
      KEY "Valore Residuo"
      PROMPT 6 1 ""
      FIELD LF_RIGHEDOC->RIGAVALRES
+//     PICTURE "."
      DRIVENBY 303
      FLAGS "H"
-     MESSAGE _ORDINE,VALRES|_ORDINE,VALTABLE,VALRES|ADD,406
+     MESSAGE _ORDINE,VALTABLE,VALRES|ADD,406
    END   
     STRINGA 307 4
     BEGIN
@@ -359,18 +379,20 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
      MESSAGE _ORDINE,SELECTUM|COPY,407
      FLAGS "H"
     END
-    NUMERO 308 13
+    NUMBER 308 15
     BEGIN
      KEY "Q.ta Ordinata"
      PROMPT 8 1 ""
-     MESSAGE _ORDINE,QTA|_ORDINE,CONVUM|ADD,408
+     FIELD LF_RIGHEDOC->QTA
+     MESSAGE _ORDINE,CONVUM|ADD,408
      FLAGS "H"
     END
-    NUMERO 309 13
+    NUMBER 309 15
     BEGIN
      KEY "Q.ta Evasa"
      PROMPT 9 1 ""
-     MESSAGE _ORDINE,QTAEVASA|_ORDINE,CONVUM|ADD,409
+     FIELD LF_RIGHEDOC->QTAEVASA
+     MESSAGE _ORDINE,CONVUM|ADD,409
      FLAGS "H"
     END    
     VALUTA 310 13
@@ -381,14 +403,14 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
      DRIVENBY 303
      FLAGS "HU"
     END    
-    NUMERO 311 15
+    NUMBER 311 15
     BEGIN
      KEY " Residuo"
      PROMPT 11 1 "" 
      MESSAGE _ORDINE,RESIDUO|_ORDINE,CONVUM|ADD,411
      FLAGS "H"
     END
-    NUMERO 312 15
+    NUMBER 312 15
     BEGIN
      KEY "Giacenza attuale"
      PROMPT 12 1 ""
@@ -398,7 +420,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
   END // END SECTION RIGHEART
 
   // Totalizers for previous section
-  NUMERO 401 10
+  NUMBER 401 10
   BEGIN
    PROMPT 1 1 ""
    FLAGS "D"
@@ -425,6 +447,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
   BEGIN
    KEY "Valore Ordinato"
    PROMPT 5 1 ""
+//   PICTURE "."
    FLAGS "D"
    DRIVENBY 403
    GROUP G_TOTALEART
@@ -433,6 +456,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
   BEGIN
    KEY "Valore Residuo"
    PROMPT 6 1 ""
+//   PICTURE "."
    FLAGS "D"
    DRIVENBY 403
    GROUP G_TOTALEART
@@ -444,15 +468,15 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
    FLAGS "D"
    GROUP G_TOTALEART
   END
-  NUMERO 408 13
+  NUMBER 408 15
   BEGIN   
    KEY "Q.ta Ordinata"
    PROMPT 8 1 ""
-   PICTURE "#@,@@@"
+   PICTURE "########@,@@@@@"
    FLAGS "D"
    GROUP G_TOTALEART
   END
-  NUMERO 409 13
+  NUMBER 409 15
   BEGIN
    KEY "Q.ta Evasa"
    PROMPT 9 1 ""
@@ -464,11 +488,12 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
   BEGIN
    KEY "Pr. non scontato"
    PROMPT 10 1 ""
+//   PICTURE "."
    DRIVENBY 403
    FLAGS "DU"
    GROUP G_TOTALEART
   END    
-  NUMERO 411 15
+  NUMBER 411 15
   BEGIN
    KEY "Residuo"
    PROMPT 11 1 "" 
@@ -476,7 +501,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
    FLAGS "D"
    GROUP G_TOTALEART
   END
-  NUMERO 412 15
+  NUMBER 412 15
   BEGIN
    KEY "Giac. attuale"
    PROMPT 12 1 "" 
@@ -491,12 +516,12 @@ END // END SECTION DOCUMENTI
 
 SECTION TOTVAL1 3 0 1 GROUP
 FLAGS "D"
-  NUMERO 51 10
+  NUMBER 51 10
   BEGIN
     PROMPT 1 1 ""
   END
   
-  STRINGA 52 40
+  STRING 52 40
   BEGIN
     PROMPT 2 1 ""
   END
@@ -516,6 +541,7 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Ordinato per cli/fo"
     PROMPT 5 1 ""
+//    PICTURE "."
     DRIVENBY 53
   END
   
@@ -523,6 +549,7 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Residuo per cli/fo"
     PROMPT 6 1 ""
+//    PICTURE "."
     DRIVENBY 53
   END
 END // Fine sezione totale in valuta #1
@@ -530,12 +557,12 @@ END // Fine sezione totale in valuta #1
 
 SECTION TOTVAL2 1 0 1 GROUP
 FLAGS "D"
-  NUMERO 61 10
+  NUMBER 61 10
   BEGIN
     PROMPT 1 1 ""
   END
   
-  STRINGA 62 40
+  STRING 62 40
   BEGIN
     PROMPT 2 1 ""
   END
@@ -555,6 +582,7 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Ordinato per cli/fo"
     PROMPT 5 1 ""
+//    PICTURE "."
     DRIVENBY 63
   END
   
@@ -562,6 +590,7 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Residuo per cli/fo"
     PROMPT 6 1 ""
+//    PICTURE "."
     DRIVENBY 63
   END
 END // Fine sezione totale in valuta #2
@@ -569,12 +598,12 @@ END // Fine sezione totale in valuta #2
 
 SECTION TOTVAL3 1 0 1 GROUP
 FLAGS "D"
-  NUMERO 71 10
+  NUMBER 71 10
   BEGIN
     PROMPT 1 1 ""
   END
   
-  STRINGA 72 40
+  STRING 72 40
   BEGIN
     PROMPT 2 1 ""
   END
@@ -594,6 +623,7 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Ordinato per cli/fo"
     PROMPT 5 1 ""
+//    PICTURE "."
     DRIVENBY 73
   END
   
@@ -601,18 +631,19 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Residuo per cli/fo"
     PROMPT 6 1 ""
+//    PICTURE "."
     DRIVENBY 73
   END
 END // Fine sezione totale in valuta #3
 
 SECTION TOTVAL4 1 0 1 GROUP
 FLAGS "D"
-  NUMERO 81 10
+  NUMBER 81 10
   BEGIN
     PROMPT 1 1 ""
   END
   
-  STRINGA 82 40
+  STRING 82 40
   BEGIN
     PROMPT 2 1 ""
   END
@@ -632,6 +663,7 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Ordinato per cli/fo"
     PROMPT 5 1 ""
+//    PICTURE "."
     DRIVENBY 83
   END
   
@@ -639,10 +671,11 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Residuo per cli/fo"
     PROMPT 6 1 ""
+//    PICTURE "."
     DRIVENBY 83
   END
 END // Fine sezione totale in valuta #4
 
 END // End of Body
 
-END // End of Form
+