From a435ab4110d797667beef2e0435627943dae8e28 Mon Sep 17 00:00:00 2001 From: pirro Date: Mon, 23 Oct 1995 15:53:14 +0000 Subject: [PATCH] modifica a decodifica campi maschere git-svn-id: svn://10.65.10.50/trunk@1988 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/batbgmc.uml | 244 ++++++------- ve/batbrfa.uml | 206 +++++------ ve/ve2100d.uml | 1 - ve/ve2100i.h | 19 +- ve/ve2100i.uml | 250 ++++++++------ ve/ve2200x.uml | 620 ++++++++++++++++----------------- ve/ve2300x.h | 92 ++--- ve/ve2300x.uml | 917 ++++++++++++++++++++++++------------------------- 8 files changed, 1191 insertions(+), 1158 deletions(-) diff --git a/ve/batbgmc.uml b/ve/batbgmc.uml index 460575794..9f2e5bf9f 100755 --- a/ve/batbgmc.uml +++ b/ve/batbgmc.uml @@ -1,122 +1,122 @@ -#include "batbgmc.h" - -TOOLBAR "" 0 20 60 2 -#include -ENDPAGE - -PAGE "Tabella gruppi merceologici " 11 60 14 - -GROUPBOX DLG_NULL 75 7 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -STRING F_CODGRU 3 -BEGIN - PROMPT 2 2 "Codice gruppo " - FLAG "U" - FIELD CODTAB[1,3] - KEY 1 - USE GMC SELECT CODTAB[4,5]=="" - INPUT CODTAB F_CODGRU - DISPLAY "Gruppo" CODTAB[1,3] - DISPLAY "Descrizione gruppo@50" S0 - OUTPUT F_CODGRU CODTAB[1,3] - OUTPUT H_DESGRU S0 - MESSAGE COPY,H_CODGRU - -END - -STRING F_CODSGR 2 -BEGIN - PROMPT 30 2 "Codice sottogruppo " - FIELD CODTAB[4,5] - FLAGS "U" - KEY 1 - USE GMC - INPUT CODTAB[1,3] F_CODGRU - INPUT CODTAB[4,5] F_CODSGR - DISPLAY "Codice gruppo" CODTAB[1,3] - DISPLAY "Codice sottogruppo" CODTAB[4,5] - DISPLAY "Descrizione sottogruppo@50" S0 - OUTPUT F_CODGRU CODTAB[1,3] - OUTPUT F_CODSGR CODTAB[4,5] - OUTPUT F_DESSGR S0 - MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR - MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR - VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR - GROUP GR_SEARCH -END - -STRING H_CODGRU 3 -BEGIN - FLAGS "H" - COPY USE F_CODGRU - INPUT CODTAB F_CODGRU - COPY DISPLAY F_CODGRU - OUTPUT F_DESGRU S0 - CHECKTYPE NORMAL -END - -STRING F_DESGRU 50 -BEGIN - PROMPT 2 4 "Descrizione gruppo " - FLAGS "D" -END - -STRING F_DESSGR 50 -BEGIN - PROMPT 2 8 "Descrizione sottogruppo " - FIELD S0 - USE GMC KEY 2 - KEY 2 - INPUT S0 F_DESSGR - DISPLAY "Descrizione sottogruppo@50" S0 - DISPLAY "Codice gruppo" CODTAB[1,3] - DISPLAY "Codice sottogruppo" CODTAB[4,5] - COPY OUTPUT F_CODSGR - MESSAGE K_TAB,F_CODSGR - CHECKTYPE REQUIRED - WARNING "Manca la descrizione" -END - -STRING H_DESGRU 50 -BEGIN - PROMPT 2 4 "Descrizione gruppo " - FIELD S0 - KEY 2 - USE GMC KEY 2 - INPUT S0 H_DESGRU - DISPLAY "Descrizione gruppo@50" S0 - DISPLAY "Codice gruppo" CODTAB[1,3] - DISPLAY "Codice sottogruppo" CODTAB[4,5] - COPY OUTPUT F_CODSGR - OUTPUT H_DESGRU S0 - MESSAGE K_TAB,F_CODSGR - CHECKTYPE REQUIRED - WARNING "Manca la descrizione del gruppo" -END - -STRING F_CODAGGDOC 2 -BEGIN - PROMPT 2 8 "Codice aggiornamento documenti " - FIELD LIC->S4 -END - -STRING F_CODAGGOMA 2 -BEGIN - PROMPT 2 9 "Codice aggiornamento omaggi " - FIELD LIC->S5 -END - -STRING F_CODAGGSCO 2 -BEGIN - PROMPT 2 10 "Codice aggiornamento sconti " - FIELD LIC->S6 -END - -ENDPAGE - - -ENDMASK +#include "batbgmc.h" + +TOOLBAR "" 0 20 60 2 +#include +ENDPAGE + +PAGE "Tabella gruppi merceologici " 11 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODGRU 3 +BEGIN + PROMPT 2 2 "Codice gruppo " + FLAG "U" + FIELD CODTAB[1,3] + KEY 1 + USE GMC SELECT CODTAB[4,5]=="" + INPUT CODTAB F_CODGRU + DISPLAY "Gruppo" CODTAB[1,3] + DISPLAY "Descrizione gruppo@50" S0 + OUTPUT F_CODGRU CODTAB[1,3] + OUTPUT H_DESGRU S0 + MESSAGE COPY,H_CODGRU + +END + +STRING F_CODSGR 2 +BEGIN + PROMPT 30 2 "Codice sottogruppo " + FIELD CODTAB[4,5] + FLAGS "U" + KEY 1 + USE GMC + INPUT CODTAB[1,3] F_CODGRU + INPUT CODTAB[4,5] F_CODSGR + DISPLAY "Codice gruppo" CODTAB[1,3] + DISPLAY "Codice sottogruppo" CODTAB[4,5] + DISPLAY "Descrizione sottogruppo@50" S0 + OUTPUT F_CODGRU CODTAB[1,3] + OUTPUT F_CODSGR CODTAB[4,5] + OUTPUT F_DESSGR S0 + MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR + MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR + VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR + GROUP GR_SEARCH +END + +STRING H_CODGRU 3 +BEGIN + FLAGS "H" + COPY USE F_CODGRU + INPUT CODTAB F_CODGRU + COPY DISPLAY F_CODGRU + OUTPUT F_DESGRU S0 + CHECKTYPE NORMAL +END + +STRING F_DESGRU 50 +BEGIN + PROMPT 2 4 "Descrizione gruppo " + FLAGS "D" +END + +STRING F_DESSGR 50 +BEGIN + PROMPT 2 8 "Descrizione sottogruppo " + FIELD S0 + USE GMC KEY 2 + KEY 2 + INPUT S0 F_DESSGR + DISPLAY "Descrizione sottogruppo@50" S0 + DISPLAY "Codice gruppo" CODTAB[1,3] + DISPLAY "Codice sottogruppo" CODTAB[4,5] + COPY OUTPUT F_CODSGR + MESSAGE K_TAB,F_CODSGR + CHECKTYPE REQUIRED + WARNING "Manca la descrizione" +END + +STRING H_DESGRU 50 +BEGIN + PROMPT 2 4 "Descrizione gruppo " + FIELD S0 + KEY 2 + USE GMC KEY 2 + INPUT S0 H_DESGRU + DISPLAY "Descrizione gruppo@50" S0 + DISPLAY "Codice gruppo" CODTAB[1,3] + DISPLAY "Codice sottogruppo" CODTAB[4,5] + COPY OUTPUT F_CODSGR + OUTPUT H_DESGRU S0 + MESSAGE K_TAB,F_CODSGR + CHECKTYPE REQUIRED + WARNING "Manca la descrizione del gruppo" +END + +STRING F_CODAGGDOC 2 +BEGIN + PROMPT 2 8 "Codice aggiornamento documenti " + FIELD LIC->S4 +END + +STRING F_CODAGGOMA 2 +BEGIN + PROMPT 2 9 "Codice aggiornamento omaggi " + FIELD LIC->S5 +END + +STRING F_CODAGGSCO 2 +BEGIN + PROMPT 2 10 "Codice aggiornamento sconti " + FIELD LIC->S6 +END + +ENDPAGE + + +ENDMASK diff --git a/ve/batbrfa.uml b/ve/batbrfa.uml index 62c9c5e99..ebd7f5fb5 100755 --- a/ve/batbrfa.uml +++ b/ve/batbrfa.uml @@ -1,103 +1,103 @@ -#include "batbrfa.h" - -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "Raggruppamento fiscali articoli" -1 -1 78 9 - -GROUPBOX DLG_NULL 75 7 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -STRING FLD_TABRFA_CODTAB 5 -BEGIN - PROMPT 2 2 "Codice " - FIELD CODTAB - USE RFA - CHECKTYPE REQUIRED - INPUT CODTAB FLD_TABRFA_CODTAB - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT FLD_TABRFA_CODTAB CODTAB - OUTPUT FLD_TABRFA_S0 S0 - KEY 1 - FLAGS "U" -END - -STRING FLD_TABRFA_S0 50 -BEGIN - PROMPT 2 4 "Descrizione " - FIELD S0 - USE RFA KEY 2 - CHECKTYPE REQUIRED - WARNING "Manca la descrizione" - INPUT S0 FLD_TABRFA_S0 - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT FLD_TABRFA_CODTAB - KEY 2 -END - -STRING FLD_TABRFA_S7 2 -BEGIN - PROMPT 2 8 "Unita' di misura " - FIELD S7 -END - -STRING FLD_TABRFA_S8 1 -BEGIN - PROMPT 2 10 "Classe fiscale " - FIELD S8 - USE ASF - INPUT CODTAB FLD_TABRFA_S8 - DISPLAY "Cl. Fisc." CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT FLD_TABRFA_S8 CODTAB - OUTPUT FLD_DESCFA S0 - CHECKTYPE NORMAL -END - -STRING FLD_DESCFA 30 -BEGIN - PROMPT 25 10 "" - FLAG "D" -END - -NUMBER FLD_TABRFA_R0 6 2 -BEGIN - PROMPT 2 12 "Perc. ricarico medio " - FIELD R0 -END - -NUMBER FLD_TABRFA_R1 12 2 -BEGIN - PROMPT 2 14 "Costo minimo " - FIELD R1 -END - -NUMBER FLD_TABRFA_R2 12 2 -BEGIN - PROMPT 45 14 "massimo " - FIELD R2 -END - -LIST FLD_TABRFA_I0 1 30 -BEGIN - PROMPT 2 16 "Tipo costo " - FIELD I0 - HELP "Inserire il tipo di costo" - ITEM "1|Costo medio annuale" - ITEM "2|Costo ultimi 3 mesi" - ITEM "3|Costo ultimo" - ITEM "4|Costo standard" - ITEM "5|Maggiore ultimi due costi" - ITEM "6|Costo massimo d'acquisto" - ITEM "7|Costo minimo d'acquisto" -END - -ENDPAGE - -ENDMASK +#include "batbrfa.h" + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Raggruppamento fiscali articoli" -1 -1 78 9 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING FLD_TABRFA_CODTAB 5 +BEGIN + PROMPT 2 2 "Codice " + FIELD CODTAB + USE RFA + CHECKTYPE REQUIRED + INPUT CODTAB FLD_TABRFA_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT FLD_TABRFA_CODTAB CODTAB + OUTPUT FLD_TABRFA_S0 S0 + KEY 1 + FLAGS "U" +END + +STRING FLD_TABRFA_S0 50 +BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + USE RFA KEY 2 + CHECKTYPE REQUIRED + WARNING "Manca la descrizione" + INPUT S0 FLD_TABRFA_S0 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT FLD_TABRFA_CODTAB + KEY 2 +END + +STRING FLD_TABRFA_S7 2 +BEGIN + PROMPT 2 8 "Unita' di misura " + FIELD S7 +END + +STRING FLD_TABRFA_S8 1 +BEGIN + PROMPT 2 10 "Classe fiscale " + FIELD S8 + USE ASF + INPUT CODTAB FLD_TABRFA_S8 + DISPLAY "Cl. Fisc." CODTAB + DISPLAY "Descrizione@30" S0 + OUTPUT FLD_TABRFA_S8 CODTAB + OUTPUT FLD_DESCFA S0 + CHECKTYPE NORMAL +END + +STRING FLD_DESCFA 30 +BEGIN + PROMPT 25 10 "" + FLAG "D" +END + +NUMBER FLD_TABRFA_R0 6 2 +BEGIN + PROMPT 2 12 "Perc. ricarico medio " + FIELD R0 +END + +NUMBER FLD_TABRFA_R1 12 2 +BEGIN + PROMPT 2 14 "Costo minimo " + FIELD R1 +END + +NUMBER FLD_TABRFA_R2 12 2 +BEGIN + PROMPT 45 14 "massimo " + FIELD R2 +END + +LIST FLD_TABRFA_I0 1 30 +BEGIN + PROMPT 2 16 "Tipo costo " + FIELD I0 + HELP "Inserire il tipo di costo" + ITEM "1|Costo medio annuale" + ITEM "2|Costo ultimi 3 mesi" + ITEM "3|Costo ultimo" + ITEM "4|Costo standard" + ITEM "5|Maggiore ultimi due costi" + ITEM "6|Costo massimo d'acquisto" + ITEM "7|Costo minimo d'acquisto" +END + +ENDPAGE + +ENDMASK diff --git a/ve/ve2100d.uml b/ve/ve2100d.uml index 16dc6167d..ec66af0b0 100755 --- a/ve/ve2100d.uml +++ b/ve/ve2100d.uml @@ -37,7 +37,6 @@ STRING F_D_DESCR 50 BEGIN PROMPT 2 4 "Descrizione " FIELD LF_SCONTI->DESCR - FLAG "D" END GROUPBOX DLG_NULL 75 7 diff --git a/ve/ve2100i.h b/ve/ve2100i.h index 1ffffdafc..6a995ad54 100755 --- a/ve/ve2100i.h +++ b/ve/ve2100i.h @@ -1,7 +1,12 @@ -#define F_I_RICERCA 131 -#define F_I_TIPO 132 -#define F_I_CATVEN 133 -#define F_I_SCCLIENTI 134 -#define F_I_ZONE 135 -#define F_I_CONDPAG 136 -#define F_I_SCONTO 137 +#define F_I_RICERCA 131 +#define F_I_TIPO 132 +#define F_I_CATVEN 133 +#define F_I_SCCLIENTI 134 +#define F_I_ZONE 135 +#define F_I_CONDPAG 136 +#define F_I_SCONTO 137 +#define F_I_DESVEN 138 +#define F_I_DESSCCLI 139 +#define F_I_DESZONE 140 +#define F_I_DESCONPAG 141 + \ No newline at end of file diff --git a/ve/ve2100i.uml b/ve/ve2100i.uml index 7e9011786..5e43e7e2b 100755 --- a/ve/ve2100i.uml +++ b/ve/ve2100i.uml @@ -1,110 +1,140 @@ -#include -#include "ve2100i.h" - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Archivio sconti incondizionati " 11 60 14 - -LISTA F_I_TIPO 1 -BEGIN - PROMPT 100 100 "" - FIELD LF_SCONTI->TIPO - FLAG "H" - ITEM "I|Sconti incondizionati" -END - -STRING F_I_RICERCA 1 -BEGIN - PROMPT 100 100 "" - FLAG "H" - USE LF_SCONTI - INPUT TIPO F_I_TIPO SELECT - INPUT CODART[1,2] F_I_CATVEN - INPUT CODART[3,4] F_I_SCCLIENTI - INPUT CODART[5,6] F_I_ZONE - INPUT CODART[7,10] F_I_CONDPAG - DISPLAY "CV" CODART[1,2] - DISPLAY "SC" CODART[3,4] - DISPLAY "ZN" CODART[5,6] - DISPLAY "C.P." CODART[7,10] - DISPLAY "Sconto@25" SCONTO - OUTPUT F_I_CATVEN CODART[1,2] - OUTPUT F_I_SCCLIENTI CODART[3,4] - OUTPUT F_I_ZONE CODART[5,6] - OUTPUT F_I_CONDPAG CODART[7,10] - OUTPUT F_I_SCONTO SCONTO -END - -STRING F_I_CATVEN 2 -BEGIN - PROMPT 5 2 "Categoria vendite " - FIELD LF_SCONTI->CODART[1,2] - FLAG "U" - KEY 1 - USE %CVE - INPUT CODTAB F_I_CATVEN - DISPLAY "Cat. vend." CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_I_CATVEN CODTAB - CHECKTYPE REQUIRED -END - -STRING F_I_SCCLIENTI 2 -BEGIN - PROMPT 8 4 "Sconto cliente " - FIELD LF_SCONTI->CODART[3,4] - FLAG "U" - KEY 1 - USE %SCO - INPUT CODTAB F_I_SCCLIENTI - DISPLAY "Sc. Cliente" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_I_SCCLIENTI CODTAB - CHECKTYPE REQUIRED -END - -STRING F_I_ZONE 2 -BEGIN - PROMPT 18 6 "Zona " - FIELD LF_SCONTI->CODART[5,6] - FLAG "U" - KEY 1 - USE %ZON - INPUT CODTAB F_I_ZONE - DISPLAY "Zona" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_I_ZONE CODTAB - CHECKTYPE REQUIRED -END - -STRING F_I_CONDPAG 4 -BEGIN - PROMPT 2 8 "Condizione pagamento " - FIELD LF_SCONTI->CODART[7,10] - FLAG "U" - KEY 1 - USE %CPG - INPUT CODTAB F_I_CONDPAG - DISPLAY "Cond. pag." CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_I_CONDPAG CODTAB - CHECKTYPE REQUIRED -END - -GROUPBOX DLG_NULL 36 11 -BEGIN - PROMPT 0 0 "" -//FLAG "R" -END - -STRING F_I_SCONTO 25 -BEGIN - PROMPT 2 12 "Sconto " - FIELD LF_SCONTI->SCONTO -END - -ENDPAGE - -ENDMASK +#include +#include "ve2100i.h" + +TOOLBAR "" 0 20 60 2 + #include +ENDPAGE + +PAGE "Archivio sconti incondizionati " 11 60 14 + +LISTA F_I_TIPO 1 +BEGIN + PROMPT 100 100 "" + FIELD LF_SCONTI->TIPO + FLAG "H" + ITEM "I|Sconti incondizionati" +END + +STRING F_I_RICERCA 1 +BEGIN + PROMPT 100 100 "" + FLAG "H" + USE LF_SCONTI + INPUT TIPO F_I_TIPO SELECT + INPUT CODART[1,2] F_I_CATVEN + INPUT CODART[3,4] F_I_SCCLIENTI + INPUT CODART[5,6] F_I_ZONE + INPUT CODART[7,10] F_I_CONDPAG + DISPLAY "CV" CODART[1,2] + DISPLAY "SC" CODART[3,4] + DISPLAY "ZN" CODART[5,6] + DISPLAY "C.P." CODART[7,10] + DISPLAY "Sconto@25" SCONTO + OUTPUT F_I_CATVEN CODART[1,2] + OUTPUT F_I_SCCLIENTI CODART[3,4] + OUTPUT F_I_ZONE CODART[5,6] + OUTPUT F_I_CONDPAG CODART[7,10] + OUTPUT F_I_SCONTO SCONTO +END + +STRING F_I_CATVEN 2 +BEGIN + PROMPT 2 2 "Cat. vendite " + FIELD LF_SCONTI->CODART[1,2] + FLAG "U" + KEY 1 + USE %CVE + INPUT CODTAB F_I_CATVEN + DISPLAY "Cat. vend." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_I_CATVEN CODTAB + OUTPUT F_I_DESVEN S0 + CHECKTYPE REQUIRED +END + +STRING F_I_DESVEN 50 +BEGIN + PROMPT 24 2 "" + FLAG "D" +END + +STRING F_I_SCCLIENTI 2 +BEGIN + PROMPT 2 4 "Sconto cliente " + FIELD LF_SCONTI->CODART[3,4] + FLAG "U" + KEY 1 + USE LF_SCONTI + INPUT TIPO "D" + INPUT CODCAT F_I_SCCLIENTI + DISPLAY "Sc. Cliente" CODCAT + DISPLAY "Descrizione@50" DESCR + OUTPUT F_I_SCCLIENTI CODCAT + OUTPUT F_I_DESSCCLI DESCR + CHECKTYPE REQUIRED +END + +STRING F_I_DESSCCLI 50 +BEGIN + PROMPT 24 4 "" + FLAG "D" +END + +STRING F_I_ZONE 2 +BEGIN + PROMPT 2 6 "Zona " + FIELD LF_SCONTI->CODART[5,6] + FLAG "U" + KEY 1 + USE %ZON + INPUT CODTAB F_I_ZONE + DISPLAY "Zona" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_I_ZONE CODTAB + OUTPUT F_I_DESZONE S0 + CHECKTYPE REQUIRED +END + +STRING F_I_DESZONE 50 +BEGIN + PROMPT 24 6 "" + FLAG "D" +END + +STRING F_I_CONDPAG 4 +BEGIN + PROMPT 2 8 "Cond. pagam. " + FIELD LF_SCONTI->CODART[7,10] + FLAG "U" + KEY 1 + USE %CPG + INPUT CODTAB F_I_CONDPAG + DISPLAY "Cond. pag." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_I_CONDPAG CODTAB + OUTPUT F_I_DESCONPAG S0 + CHECKTYPE REQUIRED +END + +STRING F_I_DESCONPAG 50 +BEGIN + PROMPT 24 8 "" + FLAG "D" +END + +GROUPBOX DLG_NULL 78 11 +BEGIN + PROMPT 0 0 "" + FLAG "R" +END + +STRING F_I_SCONTO 25 +BEGIN + PROMPT 2 12 "Sconto " + FIELD LF_SCONTI->SCONTO +END + +ENDPAGE + +ENDMASK + \ No newline at end of file diff --git a/ve/ve2200x.uml b/ve/ve2200x.uml index ec56136aa..f07094eec 100755 --- a/ve/ve2200x.uml +++ b/ve/ve2200x.uml @@ -1,310 +1,310 @@ -#include -#include "ve2200x.h" - -TOOLBAR "" 0 20 60 2 -#include -ENDPAGE - -PAGE "Archivio condizioni di vendita " 0 0 70 20 - -STRING F_TIPO 1 -BEGIN - PROMPT 100 100 "" - FIELD LF_CONDV->TIPO - FLAG "DUP" - KEY 1 - CHECKTYPE REQUIRED -END - -// campo riservato ai listini -STRING F_L_CATVEN 2 -BEGIN - PROMPT 2 2 "Cat. vendita " - FIELD LF_CONDV->CATVEN - FLAG "U" - KEY 1 - USE %CVE - INPUT CODTAB F_L_CATVEN - DISPLAY "Cat." CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_L_CATVEN CODTAB - OUTPUT F_L_DESVEN S0 - CHECKTYPE REQUIRED -END - -// campo riservato ai listini -STRING F_L_DESVEN 50 -BEGIN - PROMPT 22 2 "" - FLAG "D" -END - -// campo riservato ai contratti -LIST F_C_TIPOCF 7 -BEGIN - PROMPT 2 2 "Tipo " - FIELD LF_CONDV->TIPOCF - KEY 1 - ITEM "C|Cliente" - ITEM "F|Fornit." - CHECKTYPE REQUIRED -END - -// campo riservato ai contratti -STRING F_C_CODCF 6 -BEGIN - PROMPT 2 3 "Codice " - FIELD LF_CONDV->CODCF - FLAG "U" - KEY 1 - USE LF_CLIFO - INPUT TIPOCF F_C_TIPOCF - INPUT CODCF F_C_CODCF - DISPLAY "C/F" TIPOCF - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_C_TIPOCF TIPOCF - OUTPUT F_C_CODCF CODCF - OUTPUT F_C_DESCF RAGSOC - CHECKTYPE REQUIRED -END - -// campo riservato ai contratti -STRING F_C_DESCF 50 -BEGIN - PROMPT 22 3 "" - FLAG "D" -END - -// campo riservato ai listini -STRING F_L_COD 3 -BEGIN - PROMPT 2 4 "Cod. listino " - FIELD LF_CONDV->COD - FLAG "U" - KEY 1 - USE LF_CONDV - INPUT TIPO F_TIPO SELECT - INPUT CATVEN F_L_CATVEN - INPUT COD F_L_COD - DISPLAY "C.V." CATVEN - DISPLAY "Codice" COD - DISPLAY "Descrizione@50" DESCR - OUTPUT F_TIPO TIPO - OUTPUT F_L_CATVEN CATVEN - OUTPUT F_L_COD COD - CHECKTYPE REQUIRED -END - -// campo riservato ai contratti -NUMBER F_C_COD 3 -BEGIN - PROMPT 2 4 "Contratto N. " - FIELD LF_CONDV->COD - KEY 1 - USE LF_CONDV - INPUT TIPO F_TIPO SELECT - INPUT TIPOCF F_C_TIPOCF - INPUT CODCF F_C_CODCF - INPUT COD F_C_COD - DISPLAY "C/F" TIPOCF - DISPLAY "Codice" CODCF - DISPLAY "Numero" COD - DISPLAY "Descrizione@50" DESCR - OUTPUT F_TIPO TIPO - OUTPUT F_C_TIPOCF TIPOCF - OUTPUT F_C_CODCF CODCF - OUTPUT F_C_COD COD - CHECKTYPE REQUIRED -END - -// campo riservato alle offerte -STRING F_O_COD 3 -BEGIN - PROMPT 2 3 "Cod. offerta " - FIELD LF_CONDV->COD - FLAG "U" - KEY 1 - USE LF_CONDV - INPUT TIPO F_TIPO SELECT - INPUT COD F_O_COD - DISPLAY "Codice" COD - DISPLAY "Descrizione@50" DESCR - OUTPUT F_TIPO TIPO - OUTPUT F_O_COD COD - CHECKTYPE REQUIRED -END - -GROUPBOX DLG_NULL 75 8 -BEGIN - PROMPT 0 0 "" - FLAG "R" -END - -STRING F_DESCR 50 -BEGIN - PROMPT 2 5 "Descrizione " - FIELD LF_CONDV->DESCR -END - -STRING F_CODVAL 5 -BEGIN - PROMPT 2 8 "Valuta " - FIELD LF_CONDV->CODVAL - FLAG "U" - USE %VAL - INPUT CODTAB F_CODVAL - DISPLAY "Valuta" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODVAL CODTAB - MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI - MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI -END - -NUMBER F_CAMBIO 15 5 -BEGIN - PROMPT 21 8 "Cambio " - FIELD LF_CONDV->CAMBIO -END - -DATA F_DATACAM -BEGIN - PROMPT 49 8 "Data " - FIELD LF_CONDV->DATACAM -END - -DATA F_VALIN -BEGIN - PROMPT 2 10 "Inizio validita` " - FIELD LF_CONDV->VALIN -END - -DATA F_VALFIN -BEGIN - PROMPT 39 10 "Fine validita` " - FIELD LF_CONDV->VALFIN -END - -BOOLEAN F_IMPLORDI -BEGIN - PROMPT 2 12 "Importi lordi" - FIELD LF_CONDV->IMPLORDI -END - -BOOLEAN F_GESTUM -BEGIN - PROMPT 34 12 "Gestione unita` di misura" - FIELD LF_CONDV->GESTUM -END - -BOOLEAN F_GESTSCAGL -BEGIN - PROMPT 2 13 "Gestione scaglioni" - FIELD LF_CONDV->GESTSCAGL -END - -BOOLEAN F_GESTSCO -BEGIN - PROMPT 34 13 "Gestione sconti/omaggi" - FIELD LF_CONDV->GESTSCO -END - -BOOLEAN F_SCONST -BEGIN - PROMPT 2 14 "Gestione sconti standard" - FIELD LF_CONDV->SCONST -END - -// campo riservato ai contratti -BOOLEAN F_C_OBBLIG -BEGIN - PROMPT 34 14 "Contratto obbligatorio" - FIELD LF_CONDV->OBBLIG -END - -LIST F_SEQRIC_1 10 -BEGIN - PROMPT 2 15 "Sequenza ricerca " - FIELD LF_CONDV->SEQRIC[1,1] - ITEM "A|Articoli" - ITEM "G|Gruppo M." - ITEM "S|Sottogr.M." - ITEM "R|Ragg.fisc." -END - -LIST F_SEQRIC_2 10 -BEGIN - PROMPT 34 15 "" - FIELD LF_CONDV->SEQRIC[2,2] - ITEM "-|Nessuno" - ITEM "A|Articoli" - ITEM "G|Gruppo M." - ITEM "S|Sottogr.M." - ITEM "R|Ragg.fisc." - STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1) - WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe" -END - -LIST F_SEQRIC_3 10 -BEGIN - PROMPT 49 15 "" - FIELD LF_CONDV->SEQRIC[3,3] - ITEM "-|Nessuno" - ITEM "A|Articoli" - ITEM "G|Gruppo M." - ITEM "S|Sottogr.M." - ITEM "R|Ragg.fisc." - STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2)) - WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe" -END - -LIST F_SEQRIC_4 10 -BEGIN - PROMPT 64 15 "" - FIELD LF_CONDV->SEQRIC[4,4] - ITEM "-|Nessuno" - ITEM "A|Articoli" - ITEM "G|Gruppo M." - ITEM "S|Sottogr.M." - ITEM "R|Ragg.fisc." - STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2)&&(#THIS_FIELD!=#F_SEQRIC_3)) - WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe" -END - -// campo riservato ai listini -STRING F_LC_CODSUCC 3 -BEGIN - PROMPT 2 16 "Listino succ. " - FIELD LF_CONDV->CODLISSUCC - FLAG "U" - USE LF_CONDV - INPUT TIPO F_TIPO SELECT - INPUT CATVEN F_L_CATVEN SELECT -//INPUT TIPOCF F_C_TIPOCF SELECT -//INPUT CODCF F_C_CODCF SELECT - INPUT COD F_LC_CODSUCC - DISPLAY "C.V." CATVEN - DISPLAY "Codice" COD - DISPLAY "Descrizione@50" DESCR - OUTPUT F_LC_CODSUCC COD - OUTPUT F_LC_DESSUCC DESCR - CHECKTYPE NORMAL -END - -// campo riservato ai listini -STRING F_LC_DESSUCC 50 -BEGIN - PROMPT 24 16 "" - FLAG "D" -END - -// bottone di lancio dell'applicazione delle righe -BUTTON BTN_RIGHE 63 1 -BEGIN - PROMPT 0 -1 "Righe di questa testata" - MESSAGE K_F5 -END - -ENDPAGE - ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- +#include +#include "ve2200x.h" + +TOOLBAR "" 0 20 60 2 +#include +ENDPAGE + +PAGE "Archivio condizioni di vendita " 0 0 70 20 + +STRING F_TIPO 1 +BEGIN + PROMPT 100 100 "" + FIELD LF_CONDV->TIPO + FLAG "DUP" + KEY 1 + CHECKTYPE REQUIRED +END + +// campo riservato ai listini +STRING F_L_CATVEN 2 +BEGIN + PROMPT 2 2 "Cat. vendita " + FIELD LF_CONDV->CATVEN + FLAG "U" + KEY 1 + USE %CVE + INPUT CODTAB F_L_CATVEN + DISPLAY "Cat." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_L_CATVEN CODTAB + OUTPUT F_L_DESVEN S0 + CHECKTYPE REQUIRED +END + +// campo riservato ai listini +STRING F_L_DESVEN 50 +BEGIN + PROMPT 22 2 "" + FLAG "D" +END + +// campo riservato ai contratti +LIST F_C_TIPOCF 7 +BEGIN + PROMPT 2 2 "Tipo " + FIELD LF_CONDV->TIPOCF + KEY 1 + ITEM "C|Cliente" + ITEM "F|Fornit." + CHECKTYPE REQUIRED +END + +// campo riservato ai contratti +STRING F_C_CODCF 6 +BEGIN + PROMPT 2 3 "Codice " + FIELD LF_CONDV->CODCF + FLAG "U" + KEY 1 + USE LF_CLIFO + INPUT TIPOCF F_C_TIPOCF + INPUT CODCF F_C_CODCF + DISPLAY "C/F" TIPOCF + DISPLAY "Codice" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_C_TIPOCF TIPOCF + OUTPUT F_C_CODCF CODCF + OUTPUT F_C_DESCF RAGSOC + CHECKTYPE REQUIRED +END + +// campo riservato ai contratti +STRING F_C_DESCF 50 +BEGIN + PROMPT 22 3 "" + FLAG "D" +END + +// campo riservato ai listini +STRING F_L_COD 3 +BEGIN + PROMPT 2 4 "Cod. listino " + FIELD LF_CONDV->COD + FLAG "U" + KEY 1 + USE LF_CONDV + INPUT TIPO F_TIPO SELECT + INPUT CATVEN F_L_CATVEN + INPUT COD F_L_COD + DISPLAY "C.V." CATVEN + DISPLAY "Codice" COD + DISPLAY "Descrizione@50" DESCR + OUTPUT F_TIPO TIPO + OUTPUT F_L_CATVEN CATVEN + OUTPUT F_L_COD COD + CHECKTYPE REQUIRED +END + +// campo riservato ai contratti +NUMBER F_C_COD 3 +BEGIN + PROMPT 2 4 "Contratto N. " + FIELD LF_CONDV->COD + KEY 1 + USE LF_CONDV + INPUT TIPO F_TIPO SELECT + INPUT TIPOCF F_C_TIPOCF + INPUT CODCF F_C_CODCF + INPUT COD F_C_COD + DISPLAY "C/F" TIPOCF + DISPLAY "Codice" CODCF + DISPLAY "Numero" COD + DISPLAY "Descrizione@50" DESCR + OUTPUT F_TIPO TIPO + OUTPUT F_C_TIPOCF TIPOCF + OUTPUT F_C_CODCF CODCF + OUTPUT F_C_COD COD + CHECKTYPE REQUIRED +END + +// campo riservato alle offerte +STRING F_O_COD 3 +BEGIN + PROMPT 2 3 "Cod. offerta " + FIELD LF_CONDV->COD + FLAG "U" + KEY 1 + USE LF_CONDV + INPUT TIPO F_TIPO SELECT + INPUT COD F_O_COD + DISPLAY "Codice" COD + DISPLAY "Descrizione@50" DESCR + OUTPUT F_TIPO TIPO + OUTPUT F_O_COD COD + CHECKTYPE REQUIRED +END + +GROUPBOX DLG_NULL 75 8 +BEGIN + PROMPT 0 0 "" + FLAG "R" +END + +STRING F_DESCR 50 +BEGIN + PROMPT 2 5 "Descrizione " + FIELD LF_CONDV->DESCR +END + +STRING F_CODVAL 5 +BEGIN + PROMPT 2 8 "Valuta " + FIELD LF_CONDV->CODVAL + FLAG "U" + USE %VAL + INPUT CODTAB F_CODVAL + DISPLAY "Valuta" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODVAL CODTAB + MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI + MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI +END + +NUMBER F_CAMBIO 15 5 +BEGIN + PROMPT 21 8 "Cambio " + FIELD LF_CONDV->CAMBIO +END + +DATA F_DATACAM +BEGIN + PROMPT 49 8 "Data " + FIELD LF_CONDV->DATACAM +END + +DATA F_VALIN +BEGIN + PROMPT 2 10 "Inizio validita` " + FIELD LF_CONDV->VALIN +END + +DATA F_VALFIN +BEGIN + PROMPT 39 10 "Fine validita` " + FIELD LF_CONDV->VALFIN +END + +BOOLEAN F_IMPLORDI +BEGIN + PROMPT 2 12 "Importi lordi" + FIELD LF_CONDV->IMPLORDI +END + +BOOLEAN F_GESTUM +BEGIN + PROMPT 34 12 "Gestione unita` di misura" + FIELD LF_CONDV->GESTUM +END + +BOOLEAN F_GESTSCAGL +BEGIN + PROMPT 2 13 "Gestione scaglioni" + FIELD LF_CONDV->GESTSCAGL +END + +BOOLEAN F_GESTSCO +BEGIN + PROMPT 34 13 "Gestione sconti/omaggi" + FIELD LF_CONDV->GESTSCO +END + +BOOLEAN F_SCONST +BEGIN + PROMPT 2 14 "Gestione sconti standard" + FIELD LF_CONDV->SCONST +END + +// campo riservato ai contratti +BOOLEAN F_C_OBBLIG +BEGIN + PROMPT 34 14 "Contratto obbligatorio" + FIELD LF_CONDV->OBBLIG +END + +LIST F_SEQRIC_1 10 +BEGIN + PROMPT 2 15 "Sequenza ricerca " + FIELD LF_CONDV->SEQRIC[1,1] + ITEM "A|Articoli" + ITEM "G|Gruppo M." + ITEM "S|Sottogr.M." + ITEM "R|Ragg.fisc." +END + +LIST F_SEQRIC_2 10 +BEGIN + PROMPT 34 15 "" + FIELD LF_CONDV->SEQRIC[2,2] + ITEM "-|Nessuno" + ITEM "A|Articoli" + ITEM "G|Gruppo M." + ITEM "S|Sottogr.M." + ITEM "R|Ragg.fisc." + STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1) + WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe" +END + +LIST F_SEQRIC_3 10 +BEGIN + PROMPT 49 15 "" + FIELD LF_CONDV->SEQRIC[3,3] + ITEM "-|Nessuno" + ITEM "A|Articoli" + ITEM "G|Gruppo M." + ITEM "S|Sottogr.M." + ITEM "R|Ragg.fisc." + STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2)) + WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe" +END + +LIST F_SEQRIC_4 10 +BEGIN + PROMPT 64 15 "" + FIELD LF_CONDV->SEQRIC[4,4] + ITEM "-|Nessuno" + ITEM "A|Articoli" + ITEM "G|Gruppo M." + ITEM "S|Sottogr.M." + ITEM "R|Ragg.fisc." + STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2)&&(#THIS_FIELD!=#F_SEQRIC_3)) + WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe" +END + +// campo riservato ai listini +STRING F_LC_CODSUCC 3 +BEGIN + PROMPT 2 16 "Listino succ. " + FIELD LF_CONDV->CODLISSUCC + FLAG "U" + USE LF_CONDV + INPUT TIPO F_TIPO SELECT + INPUT CATVEN F_L_CATVEN SELECT +//INPUT TIPOCF F_C_TIPOCF SELECT +//INPUT CODCF F_C_CODCF SELECT + INPUT COD F_LC_CODSUCC + DISPLAY "C.V." CATVEN + DISPLAY "Codice" COD + DISPLAY "Descrizione@50" DESCR + OUTPUT F_LC_CODSUCC COD + OUTPUT F_LC_DESSUCC DESCR + CHECKTYPE NORMAL +END + +// campo riservato ai listini +STRING F_LC_DESSUCC 50 +BEGIN + PROMPT 24 16 "" + FLAG "D" +END + +// bottone di lancio dell'applicazione delle righe +BUTTON BTN_RIGHE 63 1 +BEGIN + PROMPT 0 -1 "Righe di questa testata" + MESSAGE K_F5 +END + +ENDPAGE + +--------------------------------------------------------------------------------------------------------------------------------------------------------------------------- diff --git a/ve/ve2300x.h b/ve/ve2300x.h index 562a9ca69..6235732f2 100755 --- a/ve/ve2300x.h +++ b/ve/ve2300x.h @@ -1,46 +1,46 @@ - -// campi comuni a tutti gli archivi -#define F_R_TIPO 111 -#define F_R_TIPORIGA 112 -#define F_R_CODRIGA_A 113 -#define F_R_CODRIGA_G 114 -#define F_R_CODRIGA_R 115 -#define F_R_UM 133 -#define F_R_NSCAGL 116 -#define F_R_QLIM 117 -#define F_R_PREZZO 118 -#define F_R_SCONTO 119 -#define F_R_ADDIVA 120 -#define F_R_CODIVA 121 -#define F_R_PERCPROVV 122 -#define F_R_QOM 123 -#define F_R_QBASE 124 -#define F_R_CODARTOM 125 -#define F_R_PROMAGGIO 126 -#define F_R_UMOM 127 -#define F_R_CODRIGA_S 128 -#define F_R_DESRIGA_A 161 -#define F_R_DESRIGA_G 162 -#define F_R_DESRIGA_R 163 -#define F_R_DESRIGA_S 163 - -// campi riservati ai listini -#define F_R_L_CATVEN 131 -#define F_R_L_COD 132 -#define F_R_L_RICERCA 134 -#define F_R_L_DESVEN 135 -#define F_R_L_DES 136 - -// campi riservati ai contratti -#define F_R_C_TIPOCF 141 -#define F_R_C_CODCF 142 -#define F_R_C_COD 143 -#define F_R_C_RICERCA 144 -#define F_R_C_DESCF 145 -#define F_R_C_DES 146 - -// campi riservati alle offerte -#define F_R_O_COD 151 -#define F_R_O_RICERCA 152 -#define F_R_O_ARTES 153 -#define F_R_O_DES 154 + +// campi comuni a tutti gli archivi +#define F_R_TIPO 111 +#define F_R_TIPORIGA 112 +#define F_R_CODRIGA_A 113 +#define F_R_CODRIGA_G 114 +#define F_R_CODRIGA_R 115 +#define F_R_UM 133 +#define F_R_NSCAGL 116 +#define F_R_QLIM 117 +#define F_R_PREZZO 118 +#define F_R_SCONTO 119 +#define F_R_ADDIVA 120 +#define F_R_CODIVA 121 +#define F_R_PERCPROVV 122 +#define F_R_QOM 123 +#define F_R_QBASE 124 +#define F_R_CODARTOM 125 +#define F_R_PROMAGGIO 126 +#define F_R_UMOM 127 +#define F_R_CODRIGA_S 128 +#define F_R_DESRIGA_A 161 +#define F_R_DESRIGA_G 162 +#define F_R_DESRIGA_R 163 +#define F_R_DESRIGA_S 163 + +// campi riservati ai listini +#define F_R_L_CATVEN 131 +#define F_R_L_COD 132 +#define F_R_L_RICERCA 134 +#define F_R_L_DESVEN 135 +#define F_R_L_DES 136 + +// campi riservati ai contratti +#define F_R_C_TIPOCF 141 +#define F_R_C_CODCF 142 +#define F_R_C_COD 143 +#define F_R_C_RICERCA 144 +#define F_R_C_DESCF 145 +#define F_R_C_DES 146 + +// campi riservati alle offerte +#define F_R_O_COD 151 +#define F_R_O_RICERCA 152 +#define F_R_O_ARTES 153 +#define F_R_O_DES 154 diff --git a/ve/ve2300x.uml b/ve/ve2300x.uml index 943a9eb17..4897eb197 100755 --- a/ve/ve2300x.uml +++ b/ve/ve2300x.uml @@ -1,459 +1,458 @@ -#include -#include "ve2300x.h" - -TOOLBAR "" 0 20 60 2 -#include -ENDPAGE - -PAGE "Archivio righe condiz. di vendita " 0 0 70 20 - -STRING F_R_TIPO 1 -BEGIN - PROMPT 100 100 "" - FIELD LF_RCONDV->TIPO - FLAG "DUP" - KEY 1 - CHECKTYPE REQUIRED -END - -STRING F_R_L_CATVEN 2 // campo riservato ai listini -BEGIN - PROMPT 2 2 "Cat. vendita " - FIELD LF_RCONDV->CATVEN - FLAG "UP" - KEY 1 - USE %CVE - INPUT CODTAB F_R_L_CATVEN - DISPLAY "Cat." CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_R_L_CATVEN CODTAB - OUTPUT F_R_L_DESVEN S0 - CHECKTYPE REQUIRED -END - -STRING F_R_L_DESVEN 50 // campo riservato ai listini -BEGIN - PROMPT 23 2 "" - FLAG "D" -END - -LIST F_R_C_TIPOCF 7 // campo riservato ai contratti -BEGIN - PROMPT 2 1 "Tipo C/F " - FIELD LF_RCONDV->TIPOCF - FLAG "P" - KEY 1 - ITEM "C|Cliente" - ITEM "F|Fornit." - CHECKTYPE REQUIRED -END - -STRING F_R_C_CODCF 6 // campo riservato ai contratti -BEGIN - PROMPT 2 2 "Cod. C/F " - FIELD LF_RCONDV->CODCF - FLAG "UP" - KEY 1 - USE LF_CLIFO - INPUT TIPOCF F_R_C_TIPOCF - INPUT CODCF F_R_C_CODCF - DISPLAY "C/F" TIPOCF - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_R_C_TIPOCF TIPOCF - OUTPUT F_R_C_CODCF CODCF - OUTPUT F_R_C_DESCF RAGSOC - CHECKTYPE REQUIRED -END - -STRING F_R_C_DESCF 50 // campo riservato ai contratti -BEGIN - PROMPT 23 2 "" - FLAG "D" -END - -STRING F_R_L_COD 3 // campo riservato ai listini -BEGIN - PROMPT 2 3 "Listino " - FIELD LF_RCONDV->COD - FLAG "UPG" - KEY 1 - USE LF_CONDV - INPUT TIPO F_R_TIPO SELECT - INPUT CATVEN F_R_L_CATVEN - INPUT COD F_R_L_COD - DISPLAY "C.V." CATVEN - DISPLAY "Codice" COD - DISPLAY "Descrizione@50" DESCR - OUTPUT F_R_TIPO TIPO - OUTPUT F_R_L_CATVEN CATVEN - OUTPUT F_R_L_COD COD - OUTPUT F_R_L_DES DESCR - CHECKTYPE REQUIRED -END - -STRING F_R_L_DES 50 // campo riservato ai contratti -BEGIN - PROMPT 23 3 "" - FLAG "D" -END - -NUMBER F_R_C_COD 3 // campo riservato ai contratti -BEGIN - PROMPT 2 3 "Contratto N. " - FIELD LF_RCONDV->COD - FLAG "PG" - KEY 1 - USE LF_CONDV - INPUT TIPO F_R_TIPO SELECT - INPUT TIPOCF F_R_C_TIPOCF - INPUT CODCF F_R_C_CODCF - INPUT COD F_R_C_COD - DISPLAY "C/F" TIPOCF - DISPLAY "Codice" CODCF - DISPLAY "Numero" COD - DISPLAY "Descrizione@50" DESCR - OUTPUT F_R_TIPO TIPO - OUTPUT F_R_C_TIPOCF TIPOCF - OUTPUT F_R_C_CODCF CODCF - OUTPUT F_R_C_COD COD - OUTPUT F_R_C_DES DESCR - CHECKTYPE REQUIRED -END - -STRING F_R_C_DES 50 // campo riservato ai listini -BEGIN - PROMPT 23 3 "" - FLAG "D" -END - -STRING F_R_O_COD 3 // campo riservato alle offerte -BEGIN - PROMPT 2 2 "Codice offerta " - FIELD LF_RCONDV->COD - FLAG "UPG" - KEY 1 - USE LF_CONDV - INPUT TIPO F_R_TIPO SELECT - INPUT COD F_R_O_COD - DISPLAY "Codice" COD - DISPLAY "Descrizione@50" DESCR - OUTPUT F_R_TIPO TIPO - OUTPUT F_R_O_COD COD - CHECKTYPE REQUIRED -END - -STRING F_R_O_DES 50 // campo riservato alle offerte -BEGIN - PROMPT 2 3 "Descr. offerta " - FLAG "D" -END - -LIST F_R_TIPORIGA 14 -BEGIN - PROMPT 2 4 "Tipo riga " - FIELD LF_RCONDV->TIPORIGA - FLAG "P" - KEY 1 - ITEM "A|Articolo" - ITEM "G|Gruppo merc." - ITEM "S|Sottogr. merc." - ITEM "R|Ragg. fiscale" -END - -STRING F_R_CODRIGA_A 20 -BEGIN - PROMPT 37 4 "Codice articolo " - FIELD LF_RCONDV->CODRIGA - FLAG "U" - KEY 1 - USE LF_ANAGR - INPUT CODART F_R_CODRIGA_A - DISPLAY "Articolo@20" CODART - DISPLAY "Descrizione@50" DESCR - OUTPUT F_R_CODRIGA_A CODART - OUTPUT F_R_DESRIGA_A DESCR - CHECKTYPE REQUIRED -END - -STRING F_R_DESRIGA_A 50 -BEGIN - PROMPT 2 5 "Descrizione articolo " - FLAG "D" -END - -STRING F_R_CODRIGA_G 3 -BEGIN - PROMPT 2 5 "Gruppo merc. " - FIELD LF_RCONDV->CODRIGA[1,3] - FLAG "U" - KEY 1 - USE %GMC - INPUT CODTAB[1,3] F_R_CODRIGA_G - DISPLAY "Gr. merc." CODTAB[1,3] - DISPLAY "Descrizione@50" S0 - OUTPUT F_R_CODRIGA_G CODTAB[1,3] - OUTPUT F_R_DESRIGA_G S0 - CHECKTYPE REQUIRED - MESSAGE COPY,F_R_CODRIGA_A -END - -STRING F_R_DESRIGA_G 50 -BEGIN - PROMPT 23 5 "" - FLAG "D" -END - -STRING F_R_CODRIGA_S 2 -BEGIN - PROMPT 2 5 "Sottogr. merc. " - FIELD LF_RCONDV->CODRIGA[1,2] - FLAG "U" - KEY 1 - USE %GMC - INPUT CODTAB[4,5] F_R_CODRIGA_S - DISPLAY "Sottogr. merc." CODTAB[4,5] - DISPLAY "Descrizione@50" S0 - OUTPUT F_R_CODRIGA_S CODTAB[4,5] - OUTPUT F_R_DESRIGA_S S0 - CHECKTYPE REQUIRED - MESSAGE COPY,F_R_CODRIGA_A -END - -STRING F_R_DESRIGA_S 50 -BEGIN - PROMPT 23 5 "" - FLAG "D" -END - -STRING F_R_CODRIGA_R 2 -BEGIN - PROMPT 2 5 "Ragg.fiscale " - FIELD LF_RCONDV->CODRIGA[1,2] - FLAG "U" - KEY 1 - USE %RFA - INPUT CODTAB F_R_CODRIGA_R - DISPLAY "Ragg. fisc." CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_R_CODRIGA_R CODTAB - OUTPUT F_R_DESRIGA_R S0 - CHECKTYPE REQUIRED - MESSAGE COPY,F_R_CODRIGA_A -END - -STRING F_R_DESRIGA_R 50 -BEGIN - PROMPT 23 5 "" - FLAG "D" -END - -STRING F_R_NSCAGL 1 -BEGIN - PROMPT 2 7 "N.ro scaglione " - FIELD LF_RCONDV->NSCAGL - KEY 1 - CHECKTYPE REQUIRED -END - -STRING F_R_UM 2 -BEGIN - PROMPT 28 7 "U.M. " - FIELD LF_RCONDV->UM - FLAG "U" - KEY 1 - USE LF_UMART KEY 2 - JOIN %UMS INTO CODTAB=UM - INPUT CODART F_R_CODRIGA_A SELECT - INPUT UM F_R_UM - DISPLAY "U.M." UM - DISPLAY "Desccrizione@50" %UMS->S0 - OUTPUT F_R_UM UM - CHECKTYPE REQUIRED -END - -STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto -BEGIN - PROMPT 100 100 "" - FLAG "D" - USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD) -//INPUT TIPO F_R_TIPO SELECT -//INPUT CATVEN F_R_L_CATVEN -//INPUT COD F_R_L_COD - INPUT TIPORIGA F_R_TIPORIGA - INPUT CODRIGA F_R_CODRIGA_A - INPUT UM F_R_UM - INPUT NSCAGL F_R_NSCAGL - DISPLAY "Tipo" TIPORIGA - DISPLAY "Codice@20" CODRIGA - DISPLAY "U.M." UM - DISPLAY "N.S." NSCAGL - OUTPUT F_R_TIPORIGA TIPORIGA - OUTPUT F_R_CODRIGA_R CODRIGA[1,2] - OUTPUT F_R_CODRIGA_S CODRIGA[1,2] - OUTPUT F_R_CODRIGA_G CODRIGA[1,3] - OUTPUT F_R_CODRIGA_A CODRIGA - OUTPUT F_R_UM UM - OUTPUT F_R_NSCAGL NSCAGL -END - -STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto -BEGIN - PROMPT 100 100 "" - FLAG "D" - USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD) -//INPUT TIPO F_R_TIPO SELECT -//INPUT TIPOCF F_R_C_TIPOCF -//INPUT CODCF F_R_C_CODCF -//INPUT COD F_R_C_COD - INPUT TIPORIGA F_R_TIPORIGA - INPUT CODRIGA F_R_CODRIGA_A - INPUT NSCAGL F_R_NSCAGL - DISPLAY "Tipo" TIPORIGA - DISPLAY "Codice@20" CODRIGA - DISPLAY "N.S." NSCAGL - OUTPUT F_R_TIPORIGA TIPORIGA - OUTPUT F_R_CODRIGA_R CODRIGA[1,2] - OUTPUT F_R_CODRIGA_S CODRIGA[1,2] - OUTPUT F_R_CODRIGA_G CODRIGA[1,3] - OUTPUT F_R_CODRIGA_A CODRIGA - OUTPUT F_R_NSCAGL NSCAGL -END - -STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto -BEGIN - PROMPT 100 100 "" - FLAG "D" - USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(COD==#F_R_L_COD) -//INPUT TIPO F_R_TIPO SELECT -//INPUT COD F_R_O_COD - INPUT TIPORIGA F_R_TIPORIGA - INPUT CODRIGA F_R_CODRIGA_A - INPUT UM F_R_UM - INPUT NSCAGL F_R_NSCAGL - DISPLAY "Tipo" TIPORIGA - DISPLAY "Codice@20" CODRIGA - DISPLAY "U.M." UM - DISPLAY "N.S." NSCAGL - OUTPUT F_R_TIPORIGA TIPORIGA - OUTPUT F_R_CODRIGA_R CODRIGA[1,2] - OUTPUT F_R_CODRIGA_S CODRIGA[1,2] - OUTPUT F_R_CODRIGA_G CODRIGA[1,3] - OUTPUT F_R_CODRIGA_A CODRIGA - OUTPUT F_R_UM UM - OUTPUT F_R_NSCAGL NSCAGL -END - -GROUPBOX DLG_NULL 78 9 // fine della chiave -BEGIN - PROMPT 0 0 "" - FLAG "R" -END - -NUMBER F_R_QLIM 15 5 -BEGIN - PROMPT 2 9 "Q.ta' limite scagl. " - FIELD LF_RCONDV->QLIM -END - -NUMBER F_R_PREZZO 18 2 -BEGIN - PROMPT 2 10 "Prezzo " - FIELD LF_RCONDV->PREZZO -END - -STRING F_R_SCONTO 25 -BEGIN - PROMPT 35 10 "Sconto " - FIELD LF_RCONDV->SCONTO - FLAG "U" -END - -BOOLEAN F_R_ADDIVA -BEGIN - PROMPT 2 11 "Addebito IVA" - FIELD LF_RCONDV->ADDIVA -END - -STRING F_R_CODIVA 4 -BEGIN - PROMPT 31 11 "Codice IVA " - FIELD LF_RCONDV->CODIVA - FLAG "U" - USE %IVA - INPUT CODTAB F_R_CODIVA - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_R_CODIVA CODTAB - CHECKTYPE NORMAL -END - -NUMBER F_R_PERCPROVV 5 2 -BEGIN - PROMPT 2 12 "Provvigione % " - FIELD LF_RCONDV->PERCPROVV - NUM_EXPR (#F_R_PERCPROVV>=0)&&(#F_R_PERCPROVV<=100) - WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100" -END - -NUMBER F_R_QOM 15 5 -BEGIN - PROMPT 2 13 "Q.ta' sconto/omaggio " - FIELD LF_RCONDV->QOM -END - -STRING F_R_UMOM 2 -BEGIN - PROMPT 47 13 "U.M. q.ta' omaggio " - FIELD LF_RCONDV->UMOM - FLAG "U" - USE LF_UMART KEY 2 - JOIN %UMS INTO CODTAB=UM - INPUT CODART F_R_CODARTOM SELECT - INPUT UM F_R_UMOM - DISPLAY "U.M." UM - DISPLAY "Desccrizione@50" %UMS->S0 - OUTPUT F_R_UMOM UM -END - -NUMBER F_R_QBASE 15 5 -BEGIN - PROMPT 2 14 "Q.ta' base sconto " - FIELD LF_RCONDV->QBASE -END - -STRING F_R_CODARTOM 20 -BEGIN - PROMPT 2 15 "Codice art. omaggio " - FIELD LF_RCONDV->CODARTOM - FLAG "U" - USE LF_ANAGR - INPUT CODART F_R_CODARTOM - DISPLAY "Articolo@20" CODART - DISPLAY "Descrizione@50" DESCR - OUTPUT F_R_CODARTOM CODART - CHECKTYPE NORMAL -END - -NUMBER F_R_PROMAGGIO 18 2 -BEGIN - PROMPT 2 16 "Prezzo omaggio " - FIELD LF_RCONDV->PROMAGGIO -END - -//STRINF F_R_CO_CODLOTTO 6 -//BEGIN -//PROMPT 2 17 "Codice lotto " -//FIELD LF_RCONDV->CODLOTTO -//FLAG "U" -//END - -BOOLEAN F_R_O_ARTES -BEGIN - PROMPT 47 17 "Art. in esaurimento" - FIELD LF_RCONDV->ARTES -END - -ENDPAGE - -ENDMASK +#include +#include "ve2300x.h" + +TOOLBAR "" 0 20 60 2 +#include +ENDPAGE + +PAGE "Archivio righe condiz. di vendita " 0 0 70 20 + +STRING F_R_TIPO 1 +BEGIN + PROMPT 100 100 "" + FIELD LF_RCONDV->TIPO + FLAG "DUP" + KEY 1 + CHECKTYPE REQUIRED +END + +STRING F_R_L_CATVEN 2 // campo riservato ai listini +BEGIN + PROMPT 2 2 "Cat. vendita " + FIELD LF_RCONDV->CATVEN + FLAG "UP" + KEY 1 + USE %CVE + INPUT CODTAB F_R_L_CATVEN + DISPLAY "Cat." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_R_L_CATVEN CODTAB + OUTPUT F_R_L_DESVEN S0 + CHECKTYPE REQUIRED +END + +STRING F_R_L_DESVEN 50 // campo riservato ai listini +BEGIN + PROMPT 25 2 "" + FLAG "D" +END + +LIST F_R_C_TIPOCF 7 // campo riservato ai contratti +BEGIN + PROMPT 2 1 "Tipo C/F " + FIELD LF_RCONDV->TIPOCF + FLAG "P" + KEY 1 + ITEM "C|Cliente" + ITEM "F|Fornit." + CHECKTYPE REQUIRED +END + +STRING F_R_C_CODCF 6 // campo riservato ai contratti +BEGIN + PROMPT 2 2 "Cod. C/F " + FIELD LF_RCONDV->CODCF + FLAG "UP" + KEY 1 + USE LF_CLIFO + INPUT TIPOCF F_R_C_TIPOCF + INPUT CODCF F_R_C_CODCF + DISPLAY "C/F" TIPOCF + DISPLAY "Codice" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_R_C_TIPOCF TIPOCF + OUTPUT F_R_C_CODCF CODCF + OUTPUT F_R_C_DESCF RAGSOC + CHECKTYPE REQUIRED +END + +STRING F_R_C_DESCF 50 // campo riservato ai contratti +BEGIN + PROMPT 25 2 "" + FLAG "D" +END + +STRING F_R_L_COD 3 // campo riservato ai listini +BEGIN + PROMPT 2 3 "Listino " + FIELD LF_RCONDV->COD + FLAG "UPG" + KEY 1 + USE LF_CONDV + INPUT TIPO F_R_TIPO SELECT + INPUT CATVEN F_R_L_CATVEN + INPUT COD F_R_L_COD + DISPLAY "C.V." CATVEN + DISPLAY "Codice" COD + DISPLAY "Descrizione@50" DESCR + OUTPUT F_R_TIPO TIPO + OUTPUT F_R_L_CATVEN CATVEN + OUTPUT F_R_L_COD COD + OUTPUT F_R_L_DES DESCR + CHECKTYPE REQUIRED +END + +STRING F_R_L_DES 50 // campo riservato ai contratti +BEGIN + PROMPT 25 3 "" + FLAG "D" +END + +NUMBER F_R_C_COD 3 // campo riservato ai contratti +BEGIN + PROMPT 2 3 "Contratto N. " + FIELD LF_RCONDV->COD + FLAG "PG" + KEY 1 + USE LF_CONDV + INPUT TIPO F_R_TIPO SELECT + INPUT TIPOCF F_R_C_TIPOCF + INPUT CODCF F_R_C_CODCF + INPUT COD F_R_C_COD + DISPLAY "C/F" TIPOCF + DISPLAY "Codice" CODCF + DISPLAY "Numero" COD + DISPLAY "Descrizione@50" DESCR + OUTPUT F_R_TIPO TIPO + OUTPUT F_R_C_TIPOCF TIPOCF + OUTPUT F_R_C_CODCF CODCF + OUTPUT F_R_C_COD COD + OUTPUT F_R_C_DES DESCR + CHECKTYPE REQUIRED +END + +STRING F_R_C_DES 50 // campo riservato ai listini +BEGIN + PROMPT 25 3 "" + FLAG "D" +END + +STRING F_R_O_COD 3 // campo riservato alle offerte +BEGIN + PROMPT 2 2 "Codice offerta " + FIELD LF_RCONDV->COD + FLAG "UPG" + KEY 1 + USE LF_CONDV + INPUT TIPO F_R_TIPO SELECT + INPUT COD F_R_O_COD + DISPLAY "Codice" COD + DISPLAY "Descrizione@50" DESCR + OUTPUT F_R_TIPO TIPO + OUTPUT F_R_O_COD COD + CHECKTYPE REQUIRED +END + +STRING F_R_O_DES 50 // campo riservato alle offerte +BEGIN + PROMPT 2 3 "Descr. offerta " + FLAG "D" +END + +LIST F_R_TIPORIGA 14 +BEGIN + PROMPT 2 4 "Tipo riga " + FIELD LF_RCONDV->TIPORIGA + FLAG "P" + KEY 1 + ITEM "A|Articolo" + ITEM "G|Gruppo merc." + ITEM "S|Sottogr. merc." + ITEM "R|Ragg. fiscale" +END + +STRING F_R_CODRIGA_A 20 +BEGIN + PROMPT 37 4 "Codice articolo " + FIELD LF_RCONDV->CODRIGA + FLAG "U" + KEY 1 + USE LF_ANAGR + INPUT CODART F_R_CODRIGA_A + DISPLAY "Articolo@20" CODART + DISPLAY "Descrizione@50" DESCR + OUTPUT F_R_CODRIGA_A CODART + OUTPUT F_R_DESRIGA_A DESCR + CHECKTYPE REQUIRED +END + +STRING F_R_DESRIGA_A 50 +BEGIN + PROMPT 2 5 "Descrizione articolo " + FLAG "D" +END + +STRING F_R_CODRIGA_G 3 +BEGIN + PROMPT 2 5 "Gruppo merc. " + FIELD LF_RCONDV->CODRIGA[1,3] + FLAG "U" + KEY 1 + USE GMC SELECT CODTAB[4,5] == "" + INPUT CODTAB[1,3] F_R_CODRIGA_G + DISPLAY "Gr. merc." CODTAB[1,3] + DISPLAY "Descrizione@50" S0 + OUTPUT F_R_CODRIGA_G CODTAB[1,3] + OUTPUT F_R_DESRIGA_G S0 + CHECKTYPE REQUIRED +END + +STRING F_R_DESRIGA_G 50 +BEGIN + PROMPT 25 5 "" + FLAG "D" +END + +STRING F_R_CODRIGA_S 5 +BEGIN + PROMPT 2 5 "Sottogr.mer. " + FIELD LF_RCONDV->CODRIGA[1,5] + FLAG "U" + KEY 1 + USE GMC SELECT CODTAB[4,5] != "" + INPUT CODTAB F_R_CODRIGA_S + DISPLAY "Gruppo merc." CODTAB[1,3] + DISPLAY "Sottogr. merc." CODTAB[4,5] + DISPLAY "Descrizione@50" S0 + OUTPUT F_R_CODRIGA_S CODTAB + OUTPUT F_R_DESRIGA_S S0 + CHECKTYPE REQUIRED +END + +STRING F_R_DESRIGA_S 50 +BEGIN + PROMPT 25 5 "" + FLAG "D" +END + +STRING F_R_CODRIGA_R 5 +BEGIN + PROMPT 2 5 "Ragg.fiscale " + FIELD LF_RCONDV->CODRIGA[1,5] + FLAG "U" + KEY 1 + USE RFA + INPUT CODTAB F_R_CODRIGA_R + DISPLAY "Ragg. fisc." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_R_CODRIGA_R CODTAB + OUTPUT F_R_DESRIGA_R S0 + CHECKTYPE REQUIRED +END + +STRING F_R_DESRIGA_R 50 +BEGIN + PROMPT 25 5 "" + FLAG "D" +END + +STRING F_R_NSCAGL 1 +BEGIN + PROMPT 2 7 "N.ro scaglione " + FIELD LF_RCONDV->NSCAGL + KEY 1 + CHECKTYPE REQUIRED +END + +STRING F_R_UM 2 +BEGIN + PROMPT 28 7 "U.M. " + FIELD LF_RCONDV->UM + FLAG "U" + KEY 1 + USE LF_UMART KEY 2 + JOIN %UMS INTO CODTAB=UM + INPUT CODART F_R_CODRIGA_A SELECT + INPUT UM F_R_UM + DISPLAY "U.M." UM + DISPLAY "Desccrizione@50" %UMS->S0 + OUTPUT F_R_UM UM + CHECKTYPE REQUIRED +END + +STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto +BEGIN + PROMPT 100 100 "" + FLAG "D" + USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(CATVEN==#F_R_L_CATVEN)&&(COD==#F_R_L_COD) +//INPUT TIPO F_R_TIPO SELECT +//INPUT CATVEN F_R_L_CATVEN +//INPUT COD F_R_L_COD + INPUT TIPORIGA F_R_TIPORIGA + INPUT CODRIGA F_R_CODRIGA_A + INPUT UM F_R_UM + INPUT NSCAGL F_R_NSCAGL + DISPLAY "Tipo" TIPORIGA + DISPLAY "Codice@20" CODRIGA + DISPLAY "U.M." UM + DISPLAY "N.S." NSCAGL + OUTPUT F_R_TIPORIGA TIPORIGA + OUTPUT F_R_CODRIGA_R CODRIGA[1,5] + OUTPUT F_R_CODRIGA_S CODRIGA[1,5] + OUTPUT F_R_CODRIGA_G CODRIGA[1,3] + OUTPUT F_R_CODRIGA_A CODRIGA + OUTPUT F_R_UM UM + OUTPUT F_R_NSCAGL NSCAGL +END + +STRING F_R_C_RICERCA 1 // campo di aggancio per la ricerca sui contratti, nascosto +BEGIN + PROMPT 100 100 "" + FLAG "D" + USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(TIPOCF==#F_R_C_TIPOCF)&&(CODCF==#F_R_C_CODCF)&&(COD==#F_R_L_COD) +//INPUT TIPO F_R_TIPO SELECT +//INPUT TIPOCF F_R_C_TIPOCF +//INPUT CODCF F_R_C_CODCF +//INPUT COD F_R_C_COD + INPUT TIPORIGA F_R_TIPORIGA + INPUT CODRIGA F_R_CODRIGA_A + INPUT NSCAGL F_R_NSCAGL + DISPLAY "Tipo" TIPORIGA + DISPLAY "Codice@20" CODRIGA + DISPLAY "N.S." NSCAGL + OUTPUT F_R_TIPORIGA TIPORIGA + OUTPUT F_R_CODRIGA_R CODRIGA[1,5] + OUTPUT F_R_CODRIGA_S CODRIGA[1,5] + OUTPUT F_R_CODRIGA_G CODRIGA[1,3] + OUTPUT F_R_CODRIGA_A CODRIGA + OUTPUT F_R_NSCAGL NSCAGL +END + +STRING F_R_O_RICERCA 1 // campo di aggancio per la ricerca sulle offerte, nascosto +BEGIN + PROMPT 100 100 "" + FLAG "D" + USE LF_RCONDV SELECT (TIPO==#F_R_TIPO)&&(COD==#F_R_L_COD) +//INPUT TIPO F_R_TIPO SELECT +//INPUT COD F_R_O_COD + INPUT TIPORIGA F_R_TIPORIGA + INPUT CODRIGA F_R_CODRIGA_A + INPUT UM F_R_UM + INPUT NSCAGL F_R_NSCAGL + DISPLAY "Tipo" TIPORIGA + DISPLAY "Codice@20" CODRIGA + DISPLAY "U.M." UM + DISPLAY "N.S." NSCAGL + OUTPUT F_R_TIPORIGA TIPORIGA + OUTPUT F_R_CODRIGA_R CODRIGA[1,5] + OUTPUT F_R_CODRIGA_S CODRIGA[1,5] + OUTPUT F_R_CODRIGA_G CODRIGA[1,3] + OUTPUT F_R_CODRIGA_A CODRIGA + OUTPUT F_R_UM UM + OUTPUT F_R_NSCAGL NSCAGL +END + +GROUPBOX DLG_NULL 78 9 // fine della chiave +BEGIN + PROMPT 0 0 "" + FLAG "R" +END + +NUMBER F_R_QLIM 15 5 +BEGIN + PROMPT 2 9 "Q.ta' limite scagl. " + FIELD LF_RCONDV->QLIM +END + +NUMBER F_R_PREZZO 18 2 +BEGIN + PROMPT 2 10 "Prezzo " + FIELD LF_RCONDV->PREZZO +END + +STRING F_R_SCONTO 25 +BEGIN + PROMPT 35 10 "Sconto " + FIELD LF_RCONDV->SCONTO + FLAG "U" +END + +BOOLEAN F_R_ADDIVA +BEGIN + PROMPT 2 11 "Addebito IVA" + FIELD LF_RCONDV->ADDIVA +END + +STRING F_R_CODIVA 4 +BEGIN + PROMPT 31 11 "Codice IVA " + FIELD LF_RCONDV->CODIVA + FLAG "U" + USE %IVA + INPUT CODTAB F_R_CODIVA + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_R_CODIVA CODTAB + CHECKTYPE NORMAL +END + +NUMBER F_R_PERCPROVV 5 2 +BEGIN + PROMPT 2 12 "Provvigione % " + FIELD LF_RCONDV->PERCPROVV + NUM_EXPR (#F_R_PERCPROVV>=0)&&(#F_R_PERCPROVV<=100) + WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100" +END + +NUMBER F_R_QOM 15 5 +BEGIN + PROMPT 2 13 "Q.ta' sconto/omaggio " + FIELD LF_RCONDV->QOM +END + +STRING F_R_UMOM 2 +BEGIN + PROMPT 47 13 "U.M. q.ta' omaggio " + FIELD LF_RCONDV->UMOM + FLAG "U" + USE LF_UMART KEY 2 + JOIN %UMS INTO CODTAB=UM + INPUT CODART F_R_CODARTOM SELECT + INPUT UM F_R_UMOM + DISPLAY "U.M." UM + DISPLAY "Desccrizione@50" %UMS->S0 + OUTPUT F_R_UMOM UM +END + +NUMBER F_R_QBASE 15 5 +BEGIN + PROMPT 2 14 "Q.ta' base sconto " + FIELD LF_RCONDV->QBASE +END + +STRING F_R_CODARTOM 20 +BEGIN + PROMPT 2 15 "Codice art. omaggio " + FIELD LF_RCONDV->CODARTOM + FLAG "U" + USE LF_ANAGR + INPUT CODART F_R_CODARTOM + DISPLAY "Articolo@20" CODART + DISPLAY "Descrizione@50" DESCR + OUTPUT F_R_CODARTOM CODART + CHECKTYPE NORMAL +END + +NUMBER F_R_PROMAGGIO 18 2 +BEGIN + PROMPT 2 16 "Prezzo omaggio " + FIELD LF_RCONDV->PROMAGGIO +END + +//STRINF F_R_CO_CODLOTTO 6 +//BEGIN +//PROMPT 2 17 "Codice lotto " +//FIELD LF_RCONDV->CODLOTTO +//FLAG "U" +//END + +BOOLEAN F_R_O_ARTES +BEGIN + PROMPT 47 17 "Art. in esaurimento" + FIELD LF_RCONDV->ARTES +END + +ENDPAGE + +ENDMASK + \ No newline at end of file