root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.00 1392

Browse Source 
Files correlati     : vetbcnt.msk

Commento             :
Causali per numerazione
This commit is contained in:
Alex 2025-05-09 01:39:55 +02:00
parent a043bd881a
commit d6cbaf3e5a
2 changed files with 146 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ve/vetbcnt.h Normal file
View File

@ -0,0 +1,8 @@
#define FC_CODNUM 101
#define FC_DESNUM 102
#define FC_TIPODOC 103
#define FC_DESTIPODOC 104
#define FC_CAUS 105
#define FC_DESCAUS 106
#define FC_CAUSANT 107
#define FC_DESCAUSANT 108

138
src/ve/vetbcnt.uml Normal file
View File

@ -0,0 +1,138 @@
#include "vetbcnt.h"
TOOLBAR "Toolbar" 0 0 0 2
#include <filebar.h>
BUTTON DLG_NULL 2 2
BEGIN
END
#include <cancelbar.h>
ENDPAGE
PAGE "Causali per numerazione" 0 2 0 0
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING FC_CODNUM 4
BEGIN
PROMPT 2 2 "Numerazione "
FIELD CODTAB[1,4]
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB FC_CODNUM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FC_CODNUM CODTAB
OUTPUT FC_DESNUM S0
CHECKTYPE FORCED
FLAG "UPA"
KEY 1
WARNING Numerazione #F_CODNUM assente
END
STRING FC_DESNUM 50
BEGIN
PROMPT 24 2 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 FC_DESNUM
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FC_CODNUM
KEY 1
GROUP 1
END
STRING FC_TIPODOC 4
BEGIN
PROMPT 2 3 "Tipo "
FIELD CODTAB[5,8]
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB FC_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FC_TIPODOC CODTAB
OUTPUT FC_DESTIPODOC S0
CHECKTYPE FORCED
FLAG "UP"
KEY 1
WARNING Tipo documento #F_TIPODOC assente
END
STRING FC_DESTIPODOC 50
BEGIN
PROMPT 24 3 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 FC_DESTIPODOC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FC_TIPODOC
KEY 1
END
STRING FC_CAUS 3
BEGIN
PROMPT 2 6 "Causale "
FIELD S5
USE LF_CAUSALI
INPUT CODCAUS FC_CAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT FC_CAUS CODCAUS
OUTPUT FC_DESCAUS DESCR
CHECKTYPE NORMAL
FLAG "U"
GROUP 2
ADD RUN CG0 -4
END
STRING FC_DESCAUS 50
BEGIN
PROMPT 24 6 ""
USE LF_CAUSALI KEY 2
INPUT DESCR FC_DESCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT FC_CAUS
CHECKTYPE NORMAL
GROUP 2
END
STRING FC_CAUSANT 3
BEGIN
PROMPT 2 7 "Causale ant. "
FIELD S6
USE LF_CAUSALI SELECT REG ==""
INPUT CODCAUS FC_CAUSANT
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT FC_CAUSANT CODCAUS
OUTPUT FC_DESCAUSANT DESCR
CHECKTYPE NORMAL
FLAG "U"
GROUP 2
END
STRING FC_DESCAUSANT 50
BEGIN
PROMPT 24 7 ""
USE LF_CAUSALI KEY 2
INPUT DESCR FC_DESCAUSANT
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT FC_CAUSANT
CHECKTYPE NORMAL
GROUP 2
END
ENDPAGE
ENDMASK