#include "ba3700.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.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 71 4
BEGIN
  PROMPT 4 0 ""
  FLAGS "R"
END

STRING F_CODICE 4
BEGIN
  PROMPT 6 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 6 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 71 7
BEGIN
  PROMPT 4 4 ""
END

STRING F_INIZIOSCAD 1
BEGIN
  PROMPT 5 5 "Inizio calcolo "
  HELP "Modalita' di inizio conteggio calcolo scadenza"
  FIELD S1
  SHEET "Cod|Descrizione@30"
  INPUT F_INIZIOSCAD
  OUTPUT F_INIZIOSCAD
  ITEM "F|Data fattura"
  ITEM "M|Fine mese"
  ITEM "I|Da impostare"
  WARNING "La partenza del calcolo deve essere specificata"
  FLAGS "U"
END

STRING F_TIPO_PRIMA_RATA 1
BEGIN
  PROMPT 28 5 "Tipo prima rata "
  HELP "Tipo di conteggio per la prima rata"
  FIELD S3
  SHEET "Cod|Descrizione@60"
  INPUT F_TIPO_PRIMA_RATA
  OUTPUT F_TIPO_PRIMA_RATA
  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


NUMBER F_NUM_RATE 3
BEGIN
  PROMPT 57 5 "Numero rate "
  HELP "Numero delle rate"
  FLAGS "R"
END

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

NUMBER F_INT_RATE 3
BEGIN
  PROMPT 53 6 "Intervallo rate "
  HELP "Giorni di intervallo tra una data e l'altra"
  FIELD I3
  FLAGS "R"
END

LIST F_TIPO_RATA 1 29
BEGIN
  PROMPT 5 7 "Tipo rata      "
  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 interban. diretti"
  ITEM "9|Bonifici"
  FIELD S4
END

STRING F_ULT_CLASS 1
BEGIN
  PROMPT 57 7 "Ult. class. "
  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 5 9 "Giorni scadenza fissi (1) "
   FIELD I0
   HELP "Giorno scadenza obbligato: prima alternativa"
END

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

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

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

SPREADSHEET F_SHEET_RPG
BEGIN
  PROMPT 0 11 ""
  ITEM "N.ro giorni rata"
  ITEM "Percentuale"
  ITEM "Tipo@1"
  ITEM "Class.@1"
  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 9 2
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE
ENDMASK