campo-sirio/ba/batbclr.uml

#include "batbclr.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Ulteriore classificazione" -1 -1 78 13

GROUPBOX DLG_NULL 75 9
BEGIN
 PROMPT 1 0 "Ulteriore classificazione"
 FLAGS "R"
END

LISTBOX F_CODICERATA 1 35
BEGIN
  PROMPT 2 2 "Codice          "
  FIELD CODTAB[1,1]
//  SHEET "Codice|Descrizione@50"
//  INPUT F_CODICERATA
  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 Interbancari Diretti"
  ITEM "9|Bonifici"
  KEY 1
//  OUTPUT F_CODICERATA
//  OUTPUT F_DESRATA
END

STRING F_CODICEALFA 1
BEGIN
  PROMPT 2 4 "Classificazione "
  FLAGS "U"
  FIELD CODTAB[2,2]
  USE %CLR
  INPUT CODTAB[1,1] F_CODICERATA
  INPUT CODTAB[2,2] F_CODICEALFA
  DISPLAY "Tipo pag." CODTAB[1,1]
  DISPLAY "Class." CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICERATA CODTAB[1,1]
  OUTPUT F_CODICEALFA CODTAB[2,2]
  OUTPUT F_DESCR S0
  KEY 1
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 6 "Descrizione     "
  FIELD S0
  USE %CLR KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo pag." CODTAB[1,1]
  DISPLAY "Class." CODTAB[2,2]
  OUTPUT F_CODICERATA CODTAB[1,1]
  OUTPUT F_CODICEALFA CODTAB[2,2]
  OUTPUT F_DESCR S0
  KEY 2
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK