campo-sirio/cg/cg2100p.uml

#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 78
BEGIN
  PROMPT 1 1 ""
  FLAGS "D"
END

STRING P_VALUTA 3
BEGIN
  PROMPT 1 2 "Valuta  "
  FLAGS "DUZ"
END

DATE P_DATACAMBIO
BEGIN
  PROMPT 15 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@18R" S4   
//  DISPLAY "Contro Euro" B1
  OUTPUT P_DATACAMBIO D0
  OUTPUT P_CAMBIO S4
//  OUTPUT P_CONTROEURO B1
  CHECKTYPE SEARCH
  GROUP 3
END

NUMBER P_CAMBIO 15 5
BEGIN
  PROMPT 43 2 "Cambio  "
  FLAGS "DU"
  GROUP 3
  PICTURE ".5"
  FIELD ANTIOUTPUT
  CHECKTYPE REQUIRED
END

/*
BOOLEAN P_CONTROEURO
BEGIN
  PROMPT 73 2 "Euro"
  GROUP 3
END
*/

NUMBER P_ANNO 4
BEGIN
  PROMPT 1 3 "Partita "
  FLAGS "U"
END

STRING P_NUMERO 7
BEGIN
  PROMPT 15 3 ""
  FLAGS "U"
END

CURRENCY P_RESIDUO 18
BEGIN
  PROMPT 25 3 "Residuo "
  FLAGS "D"
END

CURRENCY P_RESIDUOVAL 18
BEGIN
  PROMPT 53 3 ""
  FLAGS "D"
  DRIVENBY P_VALUTA
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