Correzioni varie su maschere buoni
git-svn-id: svn://10.65.10.50/branches/R_10_00@22811 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
66fce32cbf
commit
5aa1a73e56
@ -784,26 +784,24 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
|
|||||||
case S_DOTIN:
|
case S_DOTIN:
|
||||||
case S_DOTOD:
|
case S_DOTOD:
|
||||||
case S_DOTTMP:
|
case S_DOTTMP:
|
||||||
|
if (e == fe_modify)
|
||||||
{
|
{
|
||||||
if (e == fe_modify)
|
TString str;
|
||||||
{
|
str << "ATTENZIONE: Una quantità risulta modificata a mano!\nDopo questa operazione i totali dei movimenti"
|
||||||
TString str;
|
<< "di magazzino\npotrebbero non corrispondere ai numeri qui salvati.";
|
||||||
str << "ATTENZIONE: Una quantità risulta modificata a mano; dopo questa operazione i totali dei movimenti"
|
warning_box(str);
|
||||||
<< "di magazzino potrebbero non corrispondere ai numeri qui salvati";
|
|
||||||
warning_box(str);
|
|
||||||
|
|
||||||
TSheet_field& ss = sfield(F_RIGHE);
|
TSheet_field& ss = sfield(F_RIGHE);
|
||||||
TMask& m = o.mask(); // maschera di riga!
|
TMask& m = o.mask(); // maschera di riga!
|
||||||
|
|
||||||
const int rigasel = ss.selected();
|
const int rigasel = ss.selected();
|
||||||
const long qta = o.get_long();
|
const long qta = o.get_long();
|
||||||
|
|
||||||
m.set(o.dlg(), qta);
|
m.set(o.dlg(), qta);
|
||||||
|
|
||||||
TToken_string& row = ss.row(rigasel);
|
TToken_string& row = ss.row(rigasel);
|
||||||
row.add(qta, ss.cid2index(o.dlg()));
|
row.add(qta, ss.cid2index(o.dlg()));
|
||||||
//ss.force_update(rigasel);
|
//ss.force_update(rigasel);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case DLG_PLANNING:
|
case DLG_PLANNING:
|
||||||
|
|||||||
@ -200,8 +200,8 @@ Col(5)=FR_DESCR||28
|
|||||||
Col(6)=FR_CAULAV|Caus.|5
|
Col(6)=FR_CAULAV|Caus.|5
|
||||||
Col(7)=FR_RITIRO|Ritiro|6
|
Col(7)=FR_RITIRO|Ritiro|6
|
||||||
Col(8)=FR_QTA|Rotti|6
|
Col(8)=FR_QTA|Rotti|6
|
||||||
Col(9)=FR_JOLLY1|Dot.Od.|7
|
Col(9)=FR_JOLLY1@R|Dot.Od.|7
|
||||||
Col(10)=FR_JOLLY5|Dot.In.|7
|
Col(10)=FR_JOLLY5@R|Dot.In.|7
|
||||||
Col(11)=FR_TIPORIGA|Tipo|4
|
Col(11)=FR_TIPORIGA|Tipo|4
|
||||||
Col(12)=FR_CODMAG
|
Col(12)=FR_CODMAG
|
||||||
Col(13)=FR_CODDEP
|
Col(13)=FR_CODDEP
|
||||||
|
|||||||
@ -80,7 +80,7 @@ END
|
|||||||
|
|
||||||
STRING F_COD_CAUSBUONI 3
|
STRING F_COD_CAUSBUONI 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 47 3 "Causale Buoni "
|
PROMPT 45 3 "Causale Consegne "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Inserire la causale per i buoni"
|
HELP "Inserire la causale per i buoni"
|
||||||
COPY USE F_COD_CAUSALE
|
COPY USE F_COD_CAUSALE
|
||||||
@ -93,7 +93,7 @@ END
|
|||||||
|
|
||||||
GROUPBOX DLG_NULL 80 5
|
GROUPBOX DLG_NULL 80 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "@b Ritiro"
|
PROMPT 1 5 "@bRitiro"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_RITIRATO
|
BOOLEAN F_RITIRATO
|
||||||
@ -184,7 +184,7 @@ END
|
|||||||
|
|
||||||
GROUPBOX DLG_NULL 80 5
|
GROUPBOX DLG_NULL 80 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 10 "@b Consegna"
|
PROMPT 1 10 "@bConsegna"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_CONSEGNATO
|
BOOLEAN F_CONSEGNATO
|
||||||
|
|||||||
@ -5,7 +5,6 @@ CAMPICALC=
|
|||||||
IMPONIBILE=IMPNS
|
IMPONIBILE=IMPNS
|
||||||
|
|
||||||
[HANDLERS]
|
[HANDLERS]
|
||||||
NHANDLER = 7
|
|
||||||
1 = 133|4101
|
1 = 133|4101
|
||||||
2 = 112|4102
|
2 = 112|4102
|
||||||
3 = 105|4103
|
3 = 105|4103
|
||||||
|
|||||||
724
lv/verig22.uml
724
lv/verig22.uml
@ -1,364 +1,364 @@
|
|||||||
#include "..\ve\verig.h"
|
#include "..\ve\verig.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 0 0 2
|
|
||||||
|
|
||||||
BUTTON DLG_OK 10 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT -14 -1 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_CANCEL 10 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT -24 -1 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_DELREC 10 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT -34 -1 "Elimina"
|
|
||||||
MESSAGE EXIT,K_DEL
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_USER 10 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT -44 -1 "~Collega"
|
|
||||||
PICTURE BMP_LINK
|
|
||||||
END
|
|
||||||
|
|
||||||
ENDPAGE
|
|
||||||
|
|
||||||
PAGE "Merce Lavanderia" 0 2 0 0
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 1 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
LIST FR_TIPORIGA 2 50
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 2 "Tipo riga "
|
|
||||||
FIELD TIPORIGA
|
|
||||||
END
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 5
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 4 "@bArticolo"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_CODART 20 8
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 5 "Articolo "
|
|
||||||
USE LF_ANAMAG KEY 1
|
|
||||||
INPUT CODART FR_CODART
|
|
||||||
DISPLAY "Codice@20" CODART
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT FR_CODART CODART
|
|
||||||
OUTPUT FR_DESCRART DESCR
|
|
||||||
FLAGS "U"
|
|
||||||
FIELD CODART
|
|
||||||
ADD RUN ve2 -3
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_DESCRART 50
|
|
||||||
BEGIN
|
|
||||||
PROMPT 25 5 ""
|
|
||||||
USE LF_ANAMAG KEY 2
|
|
||||||
INPUT DESCR FR_DESCRART
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
DISPLAY "Codice@8" CODART
|
|
||||||
COPY OUTPUT FR_CODART
|
|
||||||
ADD RUN ve2 -3
|
|
||||||
FIELD DESCR
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_HDESC 50
|
|
||||||
BEGIN
|
|
||||||
PROMPT 100 100 "Descrizione "
|
|
||||||
USE LF_ANAMAG KEY 2
|
|
||||||
INPUT DESCR FR_HDESC
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
DISPLAY "Codice@20" CODART
|
|
||||||
COPY OUTPUT FR_CODART
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_CODARTMAG 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 200 7 ""
|
|
||||||
FIELD CODARTMAG
|
|
||||||
FLAGS "G"
|
|
||||||
END
|
|
||||||
|
|
||||||
BOOLEAN FR_CHECKED
|
|
||||||
BEGIN
|
|
||||||
PROMPT 51 50 ""
|
|
||||||
FIELD CHECKED
|
|
||||||
FLAGS "D"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_LIV1 15
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 6 "Liv.Gia. "
|
|
||||||
FLAGS "U"
|
|
||||||
USE GCG
|
|
||||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
||||||
INPUT CODTAB[1,1] "1"
|
|
||||||
INPUT CODTAB[2,] FR_LIV1
|
|
||||||
DISPLAY "Livello@20" 500@->S0
|
|
||||||
DISPLAY "Gruppo@15" CODTAB[2,]
|
|
||||||
DISPLAY "Descrizione@30" S0
|
|
||||||
OUTPUT FR_LIV1 CODTAB[2,]
|
|
||||||
MESSAGE EMPTY RESET,FR_LIV2|RESET,FR_LIV3|RESET,FR_LIV4
|
|
||||||
MESSAGE ENABLE,FR_LIV2
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_LIV2 15
|
|
||||||
BEGIN
|
|
||||||
PROMPT 28 6 ""
|
|
||||||
FLAGS "U"
|
|
||||||
USE GCG
|
|
||||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
||||||
INPUT CODTAB[1,1] "2"
|
|
||||||
INPUT CODTAB[2,] FR_LIV2
|
|
||||||
DISPLAY "Livello@20" 500@->S0
|
|
||||||
DISPLAY "Gruppo@15" CODTAB[2,]
|
|
||||||
DISPLAY "Descrizione@30" S0
|
|
||||||
OUTPUT FR_LIV2 CODTAB[2,]
|
|
||||||
MESSAGE EMPTY RESET,FR_LIV3|RESET,FR_LIV4
|
|
||||||
MESSAGE ENABLE,FR_LIV3
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_LIV3 15
|
|
||||||
BEGIN
|
|
||||||
PROMPT 45 6 ""
|
|
||||||
FLAGS "U"
|
|
||||||
USE GCG
|
|
||||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
||||||
INPUT CODTAB[1,1] "3"
|
|
||||||
INPUT CODTAB[2,] FR_LIV3
|
|
||||||
DISPLAY "Livello@20" 500@->S0
|
|
||||||
DISPLAY "Gruppo@15" CODTAB[2,]
|
|
||||||
DISPLAY "Descrizione@30" S0
|
|
||||||
OUTPUT FR_LIV3 CODTAB[2,]
|
|
||||||
MESSAGE EMPTY RESET,FR_LIV4
|
|
||||||
MESSAGE ENABLE,FR_LIV4
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_LIV4 15
|
|
||||||
BEGIN
|
|
||||||
PROMPT 62 6 ""
|
|
||||||
FLAGS "U"
|
|
||||||
USE GCG
|
|
||||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
||||||
INPUT CODTAB[1,1] "4"
|
|
||||||
INPUT CODTAB[2,] FR_LIV4
|
|
||||||
DISPLAY "Livello@20" 500@->S0
|
|
||||||
DISPLAY "Gruppo@15" CODTAB[2,]
|
|
||||||
DISPLAY "Descrizione@30" S0
|
|
||||||
OUTPUT FR_LIV4 CODTAB[2,]
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_UMQTA 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 62 7 "U.M. "
|
|
||||||
USE LF_UMART KEY 2
|
|
||||||
JOIN %UMS INTO CODTAB=UM
|
|
||||||
INPUT CODART FR_CODARTMAG SE
|
|
||||||
INPUT UM FR_UMQTA
|
|
||||||
DISPLAY "Codice@20" UM
|
|
||||||
DISPLAY "Descrizione@50" %UMS->S0
|
|
||||||
OUTPUT FR_UMQTA UM
|
|
||||||
FIELD UMQTA
|
|
||||||
FLAG "U"
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FR_UMQTA2 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 62 7 "U.M. "
|
|
||||||
USE %UMS
|
|
||||||
INPUT CODTAB FR_UMQTA2
|
|
||||||
DISPLAY "Codice" CODTAB
|
|
||||||
DISPLAY "Descrizione@50" S0
|
|
||||||
OUTPUT FR_UMQTA2 CODTAB
|
|
||||||
FIELD UMQTA
|
|
||||||
FLAG "U"
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
CURRENCY FR_PREZZO 15
|
|
||||||
BEGIN
|
|
||||||
PROMPT 13 7 "Prezzo "
|
|
||||||
FLAGS "U"
|
|
||||||
FIELD PREZZO
|
|
||||||
END
|
|
||||||
|
|
||||||
GR -1 78 4
|
|
||||||
BE
|
|
||||||
PR 1 10 "@bDotazioni"
|
|
||||||
EN
|
|
||||||
|
|
||||||
NU 155 7
|
TOOLBAR "" 0 0 0 2
|
||||||
BE
|
|
||||||
PR 2 11 "Dotazione Odierna "
|
|
||||||
FI DOTOD
|
|
||||||
FL "D"
|
|
||||||
EN
|
|
||||||
|
|
||||||
NU 159 7
|
BUTTON DLG_OK 10 2
|
||||||
BE
|
BEGIN
|
||||||
PR 2 12 "Dotazione iniziale "
|
PROMPT -14 -1 ""
|
||||||
FI DOTIN
|
END
|
||||||
FL "D"
|
|
||||||
EN
|
BUTTON DLG_CANCEL 10 2
|
||||||
|
BEGIN
|
||||||
STRING FR_CAULAV 3
|
PROMPT -24 -1 ""
|
||||||
BEGIN
|
END
|
||||||
PROMPT 2 7 "Cau.Lav. "
|
|
||||||
USE &LVCAU
|
BUTTON DLG_DELREC 10 2
|
||||||
INPUT CODTAB FR_CAULAV
|
BEGIN
|
||||||
DISPLAY "Codice" CODTAB
|
PROMPT -34 -1 "Elimina"
|
||||||
DISPLAY "Descrizione@50" S0
|
MESSAGE EXIT,K_DEL
|
||||||
OUTPUT FR_CAULAV CODTAB
|
END
|
||||||
OUTPUT FR_FLCONS B1
|
|
||||||
OUTPUT FR_FLRIT B0
|
BUTTON DLG_USER 10 2
|
||||||
CHECKTYPE REQUIRED
|
BEGIN
|
||||||
FLAGS "U"
|
PROMPT -44 -1 "~Collega"
|
||||||
FIELD CODAGG1
|
PICTURE BMP_LINK
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN FR_FLCONS
|
ENDPAGE
|
||||||
BEGIN
|
|
||||||
PROMPT 50 50 "Flag consegnato"
|
PAGE "Merce Lavanderia" 0 2 0 0
|
||||||
FLAGS "HG"
|
|
||||||
END
|
GROUPBOX DLG_NULL 78 3
|
||||||
|
BEGIN
|
||||||
BOOLEAN FR_FLRIT
|
PROMPT 1 1 ""
|
||||||
BEGIN
|
END
|
||||||
PROMPT 50 50 "Flag ritirato"
|
|
||||||
FLAGS "HG"
|
LIST FR_TIPORIGA 2 50
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 2 2 "Tipo riga "
|
||||||
NUMBER FR_RITIRO 6 0
|
FIELD TIPORIGA
|
||||||
BEGIN
|
END
|
||||||
PROMPT 28 7 "Ritirato "
|
|
||||||
FIELD QTAGG1
|
GROUPBOX DLG_NULL 78 6
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 1 4 "@bArticolo"
|
||||||
NUMBER FR_QTA 6 0
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 45 7 "Rotti "
|
STRING FR_CODART 20 8
|
||||||
FIELD QTA
|
BEGIN
|
||||||
END
|
PROMPT 2 5 "Articolo "
|
||||||
|
USE LF_ANAMAG KEY 1
|
||||||
GROUPBOX DLG_NULL 78 6
|
INPUT CODART FR_CODART
|
||||||
BEGIN
|
DISPLAY "Codice@20" CODART
|
||||||
PROMPT 1 14 "@bMagazzino"
|
DISPLAY "Descrizione@50" DESCR
|
||||||
END
|
OUTPUT FR_CODART CODART
|
||||||
|
OUTPUT FR_DESCRART DESCR
|
||||||
STRING FR_CODMAG 4
|
FLAGS "U"
|
||||||
BEGIN
|
FIELD CODART
|
||||||
PROMPT 2 15 "Magazzino "
|
ADD RUN ve2 -3
|
||||||
USE MAG SELECT CODTAB[4,5]==""
|
END
|
||||||
INPUT CODTAB FR_CODMAG
|
|
||||||
DISPLAY "Codice" CODTAB
|
STRING FR_DESCRART 50
|
||||||
DISPLAY "Descrizione@50" S0
|
BEGIN
|
||||||
OUTPUT FR_CODMAG CODTAB
|
PROMPT 25 5 ""
|
||||||
OUTPUT FR_DESMAG S0
|
USE LF_ANAMAG KEY 2
|
||||||
WARNING "Magazzino assente"
|
INPUT DESCR FR_DESCRART
|
||||||
FLAGS "U"
|
DISPLAY "Descrizione@50" DESCR
|
||||||
CHECKTYPE NORMAL
|
DISPLAY "Codice@8" CODART
|
||||||
FIELD CODMAG[1,3]
|
COPY OUTPUT FR_CODART
|
||||||
END
|
ADD RUN ve2 -3
|
||||||
|
FIELD DESCR
|
||||||
STRING FR_DESMAG 50
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 26 15 ""
|
STRING FR_HDESC 50
|
||||||
FLAGS "D"
|
BEGIN
|
||||||
END
|
PROMPT 100 100 "Descrizione "
|
||||||
|
USE LF_ANAMAG KEY 2
|
||||||
STRING FR_CODDEP 4
|
INPUT DESCR FR_HDESC
|
||||||
BEGIN
|
DISPLAY "Descrizione@50" DESCR
|
||||||
PROMPT 2 16 "Deposito "
|
DISPLAY "Codice@20" CODART
|
||||||
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB[4,5]!="")
|
COPY OUTPUT FR_CODART
|
||||||
INPUT CODTAB[1,3] FR_CODMAG
|
END
|
||||||
INPUT CODTAB[4,5] FR_CODDEP
|
|
||||||
DISPLAY "Codice mag." CODTAB[1,3]
|
STRING FR_CODARTMAG 20
|
||||||
DISPLAY "Codice dep." CODTAB[4,5]
|
BEGIN
|
||||||
DISPLAY "Descrizione@50" S0
|
PROMPT 200 7 ""
|
||||||
OUTPUT FR_CODMAG CODTAB[1,3]
|
FIELD CODARTMAG
|
||||||
OUTPUT FR_CODDEP CODTAB[4,5]
|
FLAGS "G"
|
||||||
OUTPUT FR_DESDEP S0
|
END
|
||||||
MESSAGE DIRTY,FR_CODMAG|K_TAB,FR_CODMAG
|
|
||||||
CHECKTYPE NORMAL
|
BOOLEAN FR_CHECKED
|
||||||
WARNING "Deposito assente"
|
BEGIN
|
||||||
FLAGS "U"
|
PROMPT 51 50 ""
|
||||||
FIELD CODMAG[4,5]
|
FIELD CHECKED
|
||||||
END
|
FLAGS "D"
|
||||||
|
END
|
||||||
STRING FR_DESDEP 50
|
|
||||||
BEGIN
|
STRING FR_LIV1 15
|
||||||
PROMPT 26 16 ""
|
BEGIN
|
||||||
FLAGS "D"
|
PROMPT 2 6 "Liv.Gia. "
|
||||||
END
|
FLAGS "U"
|
||||||
|
USE GCG
|
||||||
STRING FR_CODMAGC 4
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||||
BEGIN
|
INPUT CODTAB[1,1] "1"
|
||||||
PROMPT 2 17 "Magazzino Col. "
|
INPUT CODTAB[2,] FR_LIV1
|
||||||
COPY USE FR_CODMAG
|
DISPLAY "Livello@20" 500@->S0
|
||||||
INPUT CODTAB FR_CODMAGC
|
DISPLAY "Gruppo@15" CODTAB[2,]
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Descrizione@30" S0
|
||||||
DISPLAY "Descrizione@50" S0
|
OUTPUT FR_LIV1 CODTAB[2,]
|
||||||
OUTPUT FR_CODMAGC CODTAB
|
MESSAGE EMPTY RESET,FR_LIV2|RESET,FR_LIV3|RESET,FR_LIV4
|
||||||
OUTPUT FR_DESMAGC S0
|
MESSAGE ENABLE,FR_LIV2
|
||||||
WARNING "Magazzino assente"
|
CHECKTYPE NORMAL
|
||||||
FLAGS "U"
|
END
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FIELD CODMAGC[1,3]
|
STRING FR_LIV2 15
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 28 6 ""
|
||||||
STRING FR_DESMAGC 50
|
FLAGS "U"
|
||||||
BEGIN
|
USE GCG
|
||||||
PROMPT 26 17 ""
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||||
FLAGS "D"
|
INPUT CODTAB[1,1] "2"
|
||||||
END
|
INPUT CODTAB[2,] FR_LIV2
|
||||||
|
DISPLAY "Livello@20" 500@->S0
|
||||||
STRING FR_CODDEPC 4
|
DISPLAY "Gruppo@15" CODTAB[2,]
|
||||||
BEGIN
|
DISPLAY "Descrizione@30" S0
|
||||||
PROMPT 2 18 "Deposito "
|
OUTPUT FR_LIV2 CODTAB[2,]
|
||||||
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAGC) && (CODTAB[4,5]!="")
|
MESSAGE EMPTY RESET,FR_LIV3|RESET,FR_LIV4
|
||||||
INPUT CODTAB[1,3] FR_CODMAGC
|
MESSAGE ENABLE,FR_LIV3
|
||||||
INPUT CODTAB[4,5] FR_CODDEPC
|
CHECKTYPE NORMAL
|
||||||
DISPLAY "Codice mag." CODTAB[1,3]
|
END
|
||||||
DISPLAY "Codice dep." CODTAB[4,5]
|
|
||||||
DISPLAY "Descrizione@50" S0
|
STRING FR_LIV3 15
|
||||||
OUTPUT FR_CODMAGC CODTAB[1,3]
|
BEGIN
|
||||||
OUTPUT FR_CODDEPC CODTAB[4,5]
|
PROMPT 45 6 ""
|
||||||
OUTPUT FR_DESDEPC S0
|
FLAGS "U"
|
||||||
MESSAGE DIRTY,FR_CODMAGC|K_TAB,FR_CODMAGC
|
USE GCG
|
||||||
CHECKTYPE NORMAL
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||||
WARNING "Deposito assente"
|
INPUT CODTAB[1,1] "3"
|
||||||
FLAGS "U"
|
INPUT CODTAB[2,] FR_LIV3
|
||||||
FIELD CODMAGC[4,5]
|
DISPLAY "Livello@20" 500@->S0
|
||||||
END
|
DISPLAY "Gruppo@15" CODTAB[2,]
|
||||||
|
DISPLAY "Descrizione@30" S0
|
||||||
STRING FR_DESDEPC 50
|
OUTPUT FR_LIV3 CODTAB[2,]
|
||||||
BEGIN
|
MESSAGE EMPTY RESET,FR_LIV4
|
||||||
PROMPT 26 18 ""
|
MESSAGE ENABLE,FR_LIV4
|
||||||
FLAGS "D"
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
STRING FR_LIV4 15
|
||||||
ENDPAGE
|
BEGIN
|
||||||
|
PROMPT 62 6 ""
|
||||||
PAGE "Analitica" 0 2 0 0
|
FLAGS "U"
|
||||||
|
USE GCG
|
||||||
GROUPBOX DLG_NULL 78 14
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||||
BEGIN
|
INPUT CODTAB[1,1] "4"
|
||||||
PROMPT 1 0 "Contabilita' analitica"
|
INPUT CODTAB[2,] FR_LIV4
|
||||||
END
|
DISPLAY "Livello@20" 500@->S0
|
||||||
|
DISPLAY "Gruppo@15" CODTAB[2,]
|
||||||
ENDPAGE
|
DISPLAY "Descrizione@30" S0
|
||||||
ENDMASK
|
OUTPUT FR_LIV4 CODTAB[2,]
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_UMQTA 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 62 7 "U.M. "
|
||||||
|
USE LF_UMART KEY 2
|
||||||
|
JOIN %UMS INTO CODTAB=UM
|
||||||
|
INPUT CODART FR_CODARTMAG SE
|
||||||
|
INPUT UM FR_UMQTA
|
||||||
|
DISPLAY "Codice@20" UM
|
||||||
|
DISPLAY "Descrizione@50" %UMS->S0
|
||||||
|
OUTPUT FR_UMQTA UM
|
||||||
|
FIELD UMQTA
|
||||||
|
FLAG "U"
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_UMQTA2 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 62 7 "U.M. "
|
||||||
|
USE %UMS
|
||||||
|
INPUT CODTAB FR_UMQTA2
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT FR_UMQTA2 CODTAB
|
||||||
|
FIELD UMQTA
|
||||||
|
FLAG "U"
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY FR_PREZZO 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 21 7 "Prezzo "
|
||||||
|
FLAGS "U"
|
||||||
|
FIELD PREZZO
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUP -1 78 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 10 "@bDotazioni"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER 155 7
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 11 "Dotazione Odierna "
|
||||||
|
FIELD DOTOD
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER 159 7
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 12 "Dotazione iniziale "
|
||||||
|
FIELD DOTIN
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_CAULAV 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 7 "Cau.Lav. "
|
||||||
|
USE &LVCAU
|
||||||
|
INPUT CODTAB FR_CAULAV
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT FR_CAULAV CODTAB
|
||||||
|
OUTPUT FR_FLCONS B1
|
||||||
|
OUTPUT FR_FLRIT B0
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
FLAGS "U"
|
||||||
|
FIELD CODAGG1
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN FR_FLCONS
|
||||||
|
BEGIN
|
||||||
|
PROMPT 50 50 "Flag consegnato"
|
||||||
|
FLAGS "HG"
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN FR_FLRIT
|
||||||
|
BEGIN
|
||||||
|
PROMPT 50 50 "Flag ritirato"
|
||||||
|
FLAGS "HG"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER FR_RITIRO 6 0
|
||||||
|
BEGIN
|
||||||
|
PROMPT 28 8 "Ritirato "
|
||||||
|
FIELD QTAGG1
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER FR_QTA 6 0
|
||||||
|
BEGIN
|
||||||
|
PROMPT 45 8 "Rotti "
|
||||||
|
FIELD QTA
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 78 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 14 "@bMagazzino"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_CODMAG 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 15 "Magazzino "
|
||||||
|
USE MAG SELECT CODTAB[4,5]==""
|
||||||
|
INPUT CODTAB FR_CODMAG
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT FR_CODMAG CODTAB
|
||||||
|
OUTPUT FR_DESMAG S0
|
||||||
|
WARNING "Magazzino assente"
|
||||||
|
FLAGS "U"
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
FIELD CODMAG[1,3]
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_DESMAG 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 26 15 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_CODDEP 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 16 "Deposito "
|
||||||
|
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB[4,5]!="")
|
||||||
|
INPUT CODTAB[1,3] FR_CODMAG
|
||||||
|
INPUT CODTAB[4,5] FR_CODDEP
|
||||||
|
DISPLAY "Codice mag." CODTAB[1,3]
|
||||||
|
DISPLAY "Codice dep." CODTAB[4,5]
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT FR_CODMAG CODTAB[1,3]
|
||||||
|
OUTPUT FR_CODDEP CODTAB[4,5]
|
||||||
|
OUTPUT FR_DESDEP S0
|
||||||
|
MESSAGE DIRTY,FR_CODMAG|K_TAB,FR_CODMAG
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Deposito assente"
|
||||||
|
FLAGS "U"
|
||||||
|
FIELD CODMAG[4,5]
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_DESDEP 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 26 16 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_CODMAGC 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 17 "Magazzino Col. "
|
||||||
|
COPY USE FR_CODMAG
|
||||||
|
INPUT CODTAB FR_CODMAGC
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT FR_CODMAGC CODTAB
|
||||||
|
OUTPUT FR_DESMAGC S0
|
||||||
|
WARNING "Magazzino assente"
|
||||||
|
FLAGS "U"
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
FIELD CODMAGC[1,3]
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_DESMAGC 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 26 17 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_CODDEPC 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 18 "Deposito "
|
||||||
|
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAGC) && (CODTAB[4,5]!="")
|
||||||
|
INPUT CODTAB[1,3] FR_CODMAGC
|
||||||
|
INPUT CODTAB[4,5] FR_CODDEPC
|
||||||
|
DISPLAY "Codice mag." CODTAB[1,3]
|
||||||
|
DISPLAY "Codice dep." CODTAB[4,5]
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT FR_CODMAGC CODTAB[1,3]
|
||||||
|
OUTPUT FR_CODDEPC CODTAB[4,5]
|
||||||
|
OUTPUT FR_DESDEPC S0
|
||||||
|
MESSAGE DIRTY,FR_CODMAGC|K_TAB,FR_CODMAGC
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Deposito assente"
|
||||||
|
FLAGS "U"
|
||||||
|
FIELD CODMAGC[4,5]
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING FR_DESDEPC 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 26 18 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Analitica" 0 2 0 0
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 78 14
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 0 "Contabilita' analitica"
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
ENDMASK
|
||||||
|
|||||||
@ -5,7 +5,6 @@ CAMPICALC=
|
|||||||
IMPONIBILE=IMPNS
|
IMPONIBILE=IMPNS
|
||||||
|
|
||||||
[HANDLERS]
|
[HANDLERS]
|
||||||
NHANDLER = 5
|
|
||||||
1 = 133|4101
|
1 = 133|4101
|
||||||
2 = 112|4102
|
2 = 112|4102
|
||||||
3 = 105|4103
|
3 = 105|4103
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user