Patch level : 2.2

Files correlati     : tutte le maschere di riga
Ricompilazione Demo : [ ]
Commento            :

Aggiunta gestione righe per risorse (RSS) ea attrezzature (ATR)


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

ve/verig.uml

@@ -623,39 +623,69 @@ ENDIF
 END
 ENDIF
 
-IFDEF(FLD_CODDIP)
+IFDEF(FLD_CODRSS)
-STRING FR_CODDIP 16
+STRING FR_CODRSS 16
 BEGIN
-IFDEF(X_CODPRSQ)
+IFDEF(X_CODRSS)
-  PROMPT X_CODDIP Y_CODDIP PR_CODDIP
+  PROMPT X_CODRSS Y_CODRSS PR_CODRSS
 ELSEIF
   PROMPT 2 6 "Dipendente  "
 ENDIF
-  USE DIP
+  USE RSS
-  INPUT CODTAB FR_CODDIP
+  INPUT CODTAB FR_CODRSS
-  DISPLAY "Codice dipendente" CODTAB
+  DISPLAY "Codice@16" CODTAB
-  DISPLAY "Cognome@40" S0[1,40]
+  DISPLAY "Denominazione@50" S0
-  DISPLAY "Nome@20" S0[40,]
+  OUTPUT FR_CODRSS CODTAB
-  OUTPUT FR_CODDIP CODTAB
+  OUTPUT FR_DESCRRSS S0
-  OUTPUT FR_COGNDIP S0[1,40]
-  OUTPUT FR_NOMEDIP S0[40,]
   OUTPUT FR_QTA R1
   OUTPUT FR_UMQTASP S7
   OUTPUT FR_CODIVA S3
   MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
-IFDEF(MS_CODDIP)
+IFDEF(MS_CODRSS)
-  MESSAGE MS_CODDIP
+  MESSAGE MS_CODRSS
 ENDIF
   FIELD CODART
   FLAGS "U"
-IFDEF(CH_CODDIP)
+IFDEF(CH_CODRSS)
-  CHECKTYPE CH_CODDIP
+  CHECKTYPE CH_CODRSS
 ELSEIF
   CHECKTYPE REQUIRED
 ENDIF
 END
 ENDIF
 
+IFDEF(FLD_CODATR)
+STRING FR_CODATR 16
+BEGIN
+IFDEF(X_CODATR)
+  PROMPT X_CODATR Y_CODATR PR_CODATR
+ELSEIF
+  PROMPT 2 6 "Dipendente  "
+ENDIF
+  USE ATR
+  INPUT CODTAB FR_CODATR
+  DISPLAY "Codice@16" CODTAB
+  DISPLAY "Denominazione@50" S0
+  OUTPUT FR_CODATR CODTAB
+  OUTPUT FR_DESCRATR S0
+  OUTPUT FR_QTA R1
+  OUTPUT FR_UMQTASP S7
+  OUTPUT FR_CODIVA S3
+  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
+IFDEF(MS_CODATR)
+  MESSAGE MS_CODATR
+ENDIF
+  FIELD CODART
+  FLAGS "U"
+IFDEF(CH_CODATR)
+  CHECKTYPE CH_CODATR
+ELSEIF
+  CHECKTYPE REQUIRED
+ENDIF
+END
+ENDIF
+
+
 IFDEF(FLD_DESCRART)
 ZOOM FR_DESCRART 50
 BEGIN
@@ -777,39 +807,43 @@ ENDIF
 END
 ENDIF
 
-IFDEF(FLD_COGNDIP)
+IFDEF(FLD_DESCRRSS)
-STRING FR_COGNDIP 40
+STRING FR_DESCRRSS 50
 BEGIN
-IFDEF(X_COGNDIP)
+IFDEF(X_DESCRRSS)
-  PROMPT X_COGNDIP Y_COGNDIP PR_COGNDIP
+  PROMPT X_DESCRRSS Y_DESCRRSS PR_DESCRRSS
 ELSEIF
-  PROMPT 2 7 "Cognome     "
+  PROMPT 2 7 "Denominazione "
 ENDIF
-  USE DIP KEY 2
+  USE RSS KEY 2
-  INPUT S0[1,40] FR_COGNDIP
+  INPUT S0 FR_DESCRRSS
-  INPUT S0[40,] FR_NOMEDIP
+  DISPLAY "Denominazione@50" S0
-  DISPLAY "Cognome@40" S0[1,40]
-  DISPLAY "Nome@30" S0[40,]
   DISPLAY "Codice dipendente" CODTAB
