campo-sirio/ba/batb%clr.uml

#include <batb%clr.h>

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Ulteriore classificazione" -1 -1 78 13

STRING F_CODICERATA 1 
BEGIN
  PROMPT 4 1 "Codice      "
  FIELD %CLR->CODTAB[1,1]
  SHEET "Cod|Descrizione@60"
  INPUT F_CODICERATA
  OUTPUT 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 accredito"
  ITEM "7|Tratta accettata"
	ITEM "8|Altro pagamento"
END 

STRING F_CODICEALFA 1
BEGIN
  PROMPT 20 1 ""
  FIELD %CLR->CODTAB[2,2]
  KEY 1
  USE %CLR
  INPUT CODTAB[1,1] F_CODICERATA 
  INPUT CODTAB[2,2] F_CODICEALFA
  DISPLAY "Tipo pagamento" CODTAB[1,1]
  DISPLAY "Classificazione" CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICERATA CODTAB[1,1]
  OUTPUT F_CODICEALFA CODTAB[2,2]
  OUTPUT F_DESCR S0
  HELP "Inserire il codice dell' ulteriore classificazione"
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 4 3 "Descrizione "
  FIELD %CLR->S0
  USE %CLR
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo pagamento" CODTAB[1,1]
  DISPLAY "Classificazione" CODTAB[2,2]
  OUTPUT F_CODICERATA CODTAB[1,1]
  OUTPUT F_CODICEALFA CODTAB[2,2]
  OUTPUT F_DESCR S0
  HELP "Inserire la descrizione dell' ulteriore classificazione"
END

ENDPAGE

ENDMASK