328 lines
6.4 KiB
Plaintext
Executable File
328 lines
6.4 KiB
Plaintext
Executable File
#include <lffiles.h>
|
|
#include "ve2200x.h"
|
|
|
|
TOOLBAR "" 0 20 0 3
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Cond. di vendita" 0 0 70 20
|
|
|
|
GROUPBOX DLG_NULL 75 8
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAG "R"
|
|
END
|
|
|
|
STRING F_TIPO 1
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
FIELD LF_CONDV->TIPO
|
|
FLAG "DUP"
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
// campo riservato ai listini
|
|
STRING F_L_CATVEN 2
|
|
BEGIN
|
|
PROMPT 2 2 "Cat. vendita "
|
|
FIELD LF_CONDV->CATVEN
|
|
FLAG "U"
|
|
KEY 1
|
|
USE %CVE
|
|
INPUT CODTAB F_L_CATVEN
|
|
DISPLAY "Cat." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_L_CATVEN CODTAB
|
|
OUTPUT F_L_DESVEN S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
// campo riservato ai listini
|
|
STRING F_L_DESVEN 50
|
|
BEGIN
|
|
PROMPT 22 2 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
// campo riservato ai contratti
|
|
LIST F_C_TIPOCF 10
|
|
BEGIN
|
|
PROMPT 2 2 "Tipo "
|
|
FIELD LF_CONDV->TIPOCF
|
|
KEY 1
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
END
|
|
|
|
// campo riservato ai contratti
|
|
STRING F_C_CODCF 6
|
|
BEGIN
|
|
PROMPT 2 3 "Codice "
|
|
FIELD LF_CONDV->CODCF
|
|
FLAG "U"
|
|
KEY 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_C_TIPOCF SELECT
|
|
INPUT CODCF F_C_CODCF
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_C_TIPOCF TIPOCF
|
|
OUTPUT F_C_CODCF CODCF
|
|
OUTPUT F_C_DESCF RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
// campo riservato ai contratti
|
|
STRING F_C_DESCF 50
|
|
BEGIN
|
|
PROMPT 22 3 ""
|
|
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
|
|
NUMBER F_C_COD 3
|
|
BEGIN
|
|
PROMPT 2 4 "Contratto N. "
|
|
FIELD LF_CONDV->COD
|
|
KEY 1
|
|
GROUP 10
|
|
USE LF_CONDV
|
|
INPUT TIPO F_TIPO SELECT
|
|
INPUT TIPOCF F_C_TIPOCF SELECT
|
|
INPUT CODCF F_C_CODCF SELECT
|
|
INPUT COD F_C_COD
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Numero" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_TIPO TIPO
|
|
OUTPUT F_C_TIPOCF TIPOCF
|
|
OUTPUT F_C_CODCF CODCF
|
|
OUTPUT F_C_COD COD
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
// campo riservato ai listini
|
|
STRING F_L_COD 3
|
|
BEGIN
|
|
PROMPT 2 4 "Cod. listino "
|
|
FIELD LF_CONDV->COD
|
|
FLAG "U"
|
|
GROUP 10
|
|
KEY 1
|
|
USE LF_CONDV
|
|
INPUT TIPO F_TIPO SELECT
|
|
INPUT CATVEN F_L_CATVEN SELECT
|
|
INPUT COD F_L_COD
|
|
DISPLAY "C.V." CATVEN
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Valuta" CODVAL
|
|
DISPLAY "Fine validita'" VALFIN
|
|
OUTPUT F_TIPO TIPO
|
|
OUTPUT F_L_CATVEN CATVEN
|
|
OUTPUT F_L_COD COD
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
// campo riservato alle offerte
|
|
STRING F_O_COD 3
|
|
BEGIN
|
|
PROMPT 2 3 "Cod. offerta "
|
|
FIELD LF_CONDV->COD
|
|
FLAG "U"
|
|
GROUP 10
|
|
KEY 1
|
|
USE LF_CONDV
|
|
INPUT TIPO F_TIPO SELECT
|
|
INPUT COD F_O_COD
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_TIPO TIPO
|
|
OUTPUT F_O_COD COD
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 5 "Descrizione "
|
|
FIELD LF_CONDV->DESCR
|
|
END
|
|
|
|
STRING F_CODVAL 5
|
|
BEGIN
|
|
PROMPT 2 8 "Valuta "
|
|
FIELD LF_CONDV->CODVAL
|
|
FLAG "U"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Valuta" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Cambio" R10
|
|
OUTPUT F_CODVAL CODTAB
|
|
OUTPUT F_CAMBIO R10
|
|
CHECKTYPE NORMAL
|
|
MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI
|
|
MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI
|
|
END
|
|
|
|
NUMBER F_CAMBIO 15 5
|
|
BEGIN
|
|
PROMPT 21 8 "Cambio "
|
|
FIELD LF_CONDV->CAMBIO
|
|
END
|
|
|
|
DATA F_DATACAM
|
|
BEGIN
|
|
PROMPT 49 8 "Data "
|
|
FIELD LF_CONDV->DATACAM
|
|
END
|
|
|
|
DATA F_VALIN
|
|
BEGIN
|
|
PROMPT 2 10 "Inizio validita` "
|
|
FIELD LF_CONDV->VALIN
|
|
END
|
|
|
|
DATA F_VALFIN
|
|
BEGIN
|
|
PROMPT 39 10 "Fine validita` "
|
|
FIELD LF_CONDV->VALFIN
|
|
END
|
|
|
|
BOOLEAN F_IMPLORDI
|
|
BEGIN
|
|
PROMPT 2 12 "Importi lordi"
|
|
FIELD LF_CONDV->IMPLORDI
|
|
END
|
|
|
|
BOOLEAN F_GESTUM
|
|
BEGIN
|
|
PROMPT 34 12 "Gestione unita` di misura"
|
|
FIELD LF_CONDV->GESTUM
|
|
END
|
|
|
|
BOOLEAN F_GESTSCAGL
|
|
BEGIN
|
|
PROMPT 2 13 "Gestione scaglioni"
|
|
FIELD LF_CONDV->GESTSCAGL
|
|
END
|
|
|
|
BOOLEAN F_GESTSCO
|
|
BEGIN
|
|
PROMPT 34 13 "Gestione sconti/omaggi"
|
|
FIELD LF_CONDV->GESTSCO
|
|
END
|
|
|
|
BOOLEAN F_SCONST
|
|
BEGIN
|
|
PROMPT 2 14 "Gestione sconti standard"
|
|
FIELD LF_CONDV->SCONST
|
|
END
|
|
|
|
// campo riservato ai contratti
|
|
BOOLEAN F_C_OBBLIG
|
|
BEGIN
|
|
PROMPT 34 14 "Contratto obbligatorio"
|
|
FIELD LF_CONDV->OBBLIG
|
|
END
|
|
|
|
LIST F_SEQRIC_1 10
|
|
BEGIN
|
|
PROMPT 2 15 "Sequenza ricerca "
|
|
FIELD LF_CONDV->SEQRIC[1,1]
|
|
ITEM "A|Articoli"
|
|
ITEM "G|Gruppo M."
|
|
ITEM "S|Sottogr.M."
|
|
ITEM "R|Ragg.fisc."
|
|
END
|
|
|
|
LIST F_SEQRIC_2 10
|
|
BEGIN
|
|
PROMPT 34 15 ""
|
|
FIELD LF_CONDV->SEQRIC[2,2]
|
|
ITEM "-|Nessuno"
|
|
ITEM "A|Articoli"
|
|
ITEM "G|Gruppo M."
|
|
ITEM "S|Sottogr.M."
|
|
ITEM "R|Ragg.fisc."
|
|
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 ""
|
|
FIELD LF_CONDV->SEQRIC[3,3]
|
|
ITEM "-|Nessuno"
|
|
ITEM "A|Articoli"
|
|
ITEM "G|Gruppo M."
|
|
ITEM "S|Sottogr.M."
|
|
ITEM "R|Ragg.fisc."
|
|
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 ""
|
|
FIELD LF_CONDV->SEQRIC[4,4]
|
|
ITEM "-|Nessuno"
|
|
ITEM "A|Articoli"
|
|
ITEM "G|Gruppo M."
|
|
ITEM "S|Sottogr.M."
|
|
ITEM "R|Ragg.fisc."
|
|
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
|
|
|
|
// campo riservato ai listini
|
|
STRING F_L_CODSUCC 3
|
|
BEGIN
|
|
PROMPT 2 16 "Listino succ. "
|
|
FIELD LF_CONDV->CODLISSUCC
|
|
FLAG "U"
|
|
USE LF_CONDV
|
|
INPUT TIPO F_TIPO SELECT
|
|
INPUT CATVEN F_L_CATVEN SELECT
|
|
//INPUT TIPOCF F_C_TIPOCF SELECT
|
|
//INPUT CODCF F_C_CODCF SELECT
|
|
INPUT COD F_L_CODSUCC
|
|
DISPLAY "C.V." CATVEN
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_L_CODSUCC COD
|
|
OUTPUT F_L_DESSUCC DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
// campo riservato ai listini
|
|
STRING F_L_DESSUCC 50
|
|
BEGIN
|
|
PROMPT 24 16 ""
|
|
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
|
|
|
|
|