diff --git a/ba/ba3700a.uml b/ba/ba3700a.uml index 59fe3e202..74ef90f3a 100755 --- a/ba/ba3700a.uml +++ b/ba/ba3700a.uml @@ -1,312 +1,312 @@ -#include "ba3700.h" -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella condizioni di pagamento" -1 -1 78 15 - -BOOLEAN 909 -BEGIN - PROMPT 0 0 "" - FLAGS "GH" - FIELD %CPG->B1 -END - -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'" - ITEM "6|Lettera di credito" - ITEM "7|Tratta accettata" - ITEM "8|Rapporti interban. diretti" - ITEM "9|Bonifici" - FIELD %CPG->S4 -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" MESSAGE "X",909 - ITEM "2|Uguali (obbligate dalla 2a)" MESSAGE "",909 - ITEM "3|Uguali dalla prossima modifica" MESSAGE "X",909 - ITEM "4|Uguali finche' possibile" MESSAGE "X",909 -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" - FIELD %CPG->S5 -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 interb. 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 + +BOOLEAN 909 +BEGIN + PROMPT 0 0 "" + FLAGS "GH" + FIELD %CPG->B1 +END + +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'" + ITEM "6|Lettera di credito" + ITEM "7|Tratta accettata" + ITEM "8|Rapporti interban. diretti" + ITEM "9|Bonifici" + FIELD %CPG->S4 +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" MESSAGE "X",909|DISABLE,F_NUM_RATE + ITEM "2|Uguali (obbligate dalla 2a)" MESSAGE "",909|ENABLE,F_NUM_RATE + ITEM "3|Uguali dalla prossima modifica" MESSAGE "X",909|DISABLE,F_NUM_RATE + ITEM "4|Uguali finche' possibile" MESSAGE "X",909|DISABLE,F_NUM_RATE +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" + FIELD %CPG->S5 +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 interb. 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