Lavoro al 29/08/96

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

ve/batbfrd.h

@@ -0,0 +1,5 @@
+#define F_CODTAB  101
+#define F_DES     102
+#define F_PICTURE 103
+#define F_TIPO    104
+#define F_FORMULA 105

ve/batbfrd.uml

@@ -0,0 +1,68 @@
+#include "batbfrd.h"
+
+TOOLBAR "" 0 20 60 2
+
+#include "toolbar.h"
+
+ENDPAGE
+
+PAGE "Tabella formule documenti" -1 -1 60 14
+
+GROUPBOX DLG_NULL 75 7
+BEGIN
+  PROMPT 1 0 ""
+  FLAG "R"
+END
+
+STRING F_CODTAB 10
+BEGIN
+  PROMPT 2 2 "Identificatore   "
+  FIELD CODTAB
+  USE %FRD
+  CHECKTYPE REQUIRED
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice@10" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DES S0
+  KEY 1
+  FLAG "UZ"
+END
+
+STRING F_DES 50
+BEGIN
+  PROMPT 2 4 "Descrizione      "
+  FIELD S0
+  USE %FRD KEY 2
+  CHECKTYPE REQUIRED
+  INPUT S0 F_DES
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice@10" CODTAB
+  COPY OUTPUT F_CODTAB
+  KEY 2
+END
+
+STRING F_PICTURE 20
+BEGIN
+  PROMPT 2 7 "Picture di pres.  "
+  FIELD S3
+END
+
+BOOLEAN F_TIPO
+BEGIN
+  PROMPT 2 9 "Formula numerica"
+  FIELD B0
+END
+
+STRING F_FORMULA 70 50
+BEGIN
+  PROMPT 2 11 "Formula          "
+  FIELD S1
+  CHECKTYPE REQUIRED
+  WARNING "La formula e' obbligatoria"
+  FLAG "U"
+END
+
+ENDPAGE
+ENDMASK
+

ve/batbfrr.uml

@@ -0,0 +1,68 @@
+#include "batbfrd.h"
+
+TOOLBAR "" 0 20 60 2
+
+#include "toolbar.h"
+
+ENDPAGE
+
+PAGE "Tabella formule righe documenti" -1 -1 60 14
+
+GROUPBOX DLG_NULL 75 7
+BEGIN
+  PROMPT 1 0 ""
+  FLAG "R"
+END
+
+STRING F_CODTAB 10
+BEGIN
+  PROMPT 2 2 "Identificatore   "
+  FIELD CODTAB
+  USE %FRR
+  CHECKTYPE REQUIRED
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice@10" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DES S0
+  KEY 1
+  FLAG "UZ"
+END
+
+STRING F_DES 50
+BEGIN
+  PROMPT 2 4 "Descrizione      "
+  FIELD S0
+  USE %FRR KEY 2
+  CHECKTYPE REQUIRED
+  INPUT S0 F_DES
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice@10" CODTAB
+  COPY OUTPUT F_CODTAB
+  KEY 2
+END
+
+STRING F_PICTURE 20
+BEGIN
+  PROMPT 2 7 "Picture di pres.  "
+  FIELD S3
+END
+
+BOOLEAN F_TIPO
+BEGIN
+  PROMPT 2 9 "Formula numerica"
+  FIELD B0
+END
+
+STRING F_FORMULA 70 50
+BEGIN
+  PROMPT 2 11 "Formula          "
+  FIELD S1
+  CHECKTYPE REQUIRED
+  WARNING "La formula e' obbligatoria"
+  FLAG "U"
+END
+
+ENDPAGE
+ENDMASK
+

ve/verig.uml

@@ -44,7 +44,7 @@ BEGIN
   USE %TRI
   IN CODTAB FR_TIPORIGA
   OU FR_DESTIPORIGA S0
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
   FLAGS "DG"
 END
 
