#include "batbclr.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.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_MODPAG 4
BEGIN
  PROMPT 30 4 "Tipo pagamento  "
  SHEET "Codice|Tipo pagamento@32"
  INPUT F_MODPAG
  OUTPUT F_MODPAG
  CHECKTYPE REQUIRED
  FIELD S12
  ITEM "MP01|contanti"
  ITEM "MP02|assegno"
  ITEM "MP03|assegno circolare"
  ITEM "MP04|contanti presso Tesoreria"
  ITEM "MP05|bonifico"
  ITEM "MP06|vaglia cambiario"
  ITEM "MP07|bollettino bancario"
  ITEM "MP08|carta di pagamento"
  ITEM "MP09|RID"
  ITEM "MP10|RID utenze"
  ITEM "MP11|RID veloce"
  ITEM "MP12|RIBA"
  ITEM "MP13|MAV"
  ITEM "MP14|quietanza erario"
  ITEM "MP15|giroconto su conti di contabilità speciale"
  ITEM "MP16|domiciliazione bancaria"
  ITEM "MP17|domiciliazione postale"
  ITEM "MP18|bollettino di c/c postale"
  ITEM "MP19|SEPA Direct Debit"
  ITEM "MP20|SEPA Direct Debit CORE"
  ITEM "MP21|SEPA Direct Debit B2B"
  ITEM "MP22|Trattenuta su somme già riscosse"
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