campo-sirio/ba/ba3700a.uml

#include "ba3700.h"

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

PAGE "Tabella condizioni di pagamento" -1 -1 78 15

BOOLEAN 909
BEGIN
  PROMPT 0 0 ""
  FLAGS "GH"
  FIELD B1
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING F_CODICE 4
BEGIN
  PROMPT 2 1 "Codice         "
  HELP "Codice condizione di pagamento"
  FLAGS "U#"
  FIELD CODTAB
  USE %CPG KEY 1
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESC S0
  CHECKTYPE REQUIRED
  ADD NONE
  KEY 1
END

STRING F_DESC 50
BEGIN
  PROMPT 2 2 "Descrizione    "
  HELP "Descrizione condizione di pagamento"
  FIELD S0
  USE %CPG KEY 2
  INPUT S0 F_DESC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
  KEY 2
  ADD NONE
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 4 ""
END

LIST F_INIZIOSCAD 1 12
BEGIN
  PROMPT 2 5 "Inizio calcolo  "
  FIELD S1
  ITEM "F|Data fattura"
  ITEM "M|Fine mese"
  ITEM "I|Da impostare"
END

NUMBER F_INT_RATE 3
BEGIN
  PROMPT 58 5 "Intervallo rate "
  HELP "Giorni di intervallo tra una data e l'altra"
  FIELD I3
END

LIST F_TIPO_PRIMA_RATA 1 45
BEGIN
  PROMPT 2 6 "Tipo prima rata "
  FIELD S3
  ITEM " |Totale documento ripartito tra tutte le rate"
  ITEM "1|Tutte le imposte sulla prima rata"
  ITEM "2|Tutte le spese sulla prima rata"
  ITEM "3|Imposte e spese sulla prima rata"
  ITEM "4|Solo imposte"
  ITEM "5|Solo spese"
  ITEM "6|Imposte + spese"
END

LIST F_RATE_DIFF 1 30
BEGIN
  PROMPT 2 7 "Rate            "
  ITEM  "1|Differenziate"                   MESSAGE "X",909|DISABLE,F_NUM_RATE|CLEAR,F_ULT_CLASS
  ITEM  "2|Uguali (obbligate dalla 2a)"     MESSAGE "",909|ENABLE,F_NUM_RATE|ENABLE,F_ULT_CLASS
  ITEM  "3|Uguali dalla prossima modif."    MESSAGE "X",909|DISABLE,F_NUM_RATE|ENABLE,F_ULT_CLASS
  ITEM  "4|Uguali finche' possibile"        MESSAGE "X",909|DISABLE,F_NUM_RATE|ENABLE,F_ULT_CLASS
END

NUMBER F_NUM_RATE 3
BEGIN
  PROMPT 62 7 "Numero rate "
  HELP "Numero delle rate"
END

LIST F_TIPO_RATA 1 30
BEGIN
  PROMPT 2 8 "Tipo rata       "
  ITEM "1|1-Rimessa diretta o contanti"
  ITEM "2|2-Tratta"
  ITEM "3|3-Ricevuta bancaria"
  ITEM "4|4-Cessione"
  ITEM "5|5-Paghero'"
  ITEM "6|6-Lettera di credito"
  ITEM "7|7-Tratta accettata"
  ITEM "8|8-Rapporti interban. diretti"
  ITEM "9|9-Bonifici"
  FIELD S4
END

STRING F_ULT_CLASS 1
BEGIN
  PROMPT 53 8 "Ulteriore classific. "
  FLAGS "U"
  USE %CLR
  INPUT CODTAB[1,1] F_TIPO_RATA SELECT
  INPUT CODTAB[2,2] F_ULT_CLASS
  DISPLAY "Tipo pag." CODTAB[1,1]
  DISPLAY "Class." CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ULT_CLASS CODTAB[2,2]
  CHECKTYPE NORMAL
  FIELD S5
END

NUMBER F_FIXSCAD_1 2
BEGIN
   PROMPT 2 9 "Giorni scadenza fissi (1) "
   FIELD I0
   HELP "Giorno scadenza obbligato: prima alternativa"
END

NUMBER F_FIXSCAD_2 2
BEGIN
   PROMPT 32 9 "(2) "
   FIELD I1
   HELP "Giorno scadenza obbligato: seconda alternativa"
END

NUMBER F_FIXSCAD_3 2
BEGIN
   PROMPT 40 9 "(3) "
   FIELD I2
   HELP "Giorno scadenza obbligato: terza alternativa"
END

BOOLEAN F_MESECOMM
BEGIN
  PROMPT 53 9 "Mese commerciale"
  HELP "Indicare se si utilizza il mese commerciale (30 gg)"
  FIELD B0
END

SPREADSHEET F_SHEET_RPG
BEGIN
  PROMPT 1 11 ""
  ITEM "N.ro giorni rata"
  ITEM "Percentuale"
  ITEM "Tipo@4"
  ITEM "Class."
  ITEM "Descrizione@50"
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 78 15

NUMBER 101 5
BEGIN
  PROMPT 4 1 "Numero giorni             "
END

NUMBER 102 6 2
BEGIN
  PROMPT 4 3 "Percentuale               "
  PICTURE ".2"
END

NUMBER 103 1
BEGIN
  PROMPT 4 5 "Tipo pagamento  "
  SHEET "Codice|Tipo pagamento@32"
  INPUT 103
  OUTPUT 103
  OUTPUT 105
  ITEM "1|Rimessa diretta o contanti"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di credito"
  ITEM "7|Tratta accettata"
  ITEM "8|Rapporti interb. diretti"
  ITEM "9|Bonifici"
END

STRING 104 1
BEGIN
  PROMPT 4 9 "Ulteriore classificazione "
  FLAGS "U"
  USE %CLR
  INPUT CODTAB[1,1] 103 SELECT
  INPUT CODTAB[2,2] 104
  DISPLAY "Tipo pag." CODTAB[1,1]
  DISPLAY "Class." CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT 104 CODTAB[2,2]
  OUTPUT 105 S0
  VALIDATE NOT_EMPTY_CHECK_FIELD
  WARNING "Codice ulteriore classificazione errato"
  CHECKTYPE NORMAL
END

STRING 105 50 28
BEGIN
  PROMPT 4 7 "Pagamento                 "
  FLAGS "D"
END

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

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

ENDPAGE
ENDMASK