7147bd2803
funzionalmente (ricerche su tabelle che non esistono) git-svn-id: svn://10.65.10.50/trunk@270 c028cbd2-c16b-5b4b-a496-9718f37d4682
96 lines
1.6 KiB
Plaintext
Executable File
96 lines
1.6 KiB
Plaintext
Executable File
#include "cg1400.h"
|
|
|
|
PAGE "STAMPA DELEGHE IVA" -1 -1 58 11
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 1 1 "Codice ABI "
|
|
FLAGS "RZ"
|
|
FIELD CNF_STUDIO->cg.CodABI
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] F_ABI
|
|
INPUT CODTAB[6,10] F_CAB
|
|
DISPLAY "Azienda" CODTAB[1,5]
|
|
DISPLAY "Dipendenza" CODTAB[6,10]
|
|
DISPLAY "Nome@50" S0
|
|
DISPLAY "Filiale@50" S1
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 22 1 "Codice CAB "
|
|
FLAGS "RZ"
|
|
FIELD CNF_STUDIO->cg.CodCAB
|
|
COPY USE F_ABI
|
|
INPUT CODTAB[1,5] F_ABI
|
|
INPUT CODTAB[6,10] F_CAB
|
|
DISPLAY "Azienda" CODTAB[1,5]
|
|
DISPLAY "Dipendenza" CODTAB[6,10]
|
|
DISPLAY "Nome@50" S0
|
|
DISPLAY "Filiale@50" S1
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
END
|
|
|
|
DATA F_DATA
|
|
BEGIN
|
|
PROMPT 1 3 "Data di stampa "
|
|
FLAGS "A"
|
|
END
|
|
|
|
LIST F_TIPO 21
|
|
BEGIN
|
|
PROMPT 28 3 "Tipo "
|
|
ITEM "1|Periodica" MESSAGE ENABLE,F_MESE
|
|
ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE
|
|
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 5 "Anno "
|
|
FLAGS "A"
|
|
END
|
|
|
|
LIST F_MESE 10
|
|
BEGIN
|
|
PROMPT 13 5 "Mese "
|
|
FLAGS "MA"
|
|
ITEM "13|Annuale" MESSAGE "2",F_TIPO
|
|
END
|
|
|
|
BOOLEAN F_PROVA
|
|
BEGIN
|
|
PROMPT 1 7 "Stampa di prova"
|
|
END
|
|
|
|
BOOLEAN F_AGGIORNA
|
|
BEGIN
|
|
PROMPT 1 8 "Aggiorna codici banca sulle deleghe"
|
|
HELP "Scrive i codici banca sulle deleghe che non li riportano"
|
|
END
|
|
|
|
BOOLEAN F_DISTINTA
|
|
BEGIN
|
|
PROMPT 1 9 "Stampa distinta deleghe"
|
|
HELP "Stampa un riepilogo su carta normale delle deleghe stampate"
|
|
END
|
|
|
|
BUTTON DLG_SELECT 9 2
|
|
BEGIN
|
|
PROMPT 45 6 "Selezione"
|
|
HELP "Permette di selezionare le ditte di cui stampare le deleghe"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT 45 8 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|