diff --git a/ve/ve2100i.uml b/ve/ve2100i.uml index 5e43e7e2b..e3d67c2ab 100755 --- a/ve/ve2100i.uml +++ b/ve/ve2100i.uml @@ -1,140 +1,139 @@ -#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 +#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 diff --git a/ve/ve2200x.uml b/ve/ve2200x.uml index f07094eec..ec56136aa 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.uml b/ve/ve2300x.uml index 4897eb197..184e4b873 100755 --- a/ve/ve2300x.uml +++ b/ve/ve2300x.uml @@ -1,458 +1,457 @@ -#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 +#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