#include "abtbarb.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Tabella archiviazione bilanci" 0 2 0 0

GROUPBOX DLG_NULL 74 12
BEGIN
  PROMPT 2 0 ""
  FLAGS "R"
END


STRING F_CODTAB_DITTA 5
BEGIN  
  PROMTP 4 3 "Codice ditta          "
  HELP "Inserire il codice della ditta"
  FIELD CODTAB[1,5]
  FLAG "RU"
  KEY 1
  USE LF_NDITTE KEY 1
  INPUT LF_NDITTE->CODDITTA F_CODTAB_DITTA  
  DISPLAY "Codice@5" LF_NDITTE->CODDITTA   
  DISPALY "Ragione sociale@45" LF_NDITTE->RAGSOC
  OUTPUT F_CODTAB_DITTA LF_NDITTE->CODDITTA
  CHECKTYPE REQUIRED
END


STRING F_CODTAB_ESE  4
BEGIN
  PROMTP 4 5 "Anno                  "
  HELP "Inserire l'anno di esercizio"
  FIELD CODTAB[6,9]      
  KEY 1
  USE %ARB KEY 1
  INPUT %ARB->CODTAB[6,9] F_CODTAB_ESE
  DISPLAY "Anno@4" CODTAB[6,9]
  DISPLAY "Codice@5" CODTAB[1,5]   
  DISPALY "Periodo@3" CODTAB[10,12]
  DISPLAY "Tipo@3" CODTAB[13,15]
  OUTPUT F_CODTAB_DITTA CODTAB[1,5]
  OUTPUT F_CODTAB_ESE CODTAB[6,9]
  OUTPUT F_CODTAB_PER CODTAB[10,12] 
  OUTPUT F_CODTAB_TIPO CODTAB[13,15]
  OUTPUT F_SCEGLI B0
  OUTPUT F_DI D0
  OUTPUT F_DF D1
  CHECKTYPE REQUIRED
END                        


STRING F_CODTAB_PER  3
BEGIN
  PROMTP 4 7 "Codice perido         "
  HELP "Inserire il codeice che identifica il tipo periodo"
  FIELD CODTAB[10,12]
  FLAG "RU"
  KEY 1
  USE %PDB KEY 1
  INPUT %PDB->CODTAB F_CODTAB_PER
  DISPLAY "Cod@3" %PDB->CODTAB
  DISPALY "Descrizione@35" %PDB->S0
  DISPLAY "Gi" %PDB->I0
  DISPLAY "Mi" %PDB->I1
  DISPLAY "Gf" %PDB->I2
  DISPLAY "Mf" %PDB->I3 
  DISPLAY "N.anni" %PDB->I4
  OUTPUT F_CODTAB_PER %PDB->CODTAB
  CHECKTYPE REQUIRED
END                        


STRING F_CODTAB_TIPO  3
BEGIN
  PROMPT 4 9   "Tipo di bilancio      "
  HELP "Inserire il codice che identifica il tipo" 
  FIELD CODTAB[13,15]    
  FLAG "RU"
  KEY 1
  USE %NTB KEY 1
  INPUT %NTB->CODTAB F_CODTAB_TIPO 
  DISPLAY "Cod@5" %NTB->CODTAB
  DISPLAY "Descrizione@40" %NTB->S0
  OUTPUT F_CODTAB_TIPO %NTB->CODTAB
  CHECKTYPE REQUIRED
END                        


BOOLEAN F_SCEGLI
BEGIN
  PROMPT 4 12 "Periodo chiuso"
  FIELD B0 
END

DATE F_DI       
BEGIN
  PROMPT 4 14 "Data di archiviazione "
  FIELD D0
END

DATE F_DF
BEGIN
  PROMPT 4 16 "Data di ripristino    "
  FIELD D1
  NUM_EXPR (#F_DF==0)||(#F_DF<#F_DI)
  WARNING "La data di ripristino deve essere superiore a quella di archiviazione"
  CHECKTYPE NORMAL
END


ENDPAGE

ENDMASK