Patch level : 10.0 patch 494
Files correlati : lv3, lvbolacp.msk verig24.msk lvmenu Ricompilazione Demo : [ ] Commento : Aggiunta la gestione dei buoni di prelievo (con relativa chiasmata a menu e relativo profilo) Correzioni varie sull'evasione dei buoni di prelievo git-svn-id: svn://10.65.10.50/trunk@19564 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83
parent
b885b7dcfd
commit
052f340bb7
@ -8,7 +8,8 @@ int main(int argc, char** argv)
|
||||
switch (r)
|
||||
{
|
||||
case 0: lv3100(argc, argv); break; // gestione manuale bolle lv3100
|
||||
case 1: lv3200(argc, argv); break; // evasione buoni si prelievo lv3200
|
||||
case 1: lv3200(argc, argv); break; // evasione buoni di prelievo lv3200
|
||||
case 2: lv3300(argc, argv); break; // gestione manuale buoni di prelievo lv3300
|
||||
default: lv3100(argc, argv); break; // gestione manuale bolle lv3100
|
||||
}
|
||||
return 0;
|
||||
|
||||
1
lv/lv3.h
1
lv/lv3.h
@ -3,5 +3,6 @@
|
||||
|
||||
int lv3100(int argc, char* argv[]);
|
||||
int lv3200(int argc, char* argv[]);
|
||||
int lv3300(int argc, char* argv[]);
|
||||
|
||||
#endif // __LV3_H
|
||||
|
||||
@ -270,7 +270,6 @@ void TEvasione_msk::carica_righe()
|
||||
riga.add(rdoc.cong_pre(), sheet.cid2index(S_CONGPRE));
|
||||
riga.add(rdoc.cong_att(), sheet.cid2index(S_CONGATT));
|
||||
riga.add(rdoc.rifbcon(), sheet.cid2index(S_RIFBCON));
|
||||
riga.add(rdoc.rifbrit(), sheet.cid2index(S_RIFBRIT));
|
||||
}
|
||||
else
|
||||
rdoc.set_evaso(true);
|
||||
@ -381,6 +380,13 @@ void TEvasione_msk::genera_documento()
|
||||
long dottmp = magcli.get_long(CLIFOGIAC_DOTTM);
|
||||
long dotod = magcli.get_long(CLIFOGIAC_DOTOD);
|
||||
|
||||
//recupero l'unità di misura principale di quest'articolo
|
||||
TToken_string key;
|
||||
key.add(codart);
|
||||
key.add(1);
|
||||
const TRectype& umart = cache().get(LF_UMART, key);
|
||||
TString4 um = umart.get(UMART_UM);
|
||||
|
||||
TRiga_documento& rdoc = doc.new_row("21");
|
||||
rdoc.put(RDOC_CODART, codart);
|
||||
rdoc.put(RDOC_CODARTMAG,codart);
|
||||
@ -399,8 +405,8 @@ void TEvasione_msk::genera_documento()
|
||||
rdoc.put(RDOC_QTA, rbpre.qta_consegnata()); //consegnato
|
||||
rdoc.put(RDOC_QTAGG1, rbpre.qta_ritirata()); //ritirato
|
||||
|
||||
dotod += (rbpre.qta_consegnata() - rbpre.qta_ritirata());
|
||||
rdoc.put("DOTOD", dotod);
|
||||
rdoc.add("DOTOD", rbpre.qta_consegnata());
|
||||
|
||||
bool dtmp = false;
|
||||
if (datagen >= rcont.get_date(LVRCONDV_INDTTMP) && datagen <= rcont.get_date(LVRCONDV_FIDTTMP))
|
||||
@ -409,7 +415,7 @@ void TEvasione_msk::genera_documento()
|
||||
if(dtmp)
|
||||
{
|
||||
rdoc.put("DOTMP", dottmp);
|
||||
rdoc.add("DOTMP", rbpre.qta_consegnata());
|
||||
rdoc.add("DOTMP", rbpre.qta_consegnata() - rbpre.qta_ritirata());
|
||||
}
|
||||
|
||||
rdoc.put(RDOC_CODAGG1, rbpre.causale());
|
||||
@ -428,6 +434,8 @@ void TEvasione_msk::genera_documento()
|
||||
rdoc.put(RDOC_SCONTO, rcont.get(LVRCONDV_SCONTPERC)); //sconto
|
||||
}
|
||||
|
||||
rdoc.put(RDOC_UMQTA, um);
|
||||
|
||||
//scrivo il magazzino
|
||||
TString8 magazzino;
|
||||
TString8 magazzinoc;
|
||||
@ -450,7 +458,7 @@ void TEvasione_msk::genera_documento()
|
||||
err = doc.write();
|
||||
const TString4 stato = cache().get("%TIP", ini_get_string(CONFIG_DITTA, "lv", "TIPODOC_PRE", NULL, 0), "S2").mid(1,1);
|
||||
bpre.put(DOC_STATO, stato);
|
||||
bpre.write();
|
||||
bpre.rewrite();
|
||||
set(F_STATO, stato);
|
||||
}
|
||||
|
||||
@ -470,7 +478,6 @@ void TEvasione_msk::genera_documento()
|
||||
|
||||
reset(F_NDOC);
|
||||
send_key(K_TAB, F_NDOC);
|
||||
field(F_NDOC).set_focus();
|
||||
}
|
||||
|
||||
//EVADI_TUTTO: metodo che forza a "evaso" tutte le righe e lancia la generazione del buono di consegna associato
|
||||
@ -519,6 +526,8 @@ void TEvasione_msk::salva()
|
||||
TDoc_key kdoc(get_int(F_ANNO), get(F_CODNUM), get_long(F_NDOC));
|
||||
TBuono_prelievo doc(kdoc);
|
||||
|
||||
TLaundry_contract cont(get_long(F_CODCF), get_long(F_CODCONT));
|
||||
|
||||
//nel caso avessi spezzato le righe, risrcivendole da capo mi vengono ordinate per codice
|
||||
//ATTENZIONE: devo eliminare le sole righe che sono sullo sheet, cioè quelle che hanno
|
||||
//quantità da consegnare maggiore di zero
|
||||
@ -539,7 +548,7 @@ void TEvasione_msk::salva()
|
||||
//per ogni riga dello sheet genero una riga documento
|
||||
FOR_EACH_SHEET_ROW(sheet, r, riga)
|
||||
{
|
||||
TRiga_documento& row = doc.new_row("21");
|
||||
TRiga_documento& row = doc.new_row("24");
|
||||
TBuono_prelievo_row rdoc(row);
|
||||
|
||||
const char flgev = riga->get(sheet.cid2index(S_EVASO))[0];
|
||||
@ -549,8 +558,10 @@ void TEvasione_msk::salva()
|
||||
else
|
||||
flag = false;
|
||||
|
||||
const TString80 codart = riga->get(sheet.cid2index(S_CODART));
|
||||
|
||||
rdoc.set_evaso(flag);
|
||||
rdoc.set_codart(riga->get(sheet.cid2index(S_CODART)));
|
||||
rdoc.set_codart(codart);
|
||||
rdoc.set_desart(riga->get(sheet.cid2index(S_ARTDESCR)));
|
||||
rdoc.set_causale(riga->get(sheet.cid2index(S_CAUSALE)));
|
||||
rdoc.set_qta_ritirata(riga->get_int(sheet.cid2index(S_RITIRATO)));
|
||||
@ -560,7 +571,38 @@ void TEvasione_msk::salva()
|
||||
rdoc.set_cong_att(riga->get_int(sheet.cid2index(S_CONGPRE)));
|
||||
rdoc.set_cong_pre(riga->get_int(sheet.cid2index(S_CONGATT)));
|
||||
rdoc.set_rifbcon(riga->get(sheet.cid2index(S_RIFBCON)));
|
||||
rdoc.set_rifbrit(riga->get(sheet.cid2index(S_RIFBRIT)));
|
||||
|
||||
//recupero l'unità di misura principale di quest'articolo
|
||||
TToken_string key;
|
||||
key.add(codart);
|
||||
key.add(1);
|
||||
const TRectype& umart = cache().get(LF_UMART, key);
|
||||
rdoc.set_um(umart.get(UMART_UM));
|
||||
|
||||
//recupero il codiva di quest'articolo
|
||||
const TRectype& anamag = cache().get(LF_ANAMAG, codart);
|
||||
rdoc.set_codiva(anamag.get(ANAMAG_CODIVA));
|
||||
|
||||
const TRectype& rcont = cont.row(codart);
|
||||
|
||||
//controllo da dove devo prendere il prezzo
|
||||
real prezzo;
|
||||
|
||||
if (cont.get_int(LVCONDV_TIPOLIS) == 0)
|
||||
prezzo = rcont.get_real(LVRCONDV_PREZZO);
|
||||
else
|
||||
prezzo = anamag.get_real(ANAMAG_COSTSTD);
|
||||
rdoc.set_prezzo(prezzo);
|
||||
|
||||
//scrivo il magazzino
|
||||
TString8 magazzino;
|
||||
TString8 magazzinoc;
|
||||
|
||||
magazzino << ini_get_string(CONFIG_DITTA, "lv", "CODMAG") << ini_get_string(CONFIG_DITTA, "lv", "CODMAGN");
|
||||
magazzinoc << ini_get_string(CONFIG_DITTA, "lv", "CODMAG") << ini_get_string(CONFIG_DITTA, "lv", "CODMAGC");
|
||||
|
||||
rdoc.set_mag(magazzino);
|
||||
rdoc.set_magc(magazzinoc);
|
||||
}
|
||||
doc.rewrite();
|
||||
}
|
||||
@ -603,7 +645,6 @@ void TEvasione_msk::annulla_operazioni()
|
||||
riga.add(rdoc.cong_pre(), sheet.cid2index(S_CONGPRE));
|
||||
riga.add(rdoc.cong_att(), sheet.cid2index(S_CONGATT));
|
||||
riga.add(rdoc.rifbcon(), sheet.cid2index(S_RIFBCON));
|
||||
riga.add(rdoc.rifbrit(), sheet.cid2index(S_RIFBRIT));
|
||||
}
|
||||
sheet.force_update();
|
||||
}
|
||||
@ -846,7 +887,10 @@ bool TEvasione_msk::on_field_event(TOperable_field& f, TField_event e, long joll
|
||||
sistema_pacchi();
|
||||
|
||||
if (controlla())
|
||||
{
|
||||
genera_documento();
|
||||
//field(F_NDOC).set_focus();
|
||||
}
|
||||
}
|
||||
}
|
||||
break;
|
||||
|
||||
@ -211,7 +211,6 @@ BEGIN
|
||||
ITEM "Cong.\nPrec."
|
||||
ITEM "Cong.\nAtt."
|
||||
ITEM "Riferimenti\nbuoni cons."
|
||||
ITEM "Riferimenti\nbuoni rit."
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
@ -322,11 +321,5 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_RIFBRIT 255 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Riferimenti buono di ritiro "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
1227
lv/lv3300.cpp
Executable file
1227
lv/lv3300.cpp
Executable file
File diff suppressed because it is too large
Load Diff
@ -199,12 +199,12 @@ Col(4)=FR_LIV4
|
||||
Col(5)=FR_DESCR||28
|
||||
Col(6)=FR_CAULAV|Caus.|5
|
||||
Col(7)=FR_RITIRO|Ritiro|6
|
||||
Col(8)=FR_JOLLY5|Da cons|8
|
||||
Col(9)=FR_QTA|Cons.|6
|
||||
Col(10)=FR_JOLLY6|Pacchi|6
|
||||
Col(8)=FR_QTA|Da cons|8
|
||||
Col(9)=FR_QTAEVASA|Cons.|6
|
||||
Col(10)=FR_NCOLLI|Pacchi|6
|
||||
Col(11)=FR_PREZZO||6
|
||||
Col(12)=FR_JOLLY1@R|Dotaz.|7
|
||||
Col(13)=FR_JOLLY2@R|D.Temp.|7
|
||||
Col(12)=FR_JOLLY1|Dotaz.|7
|
||||
Col(13)=FR_JOLLY2|D.Temp.|7
|
||||
Col(14)=FR_JOLLY3|Inizio|10
|
||||
Col(15)=FR_JOLLY4|Fine|10
|
||||
Col(16)=FR_UMQTA
|
||||
@ -212,19 +212,18 @@ Col(17)=FR_SCONTO
|
||||
Col(18)=FR_PERCPROV
|
||||
Col(19)=FR_PERCPROV1
|
||||
Col(20)=FR_CODIVA
|
||||
Col(21)=FR_NCOLLI
|
||||
Col(22)=FR_PNETTO
|
||||
Col(23)=FR_TARA
|
||||
Col(24)=FR_CAUS
|
||||
Col(25)=FR_CODMAGC
|
||||
Col(26)=FR_CODDEPC
|
||||
Col(27)=FR_CODMAG
|
||||
Col(28)=FR_CODDEP
|
||||
Col(29)=FR_TIPORIGA|Tipo|4
|
||||
Col(21)=FR_PNETTO
|
||||
Col(22)=FR_TARA
|
||||
Col(23)=FR_CAUS
|
||||
Col(24)=FR_CODMAGC
|
||||
Col(25)=FR_CODDEPC
|
||||
Col(26)=FR_CODMAG
|
||||
Col(27)=FR_CODDEP
|
||||
Col(28)=FR_TIPORIGA|Tipo|4
|
||||
Col(29)=FR_JOLLY5|Rif. buoni cons.|20
|
||||
|
||||
[RIGHE]
|
||||
Tipo(0)=23
|
||||
Tipo(1)=05
|
||||
Tipo(0)=24
|
||||
|
||||
[HANDLERS]
|
||||
Handler(0) = 106|4101
|
||||
|
||||
@ -103,13 +103,14 @@ Item_02 = "Acquisizione del Pulito", "lv2 -8", "F"
|
||||
Item_03 = "Generazione buoni di prelievo", "lv2 -3 P", "F"
|
||||
Item_04 = "Generazione buoni di consegna", "lv2 -3 C", "F"
|
||||
Item_05 = "Buoni di Ritiro", "lv3 -0 -filtI1=1 -defNUM_RIT(0),TIPODOC_RIT(0),lv", "F"
|
||||
Item_06 = "Buoni di Prelievo", "lv3 -0 -filtI1=1 -defNUM_PRE(0),TIPODOC_PRE(0),lv", "F"
|
||||
Item_06 = "Buoni di Prelievo", "lv3 -2 -filtI1=1 -defNUM_PRE(0),TIPODOC_PRE(0),lv", "F"
|
||||
Item_07 = "Buoni di Consegna", "lv3 -0 -filtI1=1 -defNUM_GEN,TIPODOC_GEN,lv", "F"
|
||||
Item_08 = "Fatture", "ve0 -1 -filtI1=2 -defNUM_FAT,TIPODOC_FAT,lv", "F"
|
||||
Item_09 = "Ordini Fornitori", "ve0 -1 -filtI1=3 -defNUM_ORF,TIPODOC_ORF,lv", "F"
|
||||
Item_10 = "Ordini Clienti", "ve0 -1 -filtI1=3 -defNUM_ORC,TIPODOC_ORC,lv", "F"
|
||||
Item_11 = "Fatturazione", "lv2 -4", "F"
|
||||
Item_12 = "Evasione Buoni di Prelievo manuale", "lv3 -1 M", "F"
|
||||
Item_13 = "Evasione Buoni di Prelievo barcode", "lv3 -1 B", "F"
|
||||
Item_13 = "Stampe", [LVMENU_050]
|
||||
|
||||
[LVMENU_050]
|
||||
|
||||
13
lv/verig24.ini
Executable file
13
lv/verig24.ini
Executable file
@ -0,0 +1,13 @@
|
||||
#Profilo di riga tipo merce lavanderie
|
||||
[MAIN]
|
||||
CALCOLI=*
|
||||
CAMPICALC=
|
||||
IMPONIBILE=IMPNS
|
||||
|
||||
[HANDLERS]
|
||||
NHANDLER = 5
|
||||
1 = 133|4101
|
||||
2 = 112|4102
|
||||
3 = 105|4103
|
||||
4 = 152|4104
|
||||
5 = 103|4105
|
||||
474
lv/verig24.uml
Executable file
474
lv/verig24.uml
Executable file
@ -0,0 +1,474 @@
|
||||
#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 0 0 ""
|
||||
END
|
||||
|
||||
LIST FR_TIPORIGA 2 50
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo riga "
|
||||
FIELD TIPORIGA
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 10
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bArticolo"
|
||||
END
|
||||
|
||||
STRING FR_CODART 8
|
||||
BEGIN
|
||||
PROMPT 2 4 "Articolo "
|
||||
USE LF_ANAMAG KEY 1
|
||||
INPUT CODART FR_CODART
|
||||
DISPLAY "Codice@6" 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 4 ""
|
||||
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 6 ""
|
||||
FIELD CODARTMAG
|
||||
FLAGS "G"
|
||||
END
|
||||
|
||||
BOOLEAN FR_CHECKED
|
||||
BEGIN
|
||||
PROMPT 51 50 ""
|
||||
FIELD CHECKED
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FR_LIV1 15
|
||||
BEGIN
|
||||
PROMPT 2 5 "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 5 ""
|
||||
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 5 ""
|
||||
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 5 ""
|
||||
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 2 6 "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 2 6 "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 6 "Prezzo "
|
||||
FLAGS "U"
|
||||
FIELD PREZZO
|
||||
END
|
||||
|
||||
STRING FR_SCONTO 15
|
||||
BEGIN
|
||||
PROMPT 36 6 "Sconto "
|
||||
FIELD SCONTO
|
||||
END
|
||||
|
||||
NUMBER FR_PERCPROV 5 2
|
||||
BEGIN
|
||||
PROMPT 59 6 "Provv. "
|
||||
FIELD PERCPROV
|
||||
END
|
||||
|
||||
NUMBER FR_PERCPROV1 5 2
|
||||
BEGIN
|
||||
PROMPT 72 6 ""
|
||||
FIELD PERCPROV1
|
||||
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_DESCAU S0
|
||||
OUTPUT FR_FLCONS B1
|
||||
OUTPUT FR_FLRIT B0
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "U"
|
||||
FIELD CODAGG1
|
||||
END
|
||||
|
||||
STRING FR_DESCAU 50
|
||||
BEGIN
|
||||
PROMPT 18 7 ""
|
||||
FLAGS "D"
|
||||
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 2 8 "Ritirato "
|
||||
FIELD QTAGG1
|
||||
END
|
||||
|
||||
NUMBER FR_QTA 6 0
|
||||
BEGIN
|
||||
PROMPT 20 8 "Da cons. "
|
||||
FIELD QTA
|
||||
END
|
||||
|
||||
NUMBER FR_QTAEVASA 6 0
|
||||
BEGIN
|
||||
PROMPT 40 8 "Consegnato "
|
||||
FIELD QTAEVASA
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER FR_NCOLLI 7
|
||||
BEGIN
|
||||
PROMPT 60 8 "Pacchi "
|
||||
FIELD NCOLLI
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER FR_JOLLY1 6 0
|
||||
BEGIN
|
||||
PROMPT 2 9 "Dot. Od. "
|
||||
FIELD DOTOD
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER FR_JOLLY2 6 0
|
||||
BEGIN
|
||||
PROMPT 20 9 "Dot. Tem. "
|
||||
FIELD DOTMP
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE FR_JOLLY3
|
||||
BEGIN
|
||||
PROMPT 40 9 "Inizio "
|
||||
FIELD DADATATMP
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE FR_JOLLY4
|
||||
BEGIN
|
||||
PROMPT 60 9 "Fine "
|
||||
FIELD ADATATMP
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER FR_TARA 15 2
|
||||
BEGIN
|
||||
PROMPT 2 10 "Tara "
|
||||
FIELD TARA
|
||||
END
|
||||
|
||||
NUMBER FR_PNETTO 6 2
|
||||
BEGIN
|
||||
PROMPT 25 10 "Peso netto "
|
||||
FIELD PNETTO
|
||||
END
|
||||
|
||||
STRING FR_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 2 11 "IVA "
|
||||
USE %IVA
|
||||
INPUT CODTAB FR_CODIVA
|
||||
DISPLAY "Codice@20" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FR_CODIVA CODTAB
|
||||
OUTPUT FR_DESIVA S0
|
||||
FLAGS "U"
|
||||
VALIDATE ZEROFILL_FUNC 2
|
||||
CHECKTYPE NORMAL
|
||||
FIELD CODIVA
|
||||
END
|
||||
|
||||
STRING FR_DESIVA 50
|
||||
BEGIN
|
||||
PROMPT 13 11 ""
|
||||
USE %IVA KEY 2
|
||||
INPUT S0 FR_DESIVA
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice@20" CODTAB
|
||||
OUTPUT FR_CODIVA CODTAB
|
||||
OUTPUT FR_DESIVA S0
|
||||
END
|
||||
|
||||
STRING FR_TIPODET 1
|
||||
BEGIN
|
||||
PROMPT 67 11 "Indetr. "
|
||||
USE %DET
|
||||
INPUT CODTAB FR_TIPODET
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Tipo" I0
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FR_TIPODET CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
BEGIN
|
||||
PROMPT 1 13 "@bMagazzino"
|
||||
END
|
||||
|
||||
STRING FR_CODMAG 4
|
||||
BEGIN
|
||||
PROMPT 2 14 "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 14 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FR_CODDEP 4
|
||||
BEGIN
|
||||
PROMPT 2 15 "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 15 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FR_CODMAGC 4
|
||||
BEGIN
|
||||
PROMPT 2 16 "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 16 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FR_CODDEPC 4
|
||||
BEGIN
|
||||
PROMPT 2 17 "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 17 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 19 "@bRiferimenti documenti"
|
||||
END
|
||||
|
||||
STRING FR_JOLLY5 20
|
||||
BEGIN
|
||||
PROMPT 2 20 "Buono di Consegna"
|
||||
FIELD RIFBCON
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Analitica" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 14
|
||||
BEGIN
|
||||
PROMPT 1 0 "Contabilita' analitica"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user