Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Invio 770


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

m770/777100a.h

@@ -0,0 +1,8 @@
+#define F_SUPPORTO 101
+#define F_PATH     102
+#define F_DISK     103
+#define F_DADITTA  104
+#define F_DADESC   105
+#define F_ADITTA   106
+#define F_ADESC    107
+

m770/777100a.uml

@@ -0,0 +1,76 @@
+#include "777100a.h"
+
+PAGE "Invio 770" -1 -1 72 10
+
+RADIOBUTTON F_SUPPORTO 1 16
+BEGIN
+  PROMPT 1 1 "Tipo"
+  ITEM "D|Dischetti"
+    MESSAGE DISABLE,F_PATH|ENABLE,F_DISK
+  ITEM "T|Telematico"
+    MESSAGE ENABLE,F_PATH|DISABLE,F_DISK
+END
+
+LIST F_DISK 2 8
+BEGIN
+  PROMPT 20 2 ""
+  ITEM "A:|Disco A"
+  ITEM "B:|Disco B"
+END
+
+STRING F_PATH 50
+BEGIN
+  PROMPT 20 3 ""
+END
+
+NUMBER F_DADITTA 5
+BEGIN
+  PROMPT 1 5 "Da ditta "
+  USE LF_BASE
+  JOIN LF_NDITTE INTO CODDITTA=CODDITTA
+  INPUT CODDITTA F_DADITTA
+  DISPLAY "Ditta" CODDITTA
+  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
+  OUTPUT F_DADITTA CODDITTA
+  OUTPUT F_DADESC LF_NDITTE->RAGSOC 
+  CHECKTYPE SEARCH
+END
+
+STRING F_DADESC 50
+BEGIN
+  PROMPT 20 5 ""
+  FLAGS "D"
+END
+
+NUMBER F_ADITTA 5
+BEGIN
+  PROMPT 1 6 "A ditta  "
+  COPY USE F_DADITTA
+  INPUT CODDITTA F_ADITTA
+  COPY DISPLAY F_DADITTA
+  OUTPUT F_ADITTA CODDITTA 
+  OUTPUT F_ADESC LF_NDITTE->RAGSOC
+  CHECKTYPE SEARCH
+  NUM_EXPR (#F_ADITTA=0)||(#F_ADITTA>=#F_DADITTA)
+  WARNING "La ditta finale deve seguire quella iniziale"
+END
+
+STRING F_ADESC 50
+BEGIN
+  PROMPT 20 6 ""
+  FLAGS "D"
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK