Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


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

lv/lv0300a.uml

@@ -84,9 +84,14 @@ BEGIN
   COPY OUTPUT F_TIPODOC_GEN
 END
 
+GROUPBOX DLG_NULL 78 4
+BEGIN
+	PROMPT 1 5 "@bFatture"
+END
+
 STRING F_CODNUM_FAT 4
 BEGIN
-  PROMPT 2 5 "Numerazione  "
+  PROMPT 2 6 "Numerazione  "
   FIELD NUM_FAT
   HELP "Codice numerazione"
   USE %NUM
@@ -102,7 +107,7 @@ END
 
 STRING F_DESNUM_FAT 50
 BEGIN
-  PROMPT 24 5 ""
+  PROMPT 24 6 ""
   HELP "Descrizione Numerazione"
   USE %NUM KEY 2
   INPUT S0 F_DESNUM_FAT
@@ -113,7 +118,7 @@ END
 
 STRING F_TIPODOC_FAT 4
 BEGIN
-  PROMPT 2 6 "Tipo         "
+  PROMPT 2 7 "Tipo         "
   FIELD TIPODOC_FAT
   HELP "Codice tipo documento"
   USE %TIP
@@ -128,7 +133,7 @@ END
 
 STRING F_DESTIPODOC_FAT 50
 BEGIN
-  PROMPT 24 6 ""
+  PROMPT 24 7 ""
   HELP "Descrizione tipo documento"
   USE %TIP KEY 2
   INPUT S0 F_DESTIPODOC_FAT
@@ -137,9 +142,14 @@ BEGIN
   COPY OUTPUT F_TIPODOC_FAT
 END
 
+GROUPBOX DLG_NULL 78 4
+BEGIN
+	PROMPT 1 9 "@bOrdini fornitori"
+END
+
 STRING F_CODNUM_ORF 4
 BEGIN
-  PROMPT 2 8 "Numerazione  "
+  PROMPT 2 10 "Numerazione  "
   FIELD NUM_ORF
   HELP "Codice numerazione"
   USE %NUM
@@ -155,7 +165,7 @@ END
 
 STRING F_DESNUM_ORF 50
 BEGIN
-  PROMPT 24 8 ""
+  PROMPT 24 10 ""
   HELP "Descrizione Numerazione"
   USE %NUM KEY 2
   INPUT S0 F_DESNUM_ORF
@@ -166,7 +176,7 @@ END
 
 STRING F_TIPODOC_ORF 4
 BEGIN
-  PROMPT 2 9 "Tipo         "
+  PROMPT 2 11 "Tipo         "
   FIELD TIPODOC_ORF
   HELP "Codice tipo documento"
   USE %TIP
@@ -181,7 +191,7 @@ END
 
 STRING F_DESTIPODOC_ORF 50
 BEGIN
-  PROMPT 24 9 ""
+  PROMPT 24 11 ""
   HELP "Descrizione tipo documento"
   USE %TIP KEY 2
   INPUT S0 F_DESTIPODOC_ORF
@@ -190,9 +200,14 @@ BEGIN
   COPY OUTPUT F_TIPODOC_ORF
 END
 
+GROUPBOX DLG_NULL 78 4
+BEGIN
+	PROMPT 1 13 "@bOrdini clienti"
+END
+
 STRING F_CODNUM_ORC 4
 BEGIN
-  PROMPT 2 10 "Numerazione  "
+  PROMPT 2 14 "Numerazione  "
   FIELD NUM_ORC
   HELP "Codice numerazione"
   USE %NUM
@@ -208,7 +223,7 @@ END
 
 STRING F_DESNUM_ORC 50
 BEGIN
-  PROMPT 24 10 ""
+  PROMPT 24 14 ""
   HELP "Descrizione Numerazione"
   USE %NUM KEY 2
   INPUT S0 F_DESNUM_ORC
@@ -219,7 +234,7 @@ END
 
 STRING F_TIPODOC_ORC 4
 BEGIN
-  PROMPT 2 11 "Tipo         "
+  PROMPT 2 15 "Tipo         "
   FIELD TIPODOC_ORC
   HELP "Codice tipo documento"
   USE %TIP
@@ -234,7 +249,7 @@ END
 
 STRING F_DESTIPODOC_ORC 50
 BEGIN
-  PROMPT 24 11 ""
+  PROMPT 24 15 ""
   HELP "Descrizione tipo documento"
   USE %TIP KEY 2
   INPUT S0 F_DESTIPODOC_ORC

lv/lv0400a.uml

@@ -25,6 +25,7 @@ BEGIN
   OUTPUT F_CODCF CODCF
   OUTPUT F_RAGSOC RAGSOC
   CHECKTYPE REQUIRED 
