campo-sirio/pr/pr0700b.uml

#include "pr0700b.h"

TOOLBAR "" 0 20 0 2

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

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Provvigioni" -1 -1 78 8

STRING F_CODAGE 5
BEGIN
  PROMPT 2 1 "Codice agente "
  FLAGS "DUZ"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 23 1 ""
  FLAGS "D"
END

NUMBER F_MANNO 4
BEGIN
  PROMPT 2 2 "Documento     "
  FLAGS "D"
END

STRING F_MCODNUM 4
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
END

NUMBER F_MNDOC 7
BEGIN
  PROMPT 28 2 ""
  FLAGS "D"
END

SPREADHSEET F_DOC_SHEET 0 8
BEGIN
  PROMPT 2 3 ""
  ITEM "Anno"
  ITEM "Cod.\nNum."
  ITEM "Num.\nDoc.@7"
  ITEM "Data\nDoc.@10"
  ITEM "Importo\ndocumento@18"
  ITEM "Provvigione\ndocumento@18"
  ITEM "Base di calcolo@18"
  ITEM "Cliente"
  ITEM "Tipo\npag."
  ITEM "Valuta"
  ITEM "Cambio"
  ITEM "Data\ncambio@10"
  GROUP 1
END

SPREADHSEET F_RATE_SHEET 0 8
BEGIN
  PROMPT 2 12 ""
  ITEM "Nr. rata"
  ITEM "Data scadenza"
  ITEM "Importo\nrata@18"
  ITEM "Importo\nprovvigione@18"
  ITEM "Pagamento\nmaturato@18"
  ITEM "Provvigione\nmaturata@18"
  ITEM "Importo\nrata pagata@18"
  ITEM "Importo\nprovvigione pagata@18"
  ITEM "Saldata"
  ITEM "Tipo\npag."
  GROUP 1
END

ENDPAGE

ENDMASK


// Maschera spreadsheet dei documenti

PAGE "" -1 -1 78 16

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 2 "Anno "
END

STRING F_CODNUM 4
BEGIN
  PROMPT 13 2 "Cod. num. "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  CHECKTYPE NORMAL
END

NUMBER F_NDOC 7
BEGIN
  PROMPT 32 2 "Num. doc. "
  USE LF_DOC
  JOIN %CPG TO LF_DOC ALIAS 401 INTO CODTAB==CODPAG
  INPUT PROVV "D"
  INPUT ANNO F_ANNO
  INPUT CODNUM F_CODNUM 
  INPUT NDOC F_NDOC
  DISPLAY "Anno" ANNO
  DISPLAY "Codice numerazione" CODNUM
  DISPLAY "Numero documento" NDOC
  OUTPUT F_ANNO ANNO
  OUTPUT F_CODNUM CODNUM
  OUTPUT F_NDOC NDOC
  OUTPUT F_DATADOC DATADOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_CODVAL CODVAL
  OUTPUT F_CAMBIO CAMBIO
  OUTPUT F_DATACAMBIO DATACAMBIO
  OUTPUT F_TIPOPAG -401->S4
  ADD RUN VE0 -1
END

DATE F_DATADOC
BEGIN
  PROMPT 54 2 "Data doc. "
END

NUMBER F_IMPDOC 18 2
BEGIN
  PROMPT 2 4 "Importo doc.         "
  PICTURE "##.###.###.###.###"
END

NUMBER F_IMPPRDOC 18 2
BEGIN
  PROMPT 2 5 "Importo provv. doc.  "
  PICTURE "##.###.###.###.###"
  NUM_EXPR {(#THIS_FIELD <= #F_IMPDOC)}
  WARNING "L'importo della provvigione deve essere minore dell'importo documento"
END

NUMBER F_IMPNETDOC 18 2
BEGIN
  PROMPT 2 6 "Base di calcolo      "
  PICTURE "##.###.###.###.###"
  NUM_EXPR {(#THIS_FIELD <= #F_IMPDOC)}
  WARNING "L'importo della base di calcolo deve essere minore dell'importo documento"
END

NUMBER F_CLIENTE 7
BEGIN
  PROMPT 2 8 "Cod. cliente   "
  USE LF_CLIFO KEY 1 SELECT TIPOCF=="C"
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Cod. cliente" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_RAGCLI  RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGCLI 50
BEGIN
  PROMPT 27 8 ""
  FLAGS "D"
END

LISTBOX F_TIPOPAG 1 20
BEGIN
  PROMPT 2 9 "Tipo pagamento "
  ITEM "1|Rimessa diretta"
  ITEM "2|Tratta"
  ITEM "3|Ri.Ba."
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di cred."
  ITEM "7|Tratta accettata"
  ITEM "8|Rapp. int. dir."
  ITEM "9|Bonifici"
END

STRING F_CODVAL 3
BEGIN
  PROMPT 2 11 "Codice valuta  "
  FLAGS "U"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODVAL CODTAB
  CHECKTYPE NORMAL
END

NUMBER F_CAMBIO 18 2
BEGIN
  PROMPT 25 11 "Cambio "
END

DATE F_DATACAMBIO 
BEGIN
  PROMPT 52 11 "Data cambio "
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN 
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN 
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK


// Maschera spreadsheet delle rate

PAGE "" -1 -1 76 14

NUMBER F_RATA 4
BEGIN
  PROMPT 2 1 "Numero rata                  "
END

DATE F_DATASCAD 
BEGIN
  PROMPT 2 2 "Data scadenza                "
END

NUMBER F_IMPRATA 18 2
BEGIN
  PROMPT 2 3 "Importo rata                 "
  PICTURE "##.###.###.###.###"
END

NUMBER F_IMPPROVV 18 2
BEGIN
  PROMPT 2 4 "Importo provvigione          "
  PICTURE "##.###.###.###.###"
END

NUMBER F_PAGMAT 18 2 
BEGIN
  PROMPT 2 7 "Importo pagamento maturato   "
  PICTURE "##.###.###.###.###"
  NUM_EXPR {(#THIS_FIELD <= #F_IMPRATA)}
  WARNING "L'importo pagamento maturato deve essere minore dell'importo della rata"
END

NUMBER F_PROVVMAT 18 2 
BEGIN
  PROMPT 2 8 "Importo provvigione maturata "
  PICTURE "##.###.###.###.###"
  NUM_EXPR {(#THIS_FIELD <= #F_IMPPROVV)}
  WARNING "L'importo provvigione maturata deve essere minore dell'importo della provvigione"
END

NUMBER F_PAGATO 18 2 
BEGIN
  PROMPT 2 5 "Importo rata pagata          "
  PICTURE "##.###.###.###.###"
  FLAGS "D"
END

NUMBER F_PROVVPAG 18 2 
BEGIN
  PROMPT 2 6 "Importo provvigione pagata   "
  PICTURE "##.###.###.###.###"
  FLAGS "D"
END

BOOLEAN F_SALDATA
BEGIN
  PROMPT 2 9 "Rata saldata                 "
END

LISTBOX F_TIPOPAGPR 1 20
BEGIN
  PROMPT 2 10 "Tipo pagamento "
  ITEM "1|Rimessa diretta"
  ITEM "2|Tratta"
  ITEM "3|Ri.Ba."
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di cred."
  ITEM "7|Tratta accettata"
  ITEM "8|Rapp. int. dir."
  ITEM "9|Bonifici"
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN 
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN 
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK