Corretto ordine ulc sullo sheet
git-svn-id: svn://10.65.10.50/trunk@2083 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
5fb71694fe
commit
97e23efd9f
@ -371,9 +371,9 @@ bool BA3700_application::sheet_action(TSheet_field&, int r, KEY k)
|
||||
ts = (TToken_string&)(*rws)[r];
|
||||
|
||||
news = ns.get(0);
|
||||
newp = ns.get(1);
|
||||
newt = ns.get(2);
|
||||
newu = ns.get(4);
|
||||
newp = ns.get();
|
||||
newt = ns.get();
|
||||
newu = ns.get();
|
||||
|
||||
// qui viene il bello, si fa per dire
|
||||
if (ts.get_int(0) != atoi(news)) // modificata scadenza
|
||||
@ -389,7 +389,7 @@ bool BA3700_application::sheet_action(TSheet_field&, int r, KEY k)
|
||||
if (strcmp(ts.get(2),newt) != 0) // modificato tipo pagamento
|
||||
mod = m_tipo = TRUE;
|
||||
|
||||
if (strcmp(ts.get(4),newu) != 0) // modificato tipo pagamento
|
||||
if (strcmp(ts.get(4),newu) != 0) // modificata ulteriore classificazione
|
||||
mod = m_ulc = TRUE;
|
||||
}
|
||||
break;
|
||||
|
||||
@ -12,7 +12,7 @@ BOOLEAN 909
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "GH"
|
||||
FIELD %CPG->B1
|
||||
FIELD B1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 71 4
|
||||
@ -26,7 +26,7 @@ BEGIN
|
||||
PROMPT 6 1 "Codice "
|
||||
HELP "Codice condizione di pagamento"
|
||||
FLAGS "UZ"
|
||||
FIELD %CPG->CODTAB
|
||||
FIELD CODTAB
|
||||
USE %CPG KEY 1 ALIAS 50
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -41,7 +41,7 @@ STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 6 2 "Descrizione "
|
||||
HELP "Descrizione condizione di pagamento"
|
||||
FIELD %CPG->S0
|
||||
FIELD S0
|
||||
USE %CPG KEY 2 ALIAS 51
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -60,7 +60,7 @@ STRING F_INIZIOSCAD 1
|
||||
BEGIN
|
||||
PROMPT 5 5 "Inizio calcolo "
|
||||
HELP "Modalita' di inizio conteggio calcolo scadenza"
|
||||
FIELD %CPG->S1
|
||||
FIELD S1
|
||||
SHEET "Cod|Descrizione@30"
|
||||
INPUT F_INIZIOSCAD
|
||||
OUTPUT F_INIZIOSCAD
|
||||
@ -75,7 +75,7 @@ STRING F_TIPO_PRIMA_RATA 1
|
||||
BEGIN
|
||||
PROMPT 28 5 "Tipo prima rata "
|
||||
HELP "Tipo di conteggio per la prima rata"
|
||||
FIELD %CPG->S3
|
||||
FIELD S3
|
||||
SHEET "Cod|Descrizione@60"
|
||||
INPUT F_TIPO_PRIMA_RATA
|
||||
OUTPUT F_TIPO_PRIMA_RATA
|
||||
@ -109,7 +109,7 @@ BEGIN
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Rapporti interban. diretti"
|
||||
ITEM "9|Bonifici"
|
||||
FIELD %CPG->S4
|
||||
FIELD S4
|
||||
END
|
||||
|
||||
NUMBER F_INT_RATE 3
|
||||
@ -142,7 +142,7 @@ BEGIN
|
||||
OUTPUT F_ULT_CLASS CODTAB[2,2]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Codice default per ulteriore classificazione della data"
|
||||
FIELD %CPG->S5
|
||||
FIELD S5
|
||||
END
|
||||
|
||||
/**********************************************************************
|
||||
@ -191,7 +191,7 @@ END
|
||||
NUMBER F_FIXSCAD_1 2
|
||||
BEGIN
|
||||
PROMPT 5 9 "Giorni scadenza fissi (1) "
|
||||
FIELD %CPG->I0
|
||||
FIELD 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!"
|
||||
@ -200,7 +200,7 @@ END
|
||||
NUMBER F_FIXSCAD_2 2
|
||||
BEGIN
|
||||
PROMPT 36 9 "(2) "
|
||||
FIELD %CPG->I1
|
||||
FIELD 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!"
|
||||
@ -209,7 +209,7 @@ END
|
||||
NUMBER F_FIXSCAD_3 2
|
||||
BEGIN
|
||||
PROMPT 44 9 "(3) "
|
||||
FIELD %CPG->I2
|
||||
FIELD 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!"
|
||||
@ -219,17 +219,17 @@ BOOLEAN F_MESECOMM
|
||||
BEGIN
|
||||
PROMPT 54 9 "Mese commerciale"
|
||||
HELP "Indicare se si utilizza il mese commerciale (30 gg)"
|
||||
FIELD %CPG->B0
|
||||
FIELD B0
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_RPG 70 7
|
||||
SPREADSHEET F_SHEET_RPG
|
||||
BEGIN
|
||||
PROMPT 4 11 ""
|
||||
PROMPT 0 11 ""
|
||||
ITEM "N.ro giorni rata"
|
||||
ITEM "Percentuale"
|
||||
ITEM "Tipo"
|
||||
ITEM "Pagamento@28"
|
||||
ITEM "Ult.class."
|
||||
ITEM "Tipo pag."
|
||||
ITEM "Ult. classif."
|
||||
ITEM "Descrizione@50"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
@ -260,7 +260,8 @@ BEGIN
|
||||
SHEET "Codice|Tipo pagamento@32"
|
||||
INPUT 103
|
||||
OUTPUT 103
|
||||
OUTPUT 104
|
||||
OUTPUT 105
|
||||
ITEM " |Altro pagamento"
|
||||
ITEM "1|Rimessa diretta o contanti"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
@ -270,29 +271,30 @@ BEGIN
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Rapporti interb. diretti"
|
||||
ITEM "9|Bonifici"
|
||||
ITEM "10|Altro pagamento"
|
||||
END
|
||||
|
||||
STRING 104 28
|
||||
STRING 104 1
|
||||
BEGIN
|
||||
PROMPT 4 9 "Ulteriore classificazione "
|
||||
USE %CLR
|
||||
INPUT CODTAB[1,1] 103 SELECT
|
||||
INPUT CODTAB[2,2] 104
|
||||
DISPLAY "Tipo pagamento" CODTAB[1,1]
|
||||
DISPLAY "Classificazione" CODTAB[2,2]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT 104 CODTAB[2,2]
|
||||
OUTPUT 105 S0
|
||||
VALIDATE NOT_EMPTY_CHECK_FIELD
|
||||
WARNING "Codice ulteriore classificazione errato"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING 105 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 ""
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user