campo-sirio/ba/bastclr.uml

#include "ba3200.h"

PAGE "Stampa classificazione rate" -1 -1 50 8

STRING F_INIZIO1 1
BEGIN
  PROMPT 4 1 "Da Codice  "
  HELP "Codice della rata dell'ulteriore classificazione"
  FIELD CODTAB[1,1]
  SHEET "Cod|Descrizione@60"
  INPUT F_INIZIO1
  OUTPUT F_INIZIO1
  ITEM " |Tutte"
  ITEM "1|Rimessa diretta o contanti"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di accredito"
  ITEM "7|Tratta accettata"
  ITEM "8|Altro pagamento"
  GROUP 1
END 

STRING F_INIZIO2 1
BEGIN
  PROMPT 20 1 ""
  FIELD CODTAB[2,2]
  KEY 1
  USE %CLR
  INPUT CODTAB[1,1] F_INIZIO1
  INPUT CODTAB[2,2] F_INIZIO2
  DISPLAY "Tipo pagamento" CODTAB[1,1]
  DISPLAY "Classificazione" CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_INIZIO1 CODTAB[1,1]
  OUTPUT F_INIZIO2 CODTAB[2,2]
  HELP "Codice dell' ulteriore classificazione"
  GROUP 1
END

STRING F_FINE1 1
BEGIN
  PROMPT 4 3 "Da Codice  "
  HELP "Codice della rata dell'ulteriore classificazione"
  FIELD CODTAB[1,1]
  SHEET "Cod|Descrizione@60"
  INPUT F_FINE1
  OUTPUT F_FINE1
  ITEM " |Tutte"
  ITEM "1|Rimessa diretta o contanti"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di accredito"
  ITEM "7|Tratta accettata"
  ITEM "8|Altro pagamento"
  GROUP 2
END 

STRING F_FINE2 1
BEGIN
  PROMPT 20 3 ""
  FIELD CODTAB[2,2]
  KEY 1
  COPY USE F_INIZIO2
  INPUT CODTAB[1,1] F_FINE1
  INPUT CODTAB[2,2] F_FINE2
  DISPLAY "Tipo pagamento" CODTAB[1,1]
  DISPLAY "Classificazione" CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_FINE1 CODTAB[1,1]
  OUTPUT F_FINE2 CODTAB[2,2]
  HELP "Codice dell' ulteriore classificazione"
  GROUP 2
END

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

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

ENDPAGE
ENDMASK