From c431c94326eec69d968659c853fc7ac7bc291251 Mon Sep 17 00:00:00 2001 From: villa Date: Fri, 11 Aug 1995 10:36:35 +0000 Subject: [PATCH] Aggiunto n. decimali a tabella valuta git-svn-id: svn://10.65.10.50/trunk@1701 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba3700a.uml | 606 ++++++++++++++++++++++++------------------------- ba/batbval.h | 1 + ba/batbval.uml | 7 + 3 files changed, 311 insertions(+), 303 deletions(-) diff --git a/ba/ba3700a.uml b/ba/ba3700a.uml index d46f9b44e..cbf636412 100755 --- a/ba/ba3700a.uml +++ b/ba/ba3700a.uml @@ -1,303 +1,303 @@ -#include "ba3700.h" -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella condizioni di pagamento" -1 -1 78 15 - -GROUPBOX DLG_NULL 71 4 -BEGIN - PROMPT 4 0 "" - FLAGS "R" -END - -STRING F_CODICE 4 -BEGIN - PROMPT 6 1 "Codice " - HELP "Codice condizione di pagamento" - FLAGS "UZ" - FIELD %CPG->CODTAB - USE %CPG KEY 1 ALIAS 50 - INPUT CODTAB F_CODICE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESC S0 - CHECKTYPE REQUIRED - KEY 1 -END - -STRING F_DESC 50 -BEGIN - PROMPT 6 2 "Descrizione " - HELP "Descrizione condizione di pagamento" - FIELD %CPG->S0 - USE %CPG KEY 2 ALIAS 51 - INPUT S0 F_DESC - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - COPY OUTPUT F_CODICE - CHECKTYPE REQUIRED - KEY 2 -END - -GROUPBOX DLG_NULL 71 7 -BEGIN - PROMPT 4 4 "" -END - -STRING F_INIZIOSCAD 1 -BEGIN - PROMPT 5 5 "Inizio calcolo " - HELP "Modalita' di inizio conteggio calcolo scadenza" - FIELD %CPG->S1 - SHEET "Cod|Descrizione@30" - INPUT F_INIZIOSCAD - OUTPUT F_INIZIOSCAD - ITEM "F|Data fattura" - ITEM "M|Fine mese" - ITEM "I|Da impostare" - WARNING "La partenza del calcolo deve essere specificata" - FLAGS "U" -END - -STRING F_TIPO_PRIMA_RATA 1 -BEGIN - PROMPT 28 5 "Tipo prima rata " - HELP "Tipo di conteggio per la prima rata" - FIELD %CPG->S3 - SHEET "Cod|Descrizione@60" - INPUT F_TIPO_PRIMA_RATA - OUTPUT F_TIPO_PRIMA_RATA - ITEM " |Totale documento ripartito tra tutte le rate" - ITEM "1|Tutte le imposte sulla prima rata" - ITEM "2|Tutte le spese sulla prima rata" - ITEM "3|Imposte e spese sulla prima rata" - ITEM "4|Spese e merce sulla prima rata, imposta sulle altre" - ITEM "5|Merce e imposte sulla prima rata, spese sulle altre" - ITEM "6|Merce sulla prima rata, imposte e spese sulle altre" -END - - -NUMBER F_NUM_RATE 3 -BEGIN - PROMPT 53 5 "Numero rate " - HELP "Numero delle rate" - FLAGS "R" -END - -LIST F_TIPO_RATA 25 -BEGIN - PROMPT 5 6 "Tipo rata " - HELP "Tipo rata da utilizzare per le scadenze" - ITEM "1|Rimessa diretta o contanti" - ITEM "2|Tratta" - ITEM "3|Ricevuta bancaria" - ITEM "4|Cessione" - ITEM "5|Paghero' appena posso" - ITEM "6|Lettera di credito" - ITEM "7|Tratta accettata" - ITEM "8|Rapporti interbancari diretti" - ITEM "9|Bonifici" -END - -NUMBER F_INT_RATE 3 -BEGIN - PROMPT 49 6 "Intervallo rate " - HELP "Giorni di intervallo tra una data e l'altra" - FLAGS "R" -END - - -LIST F_RATE_DIFF 25 -BEGIN - PROMPT 5 7 "Rate " - HELP "Descrizione del meccanismo di generazione rate " - ITEM "1|Differenziate" - ITEM "2|Uguali" - ITEM "3|Uguali dalla prossima modifica" - ITEM "4|Uguali finche' possibile" -END - -STRING F_ULT_CLASS 2 -BEGIN - PROMPT 53 7 "Ult. class. " - USE %CLR - INPUT CODTAB[1,1] F_TIPO_RATA SELECT - INPUT CODTAB[2,2] F_ULT_CLASS - DISPLAY "Tipo pagamento" CODTAB[1,1] - DISPLAY "Classificazione" CODTAB[2,2] - DISPLAY "Descrizione@50" S0 - OUTPUT F_ULT_CLASS CODTAB[2,2] - CHECKTYPE NORMAL - HELP "Codice default per ulteriore classificazione della data" -END - -/********************************************************************** - * nuova versione, forse inutile; per ora teniamo la vecchia e vediamo - * cosa dicono - -LIST F_RATE_DIFF 12 -BEGIN - PROMPT 5 7 "Rate " - HELP "Descrizione delle rate " - ITEM "1|Differenziate" MESSAGE DISABLE,F_EQUAL_FROM - ITEM "2|Uguali" MESSAGE ENABLE,F_EQUAL_FROM -// ITEM "3|Uguali dall'ultima modificata" -// ITEM "4|Uguali finche' possibile" -END - -LIST F_EQUAL_FROM 14 -BEGIN - PROMPT 35 7 "a partire da" - ITEM "1|Rata numero... " MESSAGE ENABLE,F_START_RATA - ITEM "2|Ultima modificata" MESSAGE DISABLE,F_START_RATA -END - -NUMBER F_START_RATA 2 -BEGIN - PROMPT 65 7 "" -END - -STRING F_ULT_CLASS 3 -BEGIN - PROMPT 5 9 "Ulteriore classificazione" - USE %CLR - INPUT CODTAB[1,1] F_TIPO_RATA SELECT - INPUT CODTAB[2,2] F_ULT_CLASS - DISPLAY "Tipo pagamento" CODTAB[1,1] - DISPLAY "Classificazione" CODTAB[2,2] - DISPLAY "Descrizione@50" S0 - OUTPUT F_ULT_CLASS CODTAB[2,2] - CHECKTYPE NORMAL - HELP "Codice default per ulteriore classificazione della data" -END - -********************************************************************/ - - -NUMBER F_FIXSCAD_1 2 -BEGIN - PROMPT 5 9 "Giorni scadenza fissi (1) " - FIELD %CPG->I0 - HELP "Giorno scadenza obbligato: prima alternativa" - NUM_EXPR (#F_FIXSCAD_1>=0)&&(#F_FIXSCAD_1<=31) - WARNING "Il giorno del mese e' compreso tra 1 e 31!" -END - -NUMBER F_FIXSCAD_2 2 -BEGIN - PROMPT 36 9 "(2) " - FIELD %CPG->I1 - HELP "Giorno scadenza obbligato: seconda alternativa" - NUM_EXPR (#F_FIXSCAD_2>=0)&&(#F_FIXSCAD_2<=31) - WARNING "Il giorno del mese e' compreso tra 1 e 31!" -END - -NUMBER F_FIXSCAD_3 2 -BEGIN - PROMPT 44 9 "(3) " - FIELD %CPG->I2 - HELP "Giorno scadenza obbligato: terza alternativa" - NUM_EXPR (#F_FIXSCAD_3>=0)&&(#F_FIXSCAD_3<=31) - WARNING "Il giorno del mese e' compreso tra 1 e 31!" -END - -BOOLEAN F_MESECOMM -BEGIN - PROMPT 54 9 "Mese commerciale" - HELP "Indicare se si utilizza il mese commerciale (30 gg)" - FIELD %CPG->B0 -END - -SPREADSHEET F_SHEET_RPG 70 7 -BEGIN - PROMPT 4 11 "" - ITEM "N.ro giorni rata" - ITEM "Percentuale" - ITEM "Tipo" - ITEM "Pagamento@28" - ITEM "Ult.class." -END - -ENDPAGE - -ENDMASK - -PAGE "" -1 -1 78 15 - -NUMBER 101 4 -BEGIN - PROMPT 4 1 "Numero giorni " - HELP "Numero di giorni per la scadenza" - FLAGS "R" -END - -NUMBER 102 6 2 -BEGIN - PROMPT 4 3 "Percentuale " - HELP "Percentuale della rata" - FLAGS "R" -END - - -NUMBER 103 1 -BEGIN - PROMPT 4 5 "Tipo pagamento " - HELP "Tipo di pagamento per la rata" - SHEET "Codice|Tipo pagamento@32" - INPUT 103 - OUTPUT 103 - OUTPUT 104 - ITEM "1|Rimessa diretta o contanti" - ITEM "2|Tratta" - ITEM "3|Ricevuta Bancaria" - ITEM "4|Cessione" - ITEM "5|Paghero'" - ITEM "6|Lettera di credito" - ITEM "7|Tratta accettata" - ITEM "8|Rapporti interbancari diretti" - ITEM "9|Bonifici" - ITEM "10|Altro pagamento" -END - -STRING 104 28 -BEGIN - PROMPT 4 7 "Pagamento " - FLAGS "D" -END - -STRING 105 1 -BEGIN - PROMPT 4 9 "Ulteriore classificazione " - USE %CLR - INPUT CODTAB[1,1] 103 SELECT - INPUT CODTAB[2,2] 105 - DISPLAY "Tipo pagamento" CODTAB[1,1] - DISPLAY "Classificazione" CODTAB[2,2] - DISPLAY "Descrizione@50" S0 - OUTPUT 105 CODTAB[2,2] - CHECKTYPE NORMAL - HELP "Codice per ulteriore classificazione della data" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -13 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -23 -1 "" -END - -BUTTON DLG_NULL 9 2 -BEGIN - PROMPT -33 -1 "Azzera" - MESSAGE RESET,1@ -END - -ENDPAGE -ENDMASK +#include "ba3700.h" +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella condizioni di pagamento" -1 -1 78 15 + +GROUPBOX DLG_NULL 71 4 +BEGIN + PROMPT 4 0 "" + FLAGS "R" +END + +STRING F_CODICE 4 +BEGIN + PROMPT 6 1 "Codice " + HELP "Codice condizione di pagamento" + FLAGS "UZ" + FIELD %CPG->CODTAB + USE %CPG KEY 1 ALIAS 50 + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + KEY 1 +END + +STRING F_DESC 50 +BEGIN + PROMPT 6 2 "Descrizione " + HELP "Descrizione condizione di pagamento" + FIELD %CPG->S0 + USE %CPG KEY 2 ALIAS 51 + INPUT S0 F_DESC + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + COPY OUTPUT F_CODICE + CHECKTYPE REQUIRED + KEY 2 +END + +GROUPBOX DLG_NULL 71 7 +BEGIN + PROMPT 4 4 "" +END + +STRING F_INIZIOSCAD 1 +BEGIN + PROMPT 5 5 "Inizio calcolo " + HELP "Modalita' di inizio conteggio calcolo scadenza" + FIELD %CPG->S1 + SHEET "Cod|Descrizione@30" + INPUT F_INIZIOSCAD + OUTPUT F_INIZIOSCAD + ITEM "F|Data fattura" + ITEM "M|Fine mese" + ITEM "I|Da impostare" + WARNING "La partenza del calcolo deve essere specificata" + FLAGS "U" +END + +STRING F_TIPO_PRIMA_RATA 1 +BEGIN + PROMPT 28 5 "Tipo prima rata " + HELP "Tipo di conteggio per la prima rata" + FIELD %CPG->S3 + SHEET "Cod|Descrizione@60" + INPUT F_TIPO_PRIMA_RATA + OUTPUT F_TIPO_PRIMA_RATA + ITEM " |Totale documento ripartito tra tutte le rate" + ITEM "1|Tutte le imposte sulla prima rata" + ITEM "2|Tutte le spese sulla prima rata" + ITEM "3|Imposte e spese sulla prima rata" + ITEM "4|Spese e merce sulla prima rata, imposta sulle altre" + ITEM "5|Merce e imposte sulla prima rata, spese sulle altre" + ITEM "6|Merce sulla prima rata, imposte e spese sulle altre" +END + + +NUMBER F_NUM_RATE 3 +BEGIN + PROMPT 53 5 "Numero rate " + HELP "Numero delle rate" + FLAGS "R" +END + +LIST F_TIPO_RATA 25 +BEGIN + PROMPT 5 6 "Tipo rata " + HELP "Tipo rata da utilizzare per le scadenze" + ITEM "1|Rimessa diretta o contanti" + ITEM "2|Tratta" + ITEM "3|Ricevuta bancaria" + ITEM "4|Cessione" + ITEM "5|Paghero' appena posso" + ITEM "6|Lettera di credito" + ITEM "7|Tratta accettata" + ITEM "8|Rapporti interbancari diretti" + ITEM "9|Bonifici" +END + +NUMBER F_INT_RATE 3 +BEGIN + PROMPT 49 6 "Intervallo rate " + HELP "Giorni di intervallo tra una data e l'altra" + FLAGS "R" +END + + +LIST F_RATE_DIFF 25 +BEGIN + PROMPT 5 7 "Rate " + HELP "Descrizione del meccanismo di generazione rate " + ITEM "1|Differenziate" + ITEM "2|Uguali" + ITEM "3|Uguali dalla prossima modifica" + ITEM "4|Uguali finche' possibile" +END + +STRING F_ULT_CLASS 2 +BEGIN + PROMPT 53 7 "Ult. class. " + USE %CLR + INPUT CODTAB[1,1] F_TIPO_RATA SELECT + INPUT CODTAB[2,2] F_ULT_CLASS + DISPLAY "Tipo pagamento" CODTAB[1,1] + DISPLAY "Classificazione" CODTAB[2,2] + DISPLAY "Descrizione@50" S0 + OUTPUT F_ULT_CLASS CODTAB[2,2] + CHECKTYPE NORMAL + HELP "Codice default per ulteriore classificazione della data" +END + +/********************************************************************** + * nuova versione, forse inutile; per ora teniamo la vecchia e vediamo + * cosa dicono + +LIST F_RATE_DIFF 12 +BEGIN + PROMPT 5 7 "Rate " + HELP "Descrizione delle rate " + ITEM "1|Differenziate" MESSAGE DISABLE,F_EQUAL_FROM + ITEM "2|Uguali" MESSAGE ENABLE,F_EQUAL_FROM +// ITEM "3|Uguali dall'ultima modificata" +// ITEM "4|Uguali finche' possibile" +END + +LIST F_EQUAL_FROM 14 +BEGIN + PROMPT 35 7 "a partire da" + ITEM "1|Rata numero... " MESSAGE ENABLE,F_START_RATA + ITEM "2|Ultima modificata" MESSAGE DISABLE,F_START_RATA +END + +NUMBER F_START_RATA 2 +BEGIN + PROMPT 65 7 "" +END + +STRING F_ULT_CLASS 3 +BEGIN + PROMPT 5 9 "Ulteriore classificazione" + USE %CLR + INPUT CODTAB[1,1] F_TIPO_RATA SELECT + INPUT CODTAB[2,2] F_ULT_CLASS + DISPLAY "Tipo pagamento" CODTAB[1,1] + DISPLAY "Classificazione" CODTAB[2,2] + DISPLAY "Descrizione@50" S0 + OUTPUT F_ULT_CLASS CODTAB[2,2] + CHECKTYPE NORMAL + HELP "Codice default per ulteriore classificazione della data" +END + +********************************************************************/ + + +NUMBER F_FIXSCAD_1 2 +BEGIN + PROMPT 5 9 "Giorni scadenza fissi (1) " + FIELD %CPG->I0 + HELP "Giorno scadenza obbligato: prima alternativa" + NUM_EXPR (#F_FIXSCAD_1>=0)&&(#F_FIXSCAD_1<=31) + WARNING "Il giorno del mese e' compreso tra 1 e 31!" +END + +NUMBER F_FIXSCAD_2 2 +BEGIN + PROMPT 36 9 "(2) " + FIELD %CPG->I1 + HELP "Giorno scadenza obbligato: seconda alternativa" + NUM_EXPR (#F_FIXSCAD_2>=0)&&(#F_FIXSCAD_2<=31) + WARNING "Il giorno del mese e' compreso tra 1 e 31!" +END + +NUMBER F_FIXSCAD_3 2 +BEGIN + PROMPT 44 9 "(3) " + FIELD %CPG->I2 + HELP "Giorno scadenza obbligato: terza alternativa" + NUM_EXPR (#F_FIXSCAD_3>=0)&&(#F_FIXSCAD_3<=31) + WARNING "Il giorno del mese e' compreso tra 1 e 31!" +END + +BOOLEAN F_MESECOMM +BEGIN + PROMPT 54 9 "Mese commerciale" + HELP "Indicare se si utilizza il mese commerciale (30 gg)" + FIELD %CPG->B0 +END + +SPREADSHEET F_SHEET_RPG 70 7 +BEGIN + PROMPT 4 11 "" + ITEM "N.ro giorni rata" + ITEM "Percentuale" + ITEM "Tipo" + ITEM "Pagamento@28" + ITEM "Ult.class." +END + +ENDPAGE + +ENDMASK + +PAGE "" -1 -1 78 15 + +NUMBER 101 4 +BEGIN + PROMPT 4 1 "Numero giorni " + HELP "Numero di giorni per la scadenza" + FLAGS "R" +END + +NUMBER 102 6 2 +BEGIN + PROMPT 4 3 "Percentuale " + HELP "Percentuale della rata" + FLAGS "R" +END + + +NUMBER 103 1 +BEGIN + PROMPT 4 5 "Tipo pagamento " + HELP "Tipo di pagamento per la rata" + SHEET "Codice|Tipo pagamento@32" + INPUT 103 + OUTPUT 103 + OUTPUT 104 + ITEM "1|Rimessa diretta o contanti" + ITEM "2|Tratta" + ITEM "3|Ricevuta Bancaria" + ITEM "4|Cessione" + ITEM "5|Paghero'" + ITEM "6|Lettera di credito" + ITEM "7|Tratta accettata" + ITEM "8|Rapporti interbancari diretti" + ITEM "9|Bonifici" + ITEM "10|Altro pagamento" +END + +STRING 104 28 +BEGIN + PROMPT 4 7 "Pagamento " + FLAGS "D" +END + +STRING 105 1 +BEGIN + PROMPT 4 9 "Ulteriore classificazione " + USE %CLR + INPUT CODTAB[1,1] 103 SELECT + INPUT CODTAB[2,2] 105 + DISPLAY "Tipo pagamento" CODTAB[1,1] + DISPLAY "Classificazione" CODTAB[2,2] + DISPLAY "Descrizione@50" S0 + OUTPUT 105 CODTAB[2,2] + CHECKTYPE NORMAL + HELP "Codice per ulteriore classificazione della data" +END + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -13 -1 "" +END + +BUTTON DLG_CANCEL 9 2 +BEGIN + PROMPT -23 -1 "" +END + +BUTTON DLG_NULL 9 2 +BEGIN + PROMPT -33 -1 "Azzera" + MESSAGE RESET,1@ +END + +ENDPAGE +ENDMASK diff --git a/ba/batbval.h b/ba/batbval.h index 68b9e68d6..0f5e5066f 100755 --- a/ba/batbval.h +++ b/ba/batbval.h @@ -3,3 +3,4 @@ #define FLD_TABVAL_R0 102 #define FLD_TABVAL_S7 103 #define FLD_TABVAL_D0 104 +#define FLD_DECSVAL_I0 105 diff --git a/ba/batbval.uml b/ba/batbval.uml index 48a61e91c..2b66ae810 100755 --- a/ba/batbval.uml +++ b/ba/batbval.uml @@ -54,6 +54,13 @@ BEGIN HELP "Data di ultimo aggiornamento" END +NUMBER FLD_DECSVAL_I0 1 +BEGIN + PROMPT 3 9 "Decimali " + FIELD LF_TABCOM->I0 + HELP "Numero di decimali da utilizzare per l'arrotondamento" +END + ENDPAGE ENDMASK