From b6c5b7cc6bd13a0db4ff22406f34e592ed313c0e Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 29 Aug 1996 09:55:35 +0000 Subject: [PATCH] Lavoro al 29/08/96 git-svn-id: svn://10.65.10.50/trunk@3466 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/batbfrd.h | 5 ++++ ve/batbfrd.uml | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++ ve/batbfrr.uml | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++ ve/verig.uml | 29 +++++++++++++++++---- ve/verig01.uml | 4 +-- ve/verig05.uml | 14 +++++++++++ 6 files changed, 181 insertions(+), 7 deletions(-) create mode 100755 ve/batbfrd.h create mode 100755 ve/batbfrd.uml create mode 100755 ve/batbfrr.uml create mode 100755 ve/verig05.uml diff --git a/ve/batbfrd.h b/ve/batbfrd.h new file mode 100755 index 000000000..44ac12ace --- /dev/null +++ b/ve/batbfrd.h @@ -0,0 +1,5 @@ +#define F_CODTAB 101 +#define F_DES 102 +#define F_PICTURE 103 +#define F_TIPO 104 +#define F_FORMULA 105 diff --git a/ve/batbfrd.uml b/ve/batbfrd.uml new file mode 100755 index 000000000..eadf3a9cd --- /dev/null +++ b/ve/batbfrd.uml @@ -0,0 +1,68 @@ +#include "batbfrd.h" + +TOOLBAR "" 0 20 60 2 + +#include "toolbar.h" + +ENDPAGE + +PAGE "Tabella formule documenti" -1 -1 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAG "R" +END + +STRING F_CODTAB 10 +BEGIN + PROMPT 2 2 "Identificatore " + FIELD CODTAB + USE %FRD + CHECKTYPE REQUIRED + INPUT CODTAB F_CODTAB + DISPLAY "Codice@10" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DES S0 + KEY 1 + FLAG "UZ" +END + +STRING F_DES 50 +BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + USE %FRD KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_DES + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice@10" CODTAB + COPY OUTPUT F_CODTAB + KEY 2 +END + +STRING F_PICTURE 20 +BEGIN + PROMPT 2 7 "Picture di pres. " + FIELD S3 +END + +BOOLEAN F_TIPO +BEGIN + PROMPT 2 9 "Formula numerica" + FIELD B0 +END + +STRING F_FORMULA 70 50 +BEGIN + PROMPT 2 11 "Formula " + FIELD S1 + CHECKTYPE REQUIRED + WARNING "La formula e' obbligatoria" + FLAG "U" +END + +ENDPAGE +ENDMASK + diff --git a/ve/batbfrr.uml b/ve/batbfrr.uml new file mode 100755 index 000000000..75f991927 --- /dev/null +++ b/ve/batbfrr.uml @@ -0,0 +1,68 @@ +#include "batbfrd.h" + +TOOLBAR "" 0 20 60 2 + +#include "toolbar.h" + +ENDPAGE + +PAGE "Tabella formule righe documenti" -1 -1 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAG "R" +END + +STRING F_CODTAB 10 +BEGIN + PROMPT 2 2 "Identificatore " + FIELD CODTAB + USE %FRR + CHECKTYPE REQUIRED + INPUT CODTAB F_CODTAB + DISPLAY "Codice@10" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DES S0 + KEY 1 + FLAG "UZ" +END + +STRING F_DES 50 +BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + USE %FRR KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_DES + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice@10" CODTAB + COPY OUTPUT F_CODTAB + KEY 2 +END + +STRING F_PICTURE 20 +BEGIN + PROMPT 2 7 "Picture di pres. " + FIELD S3 +END + +BOOLEAN F_TIPO +BEGIN + PROMPT 2 9 "Formula numerica" + FIELD B0 +END + +STRING F_FORMULA 70 50 +BEGIN + PROMPT 2 11 "Formula " + FIELD S1 + CHECKTYPE REQUIRED + WARNING "La formula e' obbligatoria" + FLAG "U" +END + +ENDPAGE +ENDMASK + diff --git a/ve/verig.uml b/ve/verig.uml index 652f4e070..6cc79059b 100755 --- a/ve/verig.uml +++ b/ve/verig.uml @@ -44,7 +44,7 @@ BEGIN USE %TRI IN CODTAB FR_TIPORIGA OU FR_DESTIPORIGA S0 - CHECKTYPE NORMAL + CHECKTYPE REQUIRED FLAGS "DG" END @@ -73,10 +73,10 @@ ENDIF OUTPUT FR_CODMAG CODTAB[1,3] OUTPUT FR_DESMAG S0 IFDEF(CH_CODMAG) - CHECKTYPE CH_CODMAG + CHECKTYPE CH_CODMAG ELSE CHECKTYPE NORMAL -ENDIF +ENDIF WARNING "Magazzino assente" FLAGS "U" IFDEF(FL_CODMAG) @@ -251,13 +251,25 @@ IFDEF(X_DESCR) PROMPT X_DESCR Y_DESCR PR_DESCR ELSEIF PROMPT 2 7 "Descrizione " +ENDIF +END +ENDIF + +IFDEF(F_DESCRART) +ZOOM FR_DESCRART 50 +BEGIN +IFDEF(X_DESCRART) + PROMPT X_DESCRART Y_DESCRART PR_DESCRART +ELSEIF + PROMPT 2 7 "Descrizione " ENDIF USE LF_ANAMAG KEY 2 - INPUT DESCR FR_DESCR + INPUT DESCR FR_DESCRART DISPLAY "Descrizione@50" DESCR DISPLAY "Codice@20" CODART - OUTPUT FR_DESCR DESCR + OUTPUT FR_DESCRART DESCR ADD RUN ve2 -3 + FIELD DUMMY END ENDIF @@ -274,6 +286,7 @@ ENDIF DISPLAY "Descrizione@50" S0 DISPLAY "Codice spesa" CODTAB COPY OUTPUT FR_CODSPV + FIELD DUMMY END ENDIF @@ -290,6 +303,7 @@ ENDIF DISPLAY "Descrizione@50" S0 DISPLAY "Codice spesa" CODTAB COPY OUTPUT FR_CODSPQ + FIELD DUMMY END ENDIF @@ -306,6 +320,7 @@ ENDIF DISPLAY "Descrizione@50" S0 DISPLAY "Codice spesa" CODTAB COPY OUTPUT FR_CODSPP + FIELD DUMMY END ENDIF @@ -372,6 +387,7 @@ IFDEF(X_PERCSP) ELSEIF PROMPT 22 9 "%Spesa " ENDIF + FIELD DUMMY END ENDIF @@ -383,6 +399,7 @@ IFDEF(X_PREZZO) ELSEIF PROMPT 42 9 "Prezzo " ENDIF + FIELD DUMMY END ENDIF @@ -394,6 +411,7 @@ IFDEF(X_VALORE) ELSEIF PROMPT 42 9 "Valore " ENDIF + FIELD DUMMY END ENDIF @@ -529,6 +547,7 @@ IFDEF(CH_CODIVA) ELSEIF CHECKTYPE NORMAL ENDIF + FIELD DUMMY END ENDIF diff --git a/ve/verig01.uml b/ve/verig01.uml index cf74949ac..2888de922 100755 --- a/ve/verig01.uml +++ b/ve/verig01.uml @@ -16,14 +16,14 @@ DEFINE_FIELD(DESMAG) DEFINE_FIELD(CODDEP) DEFINE_FIELD(DESDEP) DEFINE_FIELD(CODART) -DEFINE_FIELD(DESCR) +DEFINE_FIELD(DESCRART) DEFINE_FIELD(UMQTA) DEFINE_FIELD(QTA) DEFINE_FIELD(PREZZO) DEFINE_FIELD(SCONTO) DEFINE_FIELD(PERCPROV) DEFINE_FIELD(CODIVA) -DEFINE_FIELD(DESIVA) +DEFINE_FIELD(DESIVA) #include "verig.uml" diff --git a/ve/verig05.uml b/ve/verig05.uml new file mode 100755 index 000000000..ea0260413 --- /dev/null +++ b/ve/verig05.uml @@ -0,0 +1,14 @@ +#include "verigdef.h" + +#define FULL_SCREEN +// else +// #define MASK_WIDTH 60 +// #define MASK_HEIGHT 14 +// +#define MASK_TITLE1 "Descrizione" + + +DEFINE_FIELD(DESCR) + +#include "verig.uml" +