+  ADD RUN cg0 -1
 END
 
 STRING F_RAGSOC 50 
@@ -38,6 +39,7 @@ BEGIN
   DISPLAY "Codice" CODCF
   COPY OUTPUT F_CODCF
   CHECKTYPE REQUIRED
+  ADD RUN cg0 -1  
 END
 
 NUMBER F_CODCONT 6
@@ -480,62 +482,9 @@ BEGIN
    GROUP 1
 END
 
-CURRENCY S_PREZZOST 15 
-BEGIN
-   PROMPT 1 5 "Prezzo in vigore       "
-   FIELD PREZZO 
-   GROUP 2  
-END
-
-CURRENCY S_PREZZORN 15 
-BEGIN
-   PROMPT 43 5 "Prezzo di rinnovo "
-   FIELD PREZRIN
-   GROUP 2
-END
-
-CURRENCY S_IMPFISART 15
-BEGIN
-   PROMPT 1 6 "Importo fisso          "
-   FIELD IMPFISART
-END
-
-NUMBER S_SCONTO 6 2
-BEGIN
-   PROMPT 43 6 "Sconto %          "
-   FIELD SCONTPERC
-END
-
-NUMBER S_CONG 9 
-BEGIN
-   PROMPT 1 7 "Conguaglio             "
-   FIELD QTACONG
-END
-
-CURRENCY S_VALCONV 15 
-BEGIN
-   PROMPT 43 7 "Val. convenzionale"
-   FLAGS "U"
-   FIELD VALCONV
-   GROUP 3
-END
-
-NUMBER S_FORFPERCL 6 2
-BEGIN
-   PROMPT 1 8 "% Forfait cliente      "
-   FIELD FORFPERCL
-   GROUP 3
-END
-
-NUMBER S_MINCIC 4 2
-BEGIN
-   PROMPT 43 8 "Minimo cilcaggio  "
-   FIELD MINCIC
-END
-
 STRING S_UM 2
 BEGIN
-   PROMPT 1 9 "Unità di misura        "
+   PROMPT 1 5 "Unità di misura        "
    USE LF_UMART KEY 2
    JOIN UMS INTO CODTAB=UM
    INPUT CODART S_CODART SELECT
@@ -547,9 +496,111 @@ BEGIN
    CHECKTYPE REQUIRED
 END
 
+NUMBER S_CONG 9 
+BEGIN
+   PROMPT 43 5 "Conguaglio             "
+   FIELD QTACONG
+END
+
+CURRENCY S_PREZZOST 15 
+BEGIN
+   PROMPT 1 6 "Prezzo in vigore       "
+   FIELD PREZZO 
+   GROUP 2  
+END
+
+CURRENCY S_PREZZORN 15 
+BEGIN
+   PROMPT 43 6 "Prezzo di rinnovo "
+   FIELD PREZRIN
+   GROUP 2
+END
+
+NUMBER S_SCONTO 6 2
+BEGIN
+   PROMPT 1 7 "Sconto %          "
+   FIELD SCONTPERC
+END
+
+NUMBER S_DOTIN 9 
+BEGIN
+   PROMPT 1 8 "Dot. iniziale          "
+   FIELD DOTIN
+END
+
+NUMBER S_DOTOD 9 
+BEGIN
+  PROMPT 43 8 "Dotaz. odierna "
+  FLAGS "D"
+END
+
+NUMBER S_CONSMESE 9
+BEGIN
+   PROMPT 1 9 "Consegnato mese"
+   FLAGS "D"
+END
+
+NUMBER S_CONSANNO 9
+BEGIN
+   PROMPT 43 9 "Consegn. anno"
+   FLAGS "D"
+END
+
+NUMBER S_DOTTMP 9 
+BEGIN
+   PROMPT 1 10 "Dot. temporanea   "
+   FIELD DOTTMP
+END
+
+CURRENCY S_PRZDTTMP 15 
+BEGIN
+   PROMPT 43 10 "Prezzo dot. temp. "
+   FLAGS "U"
+   FIELD PRZDTTMP
+END
+
+DATE S_INDTTMP
+BEGIN
+   PROMPT 1 11 "Inizio dot. temporanea "
+   FIELD INDTTMP
+END
+
+DATE S_FIDTTMP
+BEGIN
+   PROMPT 43 11 "Fine dot. temp    "
+   FIELD FIDTTMP
+END
+
+CURRENCY S_IMPFISART 15
+BEGIN
+   PROMPT 1 12 "Importo fisso          "
+   FIELD IMPFISART
+END
+
+CURRENCY S_VALCONV 15 
+BEGIN
+   PROMPT 43 12 "Val. convenzionale"
+   FLAGS "U"
+   FIELD VALCONV
+   GROUP 3
+END
+
+NUMBER S_FORFPERCL 6 2
+BEGIN
+   PROMPT 1 13 "% Forfait cliente      "
+   FIELD FORFPERCL
+   GROUP 3
+END
+
+NUMBER S_MINCIC 4 2
+BEGIN
+   PROMPT 43 13 "Minimo cilcaggio  "
+   FIELD MINCIC
+END
+
 STRING S_CAUSMAG 4
 BEGIN
