From 05712d9afd1682645960276c6d69f81f9dedea06 Mon Sep 17 00:00:00 2001
From: rajitgill <rajitgill@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 13 Aug 2008 15:57:30 +0000
Subject: [PATCH] Patch level         : Files correlati     : Ricompilazione
 Demo : [ ] Commento            :

git-svn-id: svn://10.65.10.50/trunk@17056 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 lv/f169.trr    |  12 +--
 lv/lv0400b.uml | 193 +++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 199 insertions(+), 6 deletions(-)
 create mode 100755 lv/lv0400b.uml

diff --git a/lv/f169.trr b/lv/f169.trr
index ea10b3390..744882d53 100755
--- a/lv/f169.trr
+++ b/lv/f169.trr
@@ -8,9 +8,9 @@ PREZZO|4|18|3|Prezzo in vigore
 PREZRIN|4|18|3|Prezzo di rinnovo
 QTACONG|4|15|5|Quantità conguaglio
 SCONTPERC|4|6|2|Percentuale di sconto
-DOTIN|3|6|0|Dotazione iniziale
-DOTOD|3|6|0|Dotazione odierna
-DOTTMP|3|6|0|Dotazione temporanea
+DOTIN|4|15|5|Dotazione iniziale
+DOTOD|4|15|5|Dotazione odierna
+DOTTMP|4|15|5|Dotazione temporanea
 PRZDTTMP|4|18|3|Prezzo Dotazione temporanea
 INDTTMP|5|8|0|Inizio Dotazione temporanea
 FIDTTMP|5|8|0|Fine Dotazione temporanea
@@ -33,8 +33,8 @@ CALCCONS|2|1|0|Calcolo consegnato
 TIPONOL|2|1|0|Tipo noleggio
 COLORE|1|20|0|Colore
 TIPOLOGIA|2|1|0|Caregoria merceologica
-PRZXPAC|3|6|0|Pezzi per pacco
-PRZXSAC|3|6|0|Pezzi per sacco
-PRZXCAR|3|6|0|Pezzi per carrello
+PRZXPAC|4|15|5|Pezzi per pacco
+PRZXSAC|4|15|5|Pezzi per sacco
+PRZXCAR|4|15|5|Pezzi per carrello
 1
 |
diff --git a/lv/lv0400b.uml b/lv/lv0400b.uml
new file mode 100755
index 000000000..306a2ed04
--- /dev/null
+++ b/lv/lv0400b.uml
@@ -0,0 +1,193 @@
+#include "lv0400.h"
+
+TOOLBAR "" 0 0 0 2
+#include "Relapbar.h"
+ENDPAGE
+
+PAGE "Contratto" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 6
+BEGIN
+	PROMPT 0 1 "@bContratti"
+END
+
+NUMBER F_CODCF 6
+BEGIN
+  PROMPT 2 5 "Cliente   " 
+  FIELD CODCF
+  FLAGS "U"
+  KEY 1
+  USE LF_CLIFO 
+  INPUT TIPOCF "C"
+  INPUT CODCF F_CODCF
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  OUTPUT F_CODCF CODCF
+  OUTPUT F_RAGSOC_CLI RAGSOC
+  CHECKTYPE REQUIRED  
+END
+
+STRING F_RAGSOC_CLI 50
+BEGIN
+  PROMPT 20 5 ""
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "C"
+  INPUT RAGSOC F_RAGSOC
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  COPY OUTPUT F_CODCF
+  CHECKTYPE REQUIRED  
+END
+
+NUMBER F_CODCONT 6
+BEGIN
+  PROMPT 2 6 "Contratto N."
+  USE LF_LVCONDV
+  FLAGS "U"
+  FIELD CODCONT
+  KEY 1
+  
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DES_CODCONT 50
+BEGIN
+  PROMPT 20 6 ""
+END
+
+SPREADSHEET F_SHEET_ATTIV
+BEGIN
+  PROMPT 0 8 "Righe contratto"
+  ITEM "Articolo "
+  ITEM "Descrizione @50"
+  ITEM "UM"
+  ITEM "Cong."
+  ITEM "Prezzo in vigore"
+  ITEM "Prezzo di Rinnovo"
+  ITEM "Sconto %"
+  ITEM "Dot.Iniziale"
+  ITEM "Dot.Odierna"
+  ITEM "Consegnato Mese*"
+  ITEM "Consegnato anno"
+  ITEM "Fatturato anno"
+  ITEM "Dot.Temporanea"
+END
+
+ENDPAGE
+
+PAGE "Opzioni" 0 2 0 0
+
+
+
+ENDPAGE
+
+ENDMASK
+
+PAGE "" -1 -1 60 10
+
+STRING S_ARTICOLO 20
+BEGIN
+	PROMPT 1 1 "Codice articolo"
+	FLAGS "U"
+      USE LF_ANAMAG
+      INPUT CODART S_ARTICOLO
+      DISPLAY "Articolo" CODART
+      DISPLAY "Descrizione@50" DESCR
+      OUTPUT S_ARTICOLO CODART
+      OUTPUT S_DESCR DESCR
+      OUTPUT S_PREZZOST COSTSTD
+      CHECKTYPE REQUIRED  
+END
+
+STRING S_DESCR 50
+BEGIN
+	PROMPT 2 4 "Descrizione   "
+      USE LF_ANAMAG KEY 2
+	INPUT DESCR S_DESCR
+      DISPLAY "Descrizone@50" DESCR
+      DISPLAY "Articolo" CODART
+      COPY OUTPUT S_ARTICOLO
+      CHECKTYPE REQUIRED  
+END
+
+STRING S_UM 2
+BEGIN
+  PROMPT 2 6 "Unità di misura "
+  USE LF_UMART 2
+  JOIN UMS INTO CODTAB=UM
+  INPUT CODART S_ARTICOLO SELECT
+  INPUT UM S_UM
+  DISPLAY "U.M." UM
+  DISPLAY "Descrione@50" LF_TAB->S0  
+  OUTPUT S_UM UM
+  CHECKTYPE REQUIRED
+END
+
+CURRENCY S_PREZZOST 18 3
+BEGIN
+  PROMPT 2 6 "Prezzo in vigore "
+  FLAGS "D"
+END
+
+CURRENCY S_PREZZORN 18 3
+BEGIN
+  PROMPT 2 6 "Prezzo di rinnovo "
+  FIELD PREZRIN
+END
+
+NUMBER S_SCONTO 6 2
+BEGIN
+  PROMPT 2 6 "Sconto %"
+  FIELD SCONTPERC
+END
+ 
+NUMBER S_DOTIN 6 
+BEGIN
+  PROMPT 2 6 "Dotazione iniziale"
+  FIELD DOTIN
+END
+
+NUMBER S_DOTIN 6 
+BEGIN
+  PROMPT 2 6 "Dotazione odierna"
+  FIELD DOTOD
+END
+
+NUMBER S_CONSMESE 15 5
+BEGIN
+  PROMPT 2 6 "Quantità consegnata al mese da fatturare nel prossimo periodo di fatturazione"
+  FIELD CONSMESE
+END
+
+NUMBER S_CONSANNO 15 5
+BEGIN
+  PROMPT 2 6 "Quantità consegnata all'anno "
+  FIELD CONSANNO
+END
+
+NUMBER S_FATTANNO 18 3
+BEGIN
+  PROMPT 2 6 "Fatturato anno "
+  FIELD FATTANNO
+END
+
+NUMBER S_DOTTMP 6 
+BEGIN
+  PROMPT 2 6 "Dotazione temporanea"
+  FIELD DOTTMP
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK
+