diff --git a/ba/batbcco.h b/ba/batbcco.h index b9cb742d6..358062959 100755 --- a/ba/batbcco.h +++ b/ba/batbcco.h @@ -1,8 +1,16 @@ // campi maschera batb%cco.msk -#define F_CODICE 101 -#define F_DESCR 102 +#define F_CODICE 101 +#define F_DESCR 102 +#define F_GRUPPOA 103 +#define F_CONTOA 104 +#define F_SOTTOCA 105 +#define F_DESCRA 106 +#define F_GRUPPOV 107 +#define F_CONTOV 108 +#define F_SOTTOCV 109 +#define F_DESCRV 110 diff --git a/ba/batbcco.uml b/ba/batbcco.uml index 6a42ae267..5080b4a7f 100755 --- a/ba/batbcco.uml +++ b/ba/batbcco.uml @@ -8,9 +8,15 @@ ENDPAGE PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + STRING F_CODICE 2 BEGIN -PROMPT 4 2 "Codice " +PROMPT 2 2 "Codice " HELP "Codice della categoria contabile" FIELD CODTAB FLAGS "U" @@ -24,9 +30,9 @@ OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END -STRING F_DESCR 30 +STRING F_DESCR 50 BEGIN -PROMPT 4 4 "Descrizione " +PROMPT 2 4 "Descrizione " HELP "Descrizione della categoria contabile" FIELD LF_TABCOM->S0 KEY 2 @@ -40,5 +46,93 @@ OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END +NUMBER F_GRUPPOA 3 +BEGIN + PROMPT 2 8 "Conto d'acquisto " + FIELD I0 +END + +NUMBER F_CONTOA 3 +BEGIN + PROMPT 26 8 "" + FIELD I1 +END + +NUMBER F_SOTTOCA 6 +BEGIN + PROMPT 31 8 "" + FIELD I2 + USE LF_PCON + 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 +END + +STRING F_DESCRA 50 +BEGIN + PROMPT 21 9 "" + FLAG "U" + USE LF_PCON KEY 2 + INPUT DESCR F_DESCRA + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCA +END + +NUMBER F_GRUPPOV 3 +BEGIN + PROMPT 2 11 "Conto di vendita " + FIELD I3 +END + +NUMBER F_CONTOV 3 +BEGIN + PROMPT 26 11 "" + FIELD I4 +END + +NUMBER F_SOTTOCV 6 +BEGIN + PROMPT 31 11 "" + FIELD I5 + USE LF_PCON + 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 +END + +STRING F_DESCRV 50 +BEGIN + PROMPT 21 12 "" + FLAG "U" + USE LF_PCON KEY 2 + INPUT DESCR F_DESCRV + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCV +END + ENDPAGE ENDMASK diff --git a/ba/batbcve.h b/ba/batbcve.h index 8642d0d21..7a68a6528 100755 --- a/ba/batbcve.h +++ b/ba/batbcve.h @@ -2,12 +2,16 @@ // campi maschera batb%cve.msk -#define F_CODICE 101 -#define F_DESCR 102 -#define F_PROVV 103 -#define F_GRUPPO 104 -#define F_CONTO 105 -#define F_DESCONTO 106 +#define F_CODICE 101 +#define F_DESCR 102 +#define F_PROVV 103 +#define F_GRUPPO 104 +#define F_CONTO 105 +#define F_DESCONTO 106 +#define F_GRUPPOV 107 +#define F_CONTOV 108 +#define F_SOTTOCV 109 +#define F_DESCRV 110 diff --git a/ba/batbcve.uml b/ba/batbcve.uml index bca969bd8..9b144f5cc 100755 --- a/ba/batbcve.uml +++ b/ba/batbcve.uml @@ -16,7 +16,7 @@ END STRING F_CODICE 2 BEGIN - PROMPT 4 2 "Codice " + PROMPT 2 2 "Codice " HELP "Codice della categoria di vendita" FIELD CODTAB FLAGS "U" @@ -38,7 +38,7 @@ END STRING F_DESCR 50 BEGIN - PROMPT 4 4 "Descrizione " + PROMPT 2 4 "Descrizione " HELP "Descrizione della categoria di vendita" FIELD LF_TABCOM->S0 KEY 2 @@ -60,21 +60,21 @@ END NUMBER F_PROVV 5 2 BEGIN - PROMPT 4 8 "Provvigione " + PROMPT 2 8 "Provvigione " HELP "Percentuale di provvigione della categoria" FIELD LF_TABCOM->R0 END NUMBER F_GRUPPO 3 BEGIN - PROMPT 4 10 "Gruppo " + PROMPT 2 10 "Conto Cliente " HELP "Gruppo del piano dei conti della categoria" FIELD I1 END NUMBER F_CONTO 3 BEGIN - PROMPT 25 10 "Conto " + PROMPT 26 10 "" HELP "Conto del piano dei conti della categoria" FIELD I2 USE LF_PCON SELECT TMCF="C" @@ -92,9 +92,58 @@ END STRING F_DESCONTO 50 BEGIN - PROMPT 16 12 "" - FLAGS "D" - CHECKTYPE NORMAL + PROMPT 21 11 "" + FLAG "U" + USE LF_PCON KEY 2 SELECT TMCF="C" + INPUT DESCR F_DESCONTO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + COPY OUTPUT F_CONTO +END + +NUMBER F_GRUPPOV 3 +BEGIN + PROMPT 2 13 "Conto di vendita " + FIELD I3 +END + +NUMBER F_CONTOV 3 +BEGIN + PROMPT 26 13 "" + FIELD I4 +END + +NUMBER F_SOTTOCV 6 +BEGIN + PROMPT 31 13 "" + FIELD I5 + USE LF_PCON + 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 +END + +STRING F_DESCRV 50 +BEGIN + PROMPT 21 14 "" + FLAG "U" + USE LF_PCON KEY 2 + INPUT DESCR F_DESCRV + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCV END ENDPAGE