campo-sirio/pr/pr0700b.uml

#include "pr0700b.h"

TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Provvigioni" 0 2 0 0

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

STRING F_MCODVAL 3
BEGIN
  PROMPT 40 2 "Valuta "
  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 "Valuta"
  ITEM "Cambio"
  ITEM "Data\ncambio@10"
  ITEM "Ragione Sociale@50"
  GROUP 1
END

SPREADHSEET F_RATE_SHEET
BEGIN
  PROMPT 2 12 ""
  ITEM "Nr. rata"
  ITEM "Data scadenza"
  ITEM "Tipo\npag.@5"
  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 13

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno "
END

STRING F_CODNUM 4
BEGIN
  PROMPT 13 1 "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 1 "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@10" ANNO
  DISPLAY "Cod. num.@15" CODNUM
  DISPLAY "Num. doc.@15" NDOC
  DISPLAY "Valuta" CODVAL
  OUTPUT F_ANNO ANNO
  OUTPUT F_CODNUM CODNUM
  OUTPUT F_NDOC NDOC
  OUTPUT F_CODVAL CODVAL
  ADD RUN VE0 -1
END

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

STRING F_CODVAL 3
BEGIN
  PROMPT 2 4 "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 6
BEGIN
  PROMPT 25 4 "Cambio "
END

DATE F_DATACAMBIO 
BEGIN
  PROMPT 52 4 "Data cambio "
END

CURRENCY F_IMPDOC 18
BEGIN
  PROMPT 2 6 "Importo doc.         "
  DRIVENBY F_CODVAL
END

CURRENCY F_IMPPRDOC 18
BEGIN
  PROMPT 2 7 "Importo provv. doc.  "
  DRIVENBY F_CODVAL
  NUM_EXPR {IF ((#THIS_FIELD > 0);(#THIS_FIELD <= #F_IMPDOC);(IF ((#THIS_FIELD < 0);(#THIS_FIELD >= #F_IMPDOC);(1))))}
  WARNING "L'importo della provvigione deve essere minore dell'importo documento"
END

CURRENCY F_IMPNETDOC 18 
BEGIN
  PROMPT 2 8 "Base di calcolo      "
  DRIVENBY F_CODVAL
  NUM_EXPR {IF ((#THIS_FIELD > 0);(#THIS_FIELD <= #F_IMPDOC);(IF ((THIS_FIELD < 0);(#THIS_FIELD >= #F_IMPDOC);(1))))}
  WARNING "L'importo della base di calcolo deve essere minore dell'importo documento"
END

NUMBER F_CLIENTE 7
BEGIN
  PROMPT 2 10 "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 10 ""
  USE LF_CLIFO KEY 2 SELECT TIPOCF=="C"
  INPUT TIPOCF "C"
  INPUT CODCF F_RAGCLI
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Cod. cliente" CODCF
  COPY OUTPUT F_CLIENTE
  CHECKTYPE SEARCH
END

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

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

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

ENDPAGE

ENDMASK


// Maschera spreadsheet delle rate

PAGE "" -1 -1 76 15

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

DATE F_DATASCAD 
BEGIN
  PROMPT 2 2 "Data scadenza                "
END

LISTBOX F_TIPOPAG 1 20
BEGIN
  PROMPT 2 3 "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_CODVAL1 3
BEGIN
  PROMPT 1 1 ""
  FLAGS "UH"
END

CURRENCY F_IMPRATA 18
BEGIN
  PROMPT 2 4 "Importo rata                 "
  DRIVENBY F_CODVAL1
//  PICTURE "."
END

CUURENCY  F_IMPPROVV 18
BEGIN
  PROMPT 2 5 "Importo provvigione          "
  DRIVENBY F_CODVAL1
//  PICTURE "."
END

CURRENCY F_PAGATO 18
BEGIN
  PROMPT 2 6 "Importo rata pagata          "
  DRIVENBY F_CODVAL1
//  PICTURE "."
  FLAGS "D"
  GROUP 5
END

CURRENCY F_PROVVPAG 18
BEGIN
  PROMPT 2 7 "Importo provvigione pagata   "
  DRIVENBY F_CODVAL1
//  PICTURE "."
  FLAGS "D"
  GROUP 5
END

CURRENCY F_PAGMAT 18
BEGIN
  PROMPT 2 8 "Importo pagamento maturato   "
  DRIVENBY F_CODVAL1
//  PICTURE "."
  NUM_EXPR {IF ((#THIS_FIELD > 0);(#THIS_FIELD <= #F_IMPRATA);(IF ((#THIS_FIELD < 0);(#THIS_FIELD >= #F_IMPRATA);(1))))}
  WARNING "L'importo pagamento maturato deve essere minore dell'importo della rata"
END

CURRENCY F_PROVVMAT 18
BEGIN
  PROMPT 2 9 "Importo provvigione maturata "
  DRIVENBY F_CODVAL1
//  PICTURE "."
  NUM_EXPR {IF ((#THIS_FIELD > 0);(#THIS_FIELD <= #F_IMPPROVV);(IF ((#THIS_FIELD < 0);(#THIS_FIELD >= #F_IMPPROVV);(1))))}
  WARNING "L'importo provvigione maturata deve essere minore dell'importo della provvigione"
END

BOOLEAN F_SALDATA
BEGIN
  PROMPT 2 10 "Rata saldata                 "
END

LISTBOX F_TIPOPAGPR 1 20
BEGIN
  PROMPT 2 11 "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 10 2
BEGIN
  PROMPT -14 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN 
  PROMPT -24 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -34 -1 ""
END

BUTTON DLG_ENABLE 10 2
BEGIN
  PROMPT -44 -1 "~Abilita"
END

ENDPAGE

ENDMASK