66fe24764c
alla contabilita'.
cglib01.cpp Cambiato il campo TIPOAPERS in TIPOPER per stabilire il
tipo di anagrafica nell'oggetto TBill
git-svn-id: svn://10.65.10.50/trunk@5400 c028cbd2-c16b-5b4b-a496-9718f37d4682
180 lines
2.8 KiB
Plaintext
Executable File
180 lines
2.8 KiB
Plaintext
Executable File
PAGE "Rata pagamento" -1 -1 50 15
|
|
|
|
DATE 101
|
|
BEGIN
|
|
PROMPT 1 1 "Scadenza "
|
|
CHECKTYPE REQUIRED
|
|
WARNING "La data di scadenza e' obbligatoria"
|
|
END
|
|
|
|
NUMBER 102 18
|
|
BEGIN
|
|
PROMPT 1 3 "Importo "
|
|
PICTURE "."
|
|
CHECKTYPE REQUIRED
|
|
WARNING "L'importo della rata non puo' essere nullo"
|
|
END
|
|
|
|
NUMBER 103 18 3
|
|
BEGIN
|
|
PROMPT 1 4 "Importo valuta "
|
|
FLAGS "D"
|
|
PICTURE ".3"
|
|
VALIDATE REQIF_FUNC 1 102
|
|
WARNING "E' necessario specificare anche un importo in valuta"
|
|
END
|
|
|
|
NUMBER 104 6 2
|
|
BEGIN
|
|
PROMPT 1 2 "Percentuale "
|
|
PICTURE ".2"
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER 105 1
|
|
BEGIN
|
|
PROMPT 1 5 "Tipo pagamento "
|
|
SHEET "Codice|Tipo pagamento@32"
|
|
INPUT 105
|
|
ITEM "1|Rimessa diretta o contanti"
|
|
ITEM "2|Tratta"
|
|
ITEM "3|Ricevuta Bancaria"
|
|
ITEM "4|Cessione"
|
|
ITEM "5|Paghero'"
|
|
ITEM "6|Lettera di credito"
|
|
ITEM "7|Tratta accettata"
|
|
ITEM "8|Rapporti interban. diretti"
|
|
ITEM "9|Bonifici"
|
|
OUTPUT 105
|
|
END
|
|
|
|
STRING 106 1
|
|
BEGIN
|
|
PROMPT 24 5 "Ulteriore classific. "
|
|
FLAGS "U"
|
|
USE %CLR
|
|
INPUT CODTAB[1,1] 105 SELECT
|
|
INPUT CODTAB[2,2] 106
|
|
DISPLAY "Tipo pagamento" CODTAB[1,1]
|
|
DISPLAY "Classificazione" CODTAB[2,2]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT 106 CODTAB[2,2]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING 107 50 32
|
|
BEGIN
|
|
PROMPT 1 6 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER 108 5
|
|
BEGIN
|
|
PROMPT 1 7 "Ns. Banca ABI "
|
|
FLAGS "Z"
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] 108
|
|
INPUT CODTAB[6,10] 109
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT 108 CODTAB[1,5]
|
|
OUTPUT 109 CODTAB[6,10]
|
|
OUTPUT 126 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER 109 5
|
|
BEGIN
|
|
PROMPT 27 7 "Ns. Banca CAB "
|
|
FLAGS "Z"
|
|
COPY ALL 108
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING 126 50 45
|
|
BEGIN
|
|
PROMPT 1 8 ""
|
|
USE %BAN KEY 2
|
|
INPUT S0 126
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
COPY OUTPUT 108
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER 110 5
|
|
BEGIN
|
|
PROMPT 1 9 "Vs. Banca ABI "
|
|
FLAGS "Z"
|
|
COPY USE 108
|
|
INPUT CODTAB[1,5] 110
|
|
INPUT CODTAB[6,10] 111
|
|
COPY DISPLAY 108
|
|
OUTPUT 110 CODTAB[1,5]
|
|
OUTPUT 111 CODTAB[6,10]
|
|
OUTPUT 128 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER 111 5
|
|
BEGIN
|
|
PROMPT 27 9 "Vs. Banca CAB "
|
|
FLAGS "Z"
|
|
COPY ALL 110
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING 128 50 45
|
|
BEGIN
|
|
PROMPT 1 10 ""
|
|
COPY USE 110
|
|
INPUT S0 128
|
|
COPY DISPLAY 126
|
|
COPY OUTPUT 110
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 11 "Note:"
|
|
END
|
|
|
|
BOOLEAN 114
|
|
BEGIN
|
|
PROMPT 12 11 "Non cancellabile"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN 113
|
|
BEGIN
|
|
PROMPT 38 11 "Bloccata"
|
|
END
|
|
|
|
STRING 112 50 47
|
|
BEGIN
|
|
PROMPT 1 12 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
FLAGS "D"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|