-  COPY OUTPUT FR_CODDIP
+  COPY OUTPUT FR_CODRSS
-IFDEF(MS_COGNDIP)
+IFDEF(MS_DESCRRSS)
-  MESSAGE MS_COGNDIP
+  MESSAGE MS_DESCRRSS
 ENDIF
-  FIELD DESCR[1,40]
+  FIELD DESCR
 END
+ENDIF
 
-STRING FR_NOMEDIP 30
+IFDEF(FLD_DESCRATR)
+STRING FR_DESCRATR 50
 BEGIN
-IFDEF(X_COGNDIP)
+IFDEF(X_DESCRATR)
-  PROMPT X_COGNDIP Y_COGNDIP PR_COGNDIP
+  PROMPT X_DESCRATR Y_DESCRATR PR_DESCRATR
 ELSEIF
-  PROMPT 2 8 "Nome        "
+  PROMPT 2 7 "Denominazione "
 ENDIF
-  COPY ALL  FR_COGNDIP
+  USE RSS KEY 2
-IFDEF(MS_COGNDIP)
+  INPUT S0 FR_DESCRATR
-  MESSAGE MS_COGNDIP
+  DISPLAY "Denominazione@50" S0
+  DISPLAY "Codice dipendente" CODTAB
+  COPY OUTPUT FR_CODATR
+IFDEF(MS_DESCRATR)
+  MESSAGE MS_DESCRATR
 ENDIF
-  FIELD DESCR[40,]
+  FIELD DESCR
 END
 ENDIF
 

ve/verig06.uml

@@ -5,8 +5,8 @@
 #define MASK_TITLE1 "Prestazioni"
 #define PAGE_2
 
-DEFINE_FIELD(CODDIP)
+DEFINE_FIELD(CODPRS)
-DEFINE_FIELD(COGNDIP)
+DEFINE_FIELD(DESCRPRS)
 DEFINE_FIELD(UMQTASP)
 DEFINE_FIELD(QTA)
 DEFINE_FIELD(PREZZO)

ve/verig10.uml

@@ -0,0 +1,25 @@
+#include "verigdef.h"
+
+#define FULL_SCREEN
+
+#define MASK_TITLE1 "Risorse"
+#define PAGE_2
+
+DEFINE_FIELD(CODRSS)
+DEFINE_FIELD(DESCRRSS)
+DEFINE_FIELD(UMQTASP)
+DEFINE_FIELD(QTA)
+DEFINE_FIELD(PREZZO)
+DEFINE_FIELD(QTAEVASA)
+DEFINE_FIELD(RIGAEVASA)
+DEFINE_FIELD(DATACONS)
+DEFINE_FIELD(SCONTO)
+F_POS(SCONTO, 2, 11,"Sconto      " )
+DEFINE_FIELD(CODIVA)
+F_POS(CODIVA, 2, 13,"Cod. IVA    " )
+DEFINE_FIELD(DESIVA)
+F_POS(DESIVA, 22, 13,"" )
+DEFINE_FIELD(CODCMS)
+
+#include "verig.uml"
+

ve/verig11.uml

@@ -0,0 +1,25 @@
+#include "verigdef.h"
+
+#define FULL_SCREEN
+
+#define MASK_TITLE1 "Attrezzature"
+#define PAGE_2
+
+DEFINE_FIELD(CODATR)
+DEFINE_FIELD(DESCRATR)
+DEFINE_FIELD(UMQTASP)
+DEFINE_FIELD(QTA)
+DEFINE_FIELD(PREZZO)
+DEFINE_FIELD(QTAEVASA)
+DEFINE_FIELD(RIGAEVASA)
+DEFINE_FIELD(DATACONS)
+DEFINE_FIELD(SCONTO)
+F_POS(SCONTO, 2, 11,"Sconto      " )
+DEFINE_FIELD(CODIVA)
+F_POS(CODIVA, 2, 13,"Cod. IVA    " )
+DEFINE_FIELD(DESIVA)
+F_POS(DESIVA, 22, 13,"" )
+DEFINE_FIELD(CODCMS)
+
+#include "verig.uml"
+