Modificati lunghezza campi in alcune maschere e report di stampa per le tabelle:

Porto, vettori, sconto.


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

ba/bastvet.uml

@@ -2,42 +2,42 @@
 
 PAGE "Stampa vettori" -1 -1 50 8
 
-NUMBER F_INIZIO1 3
+NUMBER F_INIZIO1 5
 BEGIN
-	PROMPT 2 1 "Da codice "
+PROMPT 2 1 "Da codice "
-	FLAGS "RZ"
+FLAGS "RZ"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
-        FIELD LF_TABCOM->CODTAB
+FIELD LF_TABCOM->CODTAB
-  USE %VET
+USE %VET
-  INPUT CODTAB F_INIZIO1
+INPUT CODTAB F_INIZIO1
-  DISPLAY "Codice vettore" CODTAB
+DISPLAY "Codice vettore" CODTAB
-  DISPLAY "Ragione sociale@50" S0
+DISPLAY "Ragione sociale@50" S0
-  OUTPUT F_INIZIO1 CODTAB
+OUTPUT F_INIZIO1 CODTAB
-  KEY 1
+KEY 1
-	GROUP 1
+GROUP 1
 END
 
-NUMBER F_FINE1 3
+NUMBER F_FINE1 5
 BEGIN
-	PROMPT 2 3 "A codice  "
+PROMPT 2 3 "A codice  "
-	FLAGS "RZ"
+FLAGS "RZ"
-        HELP "Codice di fine. Vuoto = fine archivio"
+HELP "Codice di fine. Vuoto = fine archivio"
-  FIELD LF_TABCOM->CODTAB
+FIELD LF_TABCOM->CODTAB
-	COPY USE F_INIZIO1
+COPY USE F_INIZIO1
-  INPUT CODTAB F_FINE1
+INPUT CODTAB F_FINE1
-	COPY DISPLAY F_INIZIO1
+COPY DISPLAY F_INIZIO1
-  OUTPUT F_FINE1 CODTAB
+OUTPUT F_FINE1 CODTAB
-	GROUP 2
+GROUP 2
 END
 
 BUTTON DLG_OK 8 2
 BEGIN
-	PROMPT -12 -1 ""
+PROMPT -12 -1 ""
 END
 
 BUTTON DLG_QUIT 8 2
 BEGIN
-	PROMPT -22 -3 ""
+PROMPT -22 -3 ""
 END
 
 ENDPAGE

ba/batbpor.rpt

@@ -5,6 +5,6 @@ Tabella Modalita' di spedizione
 1|@14g%s|Descrizione
 
 [Rows]
-1|CODTAB|@3g@2,ls
+1|CODTAB|@3g@3,ls
 1|S0|@14g@30,ls
 

ba/batbpor.uml

@@ -8,36 +8,36 @@ ENDPAGE
 
 PAGE "Tabella Modalita' di consegna" -1 -1 78 8
 
-STRING F_CODICE 2
+STRING F_CODICE 3
 BEGIN
-  PROMPT 4 2 "Codice      "
+PROMPT 4 2 "Codice      "
-  HELP "Codice della modalit… di consegna"
+HELP "Codice della modalit… di consegna"
-  FIELD CODTAB
+FIELD CODTAB
-  FLAGS "U"
+FLAGS "U"
-  KEY 1
+KEY 1
-  USE %POR 
+USE %POR 
-  INPUT CODTAB F_CODICE
+INPUT CODTAB F_CODICE
-  DISPLAY "Codice" CODTAB
+DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione @30" S0
+DISPLAY "Descrizione @30" S0
-  OUTPUT F_CODICE CODTAB
+OUTPUT F_CODICE CODTAB
-  OUTPUT F_DESCR S0
+OUTPUT F_DESCR S0
-  CHECKTYPE REQUIRED
+CHECKTYPE REQUIRED
 END
 
 STRING F_DESCR 30
 BEGIN