-   PROMPT 43 9 "Causale di default"
+   PROMPT 1 14 "Causale di default"
    USE CAU
    INPUT CODTAB S_CAUSMAG
    DISPLAY "Codice" CODTAB
@@ -561,45 +612,14 @@ END
 
 CURRENCY S_PREZDAN 15
 BEGIN
-   PROMPT 1 10 "Prezzo danneggiati     "
+   PROMPT 43 14 "Prezzo danneggiati     "
    FLAGS "U"
    FIELD PREZDAN
 END
 
-CURRENCY S_PRZDTTMP 15 
+LISTBOX S_ARTBLOC 1 28
 BEGIN
-   PROMPT 43 10 "Prezzo dot. temp. "
+   PROMPT 1 16 "Articolo bloccato "
-   FLAGS "U"
-   FIELD PRZDTTMP
-END
-
-NUMBER S_DOTIN 9 
-BEGIN
-   PROMPT 1 11 "Dot. iniziale          "
-   FIELD DOTIN
-END
-
-NUMBER S_DOTTMP 9 
-BEGIN
-   PROMPT 43 11 "Dot. temporanea   "
-   FIELD DOTTMP
-END
-
-DATE S_INDTTMP
-BEGIN
-   PROMPT 1 12 "Inizio dot. temporanea "
-   FIELD INDTTMP
-END
-
-DATE S_FIDTTMP
-BEGIN
-   PROMPT 43 12 "Fine dot. temp    "
-   FIELD FIDTTMP
-END
-
-LISTBOX S_ARTBLOC 1 34
-BEGIN
-   PROMPT 1 13 "Articolo bloccato      "
    ITEM  "0|Nessuna"
    ITEM  "1|Articolo in sostituzione"
    ITEM  "2|Cliente in chiusura"
@@ -607,49 +627,43 @@ BEGIN
    FIELD ARTBLOC
 END
 
+LISTBOX S_TIPONOL 1 10
+BEGIN
+   PROMPT 55 16 "Tipo Noleggio "
+   FIELD TIPONOL
+   FLAGS "D"
+END
+
 LISTBOX S_CALCCONS 1 34
 BEGIN
-   PROMPT 1 14 "Calcolo del consegnato "
+   PROMPT 1 17 "Calcolo del consegnato "
    ITEM  "0|Conguaglio alla confezione"
    ITEM  "1|Uguale al ritirato"
    FIELD CALCCONS
 END
 
-LISTBOX S_TIPONOL 1 34
-BEGIN
-   PROMPT 1 15 "Tipo Noleggio          "
-   FIELD TIPONOL
-   FLAGS "D"
-END
-
-BOOLEAN S_RITAUDTTMP
-BEGIN
-   PROMPT 1 16 "Ritiro automatico dotazione temporanea"
-   FIELD RITAUDTTMP
-END
-
 BOOLEAN  S_FATTKG
 BEGIN
-   PROMPT 1 17 "Fatturazione a Kg."
+   PROMPT 1 18 "Fatturazione a Kg."
    FIELD FATTKG
 END
 
 BOOLEAN  S_ARROT
 BEGIN
-   PROMPT 1 18 "Arrotondamento"
+   PROMPT 43 18 "Arrotondamento"
    FIELD ARROT
 END
 
+BOOLEAN S_RITAUDTTMP
+BEGIN
+   PROMPT 1 19 "Ritiro automatico dotazione temporanea"
+   FIELD RITAUDTTMP
+END
+
 ENDPAGE
 
 PAGE "" -1 -1 80 20
 
-NUMBER S_DOTOD 9 
-BEGIN
-  PROMPT 2 5 "Dotaz. odierna "
-  FLAGS "D"
-END
-
 STRING S_COLORE 20 10
 BEGIN
   PROMPT 30 5 "Colore       "
@@ -740,18 +754,6 @@ BEGIN
   FLAGS "D"
 END 
 
-NUMBER S_CONSMESE 9
-BEGIN
-   PROMPT 2 10 "Consegnato mese"
-   FLAGS "D"
-END
-
-NUMBER S_CONSANNO 9
-BEGIN
-   PROMPT 30 10 "Consegn. anno"
-   FLAGS "D"
-END
-
 ENDPAGE
 
 ENDMASK