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
This commit is contained in:
guy
parent
10a2791486
commit
26f6280a09
110
ve/verig.uml
110
ve/verig.uml
@ -623,39 +623,69 @@ ENDIF
|
||||
END
|
||||
ENDIF
|
||||
|
||||
IFDEF(FLD_CODDIP)
|
||||
STRING FR_CODDIP 16
|
||||
IFDEF(FLD_CODRSS)
|
||||
STRING FR_CODRSS 16
|
||||
BEGIN
|
||||
IFDEF(X_CODPRSQ)
|
||||
PROMPT X_CODDIP Y_CODDIP PR_CODDIP
|
||||
IFDEF(X_CODRSS)
|
||||
PROMPT X_CODRSS Y_CODRSS PR_CODRSS
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Dipendente "
|
||||
ENDIF
|
||||
USE DIP
|
||||
INPUT CODTAB FR_CODDIP
|
||||
DISPLAY "Codice dipendente" CODTAB
|
||||
DISPLAY "Cognome@40" S0[1,40]
|
||||
DISPLAY "Nome@20" S0[40,]
|
||||
OUTPUT FR_CODDIP CODTAB
|
||||
OUTPUT FR_COGNDIP S0[1,40]
|
||||
OUTPUT FR_NOMEDIP S0[40,]
|
||||
USE RSS
|
||||
INPUT CODTAB FR_CODRSS
|
||||
DISPLAY "Codice@16" CODTAB
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT FR_CODRSS CODTAB
|
||||
OUTPUT FR_DESCRRSS S0
|
||||
OUTPUT FR_QTA R1
|
||||
OUTPUT FR_UMQTASP S7
|
||||
OUTPUT FR_CODIVA S3
|
||||
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
|
||||
IFDEF(MS_CODDIP)
|
||||
MESSAGE MS_CODDIP
|
||||
IFDEF(MS_CODRSS)
|
||||
MESSAGE MS_CODRSS
|
||||
ENDIF
|
||||
FIELD CODART
|
||||
FLAGS "U"
|
||||
IFDEF(CH_CODDIP)
|
||||
CHECKTYPE CH_CODDIP
|
||||
IFDEF(CH_CODRSS)
|
||||
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)
|
||||
STRING FR_COGNDIP 40
|
||||
IFDEF(FLD_DESCRRSS)
|
||||
STRING FR_DESCRRSS 50
|
||||
BEGIN
|
||||
IFDEF(X_COGNDIP)
|
||||
PROMPT X_COGNDIP Y_COGNDIP PR_COGNDIP
|
||||
IFDEF(X_DESCRRSS)
|
||||
PROMPT X_DESCRRSS Y_DESCRRSS PR_DESCRRSS
|
||||
ELSEIF
|
||||
PROMPT 2 7 "Cognome "
|
||||
PROMPT 2 7 "Denominazione "
|
||||
ENDIF
|
||||
USE DIP KEY 2
|
||||
INPUT S0[1,40] FR_COGNDIP
|
||||
INPUT S0[40,] FR_NOMEDIP
|
||||
DISPLAY "Cognome@40" S0[1,40]
|
||||
DISPLAY "Nome@30" S0[40,]
|
||||
USE RSS KEY 2
|
||||
INPUT S0 FR_DESCRRSS
|
||||
DISPLAY "Denominazione@50" S0
|
||||
DISPLAY "Codice dipendente" CODTAB
|
||||
COPY OUTPUT FR_CODDIP
|
||||
IFDEF(MS_COGNDIP)
|
||||
MESSAGE MS_COGNDIP
|
||||
COPY OUTPUT FR_CODRSS
|
||||
IFDEF(MS_DESCRRSS)
|
||||
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)
|
||||
PROMPT X_COGNDIP Y_COGNDIP PR_COGNDIP
|
||||
IFDEF(X_DESCRATR)
|
||||
PROMPT X_DESCRATR Y_DESCRATR PR_DESCRATR
|
||||
ELSEIF
|
||||
PROMPT 2 8 "Nome "
|
||||
PROMPT 2 7 "Denominazione "
|
||||
ENDIF
|
||||
COPY ALL FR_COGNDIP
|
||||
IFDEF(MS_COGNDIP)
|
||||
MESSAGE MS_COGNDIP
|
||||
USE RSS KEY 2
|
||||
INPUT S0 FR_DESCRATR
|
||||
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
|
||||
|
||||
|
||||
@ -5,8 +5,8 @@
|
||||
#define MASK_TITLE1 "Prestazioni"
|
||||
#define PAGE_2
|
||||
|
||||
DEFINE_FIELD(CODDIP)
|
||||
DEFINE_FIELD(COGNDIP)
|
||||
DEFINE_FIELD(CODPRS)
|
||||
DEFINE_FIELD(DESCRPRS)
|
||||
DEFINE_FIELD(UMQTASP)
|
||||
DEFINE_FIELD(QTA)
|
||||
DEFINE_FIELD(PREZZO)
|
||||
|
||||
25
ve/verig10.uml
Executable file
25
ve/verig10.uml
Executable file
@ -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"
|
||||
|
||||
25
ve/verig11.uml
Executable file
25
ve/verig11.uml
Executable file
@ -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"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user