campo-sirio/cg/cg2100p.uml

#include "cg2100p.h"

TOOLBAR "" 0 20 0 2

BUTTON P_NUOVO 10 2
BEGIN
  PROMPT -12 -1 "~Nuovo"
  PICTURE 105
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE


PAGE "PARTITE" -1 -1 77 20

LIST P_TIPOC 1 12
BEGIN
  PROMPT 1 0 "Tipo conto  "
  ITEM " |Conto"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FLAGS "D"
END

NUMBER P_GRUPPO 3
BEGIN
  PROMPT 26 0 "Gruppo "
  FLAGS "D"
END

NUMBER P_CONTO 3
BEGIN
  PROMPT 40 0 "Conto "
  FLAGS "D"
END

NUMBER P_SOTTOCONTO 6
BEGIN
  PROMPT 54 0 "Sottoconto "
  FLAGS "D"
END

STRING P_DESCR 50 58
BEGIN
  PROMPT 1 1 "Descrizione "
  FLAGS "D"
END

STRING P_VALUTA 3
BEGIN
  PROMPT 1 2 "Valuta      "
  HELP "Codice della valuta per movimento"
  FLAGS "DUZ"
END

DATE P_DATACAMBIO
BEGIN
  PROMPT 21 2 "Data cambio "
  FLAGS "DR"
  USE CAM
  INPUT CODTAB[1,3] P_VALUTA
  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
  GROUP 3
END

NUMBER P_CAMBIO 15 5
BEGIN
  PROMPT 48 2 "Cambio  "
  HELP "Cambio della valuta"
  FLAGS "DRU"
  GROUP 3
  PICTURE ".5"
  CHECKTYPE REQUIRED
END

NUMBER P_ANNO 4
BEGIN
  PROMPT 1 3 "Anno        "
  FLAGS "A"
END

STRING P_NUMERO 7
BEGIN
  PROMPT 21 3 "Numero      "
  FLAGS "U"
END

NUMBER P_RESIDUO 15
BEGIN
  PROMPT 48 3 "Residuo "
  FLAGS "D"
  PICTURE "."
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 7
BEGIN
  PROMPT 0 11 ""
  ITEM "Riga"
  ITEM "Rata"
  ITEM "Data scad."
  ITEM "Data doc.@10"
  ITEM "Descrizione@20"
  ITEM "Importo Lire@14" 
  ITEM "Importo Valuta@14"
  ITEM "Num. reg."
  ITEM "Data reg.@10"
  ITEM "Num. doc."
  ITEM "Prot. IVA"
  ITEM "Pagamento"
  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          "
END

DATA 103
BEGIN
  PROMPT 1 4 "Data documento   "
END

STRING 104 7
BEGIN
  PROMPT 1 5 "Numero documento "
END

STRING 106 14
BEGIN
  PROMPT 34 2 "Documenti      "
  FLAGS "R"
END

STRING 107 14
BEGIN
  PROMPT 34 3 "Pagamenti      "
  FLAGS "R"
END

STRING 108 14
BEGIN
  PROMPT 34 4 "Altri importi  "
  FLAGS "R"
END

STRING 105 14
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 10

NUMBER 101 4
BEGIN
  PROMPT 1 1 "Numero riga    "
END

NUMBER 102 4
BEGIN
  PROMPT 41 1 "Numero rata    "
END

NUMBER 112 4
BEGIN
  PROMPT 1 2 "Riga pagamento "
END

DATE 104
BEGIN
  PROMPT 41 2 "Data documento "
END

NUMBER 108 5
BEGIN
  PROMPT 1 3 "Numero reg.    "
END

DATE 109
BEGIN
  PROMPT 41 3 "Data reg.      "
END

NUMBER 110 5
BEGIN
  PROMPT 1 4 "Numero doc.    "
END

NUMBER 111 5
BEGIN
  PROMPT 41 5 "Protocollo IVA "
END

DATE 103
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

BUTTON DLG_CANCEL 12 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON 100 12 2
BEGIN
  PROMPT -22 -1 "~Pagamento"
END


ENDPAGE

ENDMASK