-  PROMPT 4 4 "Descrizione "
+PROMPT 4 4 "Descrizione "
-  HELP "Descrizione della modalit… di consegna"
+HELP "Descrizione della modalit… di consegna"
-  FIELD LF_TABCOM->S0
+FIELD LF_TABCOM->S0
-  KEY 2
+KEY 2
-  USE %POR KEY 2
+USE %POR KEY 2
-  INPUT CODTAB F_CODICE
+INPUT CODTAB F_CODICE
-  INPUT S0 F_DESCR
+INPUT S0 F_DESCR
-  DISPLAY "Descrizione @30" S0
+DISPLAY "Descrizione @30" S0
-  DISPLAY "Codice" CODTAB
+DISPLAY "Codice" CODTAB
-  OUTPUT F_CODICE CODTAB
+OUTPUT F_CODICE CODTAB
-  OUTPUT F_DESCR S0
+OUTPUT F_DESCR S0
-  CHECKTYPE REQUIRED
+CHECKTYPE REQUIRED
 END
 
 ENDPAGE

ba/batbsco.rpt

@@ -6,7 +6,7 @@ Tabella Sconti incondizionati
 1|@66g%s|Percentuale
 
 [Rows]
-1|CODTAB|@3g@2,ls
+1|CODTAB|@3g@3,ls
 1|S0|@14g@50,ls
 1|R0|@66g@5,ls
 

ba/batbsco.uml

@@ -8,7 +8,7 @@ ENDPAGE
 
 PAGE "Tabella Sconti Incondizionati" -1 -1 78 8
 
-STRING F_CODICE 2
+STRING F_CODICE 3
 BEGIN
 PROMPT 4 2 "Codice      "
 HELP "Codice sconto incondizionato"

ba/batbvet.uml

@@ -6,52 +6,52 @@ ENDPAGE
 
 PAGE "Vettori" -1 -1 78 15
 
-NUMBER F_CODVETT 3
+NUMBER F_CODVETT 5
 BEGIN
-  PROMPT 4 1 "Codice vettore  "
+PROMPT 4 1 "Codice vettore  "
-  FIELD LF_TABCOM->CODTAB
+FIELD LF_TABCOM->CODTAB
-  HELP "Codice del vettore"
+HELP "Codice del vettore"
-  FLAGS "RZ"
+FLAGS "RZ"
-  USE %VET
+USE %VET
-	CHECKTYPE REQUIRED
+CHECKTYPE REQUIRED
-  INPUT CODTAB F_CODVETT
+INPUT CODTAB F_CODVETT
-  DISPLAY "Codice vettore" CODTAB
+DISPLAY "Codice vettore" CODTAB
-  DISPLAY "Ragione sociale@50" S0
+DISPLAY "Ragione sociale@50" S0
-  OUTPUT F_CODVETT CODTAB
+OUTPUT F_CODVETT CODTAB
-  OUTPUT F_RAGSO S0
+OUTPUT F_RAGSO S0
-  KEY 1
+KEY 1
 END 
 
 STRING F_RAGSO 50
 BEGIN
-  PROMPT 4 3 "Ragione sociale "
+PROMPT 4 3 "Ragione sociale "
-  HELP "Ragione sociale del vettore"
+HELP "Ragione sociale del vettore"
-  FIELD LF_TABCOM->S0
+FIELD LF_TABCOM->S0
-  FLAGS "U"
+FLAGS "U"
-	USE %VET KEY 2
+USE %VET KEY 2
-	CHECKTYPE REQUIRED
+CHECKTYPE REQUIRED
-  INPUT S0 F_RAGSO
+INPUT S0 F_RAGSO
-  DISPLAY "Codice vettore" CODTAB
+DISPLAY "Codice vettore" CODTAB
-  DISPLAY "Ragione sociale@50" S0
+DISPLAY "Ragione sociale@50" S0
-  OUTPUT F_CODVETT CODTAB
+OUTPUT F_CODVETT CODTAB
-  OUTPUT F_RAGSO S0
+OUTPUT F_RAGSO S0
-	KEY 2
+KEY 2
 END 
 
 STRING F_RESI 50
 BEGIN
-  PROMPT 4 5 "Residenza       "
+PROMPT 4 5 "Residenza       "
-  HELP "Residenza del vettore"
+HELP "Residenza del vettore"
-  FIELD LF_TABCOM->S1
+FIELD LF_TABCOM->S1
-  FLAGS "U"
+FLAGS "U"
 END 
 
 STRING F_TEL 15
 BEGIN
-  PROMPT 4 7 "Telefono        "
+PROMPT 4 7 "Telefono        "
-  HELP "Numero telefonico del vettore"
+HELP "Numero telefonico del vettore"
-  FIELD LF_TABCOM->S2
+FIELD LF_TABCOM->S2
-  FLAGS "U"
+FLAGS "U"
 END 
 
 ENDPAGE