root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Aggiunti i campi del prezzo lordo, modificate le picture in valuta,

Browse Source 
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 1996-08-08 17:20:18 +00:00
parent 54146fcc44
commit 137cfdc0b4
2 changed files with 108 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
ve/ve2200x.uml
View File

@ -3,6 +3,14 @@
TOOLBAR "" 0 20 0 3 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> #include <toolbar.h>
ENDPAGE ENDPAGE
@ -37,7 +45,7 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_L_CATVEN CODTAB OUTPUT F_L_CATVEN CODTAB
OUTPUT F_L_DESVEN S0 OUTPUT F_L_DESVEN S0
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
// campo riservato ai listini // campo riservato ai listini
@ -73,7 +81,7 @@ BEGIN
OUTPUT F_C_TIPOCF TIPOCF OUTPUT F_C_TIPOCF TIPOCF
OUTPUT F_C_CODCF CODCF OUTPUT F_C_CODCF CODCF
OUTPUT F_C_DESCF RAGSOC OUTPUT F_C_DESCF RAGSOC
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
// campo riservato ai contratti // campo riservato ai contratti
@ -83,15 +91,6 @@ BEGIN
FLAG "D" FLAG "D"
END 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 STRING F_C_COD 3
BEGIN BEGIN
PROMPT 2 4 "Contratto N. " PROMPT 2 4 "Contratto N. "
@ -99,10 +98,10 @@ BEGIN
FIELD LF_CONDV->COD FIELD LF_CONDV->COD
KEY 1 KEY 1
GROUP 10 GROUP 10
USE LF_CONDV USE LF_CONDV
INPUT TIPO F_TIPO SELECT INPUT TIPO F_TIPO SELECT
INPUT TIPOCF F_C_TIPOCF SELECT INPUT TIPOCF F_C_TIPOCF SELECT
INPUT CODCF F_C_CODCF SELECT INPUT CODCF F_C_CODCF
INPUT COD F_C_COD INPUT COD F_C_COD
DISPLAY "C/F" TIPOCF DISPLAY "C/F" TIPOCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
@ -112,7 +111,7 @@ BEGIN
OUTPUT F_C_TIPOCF TIPOCF OUTPUT F_C_TIPOCF TIPOCF
OUTPUT F_C_CODCF CODCF OUTPUT F_C_CODCF CODCF
OUTPUT F_C_COD COD OUTPUT F_C_COD COD
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
// campo riservato ai listini // campo riservato ai listini
@ -135,7 +134,7 @@ BEGIN
OUTPUT F_TIPO TIPO OUTPUT F_TIPO TIPO
OUTPUT F_L_CATVEN CATVEN OUTPUT F_L_CATVEN CATVEN
OUTPUT F_L_COD COD OUTPUT F_L_COD COD
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
// campo riservato alle offerte // campo riservato alle offerte
@ -153,7 +152,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_TIPO TIPO OUTPUT F_TIPO TIPO
OUTPUT F_O_COD COD OUTPUT F_O_COD COD
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
STRING F_DESCR 50 STRING F_DESCR 50
@ -175,7 +174,7 @@ BEGIN
OUTPUT F_CODVAL CODTAB OUTPUT F_CODVAL CODTAB
OUTPUT F_CAMBIO R10 OUTPUT F_CAMBIO R10
CHECKTYPE NORMAL 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 MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI
END END
@ -242,49 +241,51 @@ END
LIST F_SEQRIC_1 10 LIST F_SEQRIC_1 10
BEGIN BEGIN
PROMPT 2 15 "Sequenza ricerca " PROMPT 2 16 "Sequenza ricerca "
FIELD LF_CONDV->SEQRIC[1,1] FIELD LF_CONDV->SEQRIC[1,1]
ITEM "A|Articoli" ITEM "A|Articoli"
ITEM "G|Gruppo M." ITEM "G|Gruppo M."
ITEM "S|Sottogr.M." ITEM "S|Sottog. M."
ITEM "R|Ragg.fisc." ITEM "R|Ragg.fisc."
END END
LIST F_SEQRIC_2 10 LIST F_SEQRIC_2 10
BEGIN BEGIN
PROMPT 34 15 "" PROMPT 34 16 ""
FIELD LF_CONDV->SEQRIC[2,2] FIELD LF_CONDV->SEQRIC[2,2]
ITEM "-|Nessuno" ITEM "-|Nessuno" MESSAGE CLEAR,5@
ITEM "A|Articoli" ITEM "A|Articoli" MESSAGE ENABLE,F_SEQRIC_3
ITEM "G|Gruppo M." ITEM "G|Gruppo M." MESSAGE ENABLE,F_SEQRIC_3
ITEM "S|Sottogr.M." ITEM "S|Sottog. M." MESSAGE ENABLE,F_SEQRIC_3
ITEM "R|Ragg.fisc." ITEM "R|Ragg.fisc." MESSAGE ENABLE,F_SEQRIC_3
STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1) STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1)
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe" WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END END
LIST F_SEQRIC_3 10 LIST F_SEQRIC_3 10
BEGIN BEGIN
PROMPT 49 15 "" PROMPT 49 16 ""
FIELD LF_CONDV->SEQRIC[3,3] FIELD LF_CONDV->SEQRIC[3,3]
ITEM "-|Nessuno" ITEM "-|Nessuno" MESSAGE CLEAR,F_SEQRIC_4
ITEM "A|Articoli" ITEM "A|Articoli" MESSAGE ENABLE,F_SEQRIC_4
ITEM "G|Gruppo M." ITEM "G|Gruppo M." MESSAGE ENABLE,F_SEQRIC_4
ITEM "S|Sottogr.M." ITEM "S|Sottog. M." MESSAGE ENABLE,F_SEQRIC_4
ITEM "R|Ragg.fisc." 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)) 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" WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END END
LIST F_SEQRIC_4 10 LIST F_SEQRIC_4 10
BEGIN BEGIN
PROMPT 64 15 "" PROMPT 64 16 ""
FIELD LF_CONDV->SEQRIC[4,4] FIELD LF_CONDV->SEQRIC[4,4]
ITEM "-|Nessuno" ITEM "-|Nessuno"
ITEM "A|Articoli" ITEM "A|Articoli"
ITEM "G|Gruppo M." ITEM "G|Gruppo M."
ITEM "S|Sottogr.M." ITEM "S|Sottog. M."
ITEM "R|Ragg.fisc." 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)) 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" WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END END
@ -292,7 +293,7 @@ END
// campo riservato ai listini // campo riservato ai listini
STRING F_L_CODSUCC 3 STRING F_L_CODSUCC 3
BEGIN BEGIN
PROMPT 2 16 "Listino succ. " PROMPT 2 17 "Listino succ. "
FIELD LF_CONDV->CODLISSUCC FIELD LF_CONDV->CODLISSUCC
FLAG "U" FLAG "U"
USE LF_CONDV USE LF_CONDV
@ -312,17 +313,10 @@ END
// campo riservato ai listini // campo riservato ai listini
STRING F_L_DESSUCC 50 STRING F_L_DESSUCC 50
BEGIN BEGIN
PROMPT 24 16 "" PROMPT 24 17 ""
FLAG "D" FLAG "D"
END END
// bottone di lancio dell'applicazione delle righe
BUTTON BTN_RIGHE 10 2
BEGIN
PROMPT 2 -2 "Righe"
MESSAGE K_F5
END
ENDPAGE ENDPAGE

113
ve/ve2300x.uml
View File

@ -68,7 +68,7 @@ BEGIN
OUTPUT F_R_C_TIPOCF TIPOCF OUTPUT F_R_C_TIPOCF TIPOCF
OUTPUT F_R_C_CODCF CODCF OUTPUT F_R_C_CODCF CODCF
OUTPUT F_R_C_DESCF RAGSOC OUTPUT F_R_C_DESCF RAGSOC
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
STRING F_R_C_DESCF 50 // campo riservato ai contratti 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_CODCF CODCF
OUTPUT F_R_C_COD COD OUTPUT F_R_C_COD COD
OUTPUT F_R_C_DES DESCR OUTPUT F_R_C_DES DESCR
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
STRING F_R_L_COD 3 // campo riservato ai listini 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_CATVEN CATVEN
OUTPUT F_R_L_COD COD OUTPUT F_R_L_COD COD
OUTPUT F_R_L_DES DESCR OUTPUT F_R_L_DES DESCR
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
STRING F_R_L_DES 50 // campo riservato ai contratti STRING F_R_L_DES 50 // campo riservato ai contratti
@ -146,7 +146,7 @@ BEGIN
OUTPUT F_R_TIPO TIPO OUTPUT F_R_TIPO TIPO
OUTPUT F_R_O_COD COD OUTPUT F_R_O_COD COD
OUTPUT F_R_O_DES DESCR OUTPUT F_R_O_DES DESCR
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
STRING F_R_O_DES 50 // campo riservato alle offerte STRING F_R_O_DES 50 // campo riservato alle offerte
@ -179,7 +179,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_R_CODRIGA_A CODART OUTPUT F_R_CODRIGA_A CODART
OUTPUT F_R_DESRIGA_A DESCR OUTPUT F_R_DESRIGA_A DESCR
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
STRING F_R_DESRIGA_A 50 STRING F_R_DESRIGA_A 50
@ -200,7 +200,7 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_G CODTAB[1,3] OUTPUT F_R_CODRIGA_G CODTAB[1,3]
OUTPUT F_R_DESRIGA_G S0 OUTPUT F_R_DESRIGA_G S0
CHECKTYPE REQUIRED CHECKTYPE FORCED
MESSAGE COPY,F_R_CODRIGA_A MESSAGE COPY,F_R_CODRIGA_A
END END
@ -223,7 +223,7 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_S CODTAB OUTPUT F_R_CODRIGA_S CODTAB
OUTPUT F_R_DESRIGA_S S0 OUTPUT F_R_DESRIGA_S S0
CHECKTYPE REQUIRED CHECKTYPE FORCED
MESSAGE COPY,F_R_CODRIGA_A MESSAGE COPY,F_R_CODRIGA_A
END END
@ -245,7 +245,7 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_R CODTAB OUTPUT F_R_CODRIGA_R CODTAB
OUTPUT F_R_DESRIGA_R S0 OUTPUT F_R_DESRIGA_R S0
CHECKTYPE REQUIRED CHECKTYPE FORCED
MESSAGE COPY,F_R_CODRIGA_A MESSAGE COPY,F_R_CODRIGA_A
END END
@ -255,7 +255,7 @@ BEGIN
FLAG "D" FLAG "D"
END END
STRING F_R_NSCAGL 1 NUMBER F_R_NSCAGL 1
BEGIN BEGIN
PROMPT 2 7 "N.ro scaglione " PROMPT 2 7 "N.ro scaglione "
FIELD LF_RCONDV->NSCAGL FIELD LF_RCONDV->NSCAGL
@ -274,9 +274,9 @@ BEGIN
INPUT CODART F_R_CODRIGA_A SELECT INPUT CODART F_R_CODRIGA_A SELECT
INPUT UM F_R_UM INPUT UM F_R_UM
DISPLAY "U.M." UM DISPLAY "U.M." UM
DISPLAY "Desccrizione@50" %UMS->S0 DISPLAY "Descrizione@50" %UMS->S0
OUTPUT F_R_UM UM OUTPUT F_R_UM UM
CHECKTYPE REQUIRED CHECKTYPE FORCED
END END
STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto STRING F_R_L_RICERCA 1 // campo di aggancio per la ricerca sui listini, nascosto
@ -357,38 +357,44 @@ BEGIN
FIELD LF_RCONDV->QLIM FIELD LF_RCONDV->QLIM
END END
NUMBER F_R_PREZZO 18 2 NUMBER F_R_PREZZO 15
BEGIN BEGIN
PROMPT 2 10 "Prezzo " PROMPT 2 10 "Prezzo netto "
FIELD LF_RCONDV->PREZZO 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 END
STRING F_R_SCONTO 25 STRING F_R_SCONTO 25
BEGIN BEGIN
PROMPT 35 10 "Sconto " PROMPT 2 11 "Sconto "
FIELD LF_RCONDV->SCONTO FIELD LF_RCONDV->SCONTO
FLAG "U" FLAG "U"
END 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 NUMBER F_R_PERCPROVV 5 2
BEGIN BEGIN
PROMPT 2 12 "Provvigione % " PROMPT 2 12 "Provvigione % "
@ -397,15 +403,37 @@ BEGIN
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100" WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
END 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 NUMBER F_R_QOM 15 5
BEGIN BEGIN
PROMPT 2 13 "Q.ta' sconto/omaggio " PROMPT 2 14 "Q.ta' sconto/omaggio "
FIELD LF_RCONDV->QOM FIELD LF_RCONDV->QOM
GROUP 1
END END
STRING F_R_UMOM 2 STRING F_R_UMOM 2
BEGIN BEGIN
PROMPT 47 13 "U.M. q.ta' omaggio " PROMPT 47 14 "U.M. q.ta' omaggio "
FIELD LF_RCONDV->UMOM FIELD LF_RCONDV->UMOM
FLAG "U" FLAG "U"
USE LF_UMART KEY 2 USE LF_UMART KEY 2
@ -413,19 +441,20 @@ BEGIN
INPUT CODART F_R_CODARTOM SELECT INPUT CODART F_R_CODARTOM SELECT
INPUT UM F_R_UMOM INPUT UM F_R_UMOM
DISPLAY "U.M." UM DISPLAY "U.M." UM
DISPLAY "Desccrizione@50" %UMS->S0 DISPLAY "Descrizione@50" %UMS->S0
OUTPUT F_R_UMOM UM OUTPUT F_R_UMOM UM
END END
NUMBER F_R_QBASE 15 5 NUMBER F_R_QBASE 15 5
BEGIN BEGIN
PROMPT 2 14 "Q.ta' base sconto " PROMPT 2 15 "Q.ta' base sconto "
FIELD LF_RCONDV->QBASE FIELD LF_RCONDV->QBASE
GROUP 1
END END
STRING F_R_CODARTOM 20 STRING F_R_CODARTOM 20
BEGIN BEGIN
PROMPT 2 15 "Codice art. omaggio " PROMPT 2 16 "Codice art. omaggio "
FIELD LF_RCONDV->CODARTOM FIELD LF_RCONDV->CODARTOM
FLAG "U" FLAG "U"
USE LF_ANAMAG USE LF_ANAMAG
@ -434,24 +463,26 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_R_CODARTOM CODART OUTPUT F_R_CODARTOM CODART
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP 1
END END
NUMBER F_R_PROMAGGIO 18 2 NUMBER F_R_PROMAGGIO 18 2
BEGIN BEGIN
PROMPT 2 16 "Prezzo omaggio " PROMPT 2 17 "Prezzo omaggio "
FIELD LF_RCONDV->PROMAGGIO FIELD LF_RCONDV->PROMAGGIO
GROUP 1
END END
//STRINF F_R_CO_CODLOTTO 6 //STRINF F_R_CO_CODLOTTO 6
//BEGIN //BEGIN
//PROMPT 2 17 "Codice lotto " //PROMPT 2 18 "Codice lotto "
//FIELD LF_RCONDV->CODLOTTO //FIELD LF_RCONDV->CODLOTTO
//FLAG "U" //FLAG "U"
//END //END
BOOLEAN F_R_O_ARTES BOOLEAN F_R_O_ARTES
BEGIN BEGIN
PROMPT 47 17 "Art. in esaurimento" PROMPT 47 18 "Art. in esaurimento"
FIELD LF_RCONDV->ARTES FIELD LF_RCONDV->ARTES
END END