Aggiunta disabilitazione n.rate se non uguali

git-svn-id: svn://10.65.10.50/trunk@2001 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-10-25 08:33:29 +00:00
parent 30ac64c4a4
commit e3b0e42b5c

View File

@ -1,312 +1,312 @@
#include "ba3700.h" #include "ba3700.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella condizioni di pagamento" -1 -1 78 15 PAGE "Tabella condizioni di pagamento" -1 -1 78 15
BOOLEAN 909 BOOLEAN 909
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "GH" FLAGS "GH"
FIELD %CPG->B1 FIELD %CPG->B1
END END
GROUPBOX DLG_NULL 71 4 GROUPBOX DLG_NULL 71 4
BEGIN BEGIN
PROMPT 4 0 "" PROMPT 4 0 ""
FLAGS "R" FLAGS "R"
END END
STRING F_CODICE 4 STRING F_CODICE 4
BEGIN BEGIN
PROMPT 6 1 "Codice " PROMPT 6 1 "Codice "
HELP "Codice condizione di pagamento" HELP "Codice condizione di pagamento"
FLAGS "UZ" FLAGS "UZ"
FIELD %CPG->CODTAB FIELD %CPG->CODTAB
USE %CPG KEY 1 ALIAS 50 USE %CPG KEY 1 ALIAS 50
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESC S0 OUTPUT F_DESC S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING F_DESC 50 STRING F_DESC 50
BEGIN BEGIN
PROMPT 6 2 "Descrizione " PROMPT 6 2 "Descrizione "
HELP "Descrizione condizione di pagamento" HELP "Descrizione condizione di pagamento"
FIELD %CPG->S0 FIELD %CPG->S0
USE %CPG KEY 2 ALIAS 51 USE %CPG KEY 2 ALIAS 51
INPUT S0 F_DESC INPUT S0 F_DESC
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
COPY OUTPUT F_CODICE COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 2 KEY 2
END END
GROUPBOX DLG_NULL 71 7 GROUPBOX DLG_NULL 71 7
BEGIN BEGIN
PROMPT 4 4 "" PROMPT 4 4 ""
END END
STRING F_INIZIOSCAD 1 STRING F_INIZIOSCAD 1
BEGIN BEGIN
PROMPT 5 5 "Inizio calcolo " PROMPT 5 5 "Inizio calcolo "
HELP "Modalita' di inizio conteggio calcolo scadenza" HELP "Modalita' di inizio conteggio calcolo scadenza"
FIELD %CPG->S1 FIELD %CPG->S1
SHEET "Cod|Descrizione@30" SHEET "Cod|Descrizione@30"
INPUT F_INIZIOSCAD INPUT F_INIZIOSCAD
OUTPUT F_INIZIOSCAD OUTPUT F_INIZIOSCAD
ITEM "F|Data fattura" ITEM "F|Data fattura"
ITEM "M|Fine mese" ITEM "M|Fine mese"
ITEM "I|Da impostare" ITEM "I|Da impostare"
WARNING "La partenza del calcolo deve essere specificata" WARNING "La partenza del calcolo deve essere specificata"
FLAGS "U" FLAGS "U"
END END
STRING F_TIPO_PRIMA_RATA 1 STRING F_TIPO_PRIMA_RATA 1
BEGIN BEGIN
PROMPT 28 5 "Tipo prima rata " PROMPT 28 5 "Tipo prima rata "
HELP "Tipo di conteggio per la prima rata" HELP "Tipo di conteggio per la prima rata"
FIELD %CPG->S3 FIELD %CPG->S3
SHEET "Cod|Descrizione@60" SHEET "Cod|Descrizione@60"
INPUT F_TIPO_PRIMA_RATA INPUT F_TIPO_PRIMA_RATA
OUTPUT F_TIPO_PRIMA_RATA OUTPUT F_TIPO_PRIMA_RATA
ITEM " |Totale documento ripartito tra tutte le rate" ITEM " |Totale documento ripartito tra tutte le rate"
ITEM "1|Tutte le imposte sulla prima rata" ITEM "1|Tutte le imposte sulla prima rata"
ITEM "2|Tutte le spese sulla prima rata" ITEM "2|Tutte le spese sulla prima rata"
ITEM "3|Imposte e spese sulla prima rata" ITEM "3|Imposte e spese sulla prima rata"
ITEM "4|Spese e merce sulla prima rata, imposta sulle altre" ITEM "4|Spese e merce sulla prima rata, imposta sulle altre"
ITEM "5|Merce e imposte sulla prima rata, spese sulle altre" ITEM "5|Merce e imposte sulla prima rata, spese sulle altre"
ITEM "6|Merce sulla prima rata, imposte e spese sulle altre" ITEM "6|Merce sulla prima rata, imposte e spese sulle altre"
END END
NUMBER F_NUM_RATE 3 NUMBER F_NUM_RATE 3
BEGIN BEGIN
PROMPT 53 5 "Numero rate " PROMPT 53 5 "Numero rate "
HELP "Numero delle rate" HELP "Numero delle rate"
FLAGS "R" FLAGS "R"
END END
LIST F_TIPO_RATA 25 LIST F_TIPO_RATA 25
BEGIN BEGIN
PROMPT 5 6 "Tipo rata " PROMPT 5 6 "Tipo rata "
HELP "Tipo rata da utilizzare per le scadenze" HELP "Tipo rata da utilizzare per le scadenze"
ITEM "1|Rimessa diretta o contanti" ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta bancaria" ITEM "3|Ricevuta bancaria"
ITEM "4|Cessione" ITEM "4|Cessione"
ITEM "5|Paghero'" ITEM "5|Paghero'"
ITEM "6|Lettera di credito" ITEM "6|Lettera di credito"
ITEM "7|Tratta accettata" ITEM "7|Tratta accettata"
ITEM "8|Rapporti interban. diretti" ITEM "8|Rapporti interban. diretti"
ITEM "9|Bonifici" ITEM "9|Bonifici"
FIELD %CPG->S4 FIELD %CPG->S4
END END
NUMBER F_INT_RATE 3 NUMBER F_INT_RATE 3
BEGIN BEGIN
PROMPT 49 6 "Intervallo rate " PROMPT 49 6 "Intervallo rate "
HELP "Giorni di intervallo tra una data e l'altra" HELP "Giorni di intervallo tra una data e l'altra"
FLAGS "R" FLAGS "R"
END END
LIST F_RATE_DIFF 25 LIST F_RATE_DIFF 25
BEGIN BEGIN
PROMPT 5 7 "Rate " PROMPT 5 7 "Rate "
HELP "Descrizione del meccanismo di generazione rate " HELP "Descrizione del meccanismo di generazione rate "
ITEM "1|Differenziate" MESSAGE "X",909 ITEM "1|Differenziate" MESSAGE "X",909|DISABLE,F_NUM_RATE
ITEM "2|Uguali (obbligate dalla 2a)" MESSAGE "",909 ITEM "2|Uguali (obbligate dalla 2a)" MESSAGE "",909|ENABLE,F_NUM_RATE
ITEM "3|Uguali dalla prossima modifica" MESSAGE "X",909 ITEM "3|Uguali dalla prossima modifica" MESSAGE "X",909|DISABLE,F_NUM_RATE
ITEM "4|Uguali finche' possibile" MESSAGE "X",909 ITEM "4|Uguali finche' possibile" MESSAGE "X",909|DISABLE,F_NUM_RATE
END END
STRING F_ULT_CLASS 2 STRING F_ULT_CLASS 2
BEGIN BEGIN
PROMPT 53 7 "Ult. class. " PROMPT 53 7 "Ult. class. "
USE %CLR USE %CLR
INPUT CODTAB[1,1] F_TIPO_RATA SELECT INPUT CODTAB[1,1] F_TIPO_RATA SELECT
INPUT CODTAB[2,2] F_ULT_CLASS INPUT CODTAB[2,2] F_ULT_CLASS
DISPLAY "Tipo pagamento" CODTAB[1,1] DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2] DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_ULT_CLASS CODTAB[2,2] OUTPUT F_ULT_CLASS CODTAB[2,2]
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Codice default per ulteriore classificazione della data" HELP "Codice default per ulteriore classificazione della data"
FIELD %CPG->S5 FIELD %CPG->S5
END END
/********************************************************************** /**********************************************************************
* nuova versione, forse inutile; per ora teniamo la vecchia e vediamo * nuova versione, forse inutile; per ora teniamo la vecchia e vediamo
* cosa dicono * cosa dicono
LIST F_RATE_DIFF 12 LIST F_RATE_DIFF 12
BEGIN BEGIN
PROMPT 5 7 "Rate " PROMPT 5 7 "Rate "
HELP "Descrizione delle rate " HELP "Descrizione delle rate "
ITEM "1|Differenziate" MESSAGE DISABLE,F_EQUAL_FROM ITEM "1|Differenziate" MESSAGE DISABLE,F_EQUAL_FROM
ITEM "2|Uguali" MESSAGE ENABLE,F_EQUAL_FROM ITEM "2|Uguali" MESSAGE ENABLE,F_EQUAL_FROM
// ITEM "3|Uguali dall'ultima modificata" // ITEM "3|Uguali dall'ultima modificata"
// ITEM "4|Uguali finche' possibile" // ITEM "4|Uguali finche' possibile"
END END
LIST F_EQUAL_FROM 14 LIST F_EQUAL_FROM 14
BEGIN BEGIN
PROMPT 35 7 "a partire da" PROMPT 35 7 "a partire da"
ITEM "1|Rata numero... " MESSAGE ENABLE,F_START_RATA ITEM "1|Rata numero... " MESSAGE ENABLE,F_START_RATA
ITEM "2|Ultima modificata" MESSAGE DISABLE,F_START_RATA ITEM "2|Ultima modificata" MESSAGE DISABLE,F_START_RATA
END END
NUMBER F_START_RATA 2 NUMBER F_START_RATA 2
BEGIN BEGIN
PROMPT 65 7 "" PROMPT 65 7 ""
END END
STRING F_ULT_CLASS 3 STRING F_ULT_CLASS 3
BEGIN BEGIN
PROMPT 5 9 "Ulteriore classificazione" PROMPT 5 9 "Ulteriore classificazione"
USE %CLR USE %CLR
INPUT CODTAB[1,1] F_TIPO_RATA SELECT INPUT CODTAB[1,1] F_TIPO_RATA SELECT
INPUT CODTAB[2,2] F_ULT_CLASS INPUT CODTAB[2,2] F_ULT_CLASS
DISPLAY "Tipo pagamento" CODTAB[1,1] DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2] DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_ULT_CLASS CODTAB[2,2] OUTPUT F_ULT_CLASS CODTAB[2,2]
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Codice default per ulteriore classificazione della data" HELP "Codice default per ulteriore classificazione della data"
END END
********************************************************************/ ********************************************************************/
NUMBER F_FIXSCAD_1 2 NUMBER F_FIXSCAD_1 2
BEGIN BEGIN
PROMPT 5 9 "Giorni scadenza fissi (1) " PROMPT 5 9 "Giorni scadenza fissi (1) "
FIELD %CPG->I0 FIELD %CPG->I0
HELP "Giorno scadenza obbligato: prima alternativa" HELP "Giorno scadenza obbligato: prima alternativa"
NUM_EXPR (#F_FIXSCAD_1>=0)&&(#F_FIXSCAD_1<=31) NUM_EXPR (#F_FIXSCAD_1>=0)&&(#F_FIXSCAD_1<=31)
WARNING "Il giorno del mese e' compreso tra 1 e 31!" WARNING "Il giorno del mese e' compreso tra 1 e 31!"
END END
NUMBER F_FIXSCAD_2 2 NUMBER F_FIXSCAD_2 2
BEGIN BEGIN
PROMPT 36 9 "(2) " PROMPT 36 9 "(2) "
FIELD %CPG->I1 FIELD %CPG->I1
HELP "Giorno scadenza obbligato: seconda alternativa" HELP "Giorno scadenza obbligato: seconda alternativa"
NUM_EXPR (#F_FIXSCAD_2>=0)&&(#F_FIXSCAD_2<=31) NUM_EXPR (#F_FIXSCAD_2>=0)&&(#F_FIXSCAD_2<=31)
WARNING "Il giorno del mese e' compreso tra 1 e 31!" WARNING "Il giorno del mese e' compreso tra 1 e 31!"
END END
NUMBER F_FIXSCAD_3 2 NUMBER F_FIXSCAD_3 2
BEGIN BEGIN
PROMPT 44 9 "(3) " PROMPT 44 9 "(3) "
FIELD %CPG->I2 FIELD %CPG->I2
HELP "Giorno scadenza obbligato: terza alternativa" HELP "Giorno scadenza obbligato: terza alternativa"
NUM_EXPR (#F_FIXSCAD_3>=0)&&(#F_FIXSCAD_3<=31) NUM_EXPR (#F_FIXSCAD_3>=0)&&(#F_FIXSCAD_3<=31)
WARNING "Il giorno del mese e' compreso tra 1 e 31!" WARNING "Il giorno del mese e' compreso tra 1 e 31!"
END END
BOOLEAN F_MESECOMM BOOLEAN F_MESECOMM
BEGIN BEGIN
PROMPT 54 9 "Mese commerciale" PROMPT 54 9 "Mese commerciale"
HELP "Indicare se si utilizza il mese commerciale (30 gg)" HELP "Indicare se si utilizza il mese commerciale (30 gg)"
FIELD %CPG->B0 FIELD %CPG->B0
END END
SPREADSHEET F_SHEET_RPG 70 7 SPREADSHEET F_SHEET_RPG 70 7
BEGIN BEGIN
PROMPT 4 11 "" PROMPT 4 11 ""
ITEM "N.ro giorni rata" ITEM "N.ro giorni rata"
ITEM "Percentuale" ITEM "Percentuale"
ITEM "Tipo" ITEM "Tipo"
ITEM "Pagamento@28" ITEM "Pagamento@28"
ITEM "Ult.class." ITEM "Ult.class."
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "" -1 -1 78 15 PAGE "" -1 -1 78 15
NUMBER 101 4 NUMBER 101 4
BEGIN BEGIN
PROMPT 4 1 "Numero giorni " PROMPT 4 1 "Numero giorni "
HELP "Numero di giorni per la scadenza" HELP "Numero di giorni per la scadenza"
FLAGS "R" FLAGS "R"
END END
NUMBER 102 6 2 NUMBER 102 6 2
BEGIN BEGIN
PROMPT 4 3 "Percentuale " PROMPT 4 3 "Percentuale "
HELP "Percentuale della rata" HELP "Percentuale della rata"
FLAGS "R" FLAGS "R"
END END
NUMBER 103 1 NUMBER 103 1
BEGIN BEGIN
PROMPT 4 5 "Tipo pagamento " PROMPT 4 5 "Tipo pagamento "
HELP "Tipo di pagamento per la rata" HELP "Tipo di pagamento per la rata"
SHEET "Codice|Tipo pagamento@32" SHEET "Codice|Tipo pagamento@32"
INPUT 103 INPUT 103
OUTPUT 103 OUTPUT 103
OUTPUT 104 OUTPUT 104
ITEM "1|Rimessa diretta o contanti" ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria" ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione" ITEM "4|Cessione"
ITEM "5|Paghero'" ITEM "5|Paghero'"
ITEM "6|Lettera di credito" ITEM "6|Lettera di credito"
ITEM "7|Tratta accettata" ITEM "7|Tratta accettata"
ITEM "8|Rapporti interb. diretti" ITEM "8|Rapporti interb. diretti"
ITEM "9|Bonifici" ITEM "9|Bonifici"
ITEM "10|Altro pagamento" ITEM "10|Altro pagamento"
END END
STRING 104 28 STRING 104 28
BEGIN BEGIN
PROMPT 4 7 "Pagamento " PROMPT 4 7 "Pagamento "
FLAGS "D" FLAGS "D"
END END
STRING 105 1 STRING 105 1
BEGIN BEGIN
PROMPT 4 9 "Ulteriore classificazione " PROMPT 4 9 "Ulteriore classificazione "
USE %CLR USE %CLR
INPUT CODTAB[1,1] 103 SELECT INPUT CODTAB[1,1] 103 SELECT
INPUT CODTAB[2,2] 105 INPUT CODTAB[2,2] 105
DISPLAY "Tipo pagamento" CODTAB[1,1] DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2] DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT 105 CODTAB[2,2] OUTPUT 105 CODTAB[2,2]
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Codice per ulteriore classificazione della data" HELP "Codice per ulteriore classificazione della data"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_NULL 9 2
BEGIN BEGIN
PROMPT -33 -1 "Azzera" PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK