Aggiunti i campi del prezzo lordo, modificate le picture in valuta,
sistemati alcuni campi chiave. git-svn-id: svn://10.65.10.50/trunk@3349 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
54146fcc44
commit
137cfdc0b4
@ -3,6 +3,14 @@
|
||||
|
||||
TOOLBAR "" 0 20 0 3
|
||||
|
||||
// bottone di lancio dell'applicazione delle righe
|
||||
BUTTON BTN_RIGHE 10 1
|
||||
BEGIN
|
||||
PROMPT -16 -3 "Ri~ghe"
|
||||
FLAGS "D"
|
||||
MESSAGE K_F5
|
||||
END
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
@ -37,7 +45,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_L_CATVEN CODTAB
|
||||
OUTPUT F_L_DESVEN S0
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
// campo riservato ai listini
|
||||
@ -73,7 +81,7 @@ BEGIN
|
||||
OUTPUT F_C_TIPOCF TIPOCF
|
||||
OUTPUT F_C_CODCF CODCF
|
||||
OUTPUT F_C_DESCF RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
// campo riservato ai contratti
|
||||
@ -83,15 +91,6 @@ BEGIN
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
// ATTENZIONE: riscontro in fase di test
|
||||
// nel caso si debbano utilizzare, come in questo caso "COD" , piu' campi con
|
||||
// lo stesso riferimento sul file, il cui uso e' controllato dall'applicazione,
|
||||
// e' bene mettere prima i campi NUMBER, poi i campi STRING. Il motivo e' presto detto:
|
||||
// durante la TMask::autosave() i campi vengono scorsi uno ad uno mentre il valore valido e'
|
||||
// pero' uno solo di essi; se un campo numerico vuoto ha posizione successiva al campo
|
||||
// stringa valido, contenente solo caratteri alfanumerici, la reformat() virtuale tronca la
|
||||
// stringa a 0, eseguendo un bel cut(0).
|
||||
// campo riservato ai contratti
|
||||
STRING F_C_COD 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Contratto N. "
|
||||
@ -99,10 +98,10 @@ BEGIN
|
||||
FIELD LF_CONDV->COD
|
||||
KEY 1
|
||||
GROUP 10
|
||||
USE LF_CONDV
|
||||
USE LF_CONDV
|
||||
INPUT TIPO F_TIPO SELECT
|
||||
INPUT TIPOCF F_C_TIPOCF SELECT
|
||||
INPUT CODCF F_C_CODCF SELECT
|
||||
INPUT CODCF F_C_CODCF
|
||||
INPUT COD F_C_COD
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
@ -112,7 +111,7 @@ BEGIN
|
||||
OUTPUT F_C_TIPOCF TIPOCF
|
||||
OUTPUT F_C_CODCF CODCF
|
||||
OUTPUT F_C_COD COD
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
// campo riservato ai listini
|
||||
@ -135,7 +134,7 @@ BEGIN
|
||||
OUTPUT F_TIPO TIPO
|
||||
OUTPUT F_L_CATVEN CATVEN
|
||||
OUTPUT F_L_COD COD
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
// campo riservato alle offerte
|
||||
@ -153,7 +152,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_TIPO TIPO
|
||||
OUTPUT F_O_COD COD
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
@ -175,7 +174,7 @@ BEGIN
|
||||
OUTPUT F_CODVAL CODTAB
|
||||
OUTPUT F_CAMBIO R10
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI
|
||||
MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|CLEAR,F_IMPLORDI
|
||||
MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI
|
||||
END
|
||||
|
||||
@ -242,49 +241,51 @@ END
|
||||
|
||||
LIST F_SEQRIC_1 10
|
||||
BEGIN
|
||||
PROMPT 2 15 "Sequenza ricerca "
|
||||
PROMPT 2 16 "Sequenza ricerca "
|
||||
FIELD LF_CONDV->SEQRIC[1,1]
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gruppo M."
|
||||
ITEM "S|Sottogr.M."
|
||||
ITEM "S|Sottog. M."
|
||||
ITEM "R|Ragg.fisc."
|
||||
END
|
||||
|
||||
LIST F_SEQRIC_2 10
|
||||
BEGIN
|
||||
PROMPT 34 15 ""
|
||||
PROMPT 34 16 ""
|
||||
FIELD LF_CONDV->SEQRIC[2,2]
|
||||
ITEM "-|Nessuno"
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gruppo M."
|
||||
ITEM "S|Sottogr.M."
|
||||
ITEM "R|Ragg.fisc."
|
||||
ITEM "-|Nessuno" MESSAGE CLEAR,5@
|
||||
ITEM "A|Articoli" MESSAGE ENABLE,F_SEQRIC_3
|
||||
ITEM "G|Gruppo M." MESSAGE ENABLE,F_SEQRIC_3
|
||||
ITEM "S|Sottog. M." MESSAGE ENABLE,F_SEQRIC_3
|
||||
ITEM "R|Ragg.fisc." MESSAGE ENABLE,F_SEQRIC_3
|
||||
STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1)
|
||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||
END
|
||||
|
||||
LIST F_SEQRIC_3 10
|
||||
BEGIN
|
||||
PROMPT 49 15 ""
|
||||
PROMPT 49 16 ""
|
||||
FIELD LF_CONDV->SEQRIC[3,3]
|
||||
ITEM "-|Nessuno"
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gruppo M."
|
||||
ITEM "S|Sottogr.M."
|
||||
ITEM "R|Ragg.fisc."
|
||||
ITEM "-|Nessuno" MESSAGE CLEAR,F_SEQRIC_4
|
||||
ITEM "A|Articoli" MESSAGE ENABLE,F_SEQRIC_4
|
||||
ITEM "G|Gruppo M." MESSAGE ENABLE,F_SEQRIC_4
|
||||
ITEM "S|Sottog. M." MESSAGE ENABLE,F_SEQRIC_4
|
||||
ITEM "R|Ragg.fisc." MESSAGE ENABLE,F_SEQRIC_4
|
||||
GROUP 5
|
||||
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2))
|
||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||
END
|
||||
|
||||
LIST F_SEQRIC_4 10
|
||||
BEGIN
|
||||
PROMPT 64 15 ""
|
||||
PROMPT 64 16 ""
|
||||
FIELD LF_CONDV->SEQRIC[4,4]
|
||||
ITEM "-|Nessuno"
|
||||
ITEM "A|Articoli"
|
||||
ITEM "G|Gruppo M."
|
||||
ITEM "S|Sottogr.M."
|
||||
ITEM "S|Sottog. M."
|
||||
ITEM "R|Ragg.fisc."
|
||||
GROUP 5
|
||||
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2)&&(#THIS_FIELD!=#F_SEQRIC_3))
|
||||
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
|
||||
END
|
||||
@ -292,7 +293,7 @@ END
|
||||
// campo riservato ai listini
|
||||
STRING F_L_CODSUCC 3
|
||||
BEGIN
|
||||
PROMPT 2 16 "Listino succ. "
|
||||
PROMPT 2 17 "Listino succ. "
|
||||
FIELD LF_CONDV->CODLISSUCC
|
||||
FLAG "U"
|
||||
USE LF_CONDV
|
||||
@ -312,17 +313,10 @@ END
|
||||
// campo riservato ai listini
|
||||
STRING F_L_DESSUCC 50
|
||||
BEGIN
|
||||
PROMPT 24 16 ""
|
||||
PROMPT 24 17 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
// bottone di lancio dell'applicazione delle righe
|
||||
BUTTON BTN_RIGHE 10 2
|
||||
BEGIN
|
||||
PROMPT 2 -2 "Righe"
|
||||
MESSAGE K_F5
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
|
||||
113
ve/ve2300x.uml
113
ve/ve2300x.uml
@ -68,7 +68,7 @@ BEGIN
|
||||
OUTPUT F_R_C_TIPOCF TIPOCF
|
||||
OUTPUT F_R_C_CODCF CODCF
|
||||
OUTPUT F_R_C_DESCF RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING F_R_C_DESCF 50 // campo riservato ai contratti
|
||||
@ -97,7 +97,7 @@ BEGIN
|
||||
OUTPUT F_R_C_CODCF CODCF
|
||||
OUTPUT F_R_C_COD COD
|
||||
OUTPUT F_R_C_DES DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING F_R_L_COD 3 // campo riservato ai listini
|
||||
@ -117,7 +117,7 @@ BEGIN
|
||||
OUTPUT F_R_L_CATVEN CATVEN
|
||||
OUTPUT F_R_L_COD COD
|
||||
OUTPUT F_R_L_DES DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING F_R_L_DES 50 // campo riservato ai contratti
|
||||
@ -146,7 +146,7 @@ BEGIN
|
||||
OUTPUT F_R_TIPO TIPO
|
||||
OUTPUT F_R_O_COD COD
|
||||
OUTPUT F_R_O_DES DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING F_R_O_DES 50 // campo riservato alle offerte
|
||||
@ -179,7 +179,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_R_CODRIGA_A CODART
|
||||
OUTPUT F_R_DESRIGA_A DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING F_R_DESRIGA_A 50
|
||||
@ -200,7 +200,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_CODRIGA_G CODTAB[1,3]
|
||||
OUTPUT F_R_DESRIGA_G S0
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
MESSAGE COPY,F_R_CODRIGA_A
|
||||
END
|
||||
|
||||
@ -223,7 +223,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_CODRIGA_S CODTAB
|
||||
OUTPUT F_R_DESRIGA_S S0
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
MESSAGE COPY,F_R_CODRIGA_A
|
||||
END
|
||||
|
||||
@ -245,7 +245,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_CODRIGA_R CODTAB
|
||||
OUTPUT F_R_DESRIGA_R S0
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
MESSAGE COPY,F_R_CODRIGA_A
|
||||
END
|
||||
|
||||
@ -255,7 +255,7 @@ BEGIN
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_R_NSCAGL 1
|
||||
NUMBER F_R_NSCAGL 1
|
||||
BEGIN
|
||||
PROMPT 2 7 "N.ro scaglione "
|
||||
FIELD LF_RCONDV->NSCAGL
|
||||
@ -274,9 +274,9 @@ BEGIN
|
||||
INPUT CODART F_R_CODRIGA_A SELECT
|
||||
INPUT UM F_R_UM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Desccrizione@50" %UMS->S0
|
||||
DISPLAY "Descrizione@50" %UMS->S0
|
||||
OUTPUT F_R_UM UM
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE FORCED
|
||||
END
|
||||
|
||||
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
|
||||
@ -357,38 +357,44 @@ BEGIN
|
||||
FIELD LF_RCONDV->QLIM
|
||||
END
|
||||
|
||||
NUMBER F_R_PREZZO 18 2
|
||||
NUMBER F_R_PREZZO 15
|
||||
BEGIN
|
||||
PROMPT 2 10 "Prezzo "
|
||||
PROMPT 2 10 "Prezzo netto "
|
||||
FIELD LF_RCONDV->PREZZO
|
||||
PICTURE "###.###.###.###"
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_R_PREZZO_VAL 15
|
||||
BEGIN
|
||||
PROMPT 2 10 "Prezzo netto "
|
||||
FIELD LF_RCONDV->PREZZO
|
||||
PICTURE "###.###.###,@@@"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_R_PREZZO_LORDO 15
|
||||
BEGIN
|
||||
PROMPT 46 10 "Prezzo lordo "
|
||||
PICTURE "###.###.###.###"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_R_PREZZO_LORDO_VAL 15
|
||||
BEGIN
|
||||
PROMPT 46 10 "Prezzo lordo "
|
||||
PICTURE "###.###.###,@@@"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_R_SCONTO 25
|
||||
BEGIN
|
||||
PROMPT 35 10 "Sconto "
|
||||
PROMPT 2 11 "Sconto "
|
||||
FIELD LF_RCONDV->SCONTO
|
||||
FLAG "U"
|
||||
END
|
||||
|
||||
BOOLEAN F_R_ADDIVA
|
||||
BEGIN
|
||||
PROMPT 2 11 "Addebito IVA"
|
||||
FIELD LF_RCONDV->ADDIVA
|
||||
END
|
||||
|
||||
STRING F_R_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 31 11 "Codice IVA "
|
||||
FIELD LF_RCONDV->CODIVA
|
||||
FLAG "U"
|
||||
USE %IVA
|
||||
INPUT CODTAB F_R_CODIVA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_CODIVA CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_R_PERCPROVV 5 2
|
||||
BEGIN
|
||||
PROMPT 2 12 "Provvigione % "
|
||||
@ -397,15 +403,37 @@ BEGIN
|
||||
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
||||
END
|
||||
|
||||
BOOLEAN F_R_ADDIVA
|
||||
BEGIN
|
||||
PROMPT 2 13 "Addebito IVA"
|
||||
FIELD LF_RCONDV->ADDIVA
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_R_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 53 13 "Codice IVA "
|
||||
FIELD LF_RCONDV->CODIVA
|
||||
FLAG "U"
|
||||
USE %IVA
|
||||
INPUT CODTAB F_R_CODIVA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_R_CODIVA CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_R_QOM 15 5
|
||||
BEGIN
|
||||
PROMPT 2 13 "Q.ta' sconto/omaggio "
|
||||
PROMPT 2 14 "Q.ta' sconto/omaggio "
|
||||
FIELD LF_RCONDV->QOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_R_UMOM 2
|
||||
BEGIN
|
||||
PROMPT 47 13 "U.M. q.ta' omaggio "
|
||||
PROMPT 47 14 "U.M. q.ta' omaggio "
|
||||
FIELD LF_RCONDV->UMOM
|
||||
FLAG "U"
|
||||
USE LF_UMART KEY 2
|
||||
@ -413,19 +441,20 @@ BEGIN
|
||||
INPUT CODART F_R_CODARTOM SELECT
|
||||
INPUT UM F_R_UMOM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Desccrizione@50" %UMS->S0
|
||||
DISPLAY "Descrizione@50" %UMS->S0
|
||||
OUTPUT F_R_UMOM UM
|
||||
END
|
||||
|
||||
NUMBER F_R_QBASE 15 5
|
||||
BEGIN
|
||||
PROMPT 2 14 "Q.ta' base sconto "
|
||||
PROMPT 2 15 "Q.ta' base sconto "
|
||||
FIELD LF_RCONDV->QBASE
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_R_CODARTOM 20
|
||||
BEGIN
|
||||
PROMPT 2 15 "Codice art. omaggio "
|
||||
PROMPT 2 16 "Codice art. omaggio "
|
||||
FIELD LF_RCONDV->CODARTOM
|
||||
FLAG "U"
|
||||
USE LF_ANAMAG
|
||||
@ -434,24 +463,26 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_R_CODARTOM CODART
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_R_PROMAGGIO 18 2
|
||||
BEGIN
|
||||
PROMPT 2 16 "Prezzo omaggio "
|
||||
PROMPT 2 17 "Prezzo omaggio "
|
||||
FIELD LF_RCONDV->PROMAGGIO
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
//STRINF F_R_CO_CODLOTTO 6
|
||||
//BEGIN
|
||||
//PROMPT 2 17 "Codice lotto "
|
||||
//PROMPT 2 18 "Codice lotto "
|
||||
//FIELD LF_RCONDV->CODLOTTO
|
||||
//FLAG "U"
|
||||
//END
|
||||
|
||||
BOOLEAN F_R_O_ARTES
|
||||
BEGIN
|
||||
PROMPT 47 17 "Art. in esaurimento"
|
||||
PROMPT 47 18 "Art. in esaurimento"
|
||||
FIELD LF_RCONDV->ARTES
|
||||
END
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user