Cancellate e updatate
git-svn-id: svn://10.65.10.50/trunk@591 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
6b2cda0c60
commit
6fa1850d67
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Assoggettamento" -1 -1 50 8
|
PAGE "Stampa Assoggettamento" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %ASF
|
USE %ASF
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Categorie contabili" -1 -1 50 8
|
PAGE "Stampa Categorie contabili" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %CCO
|
USE %CCO
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Categorie finanziarie" -1 -1 50 8
|
PAGE "Stampa Categorie finanziarie" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %CFI
|
USE %CFI
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,43 +1,43 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa cariche sociali" -1 -1 50 8
|
PAGE "Stampa cariche sociali" -1 -1 50 8
|
||||||
|
|
||||||
STRING F_INIZIO1 2
|
STRING F_INIZIO1 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %CRS
|
USE %CRS
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Carica@25" S0
|
DISPLAY "Carica@25" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 2
|
STRING F_FINE1 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,45 +1,45 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Categorie Vendita" -1 -1 50 8
|
PAGE "Stampa Categorie Vendita" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %CVE
|
USE %CVE
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Provvigione" R0
|
DISPLAY "Provvigione" R0
|
||||||
DISPLAY "Gruppo" I1
|
DISPLAY "Gruppo" I1
|
||||||
DISPLAY "Conto" I2
|
DISPLAY "Conto" I2
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Legali" -1 -1 50 8
|
PAGE "Stampa Legali" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %LEG
|
USE %LEG
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa listini" -1 -1 50 8
|
PAGE "Stampa listini" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %LIS
|
USE %LIS
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Modalita' di spedizione" -1 -1 50 8
|
PAGE "Stampa Modalita' di spedizione" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %MSP
|
USE %MSP
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Note documento" -1 -1 50 8
|
PAGE "Stampa Note documento" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %NDO
|
USE %NDO
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,44 +1,44 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Codici note" -1 -1 50 8
|
PAGE "Stampa Codici note" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %NOT
|
USE %NOT
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Destinazione@30" S0
|
DISPLAY "Destinazione@30" S0
|
||||||
DISPLAY "Blocca imm." B0
|
DISPLAY "Blocca imm." B0
|
||||||
DISPLAY "Documento" B1
|
DISPLAY "Documento" B1
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
140
ba/bastois.uml
140
ba/bastois.uml
@ -1,70 +1,70 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa vecchi codici attivita'" -1 -1 60 8
|
PAGE "Stampa vecchi codici attivita'" -1 -1 60 8
|
||||||
|
|
||||||
STRING F_INIZIO1 4
|
STRING F_INIZIO1 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
USE %OIS
|
USE %OIS
|
||||||
FIELD CODTAB[1,4]
|
FIELD CODTAB[1,4]
|
||||||
INPUT CODTAB[1,4] F_INIZIO1
|
INPUT CODTAB[1,4] F_INIZIO1
|
||||||
INPUT CODTAB[5,] F_INIZIO2
|
INPUT CODTAB[5,] F_INIZIO2
|
||||||
DISPLAY "Codice" CODTAB[1,4]
|
DISPLAY "Codice" CODTAB[1,4]
|
||||||
DISPLAY "Subcodice" CODTAB[5,]
|
DISPLAY "Subcodice" CODTAB[5,]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB[1,4]
|
OUTPUT F_INIZIO1 CODTAB[1,4]
|
||||||
OUTPUT F_INIZIO2 CODTAB[5,]
|
OUTPUT F_INIZIO2 CODTAB[5,]
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_INIZIO2 1
|
STRING F_INIZIO2 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 28 1 "subcodice "
|
PROMPT 28 1 "subcodice "
|
||||||
HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
FIELD CODTAB[5,]
|
FIELD CODTAB[5,]
|
||||||
COPY ALL F_INIZIO1
|
COPY ALL F_INIZIO1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
STRING F_FINE1 4
|
STRING F_FINE1 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
FIELD CODTAB[1,4]
|
FIELD CODTAB[1,4]
|
||||||
INPUT CODTAB[1,4] F_FINE1
|
INPUT CODTAB[1,4] F_FINE1
|
||||||
INPUT CODTAB[5,] F_FINE2
|
INPUT CODTAB[5,] F_FINE2
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB[1,4]
|
OUTPUT F_FINE1 CODTAB[1,4]
|
||||||
OUTPUT F_FINE2 CODTAB[5,]
|
OUTPUT F_FINE2 CODTAB[5,]
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
STRING F_FINE2 1
|
STRING F_FINE2 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 28 3 "subcodice "
|
PROMPT 28 3 "subcodice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
FIELD CODTAB[5,]
|
FIELD CODTAB[5,]
|
||||||
HELP "Subcodice di fine. Vuoto = fine archivio"
|
HELP "Subcodice di fine. Vuoto = fine archivio"
|
||||||
COPY ALL F_FINE1
|
COPY ALL F_FINE1
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Modalita' di consegna" -1 -1 50 8
|
PAGE "Stampa Modalita' di consegna" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %POR
|
USE %POR
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Spese da addebitare" -1 -1 50 8
|
PAGE "Stampa Spese da addebitare" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %SAD
|
USE %SAD
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@20" S0
|
DISPLAY "Descrizione@20" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,43 +1,43 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa sconti incondizionati" -1 -1 50 8
|
PAGE "Stampa sconti incondizionati" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %SCO
|
USE %SCO
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Percentuale" R0
|
DISPLAY "Percentuale" R0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,43 +1,43 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa stati" -1 -1 50 8
|
PAGE "Stampa stati" -1 -1 50 8
|
||||||
|
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %STA
|
USE %STA
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Stato@50" S0
|
DISPLAY "Stato@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,41 +1,41 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa codici statistici" -1 -1 50 8
|
PAGE "Stampa codici statistici" -1 -1 50 8
|
||||||
|
|
||||||
STRING F_INIZIO1 7
|
STRING F_INIZIO1 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %STT
|
USE %STT
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 7
|
STRING F_FINE1 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Titoli onorifici" -1 -1 50 8
|
PAGE "Stampa Titoli onorifici" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %TIT
|
USE %TIT
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,43 +1,43 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa uffici esattoria" -1 -1 50 8
|
PAGE "Stampa uffici esattoria" -1 -1 50 8
|
||||||
|
|
||||||
NUMBER F_INIZIO1 3
|
NUMBER F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 1 "Da codice "
|
PROMPT 3 1 "Da codice "
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
USE %UES
|
USE %UES
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@25" S0
|
DISPLAY "Descrizione@25" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_FINE1 3
|
NUMBER F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 3 "A codice "
|
PROMPT 3 3 "A codice "
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,44 +1,44 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa vettori" -1 -1 50 8
|
PAGE "Stampa vettori" -1 -1 50 8
|
||||||
|
|
||||||
NUMBER F_INIZIO1 3
|
NUMBER F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %VET
|
USE %VET
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice vettore" CODTAB
|
DISPLAY "Codice vettore" CODTAB
|
||||||
DISPLAY "Ragione sociale@50" S0
|
DISPLAY "Ragione sociale@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
KEY 1
|
KEY 1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_FINE1 3
|
NUMBER F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -3 ""
|
PROMPT -22 -3 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,42 +1,42 @@
|
|||||||
#include "ba3200.h"
|
#include "ba3200.h"
|
||||||
|
|
||||||
PAGE "Stampa Zone" -1 -1 50 8
|
PAGE "Stampa Zone" -1 -1 50 8
|
||||||
STRING F_INIZIO1 3
|
STRING F_INIZIO1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Da codice "
|
PROMPT 2 1 "Da codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
USE %ZON
|
USE %ZON
|
||||||
INPUT CODTAB F_INIZIO1
|
INPUT CODTAB F_INIZIO1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_INIZIO1 CODTAB
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FINE1 3
|
STRING F_FINE1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "A codice "
|
PROMPT 2 3 "A codice "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Codice di fine. Vuoto = fine archivio"
|
HELP "Codice di fine. Vuoto = fine archivio"
|
||||||
FIELD LF_TABCOM->CODTAB
|
FIELD LF_TABCOM->CODTAB
|
||||||
COPY USE F_INIZIO1
|
COPY USE F_INIZIO1
|
||||||
INPUT CODTAB F_FINE1
|
INPUT CODTAB F_FINE1
|
||||||
COPY DISPLAY F_INIZIO1
|
COPY DISPLAY F_INIZIO1
|
||||||
OUTPUT F_FINE1 CODTAB
|
OUTPUT F_FINE1 CODTAB
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 8 2
|
BUTTON DLG_OK 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_QUIT 8 2
|
BUTTON DLG_QUIT 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user