5cb56fdb07
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.2 patch 1262 git-svn-id: svn://10.65.10.50/trunk@17628 c028cbd2-c16b-5b4b-a496-9718f37d4682
165 lines
2.4 KiB
Plaintext
Executable File
165 lines
2.4 KiB
Plaintext
Executable File
#include "vd0700a.h"
|
|
|
|
PAGE "Chiusura Scontrino" -1 -1 0 0
|
|
|
|
NUMBER F_CASSA 3
|
|
BEGIN
|
|
PROMPT 2 1 "@bNumero Cassa "
|
|
FLAGS "DZ"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 42 1 "@bData "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_TOTDOC 18
|
|
BEGIN
|
|
PROMPT 2 3 "@bTotale scontrino "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_CASSAINI 18
|
|
BEGIN
|
|
PROMPT 46 3 "Cassa "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_INC01 18
|
|
BEGIN
|
|
PROMPT 2 5 "01----------------- "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_INC02 18
|
|
BEGIN
|
|
PROMPT 42 5 "02----------------- "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_INC03 18
|
|
BEGIN
|
|
PROMPT 2 7 "03----------------- "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_INC04 18
|
|
BEGIN
|
|
PROMPT 42 7 "04----------------- "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_INC05 18
|
|
BEGIN
|
|
PROMPT 2 9 "05----------------- "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_INC06 18
|
|
BEGIN
|
|
PROMPT 42 9 "06----------------- "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_INC07 18
|
|
BEGIN
|
|
PROMPT 2 11 "07----------------- "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_INC08 18
|
|
BEGIN
|
|
PROMPT 42 11 "08----------------- "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_RESTO 18
|
|
BEGIN
|
|
PROMPT 2 13 "@bResto "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_SALDO 18
|
|
BEGIN
|
|
PROMPT 46 13 "Saldo "
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
BOOEAN F_DAFATT
|
|
BEGIN
|
|
PROMPT 2 15 "Da fatturare"
|
|
MESSAGE FALSE CLEAR,2@
|
|
MESSAGE TRUE ENABLE,2@
|
|
GROUP 3
|
|
END
|
|
|
|
BOOEAN F_ACCONTO
|
|
BEGIN
|
|
PROMPT 46 15 "Acconto"
|
|
MESSAGE TRUE DISABLE,DLG_OK
|
|
MESSAGE TRUE ENABLE,DLG_OK
|
|
GROUP 3
|
|
END
|
|
|
|
LIST F_TIPOCFC 1 11
|
|
BEGIN
|
|
PROMPT 2 17 "Tipo "
|
|
HELP "Indicare se cliente oppure fornitore"
|
|
ITEM "C|Clienti"
|
|
ITEM "F|Fornitori"
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_CODCFC 6
|
|
BEGIN
|
|
PROMPT 42 17 "Codice "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCFC SELECT
|
|
INPUT CODCF F_CODCFC
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT F_TIPOCFC TIPOCF
|
|
OUTPUT F_CODCFC CODCF
|
|
OUTPUT F_RAGSOCC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN cg0 -1
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_RAGSOCC 50
|
|
BEGIN
|
|
PROMPT 2 19 "Ragione Sociale "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCFC SELECT
|
|
INPUT RAGSOC F_RAGSOCC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_CODCFC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1
|
|
GROUP 2
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -2 ""
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -2 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |