Patch level :10.0 patch 344
Files correlati : lvbolacp.msk, vbolacp.ini, verig23.msk Ricompilazione Demo : [ ] Commento : Aggiunto il profilo per i buoni di prelievo git-svn-id: svn://10.65.10.50/trunk@19033 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83
parent
e2b99a5a17
commit
2fb9251c3f
304
lv/lvbolacp.src
Executable file
304
lv/lvbolacp.src
Executable file
@ -0,0 +1,304 @@
|
||||
#include "veini.h"
|
||||
#include "veuml.h"
|
||||
#include "verig.h"
|
||||
// Esempio di profilo documento : Profilo Bolla Vendita
|
||||
|
||||
[MAIN]
|
||||
// Descrizione a caratteri del documento
|
||||
TYPE=Bolla Consegna Lavanderia
|
||||
// Dove sono le risorse per il documento
|
||||
// modifica
|
||||
CAMPICALC=TOTMER|TOTPRE|SPESE|SPESIMB|SPESTRA|SPESINC|BOLLI|IMPONIBILI|IMPOSTE|TOTDOC|SCONTOD|SCONTOT|OMAGGI|TOTPROVV
|
||||
CALCOLI=*
|
||||
TOTPROVV=
|
||||
// Indica se il documento è indirizzato ad un cliente o ad un fornitore
|
||||
TIPOCF=C
|
||||
// Modulo di riferimento
|
||||
MODULE=lv
|
||||
Title(1)=Corpo
|
||||
Title(2)=Pagamenti
|
||||
Title(3)=Spedizioni/Agenti
|
||||
Title(4)=Dati Trasporto
|
||||
Title(5)=Partenza/Magazzino
|
||||
Title(6)=Totali
|
||||
Title(7)=Totali
|
||||
|
||||
[PROFILO]
|
||||
// Si possono indicare, dopo il numero, PROMPT, HELP, WARNING cosi:
|
||||
// 1|Prompt|Help|Warning
|
||||
|
||||
// TIPOCF = S_NORMALE
|
||||
// CODCF = S_OBBLIGATORIO
|
||||
// RAGSOC = S_NORMALE
|
||||
// RICALT = S_NORMALE
|
||||
OCCASEDIT = S_DISABILITATO //100
|
||||
OCFPI = S_DISABILITATO //100
|
||||
COFI = S_NON_VISIBILE //100
|
||||
STATOPAIV = S_NON_VISIBILE //100
|
||||
PAIVA = S_NON_VISIBILE //100
|
||||
GOLEM = S_NON_VISIBILE //100
|
||||
GRRECAPITO = S_NASCOSTO //100
|
||||
INDCF = S_NON_VISIBILE //100
|
||||
CIVCF = S_NON_VISIBILE //100
|
||||
LOCALITACF = S_NON_VISIBILE //100
|
||||
CAPCF = S_NON_VISIBILE //100
|
||||
PROVCOM = S_NON_VISIBILE //100
|
||||
COMCF = S_NON_VISIBILE //100
|
||||
DENCOM = S_NON_VISIBILE //100
|
||||
STATOCF = S_NON_VISIBILE //100
|
||||
DESSTATOCF = S_NON_VISIBILE //100
|
||||
CODVAL1 = S_NORMALE //200
|
||||
CODVAL2 = S_NORMALE //200
|
||||
NOME_VAL1 = S_NORMALE //200
|
||||
NOME_VAL2 = S_NORMALE //200
|
||||
CONTROEURO = S_NORMALE //200
|
||||
CAMBIO = S_NORMALE //200
|
||||
DATA_CAMBIO1 = S_NORMALE //200
|
||||
DATA_CAMBIO2 = S_NORMALE //200
|
||||
CODLIN = S_NORMALE //300
|
||||
DESLIN = S_NORMALE //300
|
||||
CODPAG = S_OBBLIGATORIO //400
|
||||
DESCODPAG = S_NORMALE //400
|
||||
GRSCADENZE = S_NORMALE //500
|
||||
DATAINSC = S_NORMALE //500
|
||||
DATASCAD1 = S_DISABILITATO //500
|
||||
DATASCAD2 = S_DISABILITATO //500
|
||||
DATASCAD3 = S_DISABILITATO //500
|
||||
DATASCAD4 = S_DISABILITATO //500
|
||||
DATASCAD5 = S_DISABILITATO //500
|
||||
CODABIA = S_OBBLIGATORIO //600
|
||||
CODCABA = S_OBBLIGATORIO //600
|
||||
DESBANAPP = S_NORMALE //600
|
||||
IBAN = S_NORMALE //600
|
||||
IBAN_STATO = S_NORMALE //600
|
||||
IBAN_CHECK = S_NORMALE //600
|
||||
BBAN = S_NORMALE //600
|
||||
BBAN_CIN = S_NORMALE //600
|
||||
BBAN_ABI = S_NORMALE //600
|
||||
BBAN_CAB = S_NORMALE //600
|
||||
BBAN_CONTO = S_NORMALE //600
|
||||
CODABIP = S_NORMALE //700
|
||||
CODCABP = S_NORMALE //700
|
||||
DESBANPRE = S_NORMALE //700
|
||||
CATVEN = S_NORMALE //800
|
||||
DESCATVEN = S_DISABILITATO //800
|
||||
CODLIST1 = S_NORMALE //800
|
||||
CODLIST2 = S_NORMALE //800
|
||||
DESLIST = S_DISABILITATO //800
|
||||
CODCONT1 = S_NORMALE //810
|
||||
CODCONT2 = S_NORMALE //810
|
||||
DESCONT = S_DISABILITATO //810
|
||||
CODCAMP = S_NORMALE //820
|
||||
DESCAMP = S_DISABILITATO //820
|
||||
SCONTOPERC = S_NORMALE //830
|
||||
GRINDSPED = S_NORMALE //900
|
||||
CODINDSP = S_NORMALE //900
|
||||
RAGSOCSP = S_DISABILITATO //900
|
||||
INDSP = S_DISABILITATO //900
|
||||
CIVSP = S_DISABILITATO //900
|
||||
LOCALITASP = S_DISABILITATO //900
|
||||
CAPSP = S_DISABILITATO //900
|
||||
COMSP = S_DISABILITATO //900
|
||||
DENCOMSP = S_DISABILITATO //900
|
||||
PROVCOMSP = S_DISABILITATO //900
|
||||
STATOSP = S_DISABILITATO //900
|
||||
DESSTATOSP = S_DISABILITATO //900
|
||||
DATADOCRIF = S_NORMALE //1000
|
||||
NUMDOCRIF = S_NOCHECK //1000
|
||||
CODAGVIS = S_NORMALE //1110
|
||||
DESAGVIS = S_NORMALE //1110
|
||||
CODAG = S_NORMALE //1100
|
||||
DESAG = S_NORMALE //1100
|
||||
CODZON = S_NORMALE //1100
|
||||
DESZON = S_NORMALE //1100
|
||||
CODSPMEZZO = S_OBBLIGATORIO //1200
|
||||
DESSPMEZZO = S_NORMALE //1200
|
||||
CODPORTO = S_NORMALE //1210
|
||||
DESPORTO = S_NORMALE //1210
|
||||
CODNOTESP1 = S_NORMALE //1300
|
||||
DESNOTESP1 = S_NORMALE //1300
|
||||
CODNOTESP2 = S_NORMALE //1300
|
||||
DESNOTESP2 = S_NORMALE //1300
|
||||
CAUSTRASP = S_OBBLIGATORIO //1400
|
||||
DENCAUSTRASP = S_NORMALE //1400
|
||||
CODVETT1 = S_NORMALE //1500
|
||||
CODVETT2 = S_NORMALE //1500
|
||||
CODVETT3 = S_NORMALE //1500
|
||||
NOMEVETT1 = S_NORMALE //1500
|
||||
NOMEVETT2 = S_NORMALE //1500
|
||||
NOMEVETT3 = S_NORMALE //1500
|
||||
NCOPIE = S_NASCOSTO //1600
|
||||
GRPARTENZA = S_NORMALE //1700
|
||||
DATAPART = S_NORMALE //1700
|
||||
ORAPART = S_NORMALE //1700
|
||||
IMPPAGATO = S_NORMALE //1800
|
||||
ACCSALDO = S_NASCOSTO //1800
|
||||
DOC1 = S_NASCOSTO //1900
|
||||
DOC2 = S_NASCOSTO //1900
|
||||
DOC3 = S_NASCOSTO //1900
|
||||
DATACONS = S_NASCOSTO //2000
|
||||
ASPBENI1 = S_OBBLIGATORIO //2100
|
||||
DESCRBENI1 = S_NORMALE //2100
|
||||
ASPBENI2 = S_NASCOSTO //2100
|
||||
DESCRBENI2 = S_NASCOSTO //2100
|
||||
IMPNETTI = S_NASCOSTO //2200
|
||||
RAGGR = S_NORMALE //2300
|
||||
RAGGREFF = S_NORMALE //2300
|
||||
SPESEINC = S_NORMALE //2400
|
||||
ADDBOLLI = S_NORMALE //2400
|
||||
UMTARA = S_NORMALE //2710
|
||||
TARA = S_NORMALE //2710
|
||||
DESUMTARA = S_NASCOSTO //2710
|
||||
UMPNETTO = S_NORMALE //2700
|
||||
PNETTO = S_NORMALE //2700
|
||||
DESUMPNETTO = S_NASCOSTO //2700
|
||||
NCOLLI = S_NORMALE //2800
|
||||
CAUSMAG = S_OBBLIGATORIO //2900
|
||||
CAUSMAGC = S_DISABILITATO //2900
|
||||
DESCRMAG = S_NORMALE //2900
|
||||
DESCRMAGC = S_DISABILITATO //2900
|
||||
CODCMS = S_NORMALE //3000
|
||||
DESCRCMS = S_NORMALE //3000
|
||||
FASCMS = S_NORMALE //3000
|
||||
DESCRFAS = S_NORMALE //3000
|
||||
CODNOTE = S_NORMALE //2500
|
||||
NOTECLI = S_NOCHECK //2500
|
||||
LVGROUP = S_NORMALE //4041
|
||||
LVCODNUM = S_NORMALE //4041
|
||||
LVDESNUM = S_NORMALE //4041
|
||||
LVSTATO = S_NORMALE //4041
|
||||
LVPROVV = S_NORMALE //4041
|
||||
LVTIPODOC = S_NORMALE //4041
|
||||
LVDESTIPODOC = S_NORMALE //4041
|
||||
LVNDOC = S_NORMALE //4041
|
||||
LVANNO = S_NORMALE //4041
|
||||
LVDATADOC = S_NORMALE //4041
|
||||
LVGIORNO = S_NORMALE //4041
|
||||
LVSETTIMANA = S_NORMALE //4041
|
||||
LVTIPOCF = S_NORMALE //4041
|
||||
LVCODCF = S_NORMALE //4041
|
||||
LVRICALT = S_NORMALE //4041
|
||||
LVCODCONT = S_NORMALE //4041
|
||||
LVRAGSOC = S_NORMALE //4041
|
||||
LVCODCAU = S_NORMALE //4041
|
||||
LVDESCAU = S_NORMALE //4041
|
||||
BLANK = S_DISABILITATO //4000
|
||||
|
||||
[DEFAULT]
|
||||
Default(0)=F_CAUSTRASP|VEN
|
||||
|
||||
[SHEET]
|
||||
Col(0)=FR_CODART|Codice|8
|
||||
Col(1)=FR_LIV1
|
||||
Col(2)=FR_LIV2
|
||||
Col(3)=FR_LIV3
|
||||
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(11)=FR_PREZZO||6
|
||||
Col(12)=FR_JOLLY1@R|Dotaz.|7
|
||||
Col(13)=FR_JOLLY2@R|D.Temp.|7
|
||||
Col(14)=FR_JOLLY3|Inizio|10
|
||||
Col(15)=FR_JOLLY4|Fine|10
|
||||
Col(16)=FR_UMQTA
|
||||
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
|
||||
|
||||
[RIGHE]
|
||||
Tipo(0)=23
|
||||
Tipo(1)=05
|
||||
|
||||
[HANDLERS]
|
||||
Handler(0) = 106|4101
|
||||
Handler(1) = 108|4103
|
||||
Handler(2) = 125|4103
|
||||
|
||||
[PROFILOGRUPPO]
|
||||
101 = S_NASCOSTO
|
||||
100 = S_NASCOSTO
|
||||
200 = S_NORMALE
|
||||
300 = S_NORMALE
|
||||
400 = S_NORMALE
|
||||
500 = S_NASCOSTO
|
||||
600 = S_NORMALE
|
||||
700 = S_NASCOSTO
|
||||
800 = S_NORMALE
|
||||
810 = S_NORMALE
|
||||
820 = S_NORMALE
|
||||
830 = S_NORMALE
|
||||
900 = S_NORMALE
|
||||
1000 = S_NORMALE
|
||||
1100 = S_NORMALE
|
||||
1200 = S_NORMALE
|
||||
1210 = S_NORMALE
|
||||
1300 = S_NORMALE
|
||||
1400 = S_NORMALE
|
||||
1500 = S_NORMALE
|
||||
1600 = S_NASCOSTO
|
||||
1700 = S_NORMALE
|
||||
1800 = S_NORMALE
|
||||
1900 = S_NORMALE
|
||||
2000 = S_NASCOSTO
|
||||
2100 = S_NORMALE
|
||||
2200 = S_NASCOSTO
|
||||
2300 = S_NORMALE
|
||||
2400 = S_NORMALE
|
||||
2500 = S_NORMALE
|
||||
2700 = S_NORMALE
|
||||
2710 = S_NORMALE
|
||||
2800 = S_NORMALE
|
||||
2900 = S_NORMALE
|
||||
3000 = S_NORMALE
|
||||
4000 = S_NORMALE
|
||||
4041 = S_NORMALE
|
||||
|
||||
[ORDINEGRUPPI]
|
||||
NGROUPS=23
|
||||
1=4041
|
||||
2=830
|
||||
3=SHEET
|
||||
4=2500
|
||||
5=200
|
||||
6=300
|
||||
7=400
|
||||
8=600
|
||||
9=800
|
||||
10=900
|
||||
11=1100
|
||||
12=1200
|
||||
13=1500
|
||||
14=1210
|
||||
15=1300
|
||||
16=1400
|
||||
17=2100
|
||||
18=2800
|
||||
19=2700
|
||||
20=2710
|
||||
21=1700
|
||||
22=2900
|
||||
23=100
|
||||
|
||||
[Colors]
|
||||
RuleName(1) = Riga vuota
|
||||
Rule(1) = (TIPORIGA!="05")&&(QTA==0)&&(QTAGG1==0)
|
||||
BgCol(1) = 255,255,128
|
||||
FgCol(1) = 0,0,0
|
||||
RuleName(2) = Dotazione scaduta
|
||||
Rule(2) = (ADATATMP!="")&&(ANSI(33.DATADOC)>ANSI(ADATATMP))
|
||||
BgCol(2) = 255,0,0
|
||||
FgCol(2) = 0,0,0
|
||||
464
lv/verig23.uml
Executable file
464
lv/verig23.uml
Executable file
@ -0,0 +1,464 @@
|
||||
#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 10
|
||||
BEGIN
|
||||
PROMPT 1 4 "@bArticolo"
|
||||
END
|
||||
|
||||
STRING FR_CODART 8
|
||||
BEGIN
|
||||
PROMPT 2 5 "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 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 2 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 2 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
|
||||
|
||||
STRING FR_SCONTO 15
|
||||
BEGIN
|
||||
PROMPT 36 7 "Sconto "
|
||||
FIELD SCONTO
|
||||
END
|
||||
|
||||
NUMBER FR_PERCPROV 5 2
|
||||
BEGIN
|
||||
PROMPT 59 7 "Provv. "
|
||||
FIELD PERCPROV
|
||||
END
|
||||
|
||||
NUMBER FR_PERCPROV1 5 2
|
||||
BEGIN
|
||||
PROMPT 72 7 ""
|
||||
FIELD PERCPROV1
|
||||
END
|
||||
|
||||
STRING FR_CAULAV 3
|
||||
BEGIN
|
||||
PROMPT 2 8 "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 8 ""
|
||||
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 9 "Ritirato "
|
||||
FIELD QTAGG1
|
||||
END
|
||||
|
||||
NUMBER FR_JOLLY5 6 0
|
||||
BEGIN
|
||||
PROMPT 20 9 "Da cons. "
|
||||
FIELD QTAGG2
|
||||
END
|
||||
|
||||
NUMBER FR_QTA 6 0
|
||||
BEGIN
|
||||
PROMPT 40 9 "Consegnato "
|
||||
FIELD QTA
|
||||
END
|
||||
|
||||
NUMBER FR_JOLLY6 6 0
|
||||
BEGIN
|
||||
PROMPT 60 9 "Pacchi "
|
||||
FIELD QTAGG3
|
||||
END
|
||||
|
||||
NUMBER FR_JOLLY1 6 0
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dot. Od. "
|
||||
FIELD DOTOD
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER FR_JOLLY2 6 0
|
||||
BEGIN
|
||||
PROMPT 20 10 "Dot. Tem. "
|
||||
FIELD DOTMP
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE FR_JOLLY3
|
||||
BEGIN
|
||||
PROMPT 40 10 "Inizio "
|
||||
FIELD DADATATMP
|
||||
END
|
||||
|
||||
DATE FR_JOLLY4
|
||||
BEGIN
|
||||
PROMPT 60 10 "Fine "
|
||||
FIELD ADATATMP
|
||||
END
|
||||
|
||||
NUMBER FR_NCOLLI 7
|
||||
BEGIN
|
||||
PROMPT 2 11 "N. Colli "
|
||||
FIELD NCOLLI
|
||||
END
|
||||
|
||||
NUMBER FR_TARA 15 2
|
||||
BEGIN
|
||||
PROMPT 25 11 "Tara "
|
||||
FIELD TARA
|
||||
END
|
||||
|
||||
NUMBER FR_PNETTO 6 2
|
||||
BEGIN
|
||||
PROMPT 60 11 "Peso netto "
|
||||
FIELD PNETTO
|
||||
END
|
||||
|
||||
STRING FR_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 2 12 "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 12 ""
|
||||
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 12 "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 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
|
||||
Loading…
x
Reference in New Issue
Block a user