481 lines
7.8 KiB
Plaintext
481 lines
7.8 KiB
Plaintext
|
#include "mg0400a.h"
|
|||
|
|
|
|||
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|||
|
|
#include <relapbar.h>
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
PAGE "Giacenze per Cliente/Fornitore" 0 2 0 0
|
|||
|
|
GROUPBOX DLG_NULL 78 4
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 0 0 "@bCliente/Fornitore"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
LIST F_TIPOCF 1 11
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "Tipo "
|
|||
|
|
FLAGS "PG"
|
|||
|
|
ITEM "C|Clienti"
|
|||
|
|
ITEM "F|Fornitori"
|
|||
|
|
FIELD TIPOCF
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_CODCF 6
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 22 1 "Codice "
|
|||
|
|
FLAGS "GR"
|
|||
|
|
USE LF_CLIFO
|
|||
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|||
|
|
INPUT CODCF F_CODCF
|
|||
|
|
DISPLAY "Codice@6R" CODCF
|
|||
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|||
|
|
OUTPUT F_TIPOCF TIPOCF
|
|||
|
|
OUTPUT F_CODCF CODCF
|
|||
|
|
OUTPUT F_RAGSOC RAGSOC[1,30]
|
|||
|
|
FIELD CODCF
|
|||
|
|
KEY 1
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_RAGSOC 30 28
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 40 1 "Descr. "
|
|||
|
|
USE LF_CLIFO KEY 2
|
|||
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|||
|
|
INPUT RAGSOC[1,30] F_RAGSOC
|
|||
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|||
|
|
DISPLAY "Codice@R" CODCF
|
|||
|
|
COPY OUTPUT F_CODCF
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODART 20
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 4 "Articolo "
|
|||
|
|
FIELD LF_ANAMAG->CODART
|
|||
|
|
KEY 1
|
|||
|
|
FLAG "UG"
|
|||
|
|
USE LF_ANAMAG
|
|||
|
|
INPUT CODART F_CODART
|
|||
|
|
DISPLAY "Codice@20" CODART
|
|||
|
|
DISPLAY "Descrizione@50" DESCR
|
|||
|
|
OUTPUT F_CODART CODART
|
|||
|
|
OUTPUT F_DESART DESCR
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESART 50 41
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 34 4 ""
|
|||
|
|
FIELD LF_ANAMAG->DESCR
|
|||
|
|
KEY 2
|
|||
|
|
USE LF_ANAMAG KEY 2
|
|||
|
|
INPUT DESCR F_DESART
|
|||
|
|
DISPLAY "Codice@20" CODART
|
|||
|
|
DISPLAY "Descrizione@50" DESCR
|
|||
|
|
OUTPUT F_CODART CODART
|
|||
|
|
OUTPUT F_DESART DESCR
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_ANNOES 4
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 5 "Esercizio "
|
|||
|
|
FLAGS "UPZ"
|
|||
|
|
USE ESC
|
|||
|
|
INPUT CODTAB F_ANNOES
|
|||
|
|
DISPLAY "Codice@10" CODTAB
|
|||
|
|
DISPLAY "Dal@16" D0
|
|||
|
|
DISPLAY "Al@16" D1
|
|||
|
|
OUTPUT F_ANNOES CODTAB
|
|||
|
|
FIELD ANNOES
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
ADD RUN cg0 -5 ESC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
SPREADSHEET F_SHEETGIAC 0 -2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 0 6 "Giacenze"
|
|||
|
|
FLAGS "A"
|
|||
|
|
USE LF_MAG KEY NRIGA
|
|||
|
|
INPUT ANNOES F_ANNOES
|
|||
|
|
INPUT CODART F_CODART
|
|||
|
|
// la sequenza delle colonne livelliX <20> usata per ottenere
|
|||
|
|
// un ordinamento delle righe dello sheet: NON cambiarla
|
|||
|
|
ITEM "Ind.Sped."
|
|||
|
|
ITEM "Liv1@10"
|
|||
|
|
ITEM "Liv2@10"
|
|||
|
|
ITEM "Liv3@10"
|
|||
|
|
ITEM "Liv4@10"
|
|||
|
|
ITEM "Cazzone"
|
|||
|
|
ITEM "Livello rior.@10"
|
|||
|
|
ITEM "Scorta min.@10"
|
|||
|
|
ITEM "Lotto rior.@10"
|
|||
|
|
ITEM "Lotto incr.@10"
|
|||
|
|
ITEM "Giorni rior.@10"
|
|||
|
|
ITEM "Giacenza @10"
|
|||
|
|
ITEM "Val.Giac @12"
|
|||
|
|
ITEM "Rim.Iniz.@10"
|
|||
|
|
ITEM "V.Rim.Iniz.@12"
|
|||
|
|
ITEM "Acq.@10"
|
|||
|
|
ITEM "V.Acq.@12"
|
|||
|
|
ITEM "Entr.@10"
|
|||
|
|
ITEM "V.Entr.@12"
|
|||
|
|
ITEM "Ven.@10"
|
|||
|
|
ITEM "V.Ven.@12"
|
|||
|
|
ITEM "Uscito@10"
|
|||
|
|
ITEM "V.Uscito@12"
|
|||
|
|
ITEM "Ord.For.@10"
|
|||
|
|
ITEM "V.Ord.For.@12"
|
|||
|
|
ITEM "Ord.Cli.@10"
|
|||
|
|
ITEM "V.Ord.Cli.@12"
|
|||
|
|
ITEM "Scarti@10"
|
|||
|
|
ITEM "V.Scarti@12"
|
|||
|
|
ITEM "In Prod.Comp.@10"
|
|||
|
|
ITEM "In Prod.Fin.@10"
|
|||
|
|
ITEM "A conto L.@10"
|
|||
|
|
ITEM "In conto L.@10"
|
|||
|
|
ITEM "Etichette@10"
|
|||
|
|
ITEM "N.dist."
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
ENDMASK
|
|||
|
|
|
|||
|
|
//////////////////////////////////
|
|||
|
|
// SHEET
|
|||
|
|
//////////////////////////////////
|
|||
|
|
|
|||
|
|
TOOLBAR "" 0 -2 0 2
|
|||
|
|
|
|||
|
|
BUTTON DLG_OK 10 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT -13 -1 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_CANCEL 10 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT -23 -1 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_DELREC 10 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT -33 -1 "Elimina"
|
|||
|
|
MESSAGE EXIT,K_DEL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
PAGE "Giacenze" -1 -1 80 23
|
|||
|
|
|
|||
|
|
NUMBER F_INDSPED 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 1 "Codice indirizzo spedizione "
|
|||
|
|
USE LF_INDSP KEY 1
|
|||
|
|
INPUT TIPOCF -F_TIPOCF SELECT
|
|||
|
|
INPUT CODCF -F_CODCF SELECT
|
|||
|
|
INPUT CODIND F_INDSPED
|
|||
|
|
DISPLAY "Tipo" TIPOCF
|
|||
|
|
DISPLAY "Codice" CODCF
|
|||
|
|
DISPLAY "Cod.Ind.Sped." CODIND
|
|||
|
|
DISPLAY "Indirizzo@30" INDIR
|
|||
|
|
DISPLAY "C.A.P." CAP
|
|||
|
|
OUTPUT F_INDSPED CODIND
|
|||
|
|
FIELD INDSPED
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
//Livelli giacenza
|
|||
|
|
STRING F_LIV1 10
|
|||
|
|
BEGIN
|
|||
|
|
// Non mettere FLAGS "D" perch<63> disabiliterebbe tutta la colonna
|
|||
|
|
FLAGS "U"
|
|||
|
|
PROMPT 2 2 "Livello 1 "
|
|||
|
|
USE GCG
|
|||
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|||
|
|
INPUT CODTAB[1,1] "1"
|
|||
|
|
INPUT CODTAB[2,11] F_LIV1
|
|||
|
|
DISPLAY "Livello@20" 500@->S0
|
|||
|
|
DISPLAY "Gruppo@10" CODTAB[2,20]
|
|||
|
|
DISPLAY "Descr.@30" S0
|
|||
|
|
OUTPUT F_LIV1 CODTAB[2,12]
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
|
|||
|
|
MESSAGE EMPTY CLEAR,F_LIV2|CLEAR,F_LIV3|CLEAR,F_LIV4
|
|||
|
|
MESSAGE ENABLE,F_LIV2
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_LIV2 10
|
|||
|
|
BEGIN
|
|||
|
|
FLAGS "U"
|
|||
|
|
PROMPT 40 2 "Livello 2 "
|
|||
|
|
USE GCG
|
|||
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|||
|
|
INPUT CODTAB[1,1] "2"
|
|||
|
|
INPUT CODTAB[2,12] F_LIV2
|
|||
|
|
COPY DISPLAY F_LIV1
|
|||
|
|
OUTPUT F_LIV2 CODTAB[2,12]
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
MESSAGE EMPTY CLEAR,F_LIV3|CLEAR,F_LIV4
|
|||
|
|
MESSAGE ENABLE,F_LIV3
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_LIV3 10
|
|||
|
|
BEGIN
|
|||
|
|
FLAGS "U"
|
|||
|
|
PROMPT 2 3 "Livello 3 "
|
|||
|
|
USE GCG
|
|||
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|||
|
|
INPUT CODTAB[1,1] "3"
|
|||
|
|
INPUT CODTAB[2,12] F_LIV3
|
|||
|
|
COPY DISPLAY F_LIV1
|
|||
|
|
OUTPUT F_LIV3 CODTAB[2,12]
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
MESSAGE EMPTY CLEAR,F_LIV4
|
|||
|
|
MESSAGE ENABLE,F_LIV4
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_LIV4 10
|
|||
|
|
BEGIN
|
|||
|
|
FLAGS "U"
|
|||
|
|
PROMPT 40 3 "Livello 4 "
|
|||
|
|
USE GCG
|
|||
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|||
|
|
INPUT CODTAB[1,1] "4"
|
|||
|
|
INPUT CODTAB[2,12] F_LIV4
|
|||
|
|
COPY DISPLAY F_LIV1
|
|||
|
|
OUTPUT F_LIV4 CODTAB[2,12]
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CAZZO 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 60 60 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
// ubicazione introdotta da tabella ubicazioni
|
|||
|
|
STRING F_UBICAZ 10
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 4 "Ubicazione "
|
|||
|
|
FIELD UBICAZ
|
|||
|
|
USE UBI
|
|||
|
|
INPUT CODTAB F_UBICAZ
|
|||
|
|
DISPLAY "Codice" CODTAB[1,3]
|
|||
|
|
DISPLAY "Ubicazione@50 " S0
|
|||
|
|
OUTPUT F_UBICAZ CODTAB
|
|||
|
|
OUTPUT F_UBICAZD S0
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
STR_EXPR (#F_UBICAZ[4,10]=="")
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
// ubicazione introdotta direttamente o da tabella
|
|||
|
|
STRING F_UBICAZ2 10
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 4 "Ubicazione "
|
|||
|
|
FIELD UBICAZ
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_UBICAZD 20
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 27 4 ""
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODARTR 20
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 21 "Articolo "
|
|||
|
|
FLAGS "UD"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESCRR 50 45
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 33 21 ""
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_LIVRIOR 10 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 5 "Livello di riordino "
|
|||
|
|
FIELD LIVRIOR
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_SCORTAMIN 10 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 35 5 "Scorta minima "
|
|||
|
|
FIELD SCORTAMIN
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_LOTTORIOR 10 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 6 "Lotto minimo "
|
|||
|
|
FIELD LOTTORIOR
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_LOTTOIRIOR 10 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 35 6 "Lotto increm. "
|
|||
|
|
FLAGS "U"
|
|||
|
|
FIELD LOTTOIRIOR
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_GIORNIRIOR 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 62 6 "Giorni "
|
|||
|
|
FLAGS "U"
|
|||
|
|
FIELD GIORNIRIOR
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_GIAC 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 7 "Giacenza attuale "
|
|||
|
|
FIELD GIAC
|
|||
|
|
MESSAGE CHECK,F_VALGIAC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VALGIAC 15
|
|||
|
|
BEGIN
|
|||
|
|
FLAG "DG"
|
|||
|
|
PROMPT 46 7 "Costo m.p."
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_RIM 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 8 "Rimanenze iniziali "
|
|||
|
|
FIELD RIM
|
|||
|
|
MESSAGE CHECK,F_VALGIAC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VRIM 18
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 46 8 "Valore "
|
|||
|
|
FIELD VALRIM
|
|||
|
|
MESSAGE CHECK,F_VALGIAC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_ACQ 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 9 "Acquistato "
|
|||
|
|
FIELD ACQ
|
|||
|
|
MESSAGE CHECK,F_VALGIAC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VACQ 18
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 46 9 "Valore "
|
|||
|
|
FIELD VALACQ
|
|||
|
|
MESSAGE CHECK,F_VALGIAC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_ENTR 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 10 "Entrato "
|
|||
|
|
FIELD ENT
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VENTR 18
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 46 10 "Valore "
|
|||
|
|
FIELD VALENT
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_VEN 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 11 "Venduto "
|
|||
|
|
FIELD VEN
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VVEN 18
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 46 11 "Valore "
|
|||
|
|
FIELD VALVEN
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_USC 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 12 "Uscito "
|
|||
|
|
FIELD USC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VUSC 18
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 46 12 "Valore "
|
|||
|
|
FIELD VALUSC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_ORDF 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 13 "Ordinato fornitori "
|
|||
|
|
FIELD ORDF
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VORDF 18
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 46 13 "Valore "
|
|||
|
|
FIELD VALORDF
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_ORDC 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 14 "Ordinato clienti "
|
|||
|
|
FIELD ORDC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VORDC 18
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 46 14 "Valore "
|
|||
|
|
FIELD VALORDC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_SCARTI 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 15 "Scarti "
|
|||
|
|
FIELD SCARTI
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_VSCARTI 18
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 46 15 "Valore "
|
|||
|
|
FIELD VALSCARTI
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_INPRODC 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 16 "In produzione (componenti) "
|
|||
|
|
FIELD PRODCOMP
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_INPRODF 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 17 "In produzione (finiti) "
|
|||
|
|
FIELD PRODFIN
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_ACL 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 18 "A conto lavorazione "
|
|||
|
|
FIELD ACL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_INCL 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 19 "In conto lavorazione "
|
|||
|
|
FIELD INCL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_LABELS 10
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 20 "Etichette da stampare "
|
|||
|
|
FIELD NLABEL
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_NDIST 15 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 42 20 "Distinte "
|
|||
|
|
FIELD NDIST
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
ENDMASK
|