464c276099
Files correlati : or1.exe or1100a.msk or1100b.frm or1200a.frm or1200a.msk Ricompilazione Demo : [ ] Commento : GF20030 La stampa ordini per cliente-fornitore/agente/articolo restituisce il messaggio d'errore:"FATAL ERROR can't find item with id 10 RUN TIME ERROR." GF20031 La stampa ordini col dettaglio articoli per data di consegna oltre a mostrare gli ordini col dettaglio del o degli articoli con data consegna indicata in fase di interrogazione mostra anche la testata (e non il dettaglio degli articoli giustamente) anche di quegli ordini con data di consegna non rientrante nel range inserito in fase di interrogazione. Esempio inserire due ordini uno con data consegna documento e righe documento 20/05/03 e l'altro con data di consegna documento 20/05/03 e un articolo con data di consegna 30/06/06, fare l'interrogazione con dettaglio righe e data di consegna dal 30/06/03 al 30/06/03. GF20032 La stampa disponibilità articoli non evidenzia nulla. git-svn-id: svn://10.65.10.50/trunk@11224 c028cbd2-c16b-5b4b-a496-9718f37d4682
431 lines
7.7 KiB
Plaintext
Executable File
431 lines
7.7 KiB
Plaintext
Executable File
#include "or1200a.h"
|
|
|
|
TOOLBAR "" 0 -3 0 3
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Disponibilita' articoli" -1 -1 70 16
|
|
|
|
GROUPBOX DLG_NULL 41 7
|
|
BEGIN
|
|
PROMPT 1 1 "Ordine"
|
|
END
|
|
|
|
/*
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 2 "Codice Num. "
|
|
FLAG "U"
|
|
USE %NUM SELECT I1==3
|
|
INPUT CODTAB F_CODNUM
|
|
DISPLAY "Cod. Num." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
*/
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 2 "Anno "
|
|
// CHECKTYPE REQUIRED
|
|
END
|
|
|
|
LIST F_PROVV 12
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo numerazione "
|
|
ITEM "D|Definitiva"
|
|
ITEM "P|Provvisoria"
|
|
END
|
|
|
|
DATE F_DATE_H
|
|
BEGIN
|
|
PROMTP 2 4 "Data iniziale "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAOSS
|
|
BEGIN
|
|
PROMPT 2 6 "Data osservazione "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATE_H
|
|
WARNING "La data osservazione deve essere maggiore della data iniziale"
|
|
END
|
|
|
|
NUMBER F_DETAIL_LEV 1
|
|
BEGIN
|
|
PROMPT 45 2 "Livello dettaglio "
|
|
GROUP GR_GIAC
|
|
USE FCG
|
|
INPUT CODTAB F_DETAIL_LEV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione livello@50" S0
|
|
OUTPUT F_DETAIL_LEV CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BOOLEAN F_DETAIL_MAG
|
|
BEGIN
|
|
PROMPT 45 3 "Dettaglia magazzini"
|
|
END
|
|
|
|
BOOLEAN F_DETAIL_DEP
|
|
BEGIN
|
|
PROMPT 45 4 "Dettaglia depositi"
|
|
GROUP GR_DEP
|
|
END
|
|
|
|
LISTBOX F_PERIODS 1
|
|
BEGIN
|
|
PROMPT 2 8 "Numero periodi "
|
|
ITEM "1|1"
|
|
ITEM "2|2"
|
|
ITEM "3|3"
|
|
ITEM "4|4"
|
|
ITEM "5|5"
|
|
ITEM "6|6"
|
|
END
|
|
|
|
LIST F_RIGHETUTTE 12
|
|
BEGIN
|
|
PROMPT 2 9 "Tipo righe ordine "
|
|
ITEM "T|Tutte"
|
|
ITEM "O|Non evase"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 31 4
|
|
BEGIN
|
|
PROMPT 1 10 "Articolo"
|
|
END
|
|
|
|
STRING F_ARTFROM 20
|
|
BEGIN
|
|
PROMPT 2 11 "Dal "
|
|
FLAGS "U"
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_ARTFROM
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ARTFROM CODART
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
END
|
|
|
|
STRING F_ARTTO 20
|
|
BEGIN
|
|
PROMPT 2 12 "Al "
|
|
FLAGS "U"
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_ARTTO
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ARTTO CODART
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
END
|
|
|
|
BOOLEAN F_GIACEFF
|
|
BEGIN
|
|
PROMPT 36 11 "Giacenza effettiva"
|
|
END
|
|
|
|
BOOLEAN F_VALCOMP
|
|
BEGIN
|
|
PROMPT 36 12 "Valorizza componenti"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 31 4
|
|
BEGIN
|
|
PROMPT 1 15 "Magazzino"
|
|
END
|
|
|
|
STRING F_MAGFROM 3
|
|
BEGIN
|
|
PROMPT 2 16 "Dal "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_MAGFROM
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MAGFROM CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_MAGTO 3
|
|
BEGIN
|
|
PROMPT 2 17 "Al "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_MAGTO
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MAGTO CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 40 4
|
|
BEGIN
|
|
PROMPT 35 15 "Deposito"
|
|
END
|
|
|
|
STRING F_DEPFROM 2
|
|
BEGIN
|
|
PROMPT 36 16 "Dal "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_MAGFROM
|
|
INPUT CODTAB[4,5] F_DEPFROM
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Denominazione dep.@50 " S0
|
|
OUTPUT F_MAGFROM CODTAB[1,3]
|
|
OUTPUT F_DEPFROM CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
GROUP GR_DEP
|
|
END
|
|
|
|
STRING F_DEPTO 2
|
|
BEGIN
|
|
PROMPT 36 17 "Al "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_MAGTO
|
|
INPUT CODTAB[4,5] F_DEPTO
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MAGTO CODTAB[1,3]
|
|
OUTPUT F_DEPTO CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
GROUP GR_DEP
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Livelli giacenza" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 74 10
|
|
BEGIN
|
|
PROMPT 2 2 "Livelli di giacenza"
|
|
END
|
|
|
|
STRING F_GIAC1 1
|
|
BEGIN
|
|
PROMPT 3 3 "1. "
|
|
FLAGS "DP"
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_GIAC1
|
|
OUTPUT F_GIAC1_DES S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_GIAC1_DES 60
|
|
BEGIN
|
|
PROMPT 12 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GIAC1_FROM 24
|
|
BEGIN
|
|
PROMPT 12 4 "Da "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC1
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC1
|
|
INPUT CODTAB[2,25] F_GIAC1_FROM
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC1_FROM CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC1_TO 23
|
|
BEGIN
|
|
PROMPT 47 4 "A "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC1
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC1
|
|
INPUT CODTAB[2,25] F_GIAC1_TO
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC1_TO CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC2 1
|
|
BEGIN
|
|
PROMPT 3 5 "2. "
|
|
FLAGS "DP"
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_GIAC2
|
|
OUTPUT F_GIAC2_DES S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_GIAC2_DES 60
|
|
BEGIN
|
|
PROMPT 12 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GIAC2_FROM 23
|
|
BEGIN
|
|
PROMPT 12 6 "Da "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC2
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC2
|
|
INPUT CODTAB[2,25] F_GIAC2_FROM
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC2_FROM CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC2_TO 23
|
|
BEGIN
|
|
PROMPT 47 6 "A "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC2
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC2
|
|
INPUT CODTAB[2,25] F_GIAC2_TO
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC2_TO CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC3 1
|
|
BEGIN
|
|
PROMPT 3 7 "3. "
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_GIAC3
|
|
OUTPUT F_GIAC3_DES S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DP"
|
|
END
|
|
|
|
STRING F_GIAC3_DES 60
|
|
BEGIN
|
|
PROMPT 12 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GIAC3_FROM 23
|
|
BEGIN
|
|
PROMPT 12 8 "Da "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC3
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC3
|
|
INPUT CODTAB[2,25] F_GIAC3_FROM
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC3_FROM CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC3_TO 23
|
|
BEGIN
|
|
PROMPT 47 8 "A "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC3
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC3
|
|
INPUT CODTAB[2,25] F_GIAC3_TO
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC3_TO CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC4 1
|
|
BEGIN
|
|
PROMPT 3 9 "4. "
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_GIAC4
|
|
OUTPUT F_GIAC4_DES S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DP"
|
|
END
|
|
|
|
STRING F_GIAC4_DES 60
|
|
BEGIN
|
|
PROMPT 12 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GIAC4_FROM 23
|
|
BEGIN
|
|
PROMPT 12 10 "Da "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC4
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC4
|
|
INPUT CODTAB[2,25] F_GIAC4_FROM
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC4_FROM CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC4_TO 23
|
|
BEGIN
|
|
PROMPT 47 10 "A "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC4
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC4
|
|
INPUT CODTAB[2,25] F_GIAC4_TO
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC4_TO CODTAB[2,25]
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|