Patch level : aga 1.7 nopatch

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Aggiornati i froma dalla 1.7


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

or/or1100b.frm

@@ -44,7 +44,7 @@ END
 NUMERO 4 40
 BEGIN
  KEY "Intestazione stampa"
- PROMPT  40 2 "Stampa ordini per cliente/fornitore"
+ PROMPT  40 2 "@bStampa ordini per cliente/fornitore"
 END
 
 END //HEADER
@@ -264,7 +264,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
     BEGIN
      KEY "Valore Ordinato"
      PROMPT 5 1 ""
-     FIELD LF_RIGHEDOC->RIGAVALORE
+     MESSAGE _ORDINE,VALORE
      DRIVENBY 203
 //     PICTURE "."
     END
@@ -272,7 +272,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
     BEGIN
      KEY "Valore Residuo"
      PROMPT 6 1 ""
-     FIELD LF_RIGHEDOC->RIGAVALRES
+     MESSAGE _ORDINE,VALRES
      DRIVENBY 203
 //     PICTURE "."
     END   
@@ -286,14 +286,14 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
     BEGIN
      KEY "Q.ta Ordinata"
      PROMPT 8 1 ""
-     FIELD LF_RIGHEDOC->QTA
+     MESSAGE _ORDINE,QTA
      PICTURE "########@,@@@@@"
     END
     NUMBER 209 15
     BEGIN
      KEY "Q.ta Evasa"
      PROMPT 9 1 ""
-     FIELD LF_RIGHEDOC->QTAEVASA
+     MESSAGE _ORDINE,QTAEVASA
      PICTURE "########@,@@@@@"
     END
     VALUTA 210 13
@@ -355,8 +355,7 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
     BEGIN
      KEY "Valore Ordinato"
      PROMPT 5 1 ""
-     FIELD LF_RIGHEDOC->RIGAVALORE
-     MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405
+     MESSAGE _ORDINE,VALORE|_ORDINE,VALTABLE,VALORD|ADD,405
 //     PICTURE "."
      DRIVENBY 303
      FLAGS "H"
@@ -365,11 +364,10 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
     BEGIN
      KEY "Valore Residuo"
      PROMPT 6 1 ""
-     FIELD LF_RIGHEDOC->RIGAVALRES
 //     PICTURE "."
      DRIVENBY 303
      FLAGS "H"
-     MESSAGE _ORDINE,VALTABLE,VALRES|ADD,406
+     MESSAGE _ORDINE,VALRES|_ORDINE,VALTABLE,VALRES|ADD,406
    END   
     STRINGA 307 4
     BEGIN
@@ -383,16 +381,14 @@ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+
     BEGIN
      KEY "Q.ta Ordinata"
      PROMPT 8 1 ""
-     FIELD LF_RIGHEDOC->QTA
-     MESSAGE _ORDINE,CONVUM|ADD,408
+     MESSAGE _ORDINE,QTA|_ORDINE,CONVUM|ADD,408
      FLAGS "H"
     END
     NUMBER 309 15
     BEGIN
      KEY "Q.ta Evasa"
      PROMPT 9 1 ""
-     FIELD LF_RIGHEDOC->QTAEVASA
-     MESSAGE _ORDINE,CONVUM|ADD,409
+     MESSAGE _ORDINE,QTAEVASA|_ORDINE,CONVUM|ADD,409
      FLAGS "H"
     END    
     VALUTA 310 13

or/or1100c.frm

@@ -16,8 +16,6 @@ END
 GENERAL
 BEGIN
   OFFSET 0 0
-  FONT "Courier New"
-  SIZE 10
 END
 
 
@@ -55,7 +53,7 @@ END //HEADER
 
 SECTION BODY ODD 4 COLUMNWISE
 
-STRINGA 1 10
+STRINGA BODY_COL_1 10
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Codice" "Codice"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -67,7 +65,7 @@ BEGIN
  PICTURE "########"
 END
 
-STRING 2 40
+STRING BODY_COL_2 40
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -77,7 +75,7 @@ BEGIN
  FIELD LF_AGENTI->RAGSOC
 END
 
-STRINGA 3 4
+STRINGA BODY_COL_3 4
 BEGIN
  SPECIAL STRINGA INTESTAZIONE "Val." "Val."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@@ -86,7 +84,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"
@@ -115,7 +113,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"
@@ -126,7 +124,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"
@@ -137,7 +135,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"
@@ -148,17 +146,43 @@ 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
+
+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
+ SPECIAL STRINGA INTESTAZIONE "@CGiac. Att." "Giacenza attuale"
+ SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
+ SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
+ KEY "Giacenza attuale" // Solo intestazione
+ FLAGS "H"
+ PROMPT 12 1 ""
+ GROUP G_DETTAGLIO
+END
+
 
 // Raggruppamento di tutte le righe documenti per lo stesso agente
 SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
 
- NUMBER 90 10
- BEGIN
-  PROMPT 1 1 ""
-  FLAGS "H"
-  MESSAGE RESET,G_TOTALEART@
- END
-
  SECTION HCLIENTI 1 0 1 GROUP
  FLAGS "D"
    NUMBER 91 10
@@ -169,12 +193,12 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
    BEGIN
     KEY "Descrizione cliente"
     PROMPT 2 1 ""
-    MESSAGE _STREXPR,LF_DOC->CODCF+" "+LF_CLIFO->RAGSOC
+    MESSAGE _ORDINE,RAGSOC,1
    END
  END
 
  // Raggruppamento di tutte le righe (intestazioni documenti) per lo stesso cliente
- SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF
+ SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF+LF_DOC->OCFPI
   FLAGS "D"
    NUMBER 101 10
    BEGIN
@@ -209,6 +233,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
     FIELD LF_DOC->TOTVALORE
     DRIVENBY 103
     MESSAGE _ORDINE,VALTABLE,VALORD
+//    PICTURE "."
    END
 
    VALUTA 106 15
@@ -218,6 +243,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
     FIELD LF_DOC->TOTVALRES
     DRIVENBY 103
     MESSAGE _ORDINE,VALTABLE,VALRES
+//    PICTURE "."
    END   
 
   // Raggruppamento righe stesso documento
@@ -266,15 +292,14 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
      PROMPT 7 1 ""
      FIELD LF_RIGHEDOC->UMQTA
     END
-    NUMBER 208 13
+    NUMBER 208 15
     BEGIN
      KEY "Q.ta Ordinata"
      PROMPT 8 1 ""
-     FIELD LF_RIGHEDOC->QTA
-     PICTURE "#@,@@@"
-
+     MESSAGE _ORDINE,QTA
+     PICTURE "########@,@@@@@"
     END
-    NUMBER 209 13
+    NUMBER 209 15
     BEGIN
      KEY "Q.ta Evasa"
      PROMPT 9 1 ""
@@ -309,9 +334,17 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
  // viene settato a LF_CLIFO->TIPOCF+LF_CLIFO->CODCF dal programma nel 
  // caso l'utente decida di distinguere per cliente.
  
- SECTION ARTCLI 2 1 1 FILE LF_RIGHEDOC //GROUP 
+ SECTION ARTCLI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
  // Ecco la sezione per raggruppamento/dettaglio per riga articolo
  FLAGS "D" // Sezione abilitata se non si stampa per documenti
+
+ NUMBER 90 10
+ BEGIN
+  PROMPT 1 1 ""
+  FLAGS "H"
+  MESSAGE RESET,G_TOTALEART@
+ END
+
  
   SECTION RIGHEART 1 0 0 FILE LF_RIGHEDOC GROUP CODVAL+CODART+DATACONS
 //  FLAGS "D"
@@ -347,8 +380,8 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
     BEGIN
      KEY "Valore Ordinato"
      PROMPT 5 1 ""
-     FIELD LF_RIGHEDOC->RIGAVALORE
-     MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405
+     MESSAGE _ORDINE,VALORE|_ORDINE,VALTABLE,VALORD|ADD,405
+//     PICTURE "."
      DRIVENBY 303
      FLAGS "H"
    END
@@ -356,7 +389,7 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
     BEGIN
      KEY "Valore Residuo"
      PROMPT 6 1 ""
-     FIELD LF_RIGHEDOC->RIGAVALRES
+//     PICTURE "."
      DRIVENBY 303
      FLAGS "H"
      MESSAGE _ORDINE,VALRES|_ORDINE,VALTABLE,VALRES|ADD,406
@@ -369,14 +402,14 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
      MESSAGE _ORDINE,SELECTUM|COPY,407
      FLAGS "H"
     END
-    NUMBER 308 13
+    NUMBER 308 15
     BEGIN
      KEY "Q.ta Ordinata"
      PROMPT 8 1 ""
      MESSAGE _ORDINE,QTA|_ORDINE,CONVUM|ADD,408
      FLAGS "H"
     END
-    NUMBER 309 13
+    NUMBER 309 15
     BEGIN
      KEY "Q.ta Evasa"
      PROMPT 9 1 ""
@@ -457,19 +490,19 @@ SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
    //FLAGS "D"
    GROUP G_TOTALEART
   END
-  NUMBER 408 13
+  NUMBER 408 15
   BEGIN   
    KEY "Q.ta Ordinata"
    PROMPT 8 1 ""
-   PICTURE "#@,@@@"
+   PICTURE "########@,@@@@@"
    //FLAGS "D"
    GROUP G_TOTALEART
   END
-  NUMBER 409 13
+  NUMBER 409 15
   BEGIN
    KEY "Q.ta Evasa"
    PROMPT 9 1 ""
-   PICTURE "#@,@@@"
+   PICTURE "########@,@@@@@"
    //FLAGS "D"
    GROUP G_TOTALEART
   END
@@ -652,6 +685,7 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Ordinato per agente"
     PROMPT 5 1 ""
+//    PICTURE "."
     DRIVENBY 83
   END
   
@@ -659,9 +693,11 @@ FLAGS "D"
   BEGIN
     KEY "Tot Valore Residuo per agente"
     PROMPT 6 1 ""
+//    PICTURE "."
     DRIVENBY 83
   END
 END // Fine sezione totale in valuta #4
 
 END // End of Body
 
+