1b14ec9415
git-svn-id: svn://10.65.10.50/branches/R_10_00@23236 c028cbd2-c16b-5b4b-a496-9718f37d4682
116 lines
2.3 KiB
Plaintext
Executable File
116 lines
2.3 KiB
Plaintext
Executable File
#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 |