root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Profili personalizzati Fabris (con decimale sulle qta)

Report personalizzato Diana (Dotod da CLIFOGIAC)


git-svn-id: svn://10.65.10.50/trunk@20108 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-02-12 11:56:56 +00:00
parent 185804cbf1
commit 7c4f94f615
11 changed files with 3012 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

305
ps/lvbolaca_FABRIS.src Executable file
View File

@ -0,0 +1,305 @@
#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
LVDATAPRCO = S_NORMALE //4041
LVDATACON = S_NORMALE //4041
LVCODCAU = S_NORMALE //4041
LVDESCAU = S_NORMALE //4041
LVCODITI = 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_QTA|Cons.|6
Col(9)=FR_PREZZO||6
Col(10)=FR_JOLLY1@R|Dotaz.|7
Col(11)=FR_JOLLY2@R|D.Temp.|7
Col(12)=FR_JOLLY3|Inizio|10
Col(13)=FR_JOLLY4|Fine|10
Col(14)=FR_UMQTA
Col(15)=FR_SCONTO
Col(16)=FR_PERCPROV
Col(17)=FR_PERCPROV1
Col(18)=FR_CODIVA
Col(19)=FR_NCOLLI
Col(20)=FR_PNETTO
Col(21)=FR_TARA
Col(22)=FR_CAUS
Col(23)=FR_CODMAGC
Col(24)=FR_CODDEPC
Col(25)=FR_CODMAG
Col(26)=FR_CODDEP
Col(27)=FR_TIPORIGA|Tipo|4
[RIGHE]
Tipo(0)=21
Tipo(1)=05
[HANDLERS]
Handler(0) = 106|4101
Handler(1) = 108|4102
Handler(3) = 805|4105
[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

308
ps/lvbolacp_FABRIS.src Executable file
View File

@ -0,0 +1,308 @@
#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
LVDATAPRCO = S_NORMALE //4041
LVDATACON = S_NORMALE //4041
LVCODCAU = S_NORMALE //4041
LVDESCAU = S_NORMALE //4041
LVCODITI = 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_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|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
Col(17)=FR_SCONTO
Col(18)=FR_PERCPROV
Col(19)=FR_PERCPROV1
Col(20)=FR_CODIVA
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)=24
[HANDLERS]
Handler(0) = 106|4101
Handler(1) = 554|4102
Handler(2) = 108|4103
Handler(3) = 125|4103
Handler(4) = 805|4105
[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

285
ps/lvbolacr_FABRIS.src Executable file
View File

@ -0,0 +1,285 @@
#include "veini.h"
#include "veuml.h"
#include "verig.h"
// Esempio di profilo documento : Profilo Buono di Ritiro
[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
LVDATAPRCO = S_NORMALE //4041
LVDATACON = S_NORMALE //4041
LVCODCAU = S_NORMALE //4041
LVDESCAU = S_NORMALE //4041
LVCODITI = 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_QTA|Rotti|6
Col(9)=FR_TIPORIGA|Tipo|4
[RIGHE]
Tipo(0)=22
Tipo(1)=05
[HANDLERS]
Handler(0) = 106|4101
Handler(1) = 554|4102
Handler(2) = 108|4103
Handler(3) = 125|4103
Handler(4) = 805|4105
[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_NASCOSTO
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=SHEET
3=830
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

615
ps/lvbolla_DIANA.rep Executable file
View File

@ -0,0 +1,615 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="ve1300" name="lvbolla_DIANA" orientation="1" lpi="6">
<description>bolla lavanderia</description>
<font face="Courier New" size="9" />
<section type="Head" height="20">
<font face="Arial" size="10" />
<field y="1" type="Stringa" hidden="1" width="10" pattern="1">
<source>16.COM</source>
<prescript description="H0.0 PRESCRIPT">MESSAGE EMPTY DISABLE,69
MESSAGE ENABLE,69</prescript>
</field>
<field x="63" y="8" type="Stringa" width="30" height="2" pattern="1">
<font face="Arial" bold="1" size="8" />
<source>16.RAGSOC</source>
</field>
<field x="63" y="10" type="Stringa" width="30" pattern="1">
<font face="Arial" size="8" />
<source>16.INDIR</source>
</field>
<field x="63" y="11" type="Stringa" width="5" pattern="1">
<font face="Arial" size="8" />
<source>16.CAP</source>
</field>
<field x="68" y="11" type="Stringa" width="25" pattern="1">
<font face="Arial" size="8" />
<source>16.LOCALITA</source>
</field>
<field x="25" y="16.5" type="Stringa" hidden="1" width="19" pattern="1">
<source>215@.S0</source>
</field>
<field x="79" y="16.5" type="Stringa" width="13" pattern="1">
<source>214@.S0</source>
</field>
<field x="94" y="16.5" type="Stringa" width="4" pattern="1">
<source>33.ZONA</source>
</field>
<field x="1" y="17.25" type="Stringa" width="24" pattern="1">
<source>122.RAGSOC</source>
</field>
<field x="25" y="17.25" type="Stringa" width="20" pattern="1">
<source>300@.RAGSOC</source>
</field>
<field x="45" y="17.25" type="Stringa" width="13" pattern="1">
<source>214@.S0</source>
</field>
<field x="1" y="17.5" type="Stringa" hidden="1" width="92" pattern="1">
<source>33.NOTE</source>
</field>
<field x="53" y="13.25" type="Stringa" width="2" id="9" pattern="1">
<prescript description="H0.9 PRESCRIPT">MESSAGE _PAGENO</prescript>
</field>
<field x="37.5" y="13.25" type="Data" width="10" id="10" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>33.DATADOC</source>
</field>
<field x="72.5" y="13.25" type="Data" width="10" id="10" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>33.DATADOC</source>
</field>
<field x="28" y="13.25" type="Stringa" align="right" width="6.5" id="11" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>33.NDOC</source>
</field>
<field x="63" y="13.25" type="Stringa" align="right" width="6.5" id="11" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>33.NDOC</source>
</field>
<field x="1" y="12.75" type="Stringa" hidden="1" width="5" id="12" pattern="1">
<source>34.CODMAG</source>
</field>
<field x="26.5" y="15.25" type="Stringa" width="18" id="13" pattern="1">
<prescript description="H0.13 PRESCRIPT">MESSAGE _CLIENTE,COFI</prescript>
</field>
<field x="82" y="15.5" type="Stringa" hidden="1" width="6" id="14" pattern="1">
<source>IF(33.CODVAL='','EURO',33.CODVAL)</source>
</field>
<field x="1" y="15.25" type="Stringa" align="right" width="6" id="15" pattern="1">
<source>33.CODCF</source>
</field>
<field x="84" y="15.25" type="Stringa" align="right" width="6" id="15" pattern="1">
<source>33.CODCF</source>
</field>
<field x="11.5" y="15.25" type="Stringa" width="14" id="16" pattern="1">
<prescript description="H0.16 PRESCRIPT">MESSAGE _CLIENTE,PAIV</prescript>
</field>
<field x="26" y="2.75" type="Stringa" width="30" height="2" id="20" pattern="1">
<font face="Arial" bold="1" size="9" />
<prescript description="H0.20 PRESCRIPT">MESSAGE _CLIENTE,!RAGSOC</prescript>
</field>
<field x="63" y="8" type="Stringa" width="30" height="2" id="20" pattern="1">
<font face="Arial" bold="1" size="8" />
<prescript description="H0.20 PRESCRIPT">MESSAGE _CLIENTE,!RAGSOC</prescript>
</field>
<field x="26" y="4.75" type="Stringa" width="30" id="21" pattern="1">
<font face="Arial" size="8" />
<prescript description="H0.21 PRESCRIPT">MESSAGE _CLIENTE,!INDNUM</prescript>
</field>
<field x="63" y="10" type="Stringa" width="30" id="21" pattern="1">
<font face="Arial" size="8" />
<prescript description="H0.21 PRESCRIPT">MESSAGE _CLIENTE,!INDNUM</prescript>
</field>
<field x="33" type="Stringa" hidden="1" width="25" id="22" pattern="1">
<font face="Arial" size="9" />
<prescript description="H0.22 PRESCRIPT">MESSAGE _CLIENTE,LOCALITACF</prescript>
</field>
<field x="26" y="5.75" type="Stringa" width="5" id="23" pattern="1">
<font face="Arial" size="8" />
<prescript description="H0.23 PRESCRIPT">MESSAGE _CLIENTE,!CAP</prescript>
</field>
<field x="63" y="11" type="Stringa" width="5" id="23" pattern="1">
<font face="Arial" size="8" />
<prescript description="H0.23 PRESCRIPT">MESSAGE _CLIENTE,!CAP</prescript>
</field>
<field x="30" y="-2" type="Stringa" hidden="1" width="30" height="2" id="24" pattern="1">
<prescript description="H0.24 PRESCRIPT">MESSAGE _CLIENTE,!COM-&#3E;DENCOM
MESSAGE COPY,26</prescript>
</field>
<field x="29" type="Stringa" hidden="1" width="2" id="25" pattern="1">
<prescript description="H0.25 PRESCRIPT">MESSAGE _CLIENTE,!COM-&#3E;PROVCOM
MESSAGE APPEND,26</prescript>
</field>
<field x="68" y="11" type="Stringa" width="25" id="26" pattern="1">
<font face="Arial" size="8" />
<prescript description="H0.26 PRESCRIPT">MESSAGE COPY,99</prescript>
</field>
<field x="30" y="-3" type="Stringa" hidden="1" width="25" id="28" pattern="1">
<prescript description="H0.28 PRESCRIPT">MESSAGE _TABLEREAD,%STA,#27,S0
MESSAGE APPEND,26</prescript>
</field>
<field x="1" y="13.25" type="Stringa" width="25" id="31" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>210@.S0</source>
</field>
<field x="9" y="15.25" type="Stringa" width="2" id="33" pattern="1">
<prescript description="H0.33 PRESCRIPT">MESSAGE _CLIENTE,STATOPAIV</prescript>
</field>
<field x="45.5" y="15.25" type="Stringa" width="30" id="37" pattern="1">
<source>20.TEL</source>
</field>
<field x="1" y="11.25" type="Stringa" hidden="1" width="5" id="40" pattern="1">
<source>16.STATO</source>
<prescript description="H0.40 PRESCRIPT">#THIS @
STRLEN
DUP
1 =
IF
"00" #THIS @ + #THIS !
THEN
2 =
IF
"0" #THIS @ + #THIS !
THEN
</prescript>
</field>
<field y="-5" type="Stringa" hidden="1" width="35" id="61" pattern="1">
<source>16.INDIR</source>
<prescript description="H0.61 PRESCRIPT">MESSAGE COPY,63</prescript>
</field>
<field y="-4" type="Stringa" hidden="1" width="10" id="62" pattern="1">
<source>16.CIV</source>
<prescript description="H0.62 PRESCRIPT">MESSAGE APPEND,63</prescript>
</field>
<field x="26" y="10" type="Stringa" width="30" id="63" pattern="1">
<font face="Arial" size="8" />
<groups>11</groups>
</field>
<field x="31" y="11" type="Stringa" width="25" id="64" pattern="1">
<font face="Arial" size="8" />
<groups>11</groups>
<source>16.LOCALITA</source>
</field>
<field x="26" y="11" type="Stringa" width="5" id="65" pattern="1">
<font face="Arial" size="8" />
<source>16.CAP</source>
</field>
<field y="-3" type="Stringa" hidden="1" width="25" id="67" pattern="1">
<source>13.DENCOM</source>
<prescript description="H0.67 PRESCRIPT">MESSAGE COPY,69</prescript>
</field>
<field y="-2" type="Stringa" hidden="1" width="15" id="68" pattern="1">
<source>13.PROVCOM</source>
<prescript description="H0.68 PRESCRIPT">MESSAGE APPEND,69</prescript>
</field>
<field x="67" y="1" type="Stringa" hidden="1" width="27" height="2" id="69" pattern="1">
<font face="Arial" size="8" />
</field>
<field y="9.5" type="Stringa" hidden="1" width="25" id="70" pattern="1">
<prescript description="H0.70 PRESCRIPT">MESSAGE _TABLEREAD,%STA,#40,S0
MESSAGE APPEND,69</prescript>
</field>
<field x="31" y="5.75" type="Stringa" width="25" height="2" id="99" pattern="1">
<font face="Arial" size="8" />
</field>
<field x="26" y="8" type="Stringa" width="30" height="2" id="100" pattern="1">
<font face="Arial" bold="1" size="8" />
<groups>11</groups>
<source>16.RAGSOC</source>
</field>
<field y="-1" type="Stringa" hidden="1" width="5" id="119" pattern="1">
<source>CODINDSP</source>
<prescript description="H0.119 PRESCRIPT">MESSAGE EMPTY ENABLE,130|ENABLE,20|ENABLE,21|ENABLE,23|ENABLE,26
MESSAGE DISABLE,130|DISABLE,20|DISABLE,21|DISABLE,23|DISABLE,26
</prescript>
</field>
<field x="26" y="8" deactivated="1" type="Testo" width="30" id="130" pattern="1" text="IDEM">
<font face="Arial" bold="1" size="8" />
</field>
<field x="88" y="13.25" type="Stringa" width="2" id="209" pattern="1">
<prescript description="H0.209 PRESCRIPT">MESSAGE _PAGENO</prescript>
</field>
</section>
<section type="Head" level="1" />
<section type="Body">
<field x="1" y="0.75" type="Immagine" width="40" height="10" pattern="1">
<source>"TestaBolla1.bmp"</source>
</field>
<field x="62" y="0.75" type="Immagine" width="40" height="8" pattern="1">
<source>"Testabolla1.bmp"</source>
</field>
<field x="83.5" y="0.75" type="Immagine" width="25" height="10" pattern="1">
<source>"testa2.bmp"</source>
</field>
<field border="1" radius="100" x="25" y="2" type="Rettangolo" shade_offset="20" width="31.25" height="4.5" />
<field border="1" radius="100" x="25" y="7.25" type="Rettangolo" shade_offset="20" width="31.25" height="4.5" />
<field border="1" radius="100" x="62" y="7.25" type="Rettangolo" shade_offset="20" width="30.75" height="4.5" />
<field x="1" y="8.75" type="Immagine" width="23" height="10" pattern="1">
<source>"testa2.bmp"</source>
</field>
<field border="1" radius="100" x="0.5" y="12" type="Rettangolo" shade_offset="20" width="60" height="6.5" />
<field border="1" radius="100" x="62" y="12" type="Rettangolo" shade_offset="20" width="30.75" height="6.5" />
<field x="1" y="12.25" type="Testo" width="11" text="Tipo Documento">
<font italic="1" face="Arial" size="8" />
</field>
<field x="30" y="12.25" type="Testo" width="6" text="Numero">
<font italic="1" face="Arial" size="8" />
</field>
<field x="40" y="12.25" type="Testo" width="7" text="Data">
<font italic="1" face="Arial" size="8" />
</field>
<field x="50.5" y="12.25" type="Testo" width="5" text="Pagina">
<font italic="1" face="Arial" size="8" />
</field>
<field x="63.75" y="12.25" type="Testo" width="6" text="Numero">
<font italic="1" face="Arial" size="8" />
</field>
<field x="75.25" y="12.25" type="Testo" width="7" text="Data">
<font italic="1" face="Arial" size="8" />
</field>
<field x="87" y="12.25" type="Testo" width="5" text="Pagina">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="0.5" y="14.25" type="Linea" width="60" height="0" pattern="1" />
<field border="1" x="62" y="14.25" type="Linea" width="30.5" height="0" pattern="1" />
<field border="1" x="78" y="14.4" type="Linea" height="4" pattern="1" />
<field x="1" y="14.5" type="Testo" width="8" pattern="1" text="Cod.Cliente">
<font italic="1" face="Arial" size="8" />
</field>
<field x="10.25" y="14.5" type="Testo" width="6" pattern="1" text="P.IVA">
<font italic="1" face="Arial" size="8" />
</field>
<field x="26.5" y="14.5" type="Testo" width="10" pattern="1" text="Cod. Fisc.">
<font italic="1" face="Arial" size="8" />
</field>
<field x="45" y="14.5" type="Testo" width="8.5" pattern="1" text="Telefono">
<font italic="1" face="Arial" size="8" />
</field>
<field x="63.75" y="14.5" type="Testo" width="12" text="Cernita Da">
<font italic="1" face="Arial" size="8" />
</field>
<field x="78.5" y="14.5" type="Testo" width="9" text="Cod.Cliente">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="0.5" y="16.25" type="Linea" width="60" height="0" pattern="1" />
<field border="1" x="78" y="16.4" type="Linea" width="14.7" height="0" pattern="1" />
<field x="1" y="16.5" type="Testo" width="7" text="Autista">
<font italic="1" face="Arial" size="8" />
</field>
<field x="25" y="16.5" type="Testo" width="7" text="Agente">
<font italic="1" face="Arial" size="8" />
</field>
<field x="45" y="16.5" type="Testo" width="7" text="Zona">
<font italic="1" face="Arial" size="8" />
</field>
<field x="78.5" y="16.5" type="Testo" width="7" text="Zona">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" radius="100" x="0.5" y="19" type="Rettangolo" shade_offset="20" width="60" height="34" />
<field border="1" x="6.5" y="19" type="Linea" height="34" pattern="1" />
<field border="1" x="31.5" y="19" type="Linea" height="34" pattern="1" />
<field border="1" x="40.1" y="19" type="Linea" height="34" pattern="1" />
<field border="1" x="44.5" y="19" type="Linea" height="34" pattern="1" />
<field border="1" x="49" y="19" type="Linea" height="34" pattern="1" />
<field border="1" x="53.5" y="19" type="Linea" height="34" pattern="1" />
<field border="1" radius="100" x="62" y="19" type="Rettangolo" shade_offset="20" width="39.5" height="34" />
<field border="1" x="68" y="19" type="Linea" height="34" pattern="1" />
<field border="1" x="90.5" y="19" type="Linea" height="34" pattern="1" />
<field border="1" x="96" y="19" type="Linea" height="34" pattern="1" />
<field y="53" type="Testo" width="59" height="4" pattern="1" text="Trattasi di beni il cui trasporto non &#E8; soggetto alla bolla di accompagnamento dei beni viaggianti ai sensi dell'art. 4 n.8 del D.P.R. 6 Ottobre 1978 n.627 e ai sensi dell'art.22 del D.P.R. 26 Ottobre 1972 n.633 e successive modificazioni. - Circ. del 23&#2F;12&#2F;78 n.72&#2F;364161">
<font face="Courier New" size="6" />
</field>
<field x="62" y="53.75" type="Testo" width="40" pattern="1" text="FIRMA CLIENTE ______________________________________________________________">
<font face="Courier New" bold="1" size="9" />
</field>
<field x="62" y="55" type="Testo" width="40" pattern="1" text="FIRMA AUTISTA ______________________________________________________________">
<font face="Courier New" bold="1" size="9" />
</field>
<field x="12" y="56.75" type="Testo" fg_color="#0000A0" width="30" pattern="1" text="NOLEGGIO MERCE LAVATA">
<font face="Courier New" bold="1" size="9" />
</field>
<field border="1" radius="100" y="57.75" type="Rettangolo" shade_offset="20" width="60" height="10" />
<field x="0.75" y="58" type="Testo" width="14.5" pattern="1" text="Trasporto a cura del">
<font italic="1" face="Arial" size="8" />
</field>
<field border="2" x="26.5" y="58" type="Linea" height="2" pattern="1" />
<field x="30.5" y="58" type="Testo" width="18" pattern="1" text="Inizio trasporto o consegna">
<font italic="1" face="Arial" size="8" />
</field>
<field x="62" y="58.75" type="Testo" width="10" pattern="1" text="BOLLA N.">
<font face="Courier New" bold="1" size="9" />
</field>
<field x="86.5" y="58.75" type="Testo" width="10" pattern="1" text="DEL">
<font face="Courier New" bold="1" size="9" />
</field>
<field x="27" y="59.25" type="Testo" width="4" pattern="1" text="Data">
<font italic="1" face="Arial" size="8" />
</field>
<field x="46" y="59.25" type="Testo" width="4" pattern="1" text="Ora">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="0.25" y="60" type="Linea" width="60" height="0" pattern="1" />
<field border="2" x="20.55" y="60.12" type="Linea" height="2" pattern="1" />
<field border="2" x="38.47" y="60.12" type="Linea" height="2" pattern="1" />
<field x="0.75" y="60.25" type="Testo" width="17" pattern="1" text="Causale del Trasporto">
<font italic="1" face="Arial" size="8" />
</field>
<field x="21.5" y="60.25" type="Testo" width="17.5" pattern="1" text="Aspetto Esteriore dei Beni">
<font italic="1" face="Arial" size="8" />
</field>
<field x="41.5" y="60.25" type="Testo" width="6" pattern="1" text="Colli N.">
<font italic="1" face="Arial" size="8" />
</field>
<field x="72.5" y="61.75" type="Testo" width="15" pattern="1" text="CONFEZIONATO DA">
<font face="Courier New" bold="1" size="9" />
</field>
<field border="1" x="0.25" y="62" type="Linea" width="60" height="0" pattern="1" />
<field border="2" x="35.64" y="62" type="Linea" height="2" pattern="1" />
<field x="1" y="62.25" type="Testo" width="30" pattern="1" text="Natura e qualit&#E0; della merce">
<font italic="1" face="Arial" size="8" />
</field>
<field x="38" y="62.25" type="Testo" width="16" pattern="1" text="Firma del conducente">
<font italic="1" face="Arial" size="8" />
</field>
<field x="68.5" y="62.75" type="Testo" width="25" pattern="1" text="________________________________">
<font face="Courier New" bold="1" size="9" />
</field>
<field border="1" x="0.25" y="64" type="Linea" width="60" height="0" pattern="1" />
<field border="2" x="25.55" y="64" type="Linea" height="3.75" pattern="1" />
<field border="2" x="44" y="64.06" type="Linea" height="2" pattern="1" />
<field x="0.75" y="64.25" type="Testo" width="15.5" pattern="1" text="Incaricato del Trasporto">
<font italic="1" face="Arial" size="8" />
</field>
<field x="26.5" y="64.25" type="Testo" width="17.5" pattern="1" text="Data e ora inizio del ritiro">
<font italic="1" face="Arial" size="8" />
</field>
<field x="46" y="64.25" type="Testo" width="13" pattern="1" text="Firma Vettore">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" x="25.55" y="66" type="Linea" width="34.6" height="0" pattern="1" />
<field x="26.5" y="66.25" type="Testo" width="14" pattern="1" text="Firma Destinatario">
<font italic="1" face="Arial" size="8" />
</field>
<field x="26" y="1.75" type="Testo" width="10" id="50" text=" Spett.le">
<font italic="1" face="Arial" size="8" />
</field>
<field x="26" y="7" type="Testo" width="10" id="50" text=" Destinazione">
<font italic="1" face="Arial" size="8" />
</field>
<field x="63" y="7" type="Testo" width="10" id="50" text=" Spett.le">
<font italic="1" face="Arial" size="8" />
</field>
<field x="0.5" y="19.25" type="Testo" width="6" id="202" pattern="1" text="Cod. Art.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="62" y="19.25" type="Testo" width="6" id="202" pattern="1" text="Cod. Art.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="6.75" y="19.25" type="Testo" width="23.5" id="203" pattern="1" text="Descrizione beni (Natura e Qualit&#E0;)">
<font face="Arial" bold="1" size="8" />
</field>
<field x="68.25" y="19.25" type="Testo" width="15" id="203" pattern="1" text="Descrizione beni">
<font face="Arial" bold="1" size="8" />
</field>
<field x="31.75" y="19.25" type="Testo" width="8" id="204" pattern="1" text="Causale">
<font face="Arial" bold="1" size="8" />
</field>
<field x="90.75" y="19.25" type="Testo" width="6" id="204" pattern="1" text="Dich.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="40.75" y="19.25" type="Testo" width="4" id="209" pattern="1" text="Rit.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="44.75" y="19.25" type="Testo" width="5" id="209" pattern="1" text="Cons.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="49.25" y="19.25" type="Testo" width="6" id="209" pattern="1" text="Dotaz.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="53.75" y="19.25" type="Stringa" width="6" id="209" pattern="1">
<font face="Arial" bold="1" size="8" />
<source>IF(168.STPRZBOL=='X';'Prezzo';'')</source>
</field>
<field x="96.25" y="19.25" type="Testo" width="6" id="209" pattern="1" text="Cons.">
<font face="Arial" bold="1" size="8" />
</field>
<field x="8" y="55.25" type="Stringa" align="right" width="10" id="209" pattern="1">
<font face="Arial" bold="1" size="8" />
<source>IF(168.STPRZBOL=='X';'Imponibile';'')</source>
</field>
<field x="24" y="55.25" type="Stringa" align="right" width="10" id="209" pattern="1">
<font face="Arial" bold="1" size="8" />
<source>IF(168.STPRZBOL=='X';'Imposta';'')</source>
</field>
<field x="41" y="55.25" type="Stringa" align="right" width="10" id="209" pattern="1">
<font face="Arial" bold="1" size="8" />
<source>IF(168.STPRZBOL=='X';'Totale';'')</source>
</field>
<field x="3" y="56" type="Stringa" hidden="1" align="right" width="15" id="1000" pattern="1">
<font face="Arial" bold="1" size="11" />
<source>IF(168.STPRZBOL=='X';33.G1:IMPONIBILI;0)</source>
<prescript description="B0.1000 PRESCRIPT">MESSAGE COPY,1001</prescript>
</field>
<field x="3" y="56" type="Numero" align="right" width="15" id="1001" pattern="1" hide_zero="1" text="#.###.###,@@" />
<field x="19" y="56" type="Stringa" hidden="1" align="right" width="15" id="2000" pattern="1">
<font face="Arial" bold="1" size="11" />
<source>IF(168.STPRZBOL=='X';33.G1:IMPOSTE;0)</source>
<prescript description="B0.2000 PRESCRIPT">MESSAGE COPY,2001</prescript>
</field>
<field x="19" y="56" type="Numero" align="right" width="15" id="2001" pattern="1" hide_zero="1" text="#.###.###,@@" />
<field x="36" y="56" type="Stringa" hidden="1" align="right" width="15" id="3000" pattern="1">
<font face="Arial" bold="1" size="11" />
<source>IF(168.STPRZBOL=='X';33.G1:TOTALE;0)</source>
<prescript description="B0.3000 PRESCRIPT">MESSAGE COPY,3001</prescript>
</field>
<field x="36" y="56" type="Numero" align="right" width="15" id="3001" pattern="1" hide_zero="1" text="#.###.###,@@" />
</section>
<section type="Body" level="1" can_break="1">
<condition>!((34.TIPORIGA='08'))</condition>
<font face="Arial" size="9" />
<field x="32" type="Stringa" width="7" pattern="1">
<font face="Arial" size="7" />
<source>34.CODAGG1</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE _TABLEREAD,&#26;LVCAU,#THIS,S3</prescript>
</field>
<field x="39.5" type="Numero" align="right" width="4.5" pattern="1" hide_zero="1" text="##.###">
<font face="Arial" size="8" />
<source>34.QTAGG1</source>
</field>
<field type="Stringa" hidden="1" bg_color="#E9E9E9" width="3.5" id="50" pattern="1">
<source>34.CODARTMAG</source>
<prescript description="B1.50 PRESCRIPT">MESSAGE EMPTY DISABLE,51
MESSAGE ENABLE,51</prescript>
</field>
<field x="0.5" type="Stringa" width="6" id="51" pattern="1">
<font face="Arial" size="8" />
<source>34.CODART</source>
</field>
<field x="62.5" type="Stringa" width="6" id="51" pattern="1">
<font face="Arial" size="8" />
<source>34.CODART</source>
</field>
<field x="7" type="Stringa" bg_color="#D4D4D4" dynamic_height="1" width="24.5" height="15" id="52" pattern="1">
<font face="Arial" size="7" />
<prescript description="B1.52 PRESCRIPT">MESSAGE _DESCRIGA
MESSAGE COPY,800</prescript>
</field>
<field x="143" type="Stringa" hidden="1" bg_color="#E6E6E6" width="3" id="53" pattern="1">
<font face="Arial" size="8" />
<source>34.UMQTA</source>
<prescript description="B1.53 PRESCRIPT">MESSAGE _ALIGN,#52,TOP</prescript>
</field>
<field x="44" type="Numero" align="right" bg_color="#00FFFF" width="4.5" id="54" pattern="1" hide_zero="1" text="##.###">
<font face="Arial" size="8" />
<groups>30</groups>
<source>34.QTA</source>
<prescript description="B1.54 PRESCRIPT">MESSAGE _ALIGN,#52,TOP</prescript>
</field>
<field x="48.5" type="Numero" align="right" width="4.5" id="55" pattern="1" hide_zero="1">
<font face="Arial" size="8" />
<prescript description="B1.55 PRESCRIPT">MESSAGE _ISAMREAD,166,ANNOES=33.ANNO!TIPOCF='C'!CODCF=33.CODCF!INDSPED=33.INDSPED!CODART=#51!NRIGA=1,DOTOD</prescript>
</field>
<field x="68.5" type="Stringa" bg_color="#D4D4D4" dynamic_height="1" width="23" height="15" id="800" pattern="1">
<font face="Arial" size="7" />
</field>
<field x="147" type="Stringa" hidden="1" align="right" width="15" id="1000" pattern="1">
<font face="Arial" bold="1" size="8" />
<source>IF(168.STPRZBOL=='X';34.PREZZO;0)</source>
<prescript description="B1.1000 PRESCRIPT">MESSAGE COPY,1001</prescript>
</field>
<field x="53" type="Numero" align="right" width="6" id="1001" pattern="1" hide_zero="1" text="###,@@@">
<font face="Arial" size="8" />
</field>
</section>
<section y="53" hidden_if_needed="1" type="Foot">
<font face="Arial" size="10" />
<field x="72" y="12" type="Testo" width="17" id="100" pattern="1" text="&#3E;&#3E;&#3E; SEGUE &#3E;&#3E;&#3E;">
<font italic="1" face="Arial" bold="1" size="10" />
</field>
</section>
<section y="55" type="Foot" level="1" height="12">
<field x="90.15" y="3.75" type="Data" width="10" id="10" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>33.DATADOC</source>
</field>
<field x="69.65" y="3.75" type="Stringa" align="right" width="6.5" id="11" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>33.NDOC</source>
</field>
<field x="1.25" y="6.25" type="Stringa" width="22.5" id="34" pattern="1">
<source>207@.S0</source>
</field>
<field x="1.25" y="4.25" type="Array" width="19" id="101" pattern="1">
<source>CODSPMEZZO</source>
<list>
<li Value=" " Code=" " />
<li Value="DESTINATARIO" Code="D" />
<li Value="MITTENTE" Code="M" />
<li Value="VETTORE" Code="V" />
</list>
</field>
<field x="1" y="9.75" type="Stringa" hidden="1" width="29" id="105" pattern="1">
<source>TRIM(205@.S0)</source>
<prescript description="F1.105 PRESCRIPT">MESSAGE COPY,107</prescript>
</field>
<field x="27" y="8.75" type="Stringa" hidden="1" width="35" id="106" pattern="1">
<source>TRIM(205@.S1[1,35])</source>
<prescript description="F1.106 PRESCRIPT">MESSAGE APPEND,107</prescript>
</field>
<field x="1" y="9.75" type="Stringa" width="28" height="3" id="107" pattern="1" />
<field x="45" y="8.75" type="Stringa" hidden="1" width="10" id="108" pattern="1">
<source>TRIM(205@.S1[36,45])</source>
<prescript description="F1.108 PRESCRIPT">MESSAGE APPEND,107</prescript>
</field>
<field x="57.5" y="9.25" type="Stringa" hidden="1" width="5" id="110" pattern="1">
<source>TRIM(205@.S7)</source>
<prescript description="F1.110 PRESCRIPT">MESSAGE APPEND,107</prescript>
</field>
<field x="18" y="9.75" type="Stringa" hidden="1" width="18" id="111" pattern="1">
<source>TRIM(205@.S1[46,70])</source>
<prescript description="F1.111 PRESCRIPT">MESSAGE APPEND,107</prescript>
</field>
<field x="21" y="8.75" type="Stringa" hidden="1" width="5" id="112" pattern="1">
<source>205@.S9</source>
</field>
<field x="9" y="9.75" type="Stringa" hidden="1" width="35" id="113" pattern="1">
<prescript description="F1.113 PRESCRIPT">MESSAGE _ISAMREAD,13,COM=#112,DENCOM
MESSAGE APPEND,107</prescript>
</field>
<field x="15" y="8.75" type="Stringa" hidden="1" width="2" id="114" pattern="1">
<prescript description="F1.114 PRESCRIPT">MESSAGE _ISAMREAD,13,COM=#112,PROVCOM
MESSAGE APPEND,107</prescript>
</field>
<field x="51" y="9.75" deactivated="1" type="Stringa" width="38" id="115" pattern="1" />
<field x="49" y="4.25" type="Stringa" width="5" id="117" pattern="1" text="##:##">
<source>ORAPART</source>
</field>
<field x="32" y="4.25" type="Data" width="8" id="118" pattern="1">
<source>DATAPART</source>
</field>
<field x="21.5" y="6.25" type="Stringa" width="34.5" id="120" pattern="1">
<source>206@.S0</source>
</field>
<field x="64" y="6" type="Numero" hidden="1" align="right" width="12" id="121" pattern="1" text="#########">
<source>IF(33.PNETTO=0,TOTPESO,33.PNETTO)</source>
</field>
<field x="39" y="6.25" type="Numero" align="right" width="6" id="122" pattern="1">
<source>IF(33.NCOLLI=0,TOTCOLLI,33.NCOLLI)</source>
</field>
<field x="9" y="5.5" type="Numero" hidden="1" align="right" width="6" id="132" pattern="1">
<source>IF(33.NBANC=0,TOTBANC,33.NBANC)</source>
</field>
<field x="0.5" y="7.5" type="Stringa" width="76.5" id="157" pattern="1">
<source>33.NOTE</source>
</field>
<field x="30.25" y="5.5" type="Stringa" hidden="1" width="27.5" id="158" pattern="1">
<source>203@.S0</source>
</field>
</section>
<sql>USE 33
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 168 INTO CODCF==CODCF CODCONT==CODCONT
JOIN 17 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 13 TO 16 INTO STATO=STATO COM=COM
JOIN 47 TO 34 INTO CODART==CODART
JOIN 122 TO 33 INTO CODAGE==CODAG
JOIN 122 TO 33 ALIAS 300 INTO CODAGE==CODAGVIS
JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO
JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1
JOIN %ABE TO 33 ALIAS 206 INTO CODTAB==ASPBENI1
JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP
JOIN %BAN TO 33 ALIAS 208 INTO CODTAB==CODABIA
JOIN %VAL TO 33 ALIAS 209 INTO CODTAB==CODVAL
JOIN %TIP TO 33 ALIAS 210 INTO CODTAB==TIPODOC
JOIN %MSP TO 33 ALIAS 211 INTO CODTAB==CODSPMEZZO
JOIN %ZON TO 33 ALIAS 214 INTO CODTAB==ZONA
JOIN GCA TO 34 ALIAS 212 INTO CODTAB==3+CODART[7,12]
JOIN GCA TO 34 ALIAS 213 INTO CODTAB==5+CODART[17,18]
JOIN &#26;LVITI TO 33 ALIAS 214 INTO CODTAB==33.G1:CODITI
JOIN &#26;LVAUT TO &#26;LVITI ALIAS 215 INTO CODTAB==S1
</sql>
</report>

307
ps/lvbollac_FABRIS.src Executable file
View File

@ -0,0 +1,307 @@
#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
LVDATAPRCO = S_NORMALE //4041
LVDATACON = S_NORMALE //4041
LVCODCAU = S_NORMALE //4041
LVDESCAU = S_NORMALE //4041
LVCODITI = 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_QTA|Cons.|6
Col(9)=FR_PREZZO||6
Col(10)=FR_JOLLY1@R|Dotaz.|7
Col(11)=FR_JOLLY2@R|D.Temp.|7
Col(12)=FR_JOLLY3|Inizio|10
Col(13)=FR_JOLLY4|Fine|10
Col(14)=FR_UMQTA
Col(15)=FR_SCONTO
Col(16)=FR_PERCPROV
Col(17)=FR_PERCPROV1
Col(18)=FR_CODIVA
Col(19)=FR_NCOLLI
Col(20)=FR_PNETTO
Col(21)=FR_TARA
Col(22)=FR_CAUS
Col(23)=FR_CODMAGC
Col(24)=FR_CODDEPC
Col(25)=FR_CODMAG
Col(26)=FR_CODDEP
Col(27)=FR_TIPORIGA|Tipo|4
[RIGHE]
Tipo(0)=21
Tipo(1)=05
[HANDLERS]
Handler(0) = 106|4101
Handler(1) = 554|4102
Handler(2) = 108|4103
Handler(3) = 125|4103
Handler(4) = 805|4105
[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

13
ps/verig21_FABRIS.ini Executable file
View 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

445
ps/verig21_FABRIS.uml Executable file
View File

@ -0,0 +1,445 @@
#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"
ADD RUN ve2 -3
CHECKTYPE NORMAL
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
//CHECKTYPE NORMAL
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_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 1
BEGIN
PROMPT 20 8 "Ritirato "
FIELD QTAGG1
END
NUMBER FR_QTA 6 1
BEGIN
PROMPT 39 8 "Consegnato "
FIELD QTA
END
NUMBER FR_JOLLY1 6 1
BEGIN
PROMPT 2 9 "Dot. Od. "
FIELD DOTOD
FLAGS "D"
END
NUMBER FR_JOLLY2 6 1
BEGIN
PROMPT 20 9 "Dot. Tem. "
FIELD DOTMP
FLAGS "D"
END
DATE FR_JOLLY3
BEGIN
PROMPT 40 9 "Inizio "
FIELD DADATATMP
END
DATE FR_JOLLY4
BEGIN
PROMPT 60 9 "Fine "
FIELD ADATATMP
END
NUMBER FR_NCOLLI 7
BEGIN
PROMPT 2 10 "N. Colli "
FIELD NCOLLI
END
NUMBER FR_TARA 15 2
BEGIN
PROMPT 25 10 "Tara "
FIELD TARA
END
NUMBER FR_PNETTO 6 2
BEGIN
PROMPT 60 10 "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

7
ps/verig22_FABRIS.ini Executable file
View File

@ -0,0 +1,7 @@
#Profilo di riga tipo merce lavanderie
[MAIN]
CALCOLI=*
CAMPICALC=
IMPONIBILE=IMPNS
[HANDLERS]

240
ps/verig22_FABRIS.uml Executable file
View File

@ -0,0 +1,240 @@
#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 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 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
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 1
BEGIN
PROMPT 28 7 "Ritirato "
FIELD QTAGG1
END
NUMBER FR_QTA 6 1
BEGIN
PROMPT 45 7 "Rotti "
FIELD QTA
END
ENDPAGE
PAGE "Analitica" 0 2 0 0
GROUPBOX DLG_NULL 78 14
BEGIN
PROMPT 1 0 "Contabilita' analitica"
END
ENDPAGE
ENDMASK

13
ps/verig24_FABRIS.ini Executable file
View 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
ps/verig24_FABRIS.uml Executable file
View 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 1
BEGIN
PROMPT 2 8 "Ritirato "
FIELD QTAGG1
END
NUMBER FR_QTA 6 1
BEGIN
PROMPT 20 8 "Da cons. "
FIELD QTA
END
NUMBER FR_QTAEVASA 6 1
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 1
BEGIN
PROMPT 2 9 "Dot. Od. "
FIELD DOTOD
FLAGS "D"
END
NUMBER FR_JOLLY2 6 1
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