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 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_CODICERATA 1 
BEGIN
  PROMPT 2 2 "Codice      "
  HELP "Codice della rata dell'ulteriore classificazione"
  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|Rapporti interban. diretti"           
  ITEM "9|Bonifici"                        
  KEY 1
  CHECKTYPE REQUIRED
END 

STRING F_CODICEALFA 1
BEGIN
  PROMPT 18 2 ""
  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 "Codice dell' ulteriore classificazione"
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 4 "Descrizione "
  FIELD %CLR->S0
  USE %CLR KEY 2
  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 "Descrizione dell' ulteriore classificazione"
END

ENDPAGE

ENDMASK