bb3d71fd61
Files correlati : co0.exe co1.exe Ricompilazione Demo : [ ] Commento : Aggiunto fornitore / cliente sulla maschera di movimentazione per Dassi Documentazione lemco e lembi Zucchetti Corretta esplosione dettagliata Nel calcolo dettagliato dell'ordinato fornitori vengo no considerati tutti gli esercizi e non solo gli ultimi 2. Dalla versione 3.2 git-svn-id: svn://10.65.10.50/trunk@20585 c028cbd2-c16b-5b4b-a496-9718f37d4682
215 lines
3.8 KiB
Plaintext
Executable File
215 lines
3.8 KiB
Plaintext
Executable File
#include "db2400a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_ELABORA 10 2
|
|
BEGIN
|
|
PROMPT -14 -11 "~Elabora"
|
|
PICTURE TOOL_ELABORA
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -24 -11 "~Registra"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Valorizzazione" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 74 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bSelezione"
|
|
END
|
|
|
|
STRING F_DIST_FROM 20
|
|
BEGIN
|
|
PROMPT 2 2 "Da codice "
|
|
FLAGS "U"
|
|
USE LF_DIST
|
|
JOIN LF_ANAMAG INTO CODART==CODDIST
|
|
INPUT CODDIST F_DIST_FROM
|
|
DISPLAY "Codice@20" CODDIST
|
|
DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
|
|
OUTPUT F_DIST_FROM CODDIST
|
|
CHECKTYPE SEARCH
|
|
ADD RUN DB0 -4
|
|
END
|
|
|
|
STRING F_DIST_TO 20
|
|
BEGIN
|
|
PROMPT 2 3 "A codice "
|
|
FLAGS "U"
|
|
USE LF_DIST
|
|
JOIN LF_ANAMAG INTO CODART==CODDIST
|
|
INPUT CODDIST F_DIST_TO
|
|
DISPLAY "Codice@20" CODDIST
|
|
DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
|
|
OUTPUT F_DIST_TO CODDIST
|
|
CHECKTYPE SEARCH
|
|
ADD RUN DB0 -4
|
|
END
|
|
|
|
STRING F_CODMAG 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 38 2 "Magazzino "
|
|
USE MAG SELECT CODTAB[4,5]=""
|
|
INPUT CODTAB F_CODMAG
|
|
DISPLAY "Magazzino" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODMAG CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODDEP 2
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 38 3 "Deposito "
|
|
USE MAG
|
|
INPUT CODTAB[1,3] F_CODMAG
|
|
INPUT CODTAB[4,5] F_CODDEP
|
|
DISPLAY "Magazzino" CODTAB[1,3]
|
|
DISPLAY "Deposito" CODTAB[4,5]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODMAG CODTAB[1,3]
|
|
OUTPUT F_CODDEP CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_IMPIANTO 5
|
|
BEGIN
|
|
FLAGS "UF"
|
|
PROMPT 56 2 "Impianto "
|
|
USE IMP
|
|
INPUT CODTAB F_IMPIANTO
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT F_IMPIANTO CODTAB
|
|
MESSAGE CHECK, F_LINEA
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_LINEA 5
|
|
BEGIN
|
|
FLAGS "UF"
|
|
PROMPT 56 3 "Linea "
|
|
USE LNP
|
|
INPUT CODTAB F_LINEA
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Impianto" S6
|
|
OUPUT F_LINEA CODTAB
|
|
OUPUT F_IMPIANTO S6
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 34 5
|
|
BEGIN
|
|
PROMPT 1 5 "@bParametri in ingresso"
|
|
END
|
|
|
|
LIST F_TIPO 2 22
|
|
BEGIN
|
|
PROMPT 2 6 "Tipo "
|
|
ITEM "1|Ultimo costo"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
ITEM "2|Media costi"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
ITEM "3|Prezzo listino"
|
|
MESSAGE SHOW,G_LISTINO@
|
|
ITEM "4|Costo standard"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
ITEM "5|Costo medio"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
ITEM "6|Costo medio ponderato"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
ITEM "7|LIFO annuale"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
ITEM "8|FIFO annuale"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
ITEM "9|LIFO"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
ITEM "10|FIFO"
|
|
MESSAGE HIDE,G_LISTINO@
|
|
END
|
|
|
|
BOOELAN F_DETTAGLIATA
|
|
BEGIN
|
|
PROMPT 2 7 "Dettagliata"
|
|
END
|
|
|
|
STRING F_CATVEN_LIST 2
|
|
BEGIN
|
|
PROMPT 2 7 "Cat.ven. "
|
|
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
|
|
|
|
STRING F_CODLIST 3
|
|
BEGIN
|
|
PROMPT 16 7 "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
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
PROMPT 2 8 "Anno esercizio "
|
|
FLAGS "Z"
|
|
USE ESC
|
|
INPUT CODTAB F_ANNOES
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Inizio esercizio" D0
|
|
DISPLAY "Fine esercizio" D1
|
|
OUTPUT F_ANNOES CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 34 5
|
|
BEGIN
|
|
PROMPT 41 5 "@bParametri in uscita"
|
|
END
|
|
|
|
LIST F_VALORIZZA 1 16
|
|
BEGIN
|
|
PROMPT 42 6 "Valorizza "
|
|
ITEM "0|Costo standard"
|
|
ITEM "1|Ultimo costo"
|
|
ITEM "2|Prezzo vendita"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 42 8 "Data elaborazione "
|
|
FLAGS "A"
|
|
END
|
|
|
|
BROWSEFILE F_PREVIEW 0 -1
|
|
BEGIN
|
|
PROMPT 0 9 ""
|
|
END
|
|
|
|
ENDMASK
|