@@ -73,10 +73,10 @@ ENDIF
   OUTPUT FR_CODMAG CODTAB[1,3]
   OUTPUT FR_DESMAG S0
 IFDEF(CH_CODMAG)
-  CHECKTYPE CH_CODMAG 
+  CHECKTYPE CH_CODMAG
 ELSE
   CHECKTYPE NORMAL
-ENDIF             
+ENDIF
   WARNING "Magazzino assente"
   FLAGS "U"
 IFDEF(FL_CODMAG)
@@ -251,13 +251,25 @@ IFDEF(X_DESCR)
   PROMPT X_DESCR Y_DESCR PR_DESCR
 ELSEIF
   PROMPT 2 7 "Descrizione "
+ENDIF
+END
+ENDIF
+
+IFDEF(F_DESCRART)
+ZOOM FR_DESCRART 50
+BEGIN
+IFDEF(X_DESCRART)
+  PROMPT X_DESCRART Y_DESCRART PR_DESCRART
+ELSEIF
+  PROMPT 2 7 "Descrizione "
 ENDIF
   USE LF_ANAMAG KEY 2
-  INPUT DESCR FR_DESCR
+  INPUT DESCR FR_DESCRART
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Codice@20" CODART
-  OUTPUT  FR_DESCR DESCR
+  OUTPUT  FR_DESCRART DESCR
   ADD RUN ve2 -3
+  FIELD DUMMY
 END
 ENDIF
 
@@ -274,6 +286,7 @@ ENDIF
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice spesa" CODTAB
   COPY OUTPUT FR_CODSPV
+  FIELD DUMMY
 END
 ENDIF
 
@@ -290,6 +303,7 @@ ENDIF
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice spesa" CODTAB
   COPY OUTPUT FR_CODSPQ
+  FIELD DUMMY
 END
 ENDIF
 
@@ -306,6 +320,7 @@ ENDIF
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice spesa" CODTAB
   COPY OUTPUT FR_CODSPP
+  FIELD DUMMY
 END
 ENDIF
 
@@ -372,6 +387,7 @@ IFDEF(X_PERCSP)
 ELSEIF
   PROMPT 22 9 "%Spesa "
 ENDIF
+  FIELD DUMMY
 END
 ENDIF
 
@@ -383,6 +399,7 @@ IFDEF(X_PREZZO)
 ELSEIF
   PROMPT 42 9 "Prezzo "
 ENDIF
+  FIELD DUMMY
 END
 ENDIF
 
@@ -394,6 +411,7 @@ IFDEF(X_VALORE)
 ELSEIF
   PROMPT 42 9 "Valore "
 ENDIF
+  FIELD DUMMY
 END
 ENDIF
 
@@ -529,6 +547,7 @@ IFDEF(CH_CODIVA)
 ELSEIF
   CHECKTYPE NORMAL
 ENDIF
+  FIELD DUMMY
 END
 ENDIF
 

ve/verig01.uml

@@ -16,14 +16,14 @@ DEFINE_FIELD(DESMAG)
 DEFINE_FIELD(CODDEP)
 DEFINE_FIELD(DESDEP)
 DEFINE_FIELD(CODART)
-DEFINE_FIELD(DESCR)
+DEFINE_FIELD(DESCRART)
 DEFINE_FIELD(UMQTA)
 DEFINE_FIELD(QTA)
 DEFINE_FIELD(PREZZO)
 DEFINE_FIELD(SCONTO)
 DEFINE_FIELD(PERCPROV)
 DEFINE_FIELD(CODIVA)
-DEFINE_FIELD(DESIVA)  
+DEFINE_FIELD(DESIVA)
 
 #include "verig.uml"
 

ve/verig05.uml

@@ -0,0 +1,14 @@
+#include "verigdef.h"
+
+#define FULL_SCREEN
+// else
+// #define MASK_WIDTH  60
+// #define MASK_HEIGHT 14
+//
+#define MASK_TITLE1 "Descrizione"
+
+
+DEFINE_FIELD(DESCR)
+
+#include "verig.uml"
+