#include "batbcpg.h"

TOOLBAR "" 0 20 0 2 
#include <toolbar.h>
ENDPAGE

PAGE "Tabella pagamenti" -1 -1 78 15

STRING F_CODICE 4
BEGIN
  PROMPT 4 1 "Codice          "
  HELP "Codice di pagamento"
  FIELD LF_TABCOM->CODTAB
  FLAGS "UZ"
  USE %CPG 
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Tipo di pagamento@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESC S0
  CHECKTYPE REQUIRED
  KEY 1
END 

STRING F_DESC 50
BEGIN
  PROMPT 4 3 "Descrizione     "
  HELP "Descrizione del tipo di pagamento"
  FIELD LF_TABCOM->S0
  USE %CPG KEY 2
  CHECKTYPE REQUIRED
  INPUT S0 F_DESC
  DISPLAY "Tipo di pagamento@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESC S0
	KEY 2
END 

LIST F_TIPO 18
BEGIN
  PROMPT 4 5 "Tipo            "
  HELP "Inserire il tipo"
  FIELD LF_TABCOM->I0
  ITEM "1|Rimessa Diretta"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di credito"
  ITEM "7|Tratta accettata"
END 

LIST F_INIZIOSCAD 12
BEGIN
  PROMPT 4 7 "Inizio scadenze "
  FIELD LF_TABCOM->S7
  ITEM "F|Data fattura"
  ITEM "M|Fine mese"
  ITEM "D|Data fissa"
END 

BOOLEAN F_MESECOMM 
BEGIN
  PROMPT 4 9 "Mese commerciale"
  FIELD LF_TABCOM->B0
END 

BOOLEAN F_RATEDIFF 
BEGIN
  PROMPT 4 11 "Rate differenziate "
  FIELD LF_TABCOM->B1
END

ENDPAGE

ENDMASK