Maschera del prg di servizio agg.codice attivita'

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

cg/cg1300c.uml

@@ -0,0 +1,113 @@
+#include "cg1300.h"
+
+PAGE "Aggiornamento codice attivita'" -1 -1 72 12
+
+NUMBER F_CODDITTA 5
+BEGIN
+    PROMPT 1 1 "Ditta             "
+    FLAGS "FRD"
+    USE LF_NDITTE KEY 1  
+    CHECKTYPE REQUIRED
+    INPUT CODDITTA F_CODDITTA
+    OUTPUT F_CODDITTA CODDITTA
+    OUTPUT F_RAGSOC RAGSOC                  
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 1 2 "Ragione sociale   "
+  FLAGS "D"
+END
+
+BOOLEAN F_PASS
+BEGIN
+  PROMPT 1 4 "Passaggio dati iva a nuova attivita' "
+  HELP "Indicare se richiedere o no il passaggio dati dalla vecchia alla nuova attivita'"
+  //MESSAGE TRUE ENABLE,F_DA|ENABLE,F_A|REQUIRED,F_ANNO
+  MESSAGE TRUE SHOW,1@
+  //MESSAGE FALSE DISABLE,F_DA|DISABLE,F_A|NORMAL,F_ANNO
+  MESSAGE FALSE HIDE,1@|RESET,1@
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 1 5 "Anno liquidazione iva "
+  HELP "Introdurre l'anno di liquidazione iva"
+  GROUP 1
+  FLAGS "A"
+  VALIDATE FIXLEN_FUNC 4
+  CHECKTYPE REQUIRED
+//VALIDATE REQIF_FUNC 1 F_PASS
+END
+
+STRING F_DA 5
+BEGIN
+  PROMPT 1 7 "DA "
+  HELP "Introdurre il codice della vecchia attivita'"
+  GROUP 1
+  FLAGS "RZ"
+  USE LF_ATTIV
+  JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
+  INPUT CODDITTA F_CODDITTA SELECT
+  INPUT CODATT F_DA
+  DISPLAY "Codice attivita'" LF_ATTIV->CODATT
+  DISPLAY "Descrizione @40" LF_ATTIV->DESCR
+  OUTPUT F_DA LF_ATTIV->CODATT
+  OUTPUT F_DENATTV LF_ATTIV->DESCR 
+  CHECKTYPE REQUIRED
+  WARNING "Attivita' assente"
+END
+
+STRING F_DENATTV 40
+BEGIN
+  PROMPT 12 7 ""
+  GROUP 1
+  FLAGS "D"
+END
+
+STRING F_A 5
+BEGIN
+  PROMPT 1 8 "A  " 
+  HELP "Introdurre il codice della nuova attivita'"
+  GROUP 1
+  FLAGS "RZ"
+  USE LF_ATTIV
+  JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
+  INPUT CODDITTA F_CODDITTA SELECT
+  INPUT CODATT F_A
+  DISPLAY "Codice attivita'" LF_ATTIV->CODATT
+  DISPLAY "Descrizione @40" LF_ATTIV->DESCR
+  OUTPUT F_A LF_ATTIV->CODATT
+  OUTPUT F_DENATTN LF_ATTIV->DESCR
+  CHECKTYPE REQUIRED
+  WARNING "Attivita' assente"
+//VALIDATE REQIF_FUNC 1 F_PASS
+END
+
+STRING F_DENATTN 40
+BEGIN
+  PROMPT 12 8 ""
+  GROUP 1
+  FLAGS "D"
+END
+
+BUTTON DLG_OK 9 2
+BEGIN
+ PROMPT -12 -1 ""  
+END
+
+BUTTON DLG_CANCEL 9 2
+BEGIN
+ PROMPT -22 -1 ""  
+END
+
+ENDPAGE
+
+ENDMASK
+
+
+
+
+
+
+