Aggiunto ps0883: gestione aeroporti AGS

git-svn-id: svn://10.65.10.50/branches/R_10_00@23109 c028cbd2-c16b-5b4b-a496-9718f37d4682

ps/ps0883.cpp

@@ -0,0 +1,13 @@
+#include <xvt.h>
+#include "ps0883.h"
+
+int main(int argc, char** argv)
+{
+  const int a = argc > 1 ? argv[1][1]-'0' : 0;
+  switch (a)
+  {
+  case  1: ps0883200(argc, argv); break;
+  default: ps0883100(argc, argv); break;
+  }
+  return 0;
+}

ps/ps0883.h

@@ -0,0 +1,3 @@
+int ps0883100(int argc, char* argv[]);
+int ps0883200(int argc, char* argv[]);
+  

ps/ps0883vet.uml

@@ -0,0 +1,67 @@
+TOOLBAR "" 0 0 0 2
+
+#include <relapbar.h>
+
+ENDPAGE
+
+PAGE "Vettori" 0 2 0 0
+
+STRING 101 2
+BEGIN
+  PROMPT 1 1 "Codice IATA     "
+  USE &PS0883VET
+  INPUT CODTAB 101
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Cliente" I0
+  OUTPUT 101 CODTAB
+  OUTPUT 102 S0
+  CHECKTYPE REQUIRED
+  KEY 1
+  FLAGS "U"
+  FIELD CODTAB
+END
+
+STRING 102 50
+BEGIN
+  PROMPT 1 2 "Descrizione     "
+  USE &PS0883VET KEY 2
+  INPUT S0 102
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Cliente" I0
+  COPY OUTPUT 101
+  CHECKTYPE REQUIRED
+  KEY 2
+  FIELD S0
+END
+
+NUMBER 103 6 
+BEGIN
+  PROMPT 1 4 "Codice cliente  "
+  USE LF_CLIFO
+  INPUT TIPOCF "C"
+  INPUT CODCF 103
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  OUTPUT 103 CODCF
+  OUTPUT 104 RAGSOC
+  CHECKTYPE REQUIRED
+  FIELD I0
+END
+
+STRING 104 50
+BEGIN
+  PROMPT 1 5 "Ragione sociale "
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "C"
+  INPUT RAGSOC 104
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  COPY OUTPUT 103
+  CHECKTYPE NORMAL
+END
+
+ENDPAGE
+
+ENDMASK