9da797d43f
Files correlati : ve0.exe ve0100n.msk vetbnar.msk Ricompilazione Demo : [ ] Commento : Aggiunto supporto per note articolo git-svn-id: svn://10.65.10.50/branches/R_10_00@21650 c028cbd2-c16b-5b4b-a496-9718f37d4682
143 lines
2.4 KiB
Plaintext
Executable File
143 lines
2.4 KiB
Plaintext
Executable File
#include "vetbnar.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <relapbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Note articoli " 0 2 0 0
|
|
|
|
NUMBER F_CODICE 6
|
|
BEGIN
|
|
PROMPT 1 1 "Codice nota "
|
|
FLAGS "Z"
|
|
USE NAR
|
|
INPUT CODTAB F_CODICE
|
|
DISPLAY "Codice@6" CODTAB
|
|
DISPLAY "C/F" S0[1,1]
|
|
DISPLAY "Codice" S0[2,7]
|
|
DISPLAY "Tipo" S0[8,11]
|
|
DISPLAY "Articolo@20" S0[12,31]
|
|
DISPLAY "Note@50" S1
|
|
OUTPUT F_CODICE CODTAB
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODTAB
|
|
KEY 1
|
|
END
|
|
|
|
LIST F_TIPOCF 1 10
|
|
BEGIN
|
|
PROMPT 1 3 ""
|
|
ITEM "|" MESSAGE CLEAR, F_CLIFO|CLEAR, F_RAGSOC
|
|
ITEM "C|Cliente" MESSAGE ENABLE,F_CLIFO|ENABLE,F_RAGSOC
|
|
ITEM "F|Fornitore" MESSAGE ENABLE,F_CLIFO|ENABLE,F_RAGSOC
|
|
FIELD S0[1,1]
|
|
END
|
|
|
|
NUMBER F_CLIFO 6
|
|
BEGIN
|
|
PROMPT 15 3 ""
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CLIFO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CLIFO CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
FIELD S0[2,7]
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRINGA F_TIPO 4
|
|
BEGIN
|
|
PROMPT 1 5 "Tipo documento "
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPO CODTAB
|
|
OUTPUT F_DESCTIPO S0
|
|
CHECKTYPE NORMAL
|
|
FIELD S0[8,11]
|
|
END
|
|
|
|
STRING F_ARTICOLO 20
|
|
BEGIN
|
|
PROMPT 1 7 "Articolo "
|
|
FIELD S0[12,31]
|
|
USE ANAMAG
|
|
INPUT CODART F_ARTICOLO
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ARTICOLO CODART
|
|
OUTPUT F_DESCART DESCR
|
|
CHECKTYPE NORMAL
|
|
VALIDATE ONEREQ_FUNC 3 F_CLIFO F_TIPO F_ARTICOLO
|
|
WARNING "Inserire almeno un dato a scelta tra: codice cliente/fornitore; tipo documento; codice articolo"
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 26 3 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CLIFO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCTIPO 50
|
|
BEGIN
|
|
PROMPT 26 5 ""
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESCTIPO
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCART 50
|
|
BEGIN
|
|
PROMPT 15 8 ""
|
|
USE ANAMAG KEY 2
|
|
INPUT DESCR F_DESCART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT F_ARTICOLO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 10 "@bNote"
|
|
END
|
|
|
|
STRING F_DESCR1 50
|
|
BEGIN
|
|
PROMPT 15 11 ""
|
|
FIELD S1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCR2 50
|
|
BEGIN
|
|
PROMPT 15 12 ""
|
|
FIELD S2
|
|
END
|
|
|
|
STRING F_DESCR3 50
|
|
BEGIN
|
|
PROMPT 15 13 ""
|
|
FIELD S3
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|