73 lines
1.3 KiB
Plaintext
73 lines
1.3 KiB
Plaintext
#include "lv0200c.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include "printbar.h"
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa Valore dotazione odierna per articolo" -1 -1 40 5
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bFiltro Articolo"
|
|
END
|
|
|
|
STRING F_DACODART 20
|
|
BEGIN
|
|
PROMPT 2 2 "Da Articolo "
|
|
FLAG "U"
|
|
FIELD #DACODART
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_DACODART
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DACODART CODART
|
|
OUTPUT F_DADESART DESCR
|
|
CHECKTYPE NORMAL
|
|
MESSAGE COPY,F_ACODART|CHECK,F_ACODART
|
|
END
|
|
|
|
STRING F_DADESART 50
|
|
BEGIN
|
|
PROMPT 2 3 " Descrizione"
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT CODART F_DADESART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT F_DACODART
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_ACODART 20
|
|
BEGIN
|
|
PROMPT 2 5 "A Articolo "
|
|
FLAG "U"
|
|
FIELD #ACODART
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_ACODART
|
|
COPY DISPLAY F_DACODART
|
|
OUTPUT F_ACODART CODART
|
|
OUTPUT F_ADESART DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_ADESART 50
|
|
BEGIN
|
|
PROMPT 2 6 " Descrizione"
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT CODART F_ADESART
|
|
COPY DISPLAY F_DADESART
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT F_ACODART
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
BOOLEAN 400
|
|
BEGIN
|
|
PROMPT 2 9 "Stampa dettaglio clienti"
|
|
FIELD DETT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|