campo-sirio/cg/cg2100p.uml
guy 66fe24764c Aumentate ad uno sproposito di colonne tutte le stampe relative
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
1997-10-20 14:23:01 +00:00

289 lines
3.5 KiB
Plaintext
Executable File

#include "cg2100p.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -11 ""
PICTURE BMP_OK
END
BUTTON P_NUOVO 10 2
BEGIN
PROMPT -22 -11 "~Nuovo"
PICTURE BMP_NEWREC
END
ENDPAGE
PAGE "PARTITE" -1 -1 77 20
STRING P_DESCR 70
BEGIN
PROMPT 1 1 ""
FLAGS "D"
END
STRING P_VALUTA 3
BEGIN
PROMPT 1 2 "Valuta "
FLAGS "DUZ"
END
DATE P_DATACAMBIO
BEGIN
PROMPT 18 2 "Data cambio "
FLAGS "DR"
USE CAM
INPUT CODTAB[1,3] P_VALUTA SELECT
INPUT CODTAB[4,11] P_DATACAMBIO
DISPLAY "Valuta" CODTAB[1,3]
DISPLAY "Data@10" D0
DISPLAY "Cambio@18" R10
OUTPUT P_DATACAMBIO D0
OUTPUT P_CAMBIO R10
CHECKTYPE SEARCH
GROUP 3
END
NUMBER P_CAMBIO 15 5
BEGIN
PROMPT 48 2 "Cambio "
FLAGS "DU"
GROUP 3
PICTURE ".5"
FIELD ANTIOUTPUT
CHECKTYPE REQUIRED
END
NUMBER P_ANNO 4
BEGIN
PROMPT 1 3 "Partita "
FLAGS "U"
END
STRING P_NUMERO 7
BEGIN
PROMPT 15 3 ""
FLAGS "U"
END
NUMBER P_RESIDUO 18
BEGIN
PROMPT 25 3 "Residuo "
FLAGS "D"
PICTURE "."
END
NUMBER P_RESIDUOVAL 18 3
BEGIN
PROMPT 53 3 ""
FLAGS "D"
PICTURE ".3"
END
SPREADSHEET P_PARTITE 0 7
BEGIN
PROMPT 0 4 ""
ITEM "Anno"
ITEM "Partita@7"
ITEM "Data doc.@10"
ITEM "Num doc.@7"
ITEM "Saldo@14"
ITEM "Documenti@14"
ITEM "Pagamenti@14"
ITEM "Altri importi@14"
ITEM "Descrizione@50"
FLAGS "D"
END
SPREADSHEET P_SCADENZE 0 -2
BEGIN
PROMPT 0 12 ""
ITEM "Riga"
ITEM "Rata"
ITEM "Data doc.@10"
ITEM "Data scad."
ITEM "Descrizione@20"
ITEM "Importo Lire@16"
ITEM "Importo Valuta@16"
ITEM "Num. op. "
ITEM "Data op.@10"
ITEM "Num. doc."
ITEM "Prot. IVA"
ITEM "Tipo"
ITEM "Riga pag."
ITEM "Blocc."
FLAGS "D"
END
BOOLEAN P_SHOWALL
BEGIN
PROMPT 1 -1 "Mostra tutte le partite"
END
ENDPAGE
ENDMASK
PAGE "Sheet Partite" -1 -1 66 8
STRING 109 50
BEGIN
PROMPT 1 1 "Descrizione "
END
NUMBER 101 4
BEGIN
PROMPT 1 2 "Anno "
END
STRING 102 7
BEGIN
PROMPT 1 3 "Partita "
FLAGS "_"
END
DATA 103
BEGIN
PROMPT 1 4 "Data documento "
END
STRING 104 7
BEGIN
PROMPT 1 5 "Numero documento "
END
STRING 106 16
BEGIN
PROMPT 34 2 "Documenti "
FLAGS "R"
END
STRING 107 16
BEGIN
PROMPT 34 3 "Pagamenti "
FLAGS "R"
END
STRING 108 16
BEGIN
PROMPT 34 4 "Altri importi "
FLAGS "R"
END
STRING 105 16
BEGIN
PROMPT 34 5 "Saldo "
FLAGS "R"
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -11 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Sheet Scadenze" -1 -1 68 11
NUMBER 101 4
BEGIN
PROMPT 1 1 "Numero riga "
END
NUMBER 102 4
BEGIN
PROMPT 41 1 "Numero rata "
END
NUMBER 113 4
BEGIN
PROMPT 1 2 "Riga pagamento "
END
DATE 103
BEGIN
PROMPT 41 2 "Data documento "
END
NUMBER 108 5
BEGIN
PROMPT 1 3 "Numero operaz. "
END
DATE 109
BEGIN
PROMPT 41 3 "Data operaz. "
END
STRING 110 7
BEGIN
PROMPT 1 4 "Numero doc. "
END
LIST 112 1 20
BEGIN
PROMPT 1 5 "Tipo movimento "
ITEM " |Nessuno"
ITEM "1|Fattura"
ITEM "2|Nota credito"
ITEM "3|Incasso/Pagamento"
ITEM "5|Insoluto"
ITEM "6|Pagamento insoluto"
END
NUMBER 111 5
BEGIN
PROMPT 41 5 "Protocollo IVA "
END
DATE 104
BEGIN
PROMPT 41 4 "Data scad. "
END
STRING 105 50
BEGIN
PROMPT 1 6 "Descrizione "
END
STRING 106 14
BEGIN
PROMPT 1 7 "Importo Lire "
FLAGS "R"
END
STRING 107 14
BEGIN
PROMPT 37 7 "Importo Valuta "
FLAGS "R"
END
BOOLEAN 114
BEGIN
PROMPT 1 8 "Pagamenti bloccati"
END
BUTTON DLG_CANCEL 12 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON 100 12 2
BEGIN
PROMPT -22 -1 "~Edit"
PICTURE BMP_EDIT
END
ENDPAGE
ENDMASK