campo-sirio/ba/ba3601a.uml

#include "ba3600.h"

PAGE "Stampa indici libro unico per ditta" -1 -1 76 10

DATE F_DATA_STAMPA
BEGIN
  PROMPT 3 1 "Data stampa   "
  HELP "Data in cui viene stampato il libro unico"
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 3 3 "Anno          "
  CHECKTYPE REQUIRED  
END
            
STRING F_LIBRO_UNICO1 3
BEGIN
  PROMPT 28 3 "Codice libro unico "
  HELP "Codice del libro da stampare"
  USE %LBU 
  INPUT CODTAB[1,4] F_ANNO        
  INPUT CODTAB[5,7] F_LIBRO_UNICO1
  DISPLAY "Anno@20" CODTAB[1,4]
  DISPLAY "Libro unico@22" CODTAB[5,7]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_LIBRO_UNICO1 CODTAB[5,7]
  CHECKTYPE REQUIRED       
  WARNING "Libro unico assente per l'anno specificato"
  FLAGS "UZ"
END

NUMBER F_MESEDA 2
BEGIN
  PROMPT 3 4 "Dal mese      "
  HELP "Primo mese di cui stampare i movimenti"
  NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)}     
  CHECKTYPE REQUIRED
  WARNING "Il valore deve essere compreso tra 1 e 12"
END

NUMBER F_MESEA 2
BEGIN
  PROMPT 28 4 "Al mese            "
  HELP "Ultimo mese di cui stampare i movimenti"
  NUM_EXPR {(((#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)) && (#THIS_FIELD >= #F_MESEDA))}
  CHECKTYPE REQUIRED
  WARNING "Il valore deve essere compreso tra 1 e 12 ed essere maggiore o uguale al mese di partenza"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 6 "Ditta         "
  FLAGS "R"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 6 ""
  FLAGS "D"
END

BUTTON DLG_PRINT 9 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK