417 lines
7.4 KiB
Plaintext
Executable File
417 lines
7.4 KiB
Plaintext
Executable File
#include "batbmag.h"
|
|
#include <comdcod.h>
|
|
#include <comdden.h>
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Gestione magazzini" 11 60 14
|
|
|
|
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 H_GESTGIA B0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CODDEP 2
|
|
BEGIN
|
|
PROMPT 28 2 "Codice deposito "
|
|
FIELD CODTAB[4,5]
|
|
FLAGS "U"
|
|
KEY 1
|
|
// abilit. CODDEP sempre:
|
|
USE MAG
|
|
INPUT CODTAB[1,3] F_CODICE SELECT
|
|
// abilit. CODDEP solo per i magazzini che lo consentono:
|
|
// ATTENZIONE! da' stack overflow
|
|
//USE MAG SELECT (CODTAB[1,3]==#F_CODICE)&&(CODTAB[4,5]!="")
|
|
|
|
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
|
|
MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA
|
|
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"
|
|
|
|
// abilit. CODDEP sempre:
|
|
// --rimuovere i campi MESSAGE--
|
|
// abilit. CODDEP solo per i magazzini che lo consentono:
|
|
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 72 5
|
|
BEGIN
|
|
PROMPT 4 6 "Unita' locale"
|
|
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
|
|
END
|
|
|
|
STRING H_COM 4
|
|
BEGIN
|
|
PROMPT 30 7 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING H_CAP 5
|
|
BEGIN
|
|
PROMPT 44 7 "C.A.P. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING H_PROV 2
|
|
BEGIN
|
|
PROMPT 60 7 "Provincia "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING H_IND 35
|
|
BEGIN
|
|
PROMPT 6 8 "Indirizzo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING H_CIV 10
|
|
BEGIN
|
|
PROMPT 60 8 "N. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING H_LOC 50
|
|
BEGIN
|
|
PROMPT 6 9 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 72 6
|
|
BEGIN
|
|
PROMPT 4 11 "Sede magazzino/deposito"
|
|
END
|
|
|
|
STRING F_IND 35
|
|
BEGIN
|
|
PROMPT 6 12 "Indirizzo "
|
|
FIELD S2
|
|
END
|
|
|
|
STRING F_CIV 10
|
|
BEGIN
|
|
PROMPT 60 12 "N. "
|
|
FIELD S7
|
|
END
|
|
|
|
STRING F_COM 4
|
|
BEGIN
|
|
PROMPT 6 13 "Codice comune "
|
|
FLAGS "U"
|
|
FIELD S5
|
|
USE LF_COMUNI
|
|
INPUT STATO ""
|
|
INPUT COM F_COM
|
|
DISPLAY "Codice" COM
|
|
DISPLAY "Comune@50" DENCOM
|
|
DISPLAY "Prov.@2" PROVCOM
|
|
DISPLAY "CAP@5" CAPCOM
|
|
|
|
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 6 14 "Comune "
|
|
USE LF_COMUNI KEY 2
|
|
INPUT DENCOM F_LOC
|
|
COPY DISPLAY F_COM
|
|
COPY OUTPUT F_COM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_PROV 2
|
|
BEGIN
|
|
PROMPT 6 15 "Provincia "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAP 5
|
|
BEGIN
|
|
PROMPT 60 15 "C.A.P. "
|
|
FIELD S3
|
|
END
|
|
|
|
LISTBOX F_NATMAG 1 50
|
|
BEGIN
|
|
PROMPT 2 17 "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
|
|
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Gestione magazzini" 11 60 14
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "AH"
|
|
END
|
|
|
|
BOOLEAN F_GESTGIA
|
|
BEGIN
|
|
PROMPT 2 2 "Gestione giacenze in piu' depositi "
|
|
FIELD B0
|
|
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|HIDE,F_USALUNICO
|
|
ITEM "2|libro giornale"
|
|
MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR|SHOW,F_USALUNICO
|
|
END
|
|
|
|
STRING F_CODMAGSTA 3
|
|
BEGIN
|
|
PROMPT 28 5 "Codice magazzino "
|
|
FLAGS "HU"
|
|
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
|
|
|
|
STRING F_CODLGIOR 3
|
|
BEGIN
|
|
PROMPT 23 5 "Codice libro giornale "
|
|
FLAGS "HU"
|
|
FIELD S8
|
|
USE REG SELECT I0=6
|
|
INPUT CODTAB[1,4] F_ANNO SELECT
|
|
INPUT CODTAB[5,7] F_CODLGIOR
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Giornale" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "I" I0
|
|
OUTPUT F_CODLGIOR CODTAB[5,7]
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
|
|
*/
|
|
|
|
NUMBER F_FREQSTA 2
|
|
BEGIN
|
|
PROMPT 2 6 "Frequenza stampa movimenti "
|
|
FIELD I4
|
|
END
|
|
|
|
BOOLEAN F_STALDIS
|
|
BEGIN
|
|
PROMPT 2 7 "Stampa libro raggruppato per classe fiscale articoli "
|
|
FIELD B1
|
|
END
|
|
|
|
|
|
BOOLEAN F_STAFISART
|
|
BEGIN
|
|
PROMPT 2 8 "Stampa libro ragg. per raggruppamento fiscale articoli "
|
|
FIELD B2
|
|
END
|
|
|
|
BOOLEAN F_STAFISCAU
|
|
BEGIN
|
|
PROMPT 2 9 "Stampa libro ragg. per raggruppamento fiscale causali "
|
|
FIELD B3
|
|
END
|
|
|
|
NUMBER F_PAGULTCORR 3
|
|
BEGIN
|
|
PROMPT 2 11 "Pagina e data ultima stampa esercizio corrente "
|
|
FIELD MAG->I5
|
|
END
|
|
|
|
DATE F_ULTCORR
|
|
BEGIN
|
|
PROMPT 58 11 ""
|
|
FIELD MAG->D0
|
|
END
|
|
|
|
NUMBER F_PAGULTPREC 3
|
|
BEGIN
|
|
PROMPT 2 12 "Pagina e data ultima stampa esercizio precedente "
|
|
FIELD MAG->I6
|
|
END
|
|
|
|
DATE F_ULTPREC
|
|
BEGIN
|
|
PROMPT 58 12 ""
|
|
FIELD MAG->D1
|
|
END
|
|
|
|
TEXT 140
|
|
BEGIN
|
|
PROMPT 2 14 "Parametri di stampa :"
|
|
END
|
|
|
|
BOOLEAN F_INTDITTA
|
|
BEGIN
|
|
PROMPT 2 15 "Intestazione della ditta "
|
|
FIELD MAG->B4
|
|
END
|
|
|
|
BOOLEAN F_STARIS
|
|
BEGIN
|
|
PROMPT 2 16 "Stampa ristretta "
|
|
FIELD MAG->B5
|
|
END
|
|
|
|
NUMBER F_LUNGMOD 2
|
|
BEGIN
|
|
PROMPT 2 17 "Lunghezza modulo "
|
|
FIELD MAG->I7
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|