campo-sirio/ba/ba3700a.uml

#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 "UZ"
  FIELD CODTAB
  USE %CPG KEY 1 ALIAS 50
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESC S0
  CHECKTYPE REQUIRED
  KEY 1
END 

STRING F_DESC 50
BEGIN
  PROMPT 6 2 "Descrizione    "
  HELP "Descrizione condizione di pagamento"
  FIELD S0
  USE %CPG KEY 2 ALIAS 51
  INPUT S0 F_DESC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
  KEY 2
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 53 5 "Numero rate "
  HELP "Numero delle rate"
  FLAGS "R"
END

LIST F_RATE_DIFF 1 28
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 modifica"  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 49 6 "Intervallo rate "
  HELP "Giorni di intervallo tra una data e l'altra"
  FLAGS "R"
END

LIST F_TIPO_RATA 1 28
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 53 7 "Ult. class. "
  FLAGS "U"
  USE %CLR
  INPUT CODTAB[1,1] F_TIPO_RATA SELECT 
  INPUT CODTAB[2,2] F_ULT_CLASS
  DISPLAY "Tipo pagamento" CODTAB[1,1]
  DISPLAY "Classificazione" 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" 
   NUM_EXPR (#F_FIXSCAD_1>=0)&&(#F_FIXSCAD_1<=31)
   WARNING "Il giorno del mese e' compreso tra 1 e 31!"
END

NUMBER F_FIXSCAD_2 2
BEGIN
   PROMPT 36 9 "(2) "
   FIELD I1
   HELP "Giorno scadenza obbligato: seconda alternativa"
   NUM_EXPR (#F_FIXSCAD_2==0)||((#F_FIXSCAD_2>0)&&(#F_FIXSCAD_2<=31)&&(#F_FIXSCAD_2>#F_FIXSCAD_1))
   WARNING "Giorno errato o non in sequenza"
END

NUMBER F_FIXSCAD_3 2
BEGIN
   PROMPT 44 9 "(3) "
   FIELD I2
   HELP "Giorno scadenza obbligato: terza alternativa"
   NUM_EXPR (#F_FIXSCAD_3==0)||((#F_FIXSCAD_3>0)&&(#F_FIXSCAD_3<=31)&&(#F_FIXSCAD_3>#F_FIXSCAD_2)&&(#F_FIXSCAD_3>#F_FIXSCAD_1))
   WARNING "Giorno errato o non in sequenza"
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 "Ult. class.@1"
  ITEM "Descrizione@50"
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 78 15

NUMBER 101 4
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 "
  USE %CLR
  INPUT CODTAB[1,1] 103 SELECT
  INPUT CODTAB[2,2] 104
  DISPLAY "Tipo pagamento" CODTAB[1,1]
  DISPLAY "Classificazione" 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 -13 -1 ""
END

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

BUTTON DLG_NULL 9 2
BEGIN
  PROMPT -33 -1 "Azzera"
  MESSAGE RESET,1@      
END

ENDPAGE
ENDMASK