33aeede24e
Files correlati : pd0610 pd0610a.msk Ricompilazione Demo : [ ] Commento : Piccole correzioni git-svn-id: svn://10.65.10.50/branches/R_10_00@21549 c028cbd2-c16b-5b4b-a496-9718f37d4682
168 lines
2.7 KiB
Plaintext
Executable File
168 lines
2.7 KiB
Plaintext
Executable File
#include "pd0610100a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_SAVEREC
|
|
BEGIN
|
|
PROMPT 1 1 "Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL
|
|
BEGIN
|
|
PROMPT 1 1 "Annulla"
|
|
PICTURE TOOL_CANCEL
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Clienti/Articoli/Fornitori" -1 -1 80 20
|
|
|
|
NUMBER F_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 2 1 "Cod. cliente "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT CODCF F_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT F_CLIENTE CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
FLAGS "Z"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 25 1 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CLIENTE
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
SPREADSHEET F_SHEET 80 10
|
|
BEGIN
|
|
PROMPT 2 3 "Articoli/Fornitori"
|
|
ITEM "Cliente@6"
|
|
ITEM "Cod.articolo@20"
|
|
ITEM "Descrizione@45"
|
|
ITEM "Fornitore 1"
|
|
ITEM "Ragione sociale@45"
|
|
ITEM "Fornitore 2"
|
|
ITEM "Ragione sociale@45"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Articoli/Fornitori" -1 -1 80 18
|
|
|
|
NUMBER S_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 2 2 ""
|
|
FLAGS "ZD"
|
|
END
|
|
|
|
STRING S_ARTICOLO 20
|
|
BEGIN
|
|
PROMPT 2 3 "Cod. art. "
|
|
FLAG "UG"
|
|
USE LF_ANAMAG
|
|
INPUT CODART S_ARTICOLO
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@45" DESCR
|
|
OUTPUT S_ARTICOLO CODART
|
|
OUTPUT S_DESART DESCR
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING S_DESART 50 45
|
|
BEGIN
|
|
PROMPT 2 4 "Des. art. "
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR S_DESART
|
|
DISPLAY "Descrizione@45" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT S_ARTICOLO
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER S_FORN1 6
|
|
BEGIN
|
|
PROMPT 2 5 "Fornit. 1 "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT CODCF S_FORN1
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT S_FORN1 CODCF
|
|
OUTPUT S_RAGSOC1 RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING S_RAGSOC1 50 45
|
|
BEGIN
|
|
PROMPT 25 5 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT RAGSOC S_RAGSOC1
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT S_FORN1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER S_FORN2 6
|
|
BEGIN
|
|
PROMPT 2 6 "Fornit. 2 "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT CODCF S_FORN2
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT S_FORN2 CODCF
|
|
OUTPUT S_RAGSOC2 RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING S_RAGSOC2 50 45
|
|
BEGIN
|
|
PROMPT 25 6 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT RAGSOC S_RAGSOC2
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT S_FORN2
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 3 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |