127 lines
2.2 KiB
Plaintext
Executable File
127 lines
2.2 KiB
Plaintext
Executable File
#include "sc1300a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
// #include <toolbar.h>
|
|
|
|
BUTTON DLG_SAVEREC 8 2
|
|
BEGIN
|
|
PROMPT -17 -1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
END
|
|
|
|
BUTTON DLG_NEWREC 8 2
|
|
BEGIN
|
|
PROMPT -27 -1 "~Nuovo"
|
|
MESSAGE EXIT,K_INS
|
|
END
|
|
|
|
BUTTON DLG_DELREC 8 2
|
|
BEGIN
|
|
PROMPT -37 -1 "~Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
BUTTON DLG_FINDREC 8 2
|
|
BEGIN
|
|
PROMPT -47 -1 "Ri~cerca"
|
|
MESSAGE EXIT,K_F9
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 8 2
|
|
BEGIN
|
|
PROMPT -57 -1 ""
|
|
MESSAGE EXIT,K_ESC
|
|
END
|
|
|
|
BUTTON DLG_QUIT 8 2
|
|
BEGIN
|
|
PROMPT -67 -1 ""
|
|
MESSAGE EXIT,K_QUIT
|
|
END
|
|
|
|
BUTTON F_ZAP 10 2
|
|
BEGIN
|
|
PROMPT -77 -1 "Canc. Tutti"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Archivio Storico Solleciti" -1 -1 78 8
|
|
|
|
STRING F_CODICE 5
|
|
BEGIN
|
|
PROMPT 4 2 "Codice "
|
|
HELP "Codice del cliente"
|
|
FIELD LF_STOSOLL->CODICE
|
|
FLAGS "UR"
|
|
KEY 1
|
|
USE LF_CLIFO KEY 1
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODICE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale @30" RAGSOC[1,30]
|
|
DISPLAY "Localita @30" LOCALITACF[1,30]
|
|
OUTPUT F_CODICE CODCF
|
|
OUTPUT F_DESCR RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 4 4 "Ragione sociale "
|
|
HELP "Ragione sociale del cliente"
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCR
|
|
DISPLAY "Ragione sociale @30" RAGSOC[1,30]
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Localita @30" LOCALITACF[1,30]
|
|
OUTPUT F_CODICE CODCF
|
|
OUTPUT F_DESCR RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
|
|
NUMBER F_TIPO 2
|
|
BEGIN
|
|
PROMPT 4 6 "Grado sollecito "
|
|
USE LF_STOSOLL
|
|
INPUT CODICE F_CODICE
|
|
INPUT TIPO F_TIPO
|
|
DISPLAY "Codice" CODICE
|
|
DISPLAY "Grado" TIPO
|
|
DISPLAY "Data@10" DATASPED
|
|
DISPLAY "Saldo@15" SALDO
|
|
OUTPUT F_CODICE CODICE
|
|
OUTPUT F_DATA DATASPED
|
|
OUTPUT F_SALDO SALDO
|
|
OUTPUT F_TIPO TIPO
|
|
HELP "Numero di solleciti gia' inviati"
|
|
FIELD TIPO
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Grado sollecito obbligatorio"
|
|
FLAGS "U"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 4 8 "Data invio sollecito "
|
|
HELP "Data di spedizione sollecito"
|
|
FIELD LF_STOSOLL->DATASPED
|
|
FLAGS "A"
|
|
END
|
|
|
|
NUMBER F_SALDO 15
|
|
BEGIN
|
|
PROMPT 4 10 "Importo totale "
|
|
HELP "Ammontare del saldo al momento del sollecito"
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
FIELD LF_STOSOLL->SALDO
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|