6d9295525a
Files correlati : li0 Commento : Modificato programma resoconto plafond: - Aggiunta distinzione tra fatture e altri documenti: adesso i documenti hanno una data massima mentre le fatture no. - Aggiunta funzione elabUtil() che ritorna quanto plafond è stato utilizzato senza verificare se è stato superato - Aggiunta variabile aData in elabPlaRes() git-svn-id: svn://10.65.10.50/branches/R_10_00@23634 c028cbd2-c16b-5b4b-a496-9718f37d4682
141 lines
2.4 KiB
Plaintext
141 lines
2.4 KiB
Plaintext
#include "li0200a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <stdbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Impostazioni dichiarazioni d'intento" 0 2 0 0
|
|
|
|
STRING F_TABIVA_CODTAB 4
|
|
BEGIN
|
|
PROMPT 1 1 "Codice IVA plafond:"
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %IVA
|
|
FLAGS "U"
|
|
INPUT CODTAB F_TABIVA_CODTAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" S1
|
|
DISPLAY "%@5" R0
|
|
DISPLAY "Vent." S6
|
|
DISPLAY "Sospeso" B2
|
|
OUTPUT F_TABIVA_CODTAB CODTAB
|
|
HELP "Inserire il codice IVA"
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
DATE F_A_DATA
|
|
BEGIN
|
|
PROMPT 1 2 "A data "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_CODICE_CLIFO_DA 6
|
|
BEGIN
|
|
PROMPT 1 3 "Da cod. cliente: "
|
|
FLAG "UR"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODICE_CLIFO_DA
|
|
DISPLAY "Cliente" CODCF
|
|
DISPLAY "Ragione sociale@60" RAGSOC
|
|
OUTPUT F_CODICE_CLIFO_DA CODCF
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_CODICE_CLIFO_A 6
|
|
BEGIN
|
|
PROMPT 32 3 "a: "
|
|
FLAG "UR"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODICE_CLIFO_A
|
|
COPY DISPLAY F_CODICE_CLIFO_DA
|
|
OUTPUT F_CODICE_CLIFO_A CODCF
|
|
NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA
|
|
WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'"
|
|
GROUP 1
|
|
END
|
|
|
|
SPREADSHEET DOCUMENTI_STATO 45 10
|
|
BEGIN
|
|
PROMPT 1 5 ""
|
|
ITEM "Tipo Numerazione"
|
|
ITEM "Da stato"
|
|
ITEM "A stato"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga tipo numerazione" -1 -1 78 8
|
|
|
|
STRING F_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo Documento "
|
|
FIELD TIPODOC
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_STATODOCDA 4
|
|
BEGIN
|
|
PROMPT 2 2 "Da Numerazione "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %STD
|
|
FLAGS "U"
|
|
INPUT CODTAB F_STATODOCA
|
|
DISPLAY "Stato" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_STATODOCDA CODTAB
|
|
//CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_STATODOCA 4
|
|
BEGIN
|
|
PROMPT 2 3 "A Numerazione "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %STD
|
|
FLAGS "U"
|
|
INPUT CODTAB F_STATODOCA
|
|
DISPLAY "Stato" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_STATODOCA CODTAB
|
|
NUM_EXPR #F_STATODOCA>=#F_STATODOCDA
|
|
//CHECKTYPE REQUIRED
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Documento" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|