e7be7cf3f5
Files correlati : Ricompilazione Demo : [ ] Commento :files spostati da VE ad MG9 git-svn-id: svn://10.65.10.50/trunk@12230 c028cbd2-c16b-5b4b-a496-9718f37d4682
354 lines
6.3 KiB
Plaintext
Executable File
354 lines
6.3 KiB
Plaintext
Executable File
#include "batbmag.h"
|
|
|
|
TOOLBAR "" 0 -3 60 3
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Magazzini" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 75 6
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_DITTA 5
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "FGH"
|
|
END
|
|
|
|
STRING F_CODICE 3
|
|
BEGIN
|
|
PROMPT 2 2 "Codice magazzino "
|
|
FIELD CODTAB[1,3]
|
|
KEY 1
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
FLAG "U"
|
|
INPUT CODTAB F_CODICE
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_CODICE CODTAB[1,3]
|
|
OUTPUT F_DESCR S0
|
|
OUTPUT H_DESCR S0
|
|
OUTPUT F_NATMAG I2
|
|
OUTPUT H_GESTGIA B0
|
|
OUTPUT F_CODLGIOR S8
|
|
OUTPUT F_UNLOC I1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CODDEP 2
|
|
BEGIN
|
|
PROMPT 28 2 "Codice deposito "
|
|
FIELD CODTAB[4,5]
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE MAG
|
|
INPUT CODTAB[1,3] F_CODICE SELECT
|
|
INPUT CODTAB[4,5] F_CODDEP
|
|
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
|
DISPLAY "Cod. deposito" CODTAB[4,5]
|
|
DISPLAY "Denominazione dep.@50" S0
|
|
OUTPUT F_CODICE CODTAB[1,3]
|
|
OUTPUT F_CODDEP CODTAB[4,5]
|
|
OUTPUT F_DESDEP S0
|
|
MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA|HIDE,G_INFOMAG@
|
|
MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA|SHOW,G_INFOMAG@
|
|
CHECKTYPE NORMAL
|
|
// controllo abilit. CODDEP (utilizzabile sempre)
|
|
STR_EXPR (#H_GESTGIA=="X")||(#F_CODDEP=="")
|
|
WARNING "Il magazzino deve essere abilitato alla gestione dei depositi"
|
|
END
|
|
|
|
//Abilitazione/disabil. dei campi relativi al deposito
|
|
BOOLEAN H_GESTGIA
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "HG"
|
|
MESSAGE TRUE SHOW,F_CODDEP
|
|
MESSAGE FALSE HIDE,F_CODDEP
|
|
END
|
|
|
|
STRING H_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 3 "Denominazione mag. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESDEP 50
|
|
BEGIN
|
|
PROMPT 2 4 "Denominazione dep. "
|
|
FIELD S0
|
|
USE MAG KEY 2
|
|
KEY 2
|
|
INPUT S0 F_DESDEP
|
|
DISPLAY "Denominazione dep.@50" S0
|
|
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
|
DISPLAY "Cod. deposito" CODTAB[4,5]
|
|
COPY OUTPUT F_CODDEP
|
|
MESSAGE K_TAB,F_CODDEP
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la denominazione"
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 3 "Denominazione mag. "
|
|
FIELD S0
|
|
KEY 2
|
|
USE MAG KEY 2
|
|
INPUT S0 F_DESCR
|
|
DISPLAY "Denominazione mag.@50" S0
|
|
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
|
DISPLAY "Cod. deposito" CODTAB[4,5]
|
|
COPY OUTPUT F_CODDEP
|
|
OUTPUT F_DESCR S0
|
|
MESSAGE K_TAB,F_CODDEP
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la denominazione del magazzino"
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 75 6
|
|
BEGIN
|
|
PROMPT 1 7 "Sede magazzino/deposito"
|
|
END
|
|
|
|
STRING F_IND 35
|
|
BEGIN
|
|
PROMPT 2 8 "Indirizzo "
|
|
FIELD S2
|
|
END
|
|
|
|
STRING F_CIV 10
|
|
BEGIN
|
|
PROMPT 60 8 "N. "
|
|
FIELD S7
|
|
END
|
|
|
|
STRING F_COM 4
|
|
BEGIN
|
|
PROMPT 2 9 "Codice comune "
|
|
FLAGS "U"
|
|
FIELD S5
|
|
USE LF_COMUNI
|
|
INPUT STATO ""
|
|
INPUT COM F_COM
|
|
#include <comdcod.h>
|
|
OUTPUT F_COM COM
|
|
OUTPUT F_LOC DENCOM
|
|
OUTPUT F_PROV PROVCOM
|
|
OUTPUT F_CAP CAPCOM
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune assente"
|
|
ADD RUN ba4 -0
|
|
END
|
|
|
|
STRING F_LOC 50
|
|
BEGIN
|
|
PROMPT 2 10 "Comune "
|
|
USE LF_COMUNI KEY 2
|
|
INPUT DENCOM F_LOC
|
|
#include <comdden.h>
|
|
COPY OUTPUT F_COM
|
|
ADD RUN ba4 -0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_PROV 2
|
|
BEGIN
|
|
PROMPT 2 11 "Provincia "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAP 5
|
|
BEGIN
|
|
PROMPT 60 11 "C.A.P. "
|
|
FIELD S3
|
|
END
|
|
|
|
LISTBOX F_NATMAG 1 50
|
|
BEGIN
|
|
PROMPT 2 14 "Natura del magazzino "
|
|
FIELD I2
|
|
ITEM "1|Proprieta' dell'azienda "
|
|
ITEM "2|Materiale nostro in lavorazione presso terzi"
|
|
ITEM "3|Materiale nostro in deposito presso terzi"
|
|
ITEM "4|Materiale di terzi in lavorazione presso l'azienda"
|
|
ITEM "5|Materiale di terzi in deposito presso l'azienda"
|
|
END
|
|
|
|
|
|
BOOL F_MAGSTD
|
|
BEGIN
|
|
PROMPT 2 16 "Usa come magazzino standard "
|
|
FIELD B1
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Parametri" -1 -1 78 20
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "AH"
|
|
END
|
|
|
|
BOOLEAN F_GESTGIA
|
|
BEGIN
|
|
PROMPT 5 2 "Gestione giacenze in piu' depositi "
|
|
FIELD B0
|
|
MESSAGE TRUE CLEAR,F_MAGSTD
|
|
MESSAGE FALSE ENABLE,F_MAGSTD
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
STRING F_CODLGIOR 3
|
|
BEGIN
|
|
PROMPT 5 4 "Codice libro giornale "
|
|
FLAGS "U"
|
|
FIELD S8
|
|
USE REG SELECT I0=9
|
|
INPUT CODTAB[1,4] F_ANNO
|
|
INPUT CODTAB[5,7] F_CODLGIOR
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Giornale" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODLGIOR CODTAB[5,7]
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
|
WARNING "Registro non valido come Libro giornale "
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
/*STRING F_CODLUNICO 3
|
|
BEGIN
|
|
PROMPT 26 5 "Codice libro unico "
|
|
FLAGS "HU"
|
|
FIELD S9
|
|
USE %LBU
|
|
INPUT CODTAB[1,4] F_ANNO SELECT
|
|
INPUT CODTAB[5,7] F_CODLUNICO
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Libro" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODLUNICO CODTAB[5,7]
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Codice errato o non relativo a questo anno"
|
|
END
|
|
|
|
BOOLEAN F_USALUNICO
|
|
BEGIN
|
|
PROMPT 52 5 "Usa libro unico "
|
|
FLAGS "HU"
|
|
FIELD B6
|
|
MESSAGE FALSE HIDE,F_CODLUNICO|SHOW,F_CODLGIOR
|
|
MESSAGE TRUE SHOW,F_CODLUNICO|HIDE,F_CODLGIOR
|
|
END
|
|
|
|
*/
|
|
|
|
GROUPBOX DLG_NULL 72 5
|
|
BEGIN
|
|
PROMPT 4 6 "Unita' locale"
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
NUMBER F_UNLOC 3
|
|
BEGIN
|
|
PROMPT 6 7 "Codice "
|
|
FIELD I1
|
|
USE LF_UNLOC KEY 1
|
|
JOIN LF_COMUNI INTO COM=COMULC STATO==""
|
|
INPUT CODDITTA F_DITTA SELECT
|
|
INPUT CODULC F_UNLOC
|
|
DISPLAY "Unita' Locale" CODULC
|
|
DISPLAY "Indirizzo@35" INDULC
|
|
DISPLAY "N." CIVULC
|
|
DISPLAY "C.A.P." CAPULC
|
|
DISPLAY "Comune@50" LF_COMUNI->DENCOM
|
|
DISPLAY "Provincia" LF_COMUNI->PROVCOM
|
|
OUTPUT H_COM COMULC
|
|
OUTPUT F_UNLOC CODULC
|
|
OUTPUT H_IND INDULC
|
|
OUTPUT H_CIV CIVULC
|
|
OUTPUT H_CAP CAPULC
|
|
OUTPUT H_LOC LF_COMUNI->DENCOM
|
|
OUTPUT H_PROV LF_COMUNI->PROVCOM
|
|
CHECKTYPE NORMAL
|
|
GROUP G_INFOMAG
|
|
ADD RUN ba4 -3
|
|
END
|
|
|
|
STRING H_COM 4
|
|
BEGIN
|
|
PROMPT 30 7 "Comune "
|
|
FLAGS "D"
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
STRING H_CAP 5
|
|
BEGIN
|
|
PROMPT 44 7 "C.A.P. "
|
|
FLAGS "D"
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
STRING H_PROV 2
|
|
BEGIN
|
|
PROMPT 60 7 "Provincia "
|
|
FLAGS "D"
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
STRING H_IND 35
|
|
BEGIN
|
|
PROMPT 6 8 "Indirizzo "
|
|
FLAGS "D"
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
STRING H_CIV 10
|
|
BEGIN
|
|
PROMPT 60 8 "N. "
|
|
FLAGS "D"
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
STRING H_LOC 50
|
|
BEGIN
|
|
PROMPT 6 9 "Comune "
|
|
FLAGS "D"
|
|
GROUP G_INFOMAG
|
|
END
|
|
|
|
/*LISTBOX F_STARAGG 22
|
|
BEGIN
|
|
PROMPT 2 4 "Stampare i movimenti su "
|
|
FIELD I2
|
|
ITEM "1|altro magazzino"
|
|
MESSAGE HIDE,F_CODLGIOR|SHOW,F_CODMAGSTA
|
|
ITEM "2|libro giornale"
|
|
MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR
|
|
END
|
|
|
|
STRING F_CODMAGSTA 3
|
|
BEGIN
|
|
PROMPT 28 5 "Codice magazzino "
|
|
FLAGS "U"
|
|
FIELD S6
|
|
USE MAG SELECT CODTAB[4,5] == ""
|
|
INPUT CODTAB[1,3] F_CODMAGSTA
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_CODMAGSTA CODTAB[1,3]
|
|
CHECKTYPE REQUIRED
|
|
END*/
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|