6fce3dd611
Files correlati : Ricompilazione Demo : [ ] Commento : Riportate le patch fino alla 172 git-svn-id: svn://10.65.10.50/trunk@12526 c028cbd2-c16b-5b4b-a496-9718f37d4682
728 lines
13 KiB
Plaintext
Executable File
728 lines
13 KiB
Plaintext
Executable File
#include "db1100a.h"
|
|
|
|
TOOLBAR "" 0 -3 -1 3
|
|
STRING DLG_PROFILE 70 50
|
|
BEGIN
|
|
FLAGS "G"
|
|
PROMPT 10 -3 "Profilo "
|
|
PSELECT
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Esplosione" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 1 1 "Selezione documenti"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 2 "Anno "
|
|
FLAGS "A"
|
|
END
|
|
|
|
LIST F_PROVV 12
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo numerazione "
|
|
ITEM "D|Definitiva"
|
|
ITEM "P|Provvisoria"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_NUMFROM 4
|
|
BEGIN
|
|
PROMPT 37 3 "Da numerazione "
|
|
FLAG "U"
|
|
USE %NUM
|
|
INPUT CODTAB F_NUMFROM
|
|
DISPLAY "Cod. Num." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NUMFROM CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_NUMTO 4
|
|
BEGIN
|
|
PROMPT 64 3 "a "
|
|
FLAG "U"
|
|
USE %NUM
|
|
INPUT CODTAB F_NUMTO
|
|
DISPLAY "Cod. Num." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NUMTO CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST F_TIPOSEL 12
|
|
BEGIN
|
|
PROMPT 2 4 "Tipo selezione "
|
|
ITEM "0|Per numero"
|
|
MESSAGE SHOW,GR_NUMDOC@|HIDE,GR_DATADOC@
|
|
ITEM "1|Per data"
|
|
MESSAGE HIDE,GR_NUMDOC@|SHOW,GR_DATADOC@
|
|
END
|
|
|
|
NUMBER F_NDOCFROM 7
|
|
BEGIN
|
|
PROMPT 37 4 "Dal numero "
|
|
USE 33
|
|
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
|
|
JOIN 13 TO 20 INTO COM=COMCF
|
|
INPUT PROVV F_PROVV SELECT
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODNUM F_NUMFROM SELECT
|
|
INPUT NDOC F_NDOCFROM
|
|
DISPLAY "Data@10" DATADOC
|
|
DISPLAY "Numero@7" NDOC
|
|
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
|
|
DISPLAY "Comune@20" 13->DENCOM
|
|
OUTPUT F_NDOCFROM NDOC
|
|
CHECKTYPE NORMAL
|
|
GROUP GR_NUMDOC
|
|
END
|
|
|
|
DATE F_EMISFROM
|
|
BEGIN
|
|
PROMPT 37 4 "Dalla data "
|
|
GROUP GR_DATADOC
|
|
END
|
|
|
|
|
|
NUMBER F_NDOCTO 7
|
|
BEGIN
|
|
PROMPT 64 4 "a "
|
|
USE 33
|
|
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
|
|
JOIN 13 TO 20 INTO COM=COMCF
|
|
INPUT PROVV F_PROVV SELECT
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODNUM F_NUMTO SELECT
|
|
INPUT NDOC F_NDOCTO
|
|
DISPLAY "Data@10" DATADOC
|
|
DISPLAY "Numero@7" NDOC
|
|
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
|
|
DISPLAY "Comune@20" 13->DENCOM
|
|
OUTPUT F_NDOCTO NDOC
|
|
GROUP GR_NUMDOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_EMISTO
|
|
BEGIN
|
|
PROMPT 64 4 "a "
|
|
GROUP GR_DATADOC
|
|
END
|
|
|
|
DATE F_DATAOBS
|
|
BEGIN
|
|
PROMPT 2 5 "Data osservazione "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
LISTBOX F_PERIODS 1
|
|
BEGIN
|
|
PROMPT 37 5 "Numero periodi "
|
|
ITEM "1|1"
|
|
ITEM "2|2"
|
|
ITEM "3|3"
|
|
ITEM "4|4"
|
|
ITEM "5|5"
|
|
ITEM "6|6"
|
|
END
|
|
|
|
BOOLEAN F_SEPARATE_DIST
|
|
BEGIN
|
|
PROMPT 2 7 "Separa le distinte"
|
|
MESSAGE TRUE ENABLE,F_NEWPAGE|CLEAR,F_SEPARATE_GIAC
|
|
MESSAGE FALSE CLEAR,F_NEWPAGE|ENABLE,F_SEPARATE_GIAC
|
|
END
|
|
|
|
BOOLEAN F_SEPARATE_GIAC
|
|
BEGIN
|
|
PROMPT 39 7 "Separa le giacenze"
|
|
END
|
|
|
|
BOOLEAN F_NEWPAGE
|
|
BEGIN
|
|
PROMPT 2 8 "Salto pagina al cambio distinta"
|
|
END
|
|
|
|
|
|
LISTBOX F_STAMPA 18
|
|
BEGIN
|
|
PROMPT 2 9 "Esplosione "
|
|
ITEM "0|Materiali di base"
|
|
MESSAGE ENABLE,F_GROUPMODE
|
|
ITEM "1|Scalare"
|
|
MESSAGE CLEAR,F_GROUPMODE
|
|
END
|
|
|
|
NUMBER F_DETTAGLIO 3
|
|
BEGIN
|
|
PROMPT 39 9 "Livello dettaglio "
|
|
FLAGS "U"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 30 6
|
|
BEGIN
|
|
PROMPT 1 10 "Esplodi"
|
|
END
|
|
|
|
BOOLEAN F_ARTICOLI
|
|
BEGIN
|
|
PROMPT 2 11 "Articoli"
|
|
END
|
|
|
|
BOOLEAN F_LAVORAZIONI
|
|
BEGIN
|
|
PROMPT 2 12 "Lavorazioni"
|
|
END
|
|
|
|
BOOLEAN F_VIRTUALI
|
|
BEGIN
|
|
PROMPT 2 13 "Distinte virtuali"
|
|
END
|
|
|
|
BOOLEAN F_GHOST
|
|
BEGIN
|
|
PROMPT 2 14 "Distinte non di produzione"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 50 6
|
|
BEGIN
|
|
PROMPT 32 10 "Default"
|
|
END
|
|
|
|
STRING F_IMPIANTO 5
|
|
BEGIN
|
|
PROMPT 33 11 "Impianto "
|
|
FLAGS "U"
|
|
USE IMP
|
|
INPUT CODTAB F_IMPIANTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Desrizione@50" S0
|
|
OUTPUT F_IMPIANTO CODTAB
|
|
OUTPUT F_DESCIMP S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCIMP 50 47
|
|
BEGIN
|
|
PROMPT 33 12 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_LINEA 5
|
|
BEGIN
|
|
PROMPT 33 13 "Linea "
|
|
FLAGS "U"
|
|
USE LNP
|
|
INPUT CODTAB F_LINEA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Desrizione@50" S0
|
|
OUTPUT F_LINEA CODTAB
|
|
OUTPUT F_DESCLIN S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCLIN 50 47
|
|
BEGIN
|
|
PROMPT 33 14 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_SORT 1
|
|
BEGIN
|
|
PROMPT 2 16 "Ordina "
|
|
USE ORD
|
|
INPUT CODTAB F_SORT
|
|
DISPLAY "Codice ordinamento" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_SORT CODTAB
|
|
OUTPUT F_SORTDESC S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "U"
|
|
MESSAGE EMPTY "Immissione",F_SORTDESC|CLEAR,F_NOIGNORE
|
|
MESSAGE ENABLE,F_NOIGNORE
|
|
END
|
|
|
|
STRING F_SORTDESC 50
|
|
BEGIN
|
|
PROMPT 17 16 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_NOIGNORE
|
|
BEGIN
|
|
PROMPT 2 17 "Includi anche righe senza un ordinamento specificato"
|
|
END
|
|
|
|
LIST F_GROUPMODE 1 53
|
|
BEGIN
|
|
PROMPT 2 18 "Raggruppa "
|
|
ITEM "0|Nessun raggruppamento"
|
|
ITEM "1|Raggruppa per unita' di misura"
|
|
ITEM "2|Converti nell'unita' principale"
|
|
ITEM "3|Raggruppa all'unita' di misura principale"
|
|
ITEM "4|Converti nell'unita' di misura di distinta"
|
|
ITEM "5|Raggruppa all'unita' di misura di distinta"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Disponibilita'" -1 -1 78 20
|
|
|
|
BOOLEAN F_FABBISOGNO
|
|
BEGIN
|
|
PROMPT 2 1 "Calcola disponibilita'"
|
|
MESSAGE TRUE ENABLE,G_DISPONIB@
|
|
MESSAGE FALSE CLEAR,G_DISPONIB@
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 50 11
|
|
BEGIN
|
|
PROMPT 2 1 ""
|
|
END
|
|
|
|
LIST F_LIVATTENZ 26
|
|
BEGIN
|
|
PROMPT 3 2 "Segnala giacenza "
|
|
ITEM " |sotto zero"
|
|
ITEM "S|sotto scorta minima"
|
|
GROUP G_DISPONIB
|
|
END
|
|
|
|
BOOLEAN F_FABBISOGNO_FIN
|
|
BEGIN
|
|
PROMPT 3 3 "Non calcolare disp. sui finiti"
|
|
GROUP G_DISPONIB
|
|
END
|
|
|
|
BOOLEAN F_NOZEROORD
|
|
BEGIN
|
|
PROMPT 3 4 "Non stampare righe con fabbisogno nullo"
|
|
GROUP G_DISPONIB
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_ORCLI4DISP
|
|
BEGIN
|
|
PROMPT 3 5 "Sottrai l'ordinato clienti"
|
|
GROUP G_DISPONIB
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_ORFOR4DISP
|
|
BEGIN
|
|
PROMPT 3 6 "Aggiungi l'ordinato fornitori"
|
|
GROUP G_DISPONIB
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_INPRF4DISP
|
|
BEGIN
|
|
PROMPT 3 7 "Aggiungi i finiti in produzione"
|
|
GROUP G_DISPONIB
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_INPRC4DISP
|
|
BEGIN
|
|
PROMPT 3 8 "Sottrai i componenti in produzione"
|
|
GROUP G_DISPONIB
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_ACLV4DISP
|
|
BEGIN
|
|
PROMPT 3 9 "Aggiungi i componenti a conto lavorazione"
|
|
GROUP G_DISPONIB
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_INCLV4DISP
|
|
BEGIN
|
|
PROMPT 3 10 "Sottrai i componenti in conto lavorazione"
|
|
GROUP G_DISPONIB
|
|
FLAGS "D"
|
|
END
|
|
|
|
LISTBOX F_VALORIZZAZIONE 32
|
|
BEGIN
|
|
PROMPT 1 12 ""
|
|
ITEM "0|Non valorizzare"
|
|
MESSAGE HIDE,G_LISTINO@|CLEAR,F_ADVANCED_EXPL
|
|
ITEM "1|Valorizza Ultimo costo"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "2|Valorizza Costo medio"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "10|Prezzo listino"
|
|
MESSAGE SHOW,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "3|Valorizza Costo medio ponderato"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "4|Valorizza Media ultimi 2 costi"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "5|Valorizza Costo standard"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "6|Valorizza LIFO annuale"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "7|Valorizza LIFO storico"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "8|Valorizza FIFO annuale"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
ITEM "9|Valorizza FIFO storico"
|
|
MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
|
|
END
|
|
|
|
BOOLEAN F_ADVANCED_EXPL
|
|
BEGIN
|
|
PROMPT 38 12 "Dettagliata "
|
|
END
|
|
|
|
STRING F_CODLIST 3
|
|
BEGIN
|
|
PROMPT 52 12 "Cod.listino "
|
|
USE LF_CONDV SELECT TIPO=="L"
|
|
INPUT TIPO "L"
|
|
INPUT CATVEN F_CATVEN_LIST
|
|
INPUT COD F_CODLIST
|
|
DISPLAY "Cat. vendita" CATVEN
|
|
DISPLAY "Listino"COD
|
|
DISPLAY "Descrizione @50" DESCR
|
|
DISPLAY "Inizio validita" VALIN
|
|
DISPLAY "Fine validita" VALFIN
|
|
OUTPUT F_CATVEN_LIST CATVEN
|
|
OUTPUT F_CODLIST COD
|
|
GROUP G_LISTINO
|
|
END
|
|
|
|
STRING F_CATVEN_LIST 2
|
|
BEGIN
|
|
PROMPT 72 12 "Cat.vendita "
|
|
USE CVE
|
|
INPUT CODTAB F_CATVEN_LIST
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Provvigione" R0
|
|
DISPLAY "Gruppo" I1
|
|
DISPLAY "Conto" I2
|
|
OUTPUT F_CATVEN_LIST CODTAB
|
|
GROUP G_LISTINO
|
|
END
|
|
GROUPBOX DLG_NULL 50 6
|
|
BEGIN
|
|
PROMPT 2 13 "Disponibilita' & Valorizzazione"
|
|
END
|
|
|
|
STRING F_SLMAG 3
|
|
BEGIN
|
|
PROMPT 3 14 "Mag. semilavorati "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_SLMAG
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_SLMAG CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SLDEP 2
|
|
BEGIN
|
|
PROMPT 32 14 ""
|
|
FLAGS "U"
|
|
USE MAG SELECT (IF(#F_SLMAG!="";((CODTAB[1,3]==#F_SLMAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
|
|
INPUT CODTAB[1,3] F_SLMAG SELECT
|
|
INPUT CODTAB[4,5] F_SLDEP
|
|
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
|
DISPLAY "Cod. deposito" CODTAB[4,5]
|
|
DISPLAY "Denominazione dep.@50" S0
|
|
OUTPUT F_SLDEP CODTAB[4,5]
|
|
OUTPUT F_SLMAG CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
GROUP G_DEPOSITI
|
|
END
|
|
|
|
STRING F_MBMAG 3
|
|
BEGIN
|
|
PROMPT 3 15 "Mag. materiali base "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_MBMAG
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MBMAG CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE ENABLE, F_VALMAGMB
|
|
END
|
|
|
|
STRING F_MBDEP 2
|
|
BEGIN
|
|
PROMPT 32 15 ""
|
|
FLAGS "U"
|
|
USE MAG SELECT (IF(#F_MBMAG!="";((CODTAB[1,3]==#F_MBMAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
|
|
INPUT CODTAB[1,3] F_MBMAG SELECT
|
|
INPUT CODTAB[4,5] F_MBDEP
|
|
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
|
DISPLAY "Cod. deposito" CODTAB[4,5]
|
|
DISPLAY "Denominazione dep.@50" S0
|
|
OUTPUT F_MBDEP CODTAB[4,5]
|
|
OUTPUT F_MBMAG CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR, F_VALDEPMB
|
|
MESSAGE ENABLE, F_VALDEPMB
|
|
GROUP G_DEPOSITI
|
|
END
|
|
|
|
BOOLEAN F_VALMAGMB
|
|
BEGIN
|
|
PROMPT 3 16 "Usa magazzino in valorizzazione"
|
|
MESSAGE TRUE ENABLE,F_VALDEPMB
|
|
MESSAGE FALSE CLEAR,F_VALDEPMB
|
|
GROUP G_VALORIZZ
|
|
END
|
|
|
|
BOOLEAN F_VALDEPMB
|
|
BEGIN
|
|
PROMPT 3 17 "Usa deposito in valorizzazione"
|
|
GROUP G_DEPOSITI G_VALORIZZ
|
|
END
|
|
|
|
BOOLEAN F_DETORDFOR
|
|
BEGIN
|
|
PROMPT 3 19 "Dettaglia ordinato fornitori"
|
|
MESSAGE FALSE CLEAR,F_SORTFOR
|
|
MESSAGE TRUE ENABLE,F_SORTFOR
|
|
END
|
|
|
|
BOOLEAN F_SORTFOR
|
|
BEGIN
|
|
PROMPT 36 19 "Ordina per fornitore"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Articoli" -1 -1 78 20
|
|
|
|
SPREADSHEET F_SHEETART
|
|
BEGIN
|
|
PROMPT 2 2 ""
|
|
ITEM "Codice@20"
|
|
ITEM "Liv1"
|
|
ITEM "Liv2"
|
|
ITEM "Liv3"
|
|
ITEM "Liv4"
|
|
ITEM "Imp."
|
|
ITEM "Lin."
|
|
ITEM "Mag."
|
|
ITEM "Dep."
|
|
ITEM "UM@3"
|
|
ITEM "Qta@12"
|
|
ITEM "Descrizione@50"
|
|
ITEM "Data cons.@12"
|
|
ITEM "Acquisto"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Articoli" -1 -1 68 14
|
|
|
|
STRING F_CODDIS 20
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
USE LF_DIST SELECT VIRTUALE!="X"
|
|
INPUT CODDIST F_CODDIS
|
|
DISPLAY "Codice@20" CODDIST
|
|
DISPLAY "Desrizione@50" DESCR
|
|
OUTPUT F_CODDIS CODDIST
|
|
OUTPUT F_DESCR DESCR
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,F_LIV1|CLEAR,F_LIV2|CLEAR,F_LIV3|CLEAR,F_LIV4
|
|
MESSAGE ENABLE, F_LIV1
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_LIV1 10
|
|
BEGIN
|
|
PROMPT 2 4 "Livello 1 "
|
|
FLAGS "U"
|
|
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
|
|
PROMPT 40 4 "Livello 2 "
|
|
FLAGS "U"
|
|
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
|
|
PROMPT 2 5 "Livello 3 "
|
|
FLAGS "U"
|
|
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
|
|
PROMPT 40 5 "Livello 4 "
|
|
FLAGS "U"
|
|
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_IMP 5
|
|
BEGIN
|
|
PROMPT 2 6 "Impianto "
|
|
FLAGS "U"
|
|
USE IMP
|
|
INPUT CODTAB F_IMP
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Desrizione@50" S0
|
|
OUTPUT F_IMP CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_LIN 5
|
|
BEGIN
|
|
PROMPT 30 6 "Linea "
|
|
FLAGS "U"
|
|
USE LNP
|
|
INPUT CODTAB F_LIN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Desrizione@50" S0
|
|
OUTPUT F_LIN CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_MAG 3
|
|
BEGIN
|
|
PROMPT 2 7 "Magazzino "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_MAG
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MAG CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DEP 2
|
|
BEGIN
|
|
PROMPT 20 7 ""
|
|
FLAGS "U"
|
|
USE MAG SELECT (IF(#F_MAG!="";((CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
|
|
INPUT CODTAB[1,3] F_MAG SELECT
|
|
INPUT CODTAB[4,5] F_DEP
|
|
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
|
DISPLAY "Cod. deposito" CODTAB[4,5]
|
|
DISPLAY "Denominazione dep.@50" S0
|
|
OUTPUT F_DEP CODTAB[4,5]
|
|
OUTPUT F_MAG CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_UMEXPR 2
|
|
BEGIN
|
|
PROMPT 2 8 "Unita' di misura "
|
|
USE LF_UMART KEY 2 SELECT CODART==#F_CODDIS
|
|
JOIN LF_ANAMAG INTO CODART==CODART
|
|
INPUT CODART F_CODDIS SELECT
|
|
INPUT UM F_UMEXPR
|
|
DISPLAY "Unita'" UM
|
|
DISPLAY "Articolo@20" CODART
|
|
DISPLAY "Descrizione Articolo@50" LF_ANAMAG->DESCR
|
|
OUTPUT F_UMEXPR UM
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN ve2 -3
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_QTA 12 5
|
|
BEGIN
|
|
PROMPT 2 9 "Quantita' "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATACONS
|
|
BEGIN
|
|
PROMPT 2 10 "Data consegna "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BOOLEAN F_ACQUISTO
|
|
BEGIN
|
|
PROMPT 2 11 "Acquisto"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|