campo-sirio/cg/cg2100p.uml

#include "cg2100p.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON P_NUOVO 10 2
BEGIN
  PROMPT -22 -11 "~Nuovo"
  PICTURE TOOL_NEWREC
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT -1 1 ""
  PICTURE 0
END

BUTTON DLG_INFO 2 2
BEGIN
  PROMPT 1 1 "Info"
  MESSAGE EXIT,K_F2
  PICTURE TOOL_INFO
END

BUTTON DLG_HELP 2 2
BEGIN
  PROMPT 2 1 "Help"
  MESSAGE EXIT,K_F1
  PICTURE TOOL_HELP
END


ENDPAGE


PAGE "PARTITE" -1 -1 77 20

STRING P_DESCR 78
BEGIN
  PROMPT 1 0 ""
  FLAGS "D"
END

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

DATE P_DATACAMBIO
BEGIN
  PROMPT 15 1 "Data cambio "
  FLAGS "DR"
  USE CAM
  INPUT CODTAB[1,3] P_VALUTA SELECT
  INPUT CODTAB[4,11] P_DATACAMBIO
  DISPLAY "Codice valuta" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio@18R" S4   
  OUTPUT P_DATACAMBIO D0
  OUTPUT P_CAMBIO S4
  CHECKTYPE SEARCH
  GROUP 3
END

NUMBER P_CAMBIO 15 6
BEGIN
  PROMPT 45 1 "Cambio  "
  FLAGS "DU"
  GROUP 3
  PICTURE ".6"
  FIELD ANTIOUTPUT
  CHECKTYPE REQUIRED
END

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

STRING P_NUMERO 7
BEGIN
  PROMPT 15 2 ""
  FLAGS "U#"
END

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

CURRENCY P_RESIDUOVAL 18
BEGIN
  PROMPT 53 2 ""
  FLAGS "D"
  DRIVENBY P_VALUTA
END

BOOLEAN P_SHOWALL
BEGIN
  PROMPT 1 3 "Mostra tutte le partite"
END

LIST P_SORT 1 10
BEGIN
  PROMPT 41 3 "Ordinamento "
  ITEM "A|Alfabetico"
  ITEM "N|Numerico"
  ITEM "D|Per Data"
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 "L"
END

SPREADSHEET P_SCADENZE
BEGIN
  PROMPT 0 12 ""
  ITEM "Riga"
  ITEM "Rata"
  ITEM "Data doc.@10"
  ITEM "Data scad."
  ITEM "Descrizione@20"
  ITEM "Importo@16" 
  ITEM "Importo Valuta@16"
  ITEM "Num. op."
  ITEM "Data op.@10"
  ITEM "Num. doc."
  ITEM "Prot. IVA"
  ITEM "Tipo"
  ITEM "Riga pag."
  ITEM "Blocco"
  ITEM "Causale\nBlocco@6"
  ITEM "Motivazione blocco@50"
  FLAGS "L"
END

ENDPAGE

ENDMASK               


PAGE "Sheet Partite" -1 -1 66 12

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 10

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

DATE 104
BEGIN
  PROMPT 41 4 "Data scad.     "
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

STRING 105 50
BEGIN
  PROMPT 1 6 "Descrizione    "
END

STRING 106 14
BEGIN
  PROMPT 1 7 "Importo        "
  FLAGS "R"
END

STRING 107 14
BEGIN
  PROMPT 37 7 "Importo Valuta "
  FLAGS "R"
END

BOOLEAN 114
BEGIN
  PROMPT 1 8 "Pagamenti bloccati"
END

STRING 115 6
BEGIN
  PROMPT 26 8 ""
END

STRING 116 50 65
BEGIN
  PROMPT 1 9 ""
END

ENDPAGE

TOOLBAR "" 0 0 0 2

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

BUTTON 100 12 2
BEGIN
  PROMPT -22 -1 "~Edit"
  PICTURE TOOL_EDIT
END

ENDPAGE

ENDMASK