diff --git a/ve/ve2400.uml b/ve/ve2400.uml index 17340a6eb..d61d5cba6 100755 --- a/ve/ve2400.uml +++ b/ve/ve2400.uml @@ -5,7 +5,7 @@ TOOLBAR "" 0 20 60 2 #include ENDPAGE -PAGE "Pag. 1" 0 0 70 20 +PAGE "Codici" 0 0 70 20 GROUPBOX DLG_NULL 78 4 BEGIN @@ -26,91 +26,61 @@ BEGIN OUTPUT F_CODART CODART OUTPUT F_DESCR DESCR CHECKTYPE REQUIRED - MESSAGE DISABLE,F_GCA MESSAGE EMPTY ENABLE,F_GCA + MESSAGE COPY,G_CODART@|DISABLE,F_GCA END STRING F_LIVART1 20 BEGIN - FLAGS "HG" - PROMPT 2 1 "Codice art. " - USE GCA - JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1] - INPUT CODTAB[1,1] "1" - INPUT CODTAB[2,11] F_LIVART1 - DISPLAY "Livello@20" 500@->S0 - DISPLAY "Gruppo@10" CODTAB[2,20] - DISPLAY "Descr.@30" S0 - OUTPUT F_LIVART1 CODTAB[2,20] - CHECKTYPE REQUIRED - ADD RUN MG0 -0 GCA + FLAGS "H" + PROMPT 15 1 "" END STRING F_LIVART2 20 BEGIN - FLAGS "HG" - PROMPT 20 1 "" - USE GCA - JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1] - INPUT CODTAB[1,1] "2" - INPUT CODTAB[2,11] F_LIVART2 - DISPLAY "Livello@20" 500@->S0 - DISPLAY "Gruppo@10" CODTAB[2,20] - DISPLAY "Descr.@30" S0 - OUTPUT F_LIVART2 CODTAB[2,20] - CHECKTYPE REQUIRED - ADD RUN MG0 -0 GCA + FLAGS "H" + PROMPT 15 1 "" END STRING F_LIVART3 20 BEGIN - FLAGS "HG" - PROMPT 30 1 "" - USE GCA - JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1] - INPUT CODTAB[1,1] "3" - INPUT CODTAB[2,11] F_LIVART3 - DISPLAY "Livello@20" 500@->S0 - DISPLAY "Gruppo@10" CODTAB[2,20] - DISPLAY "Descr.@30" S0 - OUTPUT F_LIVART3 CODTAB[2,20] - CHECKTYPE REQUIRED - ADD RUN MG0 -0 GCA + FLAGS "H" + PROMPT 15 1 "" END STRING F_LIVART4 20 BEGIN - FLAGS "HG" + FLAGS "H" PROMPT 15 1 "" END STRING F_LIVART5 20 BEGIN - FLAGS "HG" + FLAGS "H" PROMPT 15 1 "" END STRING F_LIVART6 20 BEGIN - FLAGS "HG" + FLAGS "H" PROMPT 15 1 "" END STRING F_LIVART7 20 BEGIN - FLAGS "HG" + FLAGS "H" PROMPT 15 1 "" END STRING F_LIVART8 20 BEGIN - FLAGS "HG" + FLAGS "H" PROMPT 15 1 "" END STRING F_LIVART9 20 BEGIN - FLAGS "HG" + FLAGS "H" PROMPT 15 1 "" END @@ -132,6 +102,558 @@ BEGIN OUTPUT F_CODART CODART OUTPUT F_DESCR DESCR CHECKTYPE REQUIRED + MESSAGE COPY,G_DESART@ +END + +STRING F_ARTALT 20 +BEGIN + PROMPT 2 4 "Articolo alternativo " + FIELD LF_ANAMAG->CODARTALT + FLAG "U" + USE LF_ANAMAG + INPUT CODART F_ARTALT + DISPLAY "Codice@20" CODART + DISPLAY "Descrizione@50" DESCR + OUTPUT F_ARTALT CODART + OUTPUT F_DESCRALT DESCR + CHECKTYPE NORMAL +END + +STRING F_DESCRALT 50 +BEGIN + PROMPT 2 5 "Descrizione art.alt. " + FLAG "U" + USE LF_ANAMAG KEY 2 + INPUT DESCR F_DESCRALT + DISPLAY "Descrizione@50" DESCR + DISPLAY "Codice@20" CODART + COPY OUTPUT F_ARTALT + CHECKTYPE NORMAL +END + +TEXT DLG_NULL +BEGIN + PROMPT 3 7 "Codici corrispondenti" +END + +SPREADSHEET F_SHEETCOD 71 5 +BEGIN + PROMPT 2 8 "Codici corrispondenti" + FLAGS "A" + USE LF_CODCORR KEY NRIGA + INPUT CODART F_CODART + ITEM "Cod. art.@20" + ITEM "Tipo@10" +END + +TEXT DLG_NULL +BEGIN + PROMPT 3 14 "Descrizioni in lingua" +END + +SPREADSHEET F_SHEETDESLIN 71 5 +BEGIN + PROMPT 2 15 "Descrizioni in lingua" + FLAGS "A" + USE LF_DESLIN KEY NRIGA + INPUT CODART F_CODART + ITEM "Cod. lingua" + ITEM "Descrizione@50" +END + +ENDPAGE + + + + + +PAGE "Classi" 0 0 70 20 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" +END +STRING F_CODARTPAGE2 20 +BEGIN + FLAGS "D" + PROMPT 2 1 "Codice art. " + GROUP G_CODART +END +STRING F_DESCRPAGE2 50 +BEGIN + FLAGS "D" + PROMPT 2 2 "Descrizione " + GROUP G_DESART +END + +STRING F_GRMERC 3 +BEGIN + PROMPT 1 5 "Gr. merc. " + FIELD LF_ANAMAG->GRMERC[1,3] + GROUP G_GRMERC + FLAG "U" + USE GMC KEY 1 SELECT CODTAB ?= "???" + INPUT CODTAB F_GRMERC + DISPLAY "Codice" CODTAB[1,3] + DISPLAY "Descrizione@50" S0 + OUTPUT F_GRMERC CODTAB[1,3] + OUTPUT F_GRMERCD1 S0 + OUTPUT H_GRMERCD1 S0 + + OUTPUT F_GRMERCB CODTAB[4,5] + CHECKTYPE NORMAL +END + +STRING F_GRMERCD1 50 +BEGIN + PROMPT 23 5 "" + GROUP G_GRMERC + USE GMC KEY 2 SELECT CODTAB ?= "???" + INPUT S0 F_GRMERCD1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_GRMERC CODTAB[1,3] + OUTPUT F_GRMERCD1 S0 + CHECKTYPE NORMAL +END + +STRING H_GRMERCD1 50 +BEGIN + PROMPT 23 5 "" + GROUP G_GRMERC + FLAGS "D" +END + +STRING F_GRMERCB 2 +BEGIN + PROMPT 1 6 "Sott. merc. " + FIELD LF_ANAMAG->GRMERC[4,5] + GROUP G_GRMERC + FLAG "U" + USE GMC //SELECT CODTAB[4,5] != "" + INPUT CODTAB[1,3] F_GRMERC + INPUT CODTAB[4,5] F_GRMERCB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_GRMERC CODTAB[1,3] + OUTPUT F_GRMERCB CODTAB[4,5] + OUTPUT F_GRMERCD2 S0 + MESSAGE SHOW,F_GRMERCD2|SHOW,H_GRMERCD1|HIDE,F_GRMERCD1 + MESSAGE EMPTY HIDE,F_GRMERCD2|HIDE,H_GRMERCD1|SHOW,F_GRMERCD1 + CHECKTYPE NORMAL +END + +STRING F_GRMERCD2 50 +BEGIN + PROMPT 23 6 "" + GROUP G_GRMERC + USE GMC KEY 2 SELECT CODTAB[4,5] != "" + INPUT S0 F_GRMERCD2 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + COPY OUTPUT F_GRMERCB + CHECKTYPE NORMAL +END + +STRING F_CATCONA 3 +BEGIN + PROMPT 1 8 "Categoria conto acquisti " + FIELD LF_ANAMAG->CATCONA + GROUP G_CATACQ + FLAG "UZ" + USE CAA + INPUT CODTAB F_CATCONA + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Gruppo" S1 + DISPLAY "Conto" S2 + DISPLAY "Sottoconto" S3 + OUTPUT F_CATCONA CODTAB + OUTPUT F_CATCONA1 S0 + CHEKTYPE NORMAL +// MESSAGE CLEAR,G_CONACQ@ +// MESSAGE EMPTY ENABLE,G_CONACQ@ +END + +STRING F_CATCONA1 40 +BEGIN + PROMPT 36 8 "" + FLAG "D" + GROUP G_CATACQ + USE CAA KEY 2 + INPUT S0 F_CATCONA1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + DISPLAY "Gruppo" S1 + DISPLAY "Conto" S2 + DISPLAY "Sottoconto" S3 + COPY OUTPUT F_CATCONA +END + +NUMBER F_GRUPPOA 3 +BEGIN + PROMPT 1 9 "Conto d'acquisto " + FIELD LF_ANAMAG->GRUPPOA + GROUP G_CONACQ +// MESSAGE CLEAR,G_CATACQ@ +// MESSAGE EMPTY ENABLE,G_CATACQ@ +END + +NUMBER F_CONTOA 3 +BEGIN + PROMPT 22 9 "" + FIELD LF_ANAMAG->CONTOA + GROUP G_CONACQ +END + +NUMBER F_SOTTOCA 6 +BEGIN + + PROMPT 26 9 "" + FIELD LF_ANAMAG->SOTTOCA + GROUP G_CONACQ + USE LF_PCON SELECT (500@->INDBIL=="3") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT GRUPPO F_GRUPPOA + INPUT CONTO F_CONTOA + INPUT SOTTOCONTO F_SOTTOCA + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOA GRUPPO + OUTPUT F_CONTOA CONTO + OUTPUT F_SOTTOCA SOTTOCONTO + OUTPUT F_DESCRA DESCR + CHECKTYPE NORMAL + WARNING "Sottoconto errato" +// WARNING "Il conto deve essere un costo" +END + + +STRING F_DESCRA 40 +BEGIN + PROMPT 36 9 "" + FLAG "D" + GROUP G_CONACQ + USE LF_PCON KEY 2 SELECT INDBIL=="3" + INPUT DESCR F_DESCRA + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCA + WARNING "Il conto deve essere un costo" +END + +STRING F_CATCONV 3 +BEGIN + PROMPT 1 10 "Categoria conto vendite " + FIELD LF_ANAMAG->CATCONV + GROUP G_CATVEN + FLAG "UZ" + USE CRA + INPUT CODTAB F_CATCONV + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Gruppo" S1 + DISPLAY "Conto" S2 + DISPLAY "Sottoconto" S3 + OUTPUT F_CATCONV CODTAB + OUTPUT F_CATCONV1 S0 + CHECKTYPE NORMAL +// MESSAGE CLEAR,G_CONVEN@ +// MESSAGE EMPTY ENABLE,G_CONVEN@ +END + +STRING F_CATCONV1 40 +BEGIN + PROMPT 36 10 "" + FLAG "D" + GROUP G_CATVEN + USE CRA KEY 2 + INPUT S0 F_CATCONV1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + DISPLAY "Gruppo" S1 + DISPLAY "Conto" S2 + DISPLAY "Sottoconto" S3 + COPY OUTPUT F_CATCONV +END + +NUMBER F_GRUPPOV 3 +BEGIN + PROMPT 1 11 "Conto di vendita " + FIELD LF_ANAMAG->GRUPPOV + GROUP G_CONVEN +// MESSAGE CLEAR,G_CATVEN@ +// MESSAGE EMPTY ENABLE,G_CATVEN@ +END + +NUMBER F_CONTOV 3 +BEGIN + PROMPT 22 11 "" + FIELD LF_ANAMAG->CONTOV + GROUP G_CONVEN +END + +NUMBER F_SOTTOCV 6 +BEGIN + PROMPT 26 11 "" + FIELD LF_ANAMAG->SOTTOCV + GROUP G_CONVEN + USE LF_PCON SELECT (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT GRUPPO F_GRUPPOV + INPUT CONTO F_CONTOV + INPUT SOTTOCONTO F_SOTTOCV + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOV GRUPPO + OUTPUT F_CONTOV CONTO + OUTPUT F_SOTTOCV SOTTOCONTO + OUTPUT F_DESCRV DESCR + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" +END + +STRING F_DESCRV 40 +BEGIN + PROMPT 36 11 "" + FLAG "D" + GROUP G_CONVEN + USE LF_PCON KEY 2 SELECT INDBIL=="4" + INPUT DESCR F_DESCRV + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCV + WARNING "Il conto deve essere un ricavo" +END + +BOOLEAN F_ARTFIS +BEGIN + PROMPT 1 13 "Articolo fiscale" + FIELD LF_ANAMAG->ARTFIS + MESSAGE TRUE ENABLE,G_RAGGFISC@ + MESSAGE FALSE DISABLE,G_RAGGFISC@ +END + +STRING F_RAGGFIS 5 +BEGIN + PROMPT 1 14 "Raggrupp. fiscale " + FIELD LF_ANAMAG->RAGGFIS + FLAGS "UD" + USE RFA + JOIN %ASF ALIAS 200 INTO CODTAB=S8 + INPUT CODTAB F_RAGGFIS + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_RAGGFIS CODTAB + OUTPUT F_RAGGFIS1 S0 + OUTPUT H_CLASSEFIS S8 + CHECKTYPE NORMAL + GROUP G_RAGGFISC +END + +STRING F_RAGGFIS1 40 +BEGIN + PROMPT 31 14 "" + FLAG "D" +END + +STRING H_CLASSEFIS 2 +BEGIN + PROMPT 1 15 "" + FLAG "HG" + MESSAGE DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS + MESSAGE EMPTY ENABLE,F_CLASSEFIS +END + +STRING F_CLASSEFIS 2 +BEGIN + PROMPT 1 15 "Classe fiscale " + FIELD LF_ANAMAG->CLASSEFIS + FLAGS "UD" + USE %ASF + INPUT CODTAB F_CLASSEFIS + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_CLASSEFIS CODTAB + OUTPUT F_CLASSEFISD S0 + MESSAGE EMPTY "",F_CLASSEFISD + CHECKTYPE NORMAL + GROUP G_RAGGFISC +END + +STRING F_CLASSEFISD 40 +BEGIN + PROMPT 31 15 "" + FLAG "D" +END + +STRING F_CODIVA 4 +BEGIN + PROMPT 1 17 "Codice IVA " + FIELD LF_ANAMAG->CODIVA + USE %IVA + INPUT CODTAB F_CODIVA + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_CODIVA CODTAB + OUTPUT F_CODIVA1 S0 + CHECKTYPE NORMAL +END + +STRING F_CODIVA1 50 +BEGIN + PROMPT 23 17 "" + USE %IVA KEY 2 + INPUT S0 F_CODIVA1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice " CODTAB + OUTPUT F_CODIVA CODTAB + OUTPUT F_CODIVA1 S0 +END + +STRING F_SCONTO 25 +BEGIN + FIELD LF_ANAMAG->SCONTO + PROMPT 1 18 "Sconto " +END + +STRING F_CODIVAR 4 +BEGIN + PROMPT 50 18 "Codice IVA ridotta " + FIELD LF_ANAMAG->CODIVAR + USE %IVA + INPUT CODTAB F_CODIVAR + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_CODIVAR CODTAB + CHECKTYPE NORMAL +END + + +ENDPAGE + + + + + + + +PAGE "Unita'" 0 0 70 20 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" +END +STRING F_CODARTPAGE3 20 +BEGIN + FLAGS "D" + PROMPT 2 1 "Codice art. " + GROUP G_CODART +END +STRING F_DESCRPAGE3 50 +BEGIN + FLAGS "D" + PROMPT 2 2 "Descrizione " + GROUP G_DESART +END + +TEXT DLG_NULL +BEGIN + PROMPT 3 4 "Unità di misura articolo" +END + +SPREADSHEET F_SHEETUM 77 5 +BEGIN + PROMPT 2 5 "Unità di misura " + FLAGS "A" + USE LF_UMART KEY NRIGA + INPUT CODART F_CODART + ITEM "U.M." + ITEM "F. conversione" + ITEM "Prezzo netto@18" + ITEM "Prezzo lordo@18" +END + +STRING F_UMP 3 +BEGIN + PROMPT 1 12 "U.M. peso " + FIELD LF_ANAMAG->UMP + FLAG "U" + USE %UMS + INPUT CODTAB F_UMP + DISPLAY "U.M. " CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_UMP CODTAB + VALIDATE REQIF_FUNC 1 F_PESO + WARNING "Necessaria una unità di misura valida per il peso " + CHECKTYPE NORMAL +END + +NUMBER F_PESO 15 5 +BEGIN + PROMPT 1 13 "Peso " + FIELD LF_ANAMAG->PESO + VALIDATE REQIF_FUNC 1 F_TARA + WARNING "Necessario introdurre il peso se si è introdotta la tara" +END + +NUMBER F_TARA 15 5 +BEGIN + PROMPT 42 13 "Tara " + FIELD LF_ANAMAG->TARA +END + +NUMBER F_MASSANUN 10 3 +BEGIN + PROMPT 1 14 "Massa netta unitaria " + FIELD LF_ANAMAG->MASSANUN +END + +NUMBER F_UNSUPPUN 10 3 +BEGIN + PROMPT 42 14 "Unità suppl.unitaria " + FIELD LF_ANAMAG->UNSUPPUN +END + +NUMBER F_PPCONF 15 5 +BEGIN + PROMPT 1 16 "Pz. per confezione " + FIELD LF_ANAMAG->PPCONF +END + +NUMBER F_PPCOLLO 15 5 +BEGIN + PROMPT 42 16 "Pz. per collo " + FIELD LF_ANAMAG->PPCOLLO +END + +ENDPAGE + + +PAGE "Produz." 0 0 70 20 +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" +END +STRING F_CODARTPAGE4 20 +BEGIN + FLAGS "D" + PROMPT 2 1 "Codice art. " + GROUP G_CODART +END +STRING F_DESCRPAGE4 50 +BEGIN + FLAGS "D" + PROMPT 2 2 "Descrizione " + GROUP G_DESART END BOOLEAN F_ARTPROD @@ -177,403 +699,16 @@ BEGIN ITEM "T|tempo" END - -TEXT DLG_NULL -BEGIN - PROMPT 3 7 "Codici alternativi" -END - -SPREADSHEET F_SHEETCOD 71 5 +LISTBOX F_TIPOCF 20 BEGIN - PROMPT 2 8 "Codici alternativi" - FLAGS "A" - USE LF_CODCORR KEY NRIGA - INPUT CODART F_CODART - ITEM "Cod. art.@20" - ITEM "Tipo@10" + PROMPT 0 0 "" + FLAG "H" + ITEM "F|Fornitore" END -TEXT DLG_NULL -BEGIN - PROMPT 3 14 "Descrizioni in lingua" -END - -SPREADSHEET F_SHEETDESLIN 71 5 -BEGIN - PROMPT 2 15 "Descrizioni in lingua" - FLAGS "A" - USE LF_DESLIN KEY NRIGA - INPUT CODART F_CODART - ITEM "Cod. lingua" - ITEM "Descrizione@50" -END - -ENDPAGE - - - - - -PAGE "Pag. 2" 0 0 70 20 - -STRING F_GRMERC 3 -BEGIN - PROMPT 1 2 "Gr. merc. " - FIELD LF_ANAMAG->GRMERC[1,3] - GROUP 1 - FLAG "U" - USE GMC KEY 1 SELECT CODTAB ?= "???" - INPUT CODTAB F_GRMERC - DISPLAY "Codice" CODTAB[1,3] - DISPLAY "Descrizione@50" S0 - OUTPUT F_GRMERC CODTAB[1,3] - OUTPUT F_GRMERCD1 S0 - OUTPUT H_GRMERCD1 S0 - - OUTPUT F_GRMERCB CODTAB[4,5] - CHECKTYPE NORMAL -END - -STRING F_GRMERCD1 50 -BEGIN - PROMPT 23 2 "" - GROUP 1 - USE GMC KEY 2 SELECT CODTAB ?= "???" - INPUT S0 F_GRMERCD1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_GRMERC CODTAB[1,3] - OUTPUT F_GRMERCD1 S0 - CHECKTYPE NORMAL -END - -STRING H_GRMERCD1 50 -BEGIN - PROMPT 23 2 "" - GROUP 1 - FLAGS "D" -END - -STRING F_GRMERCB 2 -BEGIN - PROMPT 1 3 "Sott. merc. " - FIELD LF_ANAMAG->GRMERC[4,5] - GROUP 1 - FLAG "U" - USE GMC //SELECT CODTAB[4,5] != "" - INPUT CODTAB[1,3] F_GRMERC - INPUT CODTAB[4,5] F_GRMERCB - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_GRMERC CODTAB[1,3] - OUTPUT F_GRMERCB CODTAB[4,5] - OUTPUT F_GRMERCD2 S0 - MESSAGE SHOW,F_GRMERCD2|SHOW,H_GRMERCD1|HIDE,F_GRMERCD1 - MESSAGE EMPTY HIDE,F_GRMERCD2|HIDE,H_GRMERCD1|SHOW,F_GRMERCD1 - CHECKTYPE NORMAL -END - -STRING F_GRMERCD2 50 -BEGIN - PROMPT 23 3 "" - GROUP 1 - USE GMC KEY 2 SELECT CODTAB[4,5] != "" - INPUT S0 F_GRMERCD2 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - COPY OUTPUT F_GRMERCB -// OUTPUT F_GRMERC CODTAB[1,3] -// OUTPUT F_GRMERCB CODTAB[4,5] -// OUTPUT F_GRMERCD2 S0 - CHECKTYPE NORMAL -END - -STRING F_CODIVA 4 -BEGIN - PROMPT 1 5 "Codice IVA " - FIELD LF_ANAMAG->CODIVA - USE %IVA - INPUT CODTAB F_CODIVA - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_CODIVA CODTAB - OUTPUT F_CODIVA1 S0 - CHECKTYPE NORMAL -END - -STRING F_CODIVA1 50 -BEGIN - PROMPT 23 5 "" - USE %IVA KEY 2 - INPUT S0 F_CODIVA1 - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice " CODTAB - OUTPUT F_CODIVA CODTAB - OUTPUT F_CODIVA1 S0 -END - -STRING F_SCONTO 25 -BEGIN - FIELD LF_ANAMAG->SCONTO - PROMPT 1 6 "Sconto " -END - -STRING F_CODIVAR 4 -BEGIN - PROMPT 50 6 "Codice IVA ridotta " - FIELD LF_ANAMAG->CODIVAR - USE %IVA - INPUT CODTAB F_CODIVAR - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_CODIVAR CODTAB - CHECKTYPE NORMAL -END - -STRING F_CATCONA 3 -BEGIN - PROMPT 1 8 "Categoria conto acquisti " - FIELD LF_ANAMAG->CATCONA - GROUP 11 - FLAG "UZ" - USE CAA - INPUT CODTAB F_CATCONA - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Gruppo" S1 - DISPLAY "Conto" S2 - DISPLAY "Sottoconto" S3 - OUTPUT F_CATCONA CODTAB - OUTPUT F_CATCONA1 S0 - CHEKTYPE NORMAL -// MESSAGE CLEAR,12@ -// MESSAGE EMPTY ENABLE,12@ -END - -STRING F_CATCONA1 40 -BEGIN - PROMPT 36 8 "" - FLAG "D" - GROUP 11 - USE CAA KEY 2 - INPUT S0 F_CATCONA1 - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - DISPLAY "Gruppo" S1 - DISPLAY "Conto" S2 - DISPLAY "Sottoconto" S3 - COPY OUTPUT F_CATCONA -END - -NUMBER F_GRUPPOA 3 -BEGIN - PROMPT 1 9 "Conto d'acquisto " - FIELD LF_ANAMAG->GRUPPOA - GROUP 12 -// MESSAGE CLEAR,11@ -// MESSAGE EMPTY ENABLE,11@ -END - -NUMBER F_CONTOA 3 -BEGIN - PROMPT 22 9 "" - FIELD LF_ANAMAG->CONTOA - GROUP 12 -END - -NUMBER F_SOTTOCA 6 -BEGIN - - PROMPT 26 9 "" - FIELD LF_ANAMAG->SOTTOCA - GROUP 12 - USE LF_PCON SELECT (500@->INDBIL=="3") - JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO - INPUT GRUPPO F_GRUPPOA - INPUT CONTO F_CONTOA - INPUT SOTTOCONTO F_SOTTOCA - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOA GRUPPO - OUTPUT F_CONTOA CONTO - OUTPUT F_SOTTOCA SOTTOCONTO - OUTPUT F_DESCRA DESCR - CHECKTYPE NORMAL - WARNING "Sottoconto errato" -// WARNING "Il conto deve essere un costo" -END - - -STRING F_DESCRA 40 -BEGIN - PROMPT 36 9 "" - FLAG "D" - GROUP 12 - USE LF_PCON KEY 2 SELECT INDBIL=="3" - INPUT DESCR F_DESCRA - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT F_SOTTOCA - WARNING "Il conto deve essere un costo" -END - -STRING F_CATCONV 3 -BEGIN - PROMPT 1 10 "Categoria conto vendite " - FIELD LF_ANAMAG->CATCONV - GROUP 21 - FLAG "UZ" - USE CRA - INPUT CODTAB F_CATCONV - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Gruppo" S1 - DISPLAY "Conto" S2 - DISPLAY "Sottoconto" S3 - OUTPUT F_CATCONV CODTAB - OUTPUT F_CATCONV1 S0 - CHECKTYPE NORMAL -// MESSAGE CLEAR,22@ -// MESSAGE EMPTY ENABLE,22@ -END - -STRING F_CATCONV1 40 -BEGIN - PROMPT 36 10 "" - FLAG "D" - GROUP 21 - USE CRA KEY 2 - INPUT S0 F_CATCONV1 - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - DISPLAY "Gruppo" S1 - DISPLAY "Conto" S2 - DISPLAY "Sottoconto" S3 - COPY OUTPUT F_CATCONV -END - -NUMBER F_GRUPPOV 3 -BEGIN - PROMPT 1 11 "Conto di vendita " - FIELD LF_ANAMAG->GRUPPOV - GROUP 22 -// MESSAGE CLEAR,21@ -// MESSAGE EMPTY ENABLE,21@ -END - -NUMBER F_CONTOV 3 -BEGIN - PROMPT 22 11 "" - FIELD LF_ANAMAG->CONTOV - GROUP 22 -END - -NUMBER F_SOTTOCV 6 -BEGIN - PROMPT 26 11 "" - FIELD LF_ANAMAG->SOTTOCV - GROUP 22 - USE LF_PCON SELECT (500@->INDBIL=="4") - JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO - INPUT GRUPPO F_GRUPPOV - INPUT CONTO F_CONTOV - INPUT SOTTOCONTO F_SOTTOCV - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOV GRUPPO - OUTPUT F_CONTOV CONTO - OUTPUT F_SOTTOCV SOTTOCONTO - OUTPUT F_DESCRV DESCR - CHECKTYPE NORMAL - WARNING "Il conto deve essere un ricavo" -END - -STRING F_DESCRV 40 -BEGIN - PROMPT 36 11 "" - FLAG "D" - GROUP 22 - USE LF_PCON KEY 2 SELECT INDBIL=="4" - INPUT DESCR F_DESCRV - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT F_SOTTOCV - WARNING "Il conto deve essere un ricavo" -END - -BOOLEAN F_ARTFIS -BEGIN - PROMPT 1 13 "Articolo fiscale" - FIELD LF_ANAMAG->ARTFIS - MESSAGE TRUE ENABLE,23@ - MESSAGE FALSE DISABLE,23@ -END - -STRING F_RAGGFIS 5 -BEGIN - PROMPT 1 14 "Raggrupp. fiscale " - FIELD LF_ANAMAG->RAGGFIS - FLAGS "U" - USE RFA - JOIN %ASF ALIAS 200 INTO CODTAB=S8 - INPUT CODTAB F_RAGGFIS - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_RAGGFIS CODTAB - OUTPUT F_RAGGFIS1 S0 - OUTPUT H_CLASSEFIS S8 - CHECKTYPE NORMAL - GROUP 23 -END - -STRING F_RAGGFIS1 40 -BEGIN - PROMPT 31 14 "" - FLAG "D" -END - -STRING H_CLASSEFIS 2 -BEGIN - PROMPT 1 15 "" - FLAG "HG" - MESSAGE DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS - MESSAGE EMPTY ENABLE,F_CLASSEFIS -END - -STRING F_CLASSEFIS 2 -BEGIN - PROMPT 1 15 "Classe fiscale " - FIELD LF_ANAMAG->CLASSEFIS - FLAGS "UD" - USE %ASF - INPUT CODTAB F_CLASSEFIS - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_CLASSEFIS CODTAB - OUTPUT F_CLASSEFISD S0 - MESSAGE EMPTY "",F_CLASSEFISD - CHECKTYPE NORMAL - GROUP 23 -END - -STRING F_CLASSEFISD 40 -BEGIN - PROMPT 31 15 "" - FLAG "D" -END - - STRING F_CLASSDOG 10 BEGIN - PROMPT 1 17 "Classe doganale " + PROMPT 1 8 "Classe doganale " FIELD LF_ANAMAG->CLASSDOG FLAG "UZ" USE %CLD @@ -587,13 +722,13 @@ END STRING F_CLASSDOG1 40 BEGIN - PROMPT 36 17 "" + PROMPT 36 8 "" FLAG "D" END STRING F_PROVOR 5 BEGIN - PROMPT 1 18 "Provincia di origine " + PROMPT 1 10 "Provincia di origine " FIELD LF_ANAMAG->PROV USE %PRV INPUT CODTAB F_PROVOR @@ -608,7 +743,7 @@ END STRING F_PROVOR2 40 BEGIN - PROMPT 36 18 "" + PROMPT 36 10 "" USE %PRV KEY 2 INPUT S0 F_PROVOR2 COPY DISPLAY F_PROVOR @@ -616,92 +751,23 @@ BEGIN CHECKTYPE NORMAL END -ENDPAGE - - - - - - - -PAGE "Pag. 3" 0 0 70 20 - -STRING F_UMP 3 +NUMBER F_PROVV 5 2 BEGIN - PROMPT 1 1 "U.M. peso " - FIELD LF_ANAMAG->UMP - FLAG "U" - USE %UMS - INPUT CODTAB F_UMP - DISPLAY "U.M. " CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_UMP CODTAB - VALIDATE REQIF_FUNC 1 F_PESO - WARNING "Necessaria una unità di misura valida per il peso " - CHECKTYPE NORMAL + FIELD LF_ANAMAG->PERCPROVV + PROMPT 1 12 "Provvigione " + NUM_EXPR (#F_PROVV>=0)&&(#F_PROVV<=100) + WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100" END -TEXT DLG_NULL -BEGIN - PROMPT 3 2 "Unità di misura articolo" -END - -SPREADSHEET F_SHEETUM 77 5 +NUMBER F_RICARICO 5 2 BEGIN - PROMPT 2 3 "Unità di misura " - FLAGS "A" - USE LF_UMART KEY NRIGA - INPUT CODART F_CODART - ITEM "U.M." - ITEM "F. conversione" - ITEM "Prezzo netto@18" - ITEM "Prezzo lordo@18" + FIELD LF_ANAMAG->PERCRIC + PROMPT 42 12 "Ricarico/margine " + FLAGS "U" +// NUM_EXPR #F_RICARICO<= +// WARNING "La percentuale di ricarico deve essere compresa ..." END -NUMBER F_PESO 15 5 -BEGIN - PROMPT 1 10 "Peso " - FIELD LF_ANAMAG->PESO - VALIDATE REQIF_FUNC 1 F_TARA - WARNING "Necessario introdurre il peso se si è introdotta la tara" -END - -NUMBER F_TARA 15 5 -BEGIN - PROMPT 42 10 "Tara " - FIELD LF_ANAMAG->TARA -END - -NUMBER F_MASSANUN 10 3 -BEGIN - PROMPT 1 11 "Massa netta unitaria " - FIELD LF_ANAMAG->MASSANUN -END - -NUMBER F_UNSUPPUN 10 3 -BEGIN - PROMPT 42 11 "Unità suppl.unitaria " - FIELD LF_ANAMAG->UNSUPPUN -END - -NUMBER F_PPCONF 15 5 -BEGIN - PROMPT 1 12 "Pz. per confezione " - FIELD LF_ANAMAG->PPCONF -END - -NUMBER F_PPCOLLO 15 5 -BEGIN - PROMPT 42 12 "Pz. per collo " - FIELD LF_ANAMAG->PPCOLLO -END - -LISTBOX F_TIPOCF 20 -BEGIN - PROMPT 0 0 "" - FLAG "H" - ITEM "F|Fornitore" -END NUMBER F_COSTSTD 15 2 BEGIN @@ -733,29 +799,11 @@ BEGIN FIELD LF_ANAMAG->DULTCOS2 END -NUMBER F_PROVV 5 2 -BEGIN - FIELD LF_ANAMAG->PERCPROVV - PROMPT 1 20 "Provvigione " - NUM_EXPR (#F_PROVV>=0)&&(#F_PROVV<=100) - WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100" -END - -NUMBER F_RICARICO 5 2 -BEGIN - FIELD LF_ANAMAG->PERCRIC - PROMPT 42 20 "Ricarico/margine " - FLAGS "U" -// NUM_EXPR #F_RICARICO<= -// WARNING "La percentuale di ricarico deve essere compresa ..." -END - ENDPAGE - -PAGE "Pag. 4" 0 0 70 20 +PAGE "Giacenze" 0 0 70 20 // Anno relativo alle giacenze NUMBER H_ANNO 4 @@ -765,9 +813,26 @@ BEGIN //MESSAGE COPY,F_ANNO |COPY,F_ANNORIF END +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" +END +STRING F_CODARTPAGE5 20 +BEGIN + FLAGS "D" + PROMPT 2 1 "Codice art. " + GROUP G_CODART +END +STRING F_DESCRPAGE5 50 +BEGIN + FLAGS "D" + PROMPT 2 2 "Descrizione " + GROUP G_DESART +END + STRING F_ANNO 4 BEGIN - PROMPT 42 2 "Vai all'anno " + PROMPT 2 4 "Seleziona l'esercizio " FLAGS "U" USE ESE INPUT CODTAB F_ANNO @@ -779,13 +844,19 @@ END STRING F_ANNORIF 4 // anno usato per il write dell'annata precedente BEGIN - PROMPT 2 2 "Giacenze dell'anno " + PROMPT 2 6 "Giacenze dell'esercizio " FLAGS "D" END -SPREADSHEET F_SHEETGIAC 77 10 +STRINGA F_UMPRINCIPALE 2 BEGIN - PROMPT 2 4 "Giacenze" + PROMPT 52 6 "U.M. :" + FLAGS "D" +END + +SPREADSHEET F_SHEETGIAC 77 8 +BEGIN + PROMPT 2 7 "Giacenze" FLAGS "A" USE LF_MAG KEY NRIGA INPUT ANNOES F_ANNO @@ -828,11 +899,24 @@ BEGIN ITEM "N.dist." END ENDPAGE -PAGE "Pag. 5" 0 0 70 20 +PAGE "Storico" 0 0 70 20 + +STRING F_CODARTPAGE6 20 +BEGIN + FLAGS "D" + PROMPT 2 1 "Codice art. " + GROUP G_CODART +END +STRING F_DESCRPAGE6 50 +BEGIN + FLAGS "D" + PROMPT 2 2 "Descrizione " + GROUP G_DESART +END STRINGA F_STOANNO 4 BEGIN - PROMPT 42 2 "Vai all'anno " + PROMPT 2 4 "Seleziona l'esercizio " FLAGS "U" USE ESE INPUT CODTAB F_STOANNO @@ -844,18 +928,19 @@ END STRINGA F_STOANNORIF 4 // anno usato per il write dell'annata precedente BEGIN - PROMPT 2 2 "Storico Giacenze dell'anno " + PROMPT 2 6 "Composizione rimanenze a fine " FLAGS "D" END -TEXT DLG_NULL +STRINGA F_UMPRINCIPALE2 2 BEGIN - PROMPT 2 4 "Composizione rimanenze a fine anno " + PROMPT 52 6 "U.M. :" + FLAGS "D" END -SPREADSHEET F_SHEETSTOMAG 77 11 +SPREADSHEET F_SHEETSTOMAG 77 8 BEGIN - PROMPT 2 5 "Composizione" + PROMPT 2 7 "Composizione" FLAGS "A" USE LF_STOMAG KEY NRIGA INPUT ANNOESRIF F_STOANNO @@ -863,7 +948,6 @@ BEGIN ITEM " @1F" ITEM "Magazzino" ITEM "Esercizio@10" - ITEM "U.M.@10" ITEM "Quantità@15" ITEM "Valore@15" END