diff --git a/ve/ve2200x.uml b/ve/ve2200x.uml index 61a9d1a56..975ad3c5b 100755 --- a/ve/ve2200x.uml +++ b/ve/ve2200x.uml @@ -3,6 +3,14 @@ TOOLBAR "" 0 20 0 3 +// bottone di lancio dell'applicazione delle righe +BUTTON BTN_RIGHE 10 1 +BEGIN + PROMPT -16 -3 "Ri~ghe" + FLAGS "D" + MESSAGE K_F5 +END + #include ENDPAGE @@ -37,7 +45,7 @@ BEGIN DISPLAY "Descrizione@50" S0 OUTPUT F_L_CATVEN CODTAB OUTPUT F_L_DESVEN S0 - CHECKTYPE REQUIRED + CHECKTYPE FORCED END // campo riservato ai listini @@ -73,7 +81,7 @@ BEGIN OUTPUT F_C_TIPOCF TIPOCF OUTPUT F_C_CODCF CODCF OUTPUT F_C_DESCF RAGSOC - CHECKTYPE REQUIRED + CHECKTYPE FORCED END // campo riservato ai contratti @@ -83,15 +91,6 @@ BEGIN FLAG "D" END -// ATTENZIONE: riscontro in fase di test -// nel caso si debbano utilizzare, come in questo caso "COD" , piu' campi con -// lo stesso riferimento sul file, il cui uso e' controllato dall'applicazione, -// e' bene mettere prima i campi NUMBER, poi i campi STRING. Il motivo e' presto detto: -// durante la TMask::autosave() i campi vengono scorsi uno ad uno mentre il valore valido e' -// pero' uno solo di essi; se un campo numerico vuoto ha posizione successiva al campo -// stringa valido, contenente solo caratteri alfanumerici, la reformat() virtuale tronca la -// stringa a 0, eseguendo un bel cut(0). -// campo riservato ai contratti STRING F_C_COD 3 BEGIN PROMPT 2 4 "Contratto N. " @@ -99,10 +98,10 @@ BEGIN FIELD LF_CONDV->COD KEY 1 GROUP 10 - USE LF_CONDV + USE LF_CONDV INPUT TIPO F_TIPO SELECT INPUT TIPOCF F_C_TIPOCF SELECT - INPUT CODCF F_C_CODCF SELECT + INPUT CODCF F_C_CODCF INPUT COD F_C_COD DISPLAY "C/F" TIPOCF DISPLAY "Codice" CODCF @@ -112,7 +111,7 @@ BEGIN OUTPUT F_C_TIPOCF TIPOCF OUTPUT F_C_CODCF CODCF OUTPUT F_C_COD COD - CHECKTYPE REQUIRED + CHECKTYPE FORCED END // campo riservato ai listini @@ -135,7 +134,7 @@ BEGIN OUTPUT F_TIPO TIPO OUTPUT F_L_CATVEN CATVEN OUTPUT F_L_COD COD - CHECKTYPE REQUIRED + CHECKTYPE FORCED END // campo riservato alle offerte @@ -153,7 +152,7 @@ BEGIN DISPLAY "Descrizione@50" DESCR OUTPUT F_TIPO TIPO OUTPUT F_O_COD COD - CHECKTYPE REQUIRED + CHECKTYPE FORCED END STRING F_DESCR 50 @@ -175,7 +174,7 @@ BEGIN OUTPUT F_CODVAL CODTAB OUTPUT F_CAMBIO R10 CHECKTYPE NORMAL - MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI + MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|CLEAR,F_IMPLORDI MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI END @@ -242,49 +241,51 @@ END LIST F_SEQRIC_1 10 BEGIN - PROMPT 2 15 "Sequenza ricerca " + PROMPT 2 16 "Sequenza ricerca " FIELD LF_CONDV->SEQRIC[1,1] ITEM "A|Articoli" ITEM "G|Gruppo M." - ITEM "S|Sottogr.M." + ITEM "S|Sottog. M." ITEM "R|Ragg.fisc." END LIST F_SEQRIC_2 10 BEGIN - PROMPT 34 15 "" + PROMPT 34 16 "" FIELD LF_CONDV->SEQRIC[2,2] - ITEM "-|Nessuno" - ITEM "A|Articoli" - ITEM "G|Gruppo M." - ITEM "S|Sottogr.M." - ITEM "R|Ragg.fisc." + ITEM "-|Nessuno" MESSAGE CLEAR,5@ + ITEM "A|Articoli" MESSAGE ENABLE,F_SEQRIC_3 + ITEM "G|Gruppo M." MESSAGE ENABLE,F_SEQRIC_3 + ITEM "S|Sottog. M." MESSAGE ENABLE,F_SEQRIC_3 + ITEM "R|Ragg.fisc." MESSAGE ENABLE,F_SEQRIC_3 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 "" + PROMPT 49 16 "" FIELD LF_CONDV->SEQRIC[3,3] - ITEM "-|Nessuno" - ITEM "A|Articoli" - ITEM "G|Gruppo M." - ITEM "S|Sottogr.M." - ITEM "R|Ragg.fisc." + ITEM "-|Nessuno" MESSAGE CLEAR,F_SEQRIC_4 + ITEM "A|Articoli" MESSAGE ENABLE,F_SEQRIC_4 + ITEM "G|Gruppo M." MESSAGE ENABLE,F_SEQRIC_4 + ITEM "S|Sottog. M." MESSAGE ENABLE,F_SEQRIC_4 + ITEM "R|Ragg.fisc." MESSAGE ENABLE,F_SEQRIC_4 + GROUP 5 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 "" + PROMPT 64 16 "" FIELD LF_CONDV->SEQRIC[4,4] ITEM "-|Nessuno" ITEM "A|Articoli" ITEM "G|Gruppo M." - ITEM "S|Sottogr.M." + ITEM "S|Sottog. M." ITEM "R|Ragg.fisc." + GROUP 5 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 @@ -292,7 +293,7 @@ END // campo riservato ai listini STRING F_L_CODSUCC 3 BEGIN - PROMPT 2 16 "Listino succ. " + PROMPT 2 17 "Listino succ. " FIELD LF_CONDV->CODLISSUCC FLAG "U" USE LF_CONDV @@ -312,17 +313,10 @@ END // campo riservato ai listini STRING F_L_DESSUCC 50 BEGIN - PROMPT 24 16 "" + PROMPT 24 17 "" FLAG "D" END -// bottone di lancio dell'applicazione delle righe -BUTTON BTN_RIGHE 10 2 -BEGIN - PROMPT 2 -2 "Righe" - MESSAGE K_F5 -END - ENDPAGE diff --git a/ve/ve2300x.uml b/ve/ve2300x.uml index b829229a7..3c224336f 100755 --- a/ve/ve2300x.uml +++ b/ve/ve2300x.uml @@ -68,7 +68,7 @@ BEGIN OUTPUT F_R_C_TIPOCF TIPOCF OUTPUT F_R_C_CODCF CODCF OUTPUT F_R_C_DESCF RAGSOC - CHECKTYPE REQUIRED + CHECKTYPE FORCED END STRING F_R_C_DESCF 50 // campo riservato ai contratti @@ -97,7 +97,7 @@ BEGIN OUTPUT F_R_C_CODCF CODCF OUTPUT F_R_C_COD COD OUTPUT F_R_C_DES DESCR - CHECKTYPE REQUIRED + CHECKTYPE FORCED END STRING F_R_L_COD 3 // campo riservato ai listini @@ -117,7 +117,7 @@ BEGIN OUTPUT F_R_L_CATVEN CATVEN OUTPUT F_R_L_COD COD OUTPUT F_R_L_DES DESCR - CHECKTYPE REQUIRED + CHECKTYPE FORCED END STRING F_R_L_DES 50 // campo riservato ai contratti @@ -146,7 +146,7 @@ BEGIN OUTPUT F_R_TIPO TIPO OUTPUT F_R_O_COD COD OUTPUT F_R_O_DES DESCR - CHECKTYPE REQUIRED + CHECKTYPE FORCED END STRING F_R_O_DES 50 // campo riservato alle offerte @@ -179,7 +179,7 @@ BEGIN DISPLAY "Descrizione@50" DESCR OUTPUT F_R_CODRIGA_A CODART OUTPUT F_R_DESRIGA_A DESCR - CHECKTYPE REQUIRED + CHECKTYPE FORCED END STRING F_R_DESRIGA_A 50 @@ -200,7 +200,7 @@ BEGIN DISPLAY "Descrizione@50" S0 OUTPUT F_R_CODRIGA_G CODTAB[1,3] OUTPUT F_R_DESRIGA_G S0 - CHECKTYPE REQUIRED + CHECKTYPE FORCED MESSAGE COPY,F_R_CODRIGA_A END @@ -223,7 +223,7 @@ BEGIN DISPLAY "Descrizione@50" S0 OUTPUT F_R_CODRIGA_S CODTAB OUTPUT F_R_DESRIGA_S S0 - CHECKTYPE REQUIRED + CHECKTYPE FORCED MESSAGE COPY,F_R_CODRIGA_A END @@ -245,7 +245,7 @@ BEGIN DISPLAY "Descrizione@50" S0 OUTPUT F_R_CODRIGA_R CODTAB OUTPUT F_R_DESRIGA_R S0 - CHECKTYPE REQUIRED + CHECKTYPE FORCED MESSAGE COPY,F_R_CODRIGA_A END @@ -255,7 +255,7 @@ BEGIN FLAG "D" END -STRING F_R_NSCAGL 1 +NUMBER F_R_NSCAGL 1 BEGIN PROMPT 2 7 "N.ro scaglione " FIELD LF_RCONDV->NSCAGL @@ -274,9 +274,9 @@ BEGIN INPUT CODART F_R_CODRIGA_A SELECT INPUT UM F_R_UM DISPLAY "U.M." UM - DISPLAY "Desccrizione@50" %UMS->S0 + DISPLAY "Descrizione@50" %UMS->S0 OUTPUT F_R_UM UM - CHECKTYPE REQUIRED + CHECKTYPE FORCED END STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto @@ -357,38 +357,44 @@ BEGIN FIELD LF_RCONDV->QLIM END -NUMBER F_R_PREZZO 18 2 +NUMBER F_R_PREZZO 15 BEGIN - PROMPT 2 10 "Prezzo " + PROMPT 2 10 "Prezzo netto " FIELD LF_RCONDV->PREZZO + PICTURE "###.###.###.###" +END + + +NUMBER F_R_PREZZO_VAL 15 +BEGIN + PROMPT 2 10 "Prezzo netto " + FIELD LF_RCONDV->PREZZO + PICTURE "###.###.###,@@@" + FLAGS "H" +END + +NUMBER F_R_PREZZO_LORDO 15 +BEGIN + PROMPT 46 10 "Prezzo lordo " + PICTURE "###.###.###.###" + FLAGS "H" +END + + +NUMBER F_R_PREZZO_LORDO_VAL 15 +BEGIN + PROMPT 46 10 "Prezzo lordo " + PICTURE "###.###.###,@@@" + FLAGS "H" END STRING F_R_SCONTO 25 BEGIN - PROMPT 35 10 "Sconto " + PROMPT 2 11 "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 % " @@ -397,15 +403,37 @@ BEGIN WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100" END +BOOLEAN F_R_ADDIVA +BEGIN + PROMPT 2 13 "Addebito IVA" + FIELD LF_RCONDV->ADDIVA + GROUP 1 +END + +STRING F_R_CODIVA 4 +BEGIN + PROMPT 53 13 "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 + GROUP 1 +END + NUMBER F_R_QOM 15 5 BEGIN - PROMPT 2 13 "Q.ta' sconto/omaggio " + PROMPT 2 14 "Q.ta' sconto/omaggio " FIELD LF_RCONDV->QOM + GROUP 1 END STRING F_R_UMOM 2 BEGIN - PROMPT 47 13 "U.M. q.ta' omaggio " + PROMPT 47 14 "U.M. q.ta' omaggio " FIELD LF_RCONDV->UMOM FLAG "U" USE LF_UMART KEY 2 @@ -413,19 +441,20 @@ BEGIN INPUT CODART F_R_CODARTOM SELECT INPUT UM F_R_UMOM DISPLAY "U.M." UM - DISPLAY "Desccrizione@50" %UMS->S0 + DISPLAY "Descrizione@50" %UMS->S0 OUTPUT F_R_UMOM UM END NUMBER F_R_QBASE 15 5 BEGIN - PROMPT 2 14 "Q.ta' base sconto " + PROMPT 2 15 "Q.ta' base sconto " FIELD LF_RCONDV->QBASE + GROUP 1 END STRING F_R_CODARTOM 20 BEGIN - PROMPT 2 15 "Codice art. omaggio " + PROMPT 2 16 "Codice art. omaggio " FIELD LF_RCONDV->CODARTOM FLAG "U" USE LF_ANAMAG @@ -434,24 +463,26 @@ BEGIN DISPLAY "Descrizione@50" DESCR OUTPUT F_R_CODARTOM CODART CHECKTYPE NORMAL + GROUP 1 END NUMBER F_R_PROMAGGIO 18 2 BEGIN - PROMPT 2 16 "Prezzo omaggio " + PROMPT 2 17 "Prezzo omaggio " FIELD LF_RCONDV->PROMAGGIO + GROUP 1 END //STRINF F_R_CO_CODLOTTO 6 //BEGIN -//PROMPT 2 17 "Codice lotto " +//PROMPT 2 18 "Codice lotto " //FIELD LF_RCONDV->CODLOTTO //FLAG "U" //END BOOLEAN F_R_O_ARTES BEGIN - PROMPT 47 17 "Art. in esaurimento" + PROMPT 47 18 "Art. in esaurimento" FIELD LF_RCONDV->ARTES END