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

Patch level :2.2 010

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
rinominate le maschere ed i report delle personalizzazioni documenti (adesso con prefisso VE e non BA). Implementata in ve1400.cpp la procedura per fare funzionare il tutto e modificate le voci di menu


git-svn-id: svn://10.65.10.50/trunk@13147 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2005-05-24 15:04:26 +00:00
parent 00d73704f8
commit 951dd95222
34 changed files with 3447 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ve/ve1.cpp
View File

@ -7,10 +7,10 @@ int main(int argc, char **argv)
const int r = (argc>1) ? argv[1][1]-'0' : -1;
switch (r)
{
case 1 : ve1200(argc, argv); break;
case 2 : ve1300(argc, argv); break;
case 3 : ve1400(argc, argv); break;
default: ve1100(argc, argv); break;
case 1 : ve1200(argc, argv); break; //stampa scoperto, lista bolle
case 2 : ve1300(argc, argv); break; //stampa report documenti
case 3 : ve1400(argc, argv); break; //stampa tabelle vendita ed utilita' varie
default: ve1100(argc, argv); break; //stampa documenti di vendita
}
return 0;
}

16
ve/ve1400.cpp
View File

@ -296,7 +296,21 @@ void TKlarkKent_app::main_loop()
{
TString_array arr;
for (int i = 2; i < argc(); i++)
arr.add(argv(i));
{
TString name = argv(i);
if (name[0] == '%')
name.ltrim(1);
if (name.len() == 3) //il file in questione e' la stampa di una tabella?
{
TFilename filename(name);
filename.insert("vest");
filename.ext("rep");
if (filename.custom_path())
name = filename.name();
}
name.lower();
arr.add(name);
}
if (arr.items() == 0)
arr.add(EMPTY_STRING);

32
ve/vemenu.men
View File

@ -52,26 +52,26 @@ Caption = "Tabelle personalizzazione documenti"
Picture = <ba04>
Module = 0
Flags = ""
Item_01 = "Tipo documento", "ba3 -0 %TIP", "F"
Item_02 = "Numerazione documenti", "ba3 -0 %NUM", "F"
Item_03 = "Tipo riga documento", "ba3 -0 %TRI", "F"
Item_04 = "Formule documento", "ba3 -0 %FRD", "F"
Item_05 = "Formule righe documento", "ba3 -0 %FRR", "F"
Item_06 = "Formule ricalcolo magazzino", "ba3 -0 %FRM", "F"
Item_07 = "Elaborazioni differite", "ba3 -0 %ELD", "F"
Item_08 = "Stati documento", "ba3 -0 %STD", "F"
Item_01 = "Tipo documento", "ve0 -4 %TIP", "F"
Item_02 = "Numerazione documenti", "ve0 -4 %NUM", "F"
Item_03 = "Tipo riga documento", "ve0 -4 %TRI", "F"
Item_04 = "Formule documento", "ve0 -4 %FRD", "F"
Item_05 = "Formule righe documento", "ve0 -4 %FRR", "F"
Item_06 = "Formule ricalcolo magazzino", "ve0 -4 %FRM", "F"
Item_07 = "Elaborazioni differite", "ve0 -4 %ELD", "F"
Item_08 = "Stati documento", "ve0 -4 %STD", "F"
[VEMENU_008]
Caption = "Stampa tabelle personalizzazione documenti"
Picture = <ba03>
Module = 0
Flags = ""
Item_01 = "Tipo documento", "ba3 -1 %TIP", "F"
Item_02 = "Numerazione documenti", "ba3 -1 %NUM", "F"
Item_03 = "Tipo riga documento", "ba3 -1 %TRI", "F"
Item_04 = "Formule documento", "ba3 -1 %FRD", "F"
Item_05 = "Formule righe documento", "ba3 -1 %FRR", "F"
Item_06 = "Formule ricalcolo magazzino", "ba3 -1 %FRM", "F"
Item_07 = "Elaborazioni differite", "ba3 -1 %ELD", "F"
Item_08 = "Stati documento", "ba3 -1 %STD", "F"
Item_01 = "Tipo documento", "ve1 -3 %TIP", "F"
Item_02 = "Numerazione documenti", "ve1 -3 %NUM", "F"
Item_03 = "Tipo riga documento", "ve1 -3 %TRI", "F"
Item_04 = "Formule documento", "ve1 -3 %FRD", "F"
Item_05 = "Formule righe documento", "ve1 -3 %FRR", "F"
Item_06 = "Formule ricalcolo magazzino", "ve1 -3 %FRM", "F"
Item_07 = "Elaborazioni differite", "ve1 -3 %ELD", "F"
Item_08 = "Stati documento", "ve1 -3 %STD", "F"

280
ve/vesteld.rep Executable file
View File

@ -0,0 +1,280 @@
<report name="basteld" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Elaborazioni Differite">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="130" height="0" />
<field x="2" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12" y="3" type="Testo" width="11" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="63" y="3" type="Testo" width="17" text="Tipo elaborazione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="4" type="Testo" width="19" text="Documento originale">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="80" y="4" type="Testo" width="16" text="Documento finale">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="5" type="Testo" width="4" text="Num.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="11" y="5" type="Testo" width="6" text="Tipo 1">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="19" y="5" type="Testo" width="6" text="Tipo 2">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="27" y="5" type="Testo" width="6" text="Tipo 3">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="35" y="5" type="Testo" width="6" text="Tipo 4">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="43" y="5" type="Testo" width="6" text="Tipo 5">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="53" y="5" type="Testo" width="3" text="S.1">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="57" y="5" type="Testo" width="3" text="S.2">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="61" y="5" type="Testo" width="3" text="S.3">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="65" y="5" type="Testo" width="3" text="S.4">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="69" y="5" type="Testo" width="3" text="S.5">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="73" y="5" type="Testo" width="3" text="S.f">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="80" y="5" type="Testo" width="4" text="Tipo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="88" y="5" type="Testo" width="3" text="S.f">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="94" y="5" type="Testo" width="4" text="Num.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="118" y="5" type="Testo" width="9" text="Tipo num.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="6" type="Testo" width="39" text="Condizioni per raggruppamento documento">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="88" y="6" type="Testo" width="11" text="Ragg. righe">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="7" type="Testo" width="6" text="Cambio">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="7" type="Testo" width="6" text="Sconto">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="18" y="7" type="Testo" width="4" text="Doc.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="24" y="7" type="Testo" width="4" text="Num.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="30" y="7" type="Testo" width="7" text="Spediz.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="39" y="7" type="Testo" width="5" text="Porto">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="46" y="7" type="Testo" width="4" text="Pag.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="52" y="7" type="Testo" width="4" text="App.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="58" y="7" type="Testo" width="5" text="List.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="65" y="7" type="Testo" width="6" text="Agente">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="73" y="7" type="Testo" width="6" text="Trasp.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="81" y="7" type="Testo" width="4" text="Vett">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="87" y="7" type="Testo" width="5" text="Somma">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="94" y="7" type="Testo" width="3" text="Mag">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="99" y="7" type="Testo" width="3" text="IVA">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="104" y="7" type="Testo" width="5" text="P.zzo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="111" y="7" type="Testo" width="5" text="G.rif">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="118" y="7" type="Testo" width="5" text="Rif.t">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="125" y="7" type="Testo" width="6" text="I.r.d.">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="8.5" type="Linea" width="130" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%ELD.CODTAB[1,8]" width="8">
<source>CODTAB[1,8]</source>
</field>
<field x="12" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="63" type="Array" width="50">
<source>S3</source>
<list>
<li Value="Altro" Code=" " />
<li Value="Consegna Ordini" Code="CO" />
<li Value="Fatturazione Bolle" Code="FB" />
<li Value="Scarico Magazzino" Code="SM" />
<li Value="Trasferimento a Contabilita'" Code="TC" />
</list>
</field>
<field x="2" y="1" type="Stringa" width="8">
<source>S5</source>
</field>
<field x="12" y="1" type="Stringa" width="4">
<source>S2[1,4]</source>
</field>
<field x="20" y="1" type="Stringa" width="4">
<source>S2[5,8]</source>
</field>
<field x="28" y="1" type="Stringa" width="4">
<source>S2[9,12]</source>
</field>
<field x="36" y="1" type="Stringa" width="3">
<source>S2[13,15]</source>
</field>
<field x="43" y="1" type="Stringa" width="3">
<source>S2[16,19]</source>
</field>
<field x="54" y="1" type="Stringa" width="1">
<source>S7[1,1]</source>
</field>
<field x="58" y="1" type="Stringa" width="1">
<source>S7[2,2]</source>
</field>
<field x="62" y="1" type="Stringa" width="1">
<source>S7[3,3]</source>
</field>
<field x="66" y="1" type="Stringa" width="1">
<source>S7[4,4]</source>
</field>
<field x="70" y="1" type="Stringa" width="1">
<source>S7[5,5]</source>
</field>
<field x="74" y="1" type="Stringa" width="4">
<source>S4[1,4]</source>
</field>
<field x="80" y="1" type="Stringa" width="8">
<source>S8[1,8]</source>
</field>
<field x="89" y="1" type="Stringa" width="4">
<source>S9[1,4]</source>
</field>
<field x="94" y="1" type="Stringa" width="8">
<source>S6[1,8]</source>
</field>
<field x="118" y="1" type="Array" width="12">
<source>B4</source>
<list>
<li Value="Definitiva" Code=" " />
<li Value="Provvisoria" Code="X" />
</list>
</field>
<field x="4" y="2" type="Stringa" width="1">
<source>S1[1,1]</source>
</field>
<field x="12" y="2" type="Stringa" width="1">
<source>S1[2,2]</source>
</field>
<field x="19" y="2" type="Stringa" width="1">
<source>S1[3,3]</source>
</field>
<field x="25" y="2" type="Stringa" width="1">
<source>S1[4,4]</source>
</field>
<field x="33" y="2" type="Stringa" width="1">
<source>S1[5,5]</source>
</field>
<field x="41" y="2" type="Stringa" width="1">
<source>S1[6,6]</source>
</field>
<field x="47" y="2" type="Stringa" width="1">
<source>S1[7,7]</source>
</field>
<field x="53" y="2" type="Stringa" width="1">
<source>S1[8,8]</source>
</field>
<field x="59" y="2" type="Stringa" width="1">
<source>S1[9,9]</source>
</field>
<field x="68" y="2" type="Stringa" width="1">
<source>S1[10,10]</source>
</field>
<field x="75" y="2" type="Stringa" width="1">
<source>S1[11,11]</source>
</field>
<field x="83" y="2" type="Stringa" width="1">
<source>S1[12,12]</source>
</field>
<field x="89" y="2" type="Stringa" width="1">
<source>B0</source>
</field>
<field x="95" y="2" type="Stringa" width="1">
<source>S1[40,40]</source>
</field>
<field x="100" y="2" type="Stringa" width="1">
<source>S1[41,41]</source>
</field>
<field x="106" y="2" type="Stringa" width="1">
<source>S1[42,42]</source>
</field>
<field x="113" y="2" type="Stringa" width="1">
<source>B1</source>
</field>
<field x="120" y="2" type="Stringa" width="1">
<source>B2</source>
</field>
<field x="127" y="2" type="Stringa" width="1">
<source>B3</source>
</field>
<field border="1" y="3.5" type="Linea" width="129" height="0" />
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %ELD
</sql>
</report>

42
ve/vesteld.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Elaborazioni differite" -1 -1 50 8
STRING F_INIZIO1 8
BEGIN
PROMPT 2 1 "Da cod. elaborazione "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %ELD
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. elaborazione differita" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 8
BEGIN
PROMPT 2 3 "A cod. elaborazione "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

62
ve/vestfrd.rep Executable file
View File

@ -0,0 +1,62 @@
<report name="bastfrd" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Formule Documento">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="13" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="4" type="Testo" width="21" text="Picture presentazione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="26" y="4" type="Testo" width="12" text="Tipo formula">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="43" y="4" type="Testo" width="7" text="Formula">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%FRD.CODTAB" width="10">
<source>CODTAB</source>
</field>
<field x="13" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="2" y="1" type="Stringa" width="20">
<source>S3[1,20]</source>
</field>
<field x="26" y="1" type="Array" width="15">
<source>B0</source>
<list>
<li Value="Non numerica" Code=" " />
<li Value="Numerica" Code="X" />
</list>
</field>
<field x="43" y="1" type="Stringa" width="50">
<source>S1</source>
</field>
<field border="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %FRD</sql>
</report>

42
ve/vestfrd.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Formule documenti" -1 -1 50 8
STRING F_INIZIO1 10
BEGIN
PROMPT 2 1 "Da cod. formula "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %FRD
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. formula documento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 10
BEGIN
PROMPT 2 3 "A cod. formula "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

62
ve/vestfrm.rep Executable file
View File

@ -0,0 +1,62 @@
<report name="bastfrm" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Formule per Ricalcolo Magazzino">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="13" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="65" y="3" type="Testo" width="12" text="Tipo formula">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="4" type="Testo" width="14" text="Formula riga 1">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="48" y="4" type="Testo" width="14" text="Formula riga 2">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%FRM.CODTAB" width="10">
<source>CODTAB</source>
</field>
<field x="13" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="65" type="Array" width="15">
<source>B0</source>
<list>
<li Value="Non numerica" Code=" " />
<li Value="Numerica" Code="X" />
</list>
</field>
<field x="2" y="1" type="Stringa" dynamic_height="1" width="45" height="2">
<source>S1</source>
</field>
<field x="48" y="1" type="Stringa" dynamic_height="1" width="45" height="2">
<source>S2</source>
</field>
<field border="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %FRM</sql>
</report>

42
ve/vestfrm.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Formule per ricalcolo magazzino" -1 -1 50 8
STRING F_INIZIO1 10
BEGIN
PROMPT 2 1 "Da cod. formula "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %FRM
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. formula magazzino" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 10
BEGIN
PROMPT 2 3 "A cod. formula "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

62
ve/vestfrr.rep Executable file
View File

@ -0,0 +1,62 @@
<report name="bastfrr" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Formule Righe Documento">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="13" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="4" type="Testo" width="21" text="Picture presentazione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="26" y="4" type="Testo" width="12" text="Tipo formula">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="43" y="4" type="Testo" width="7" text="Formula">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%FRD.CODTAB" width="10">
<source>CODTAB</source>
</field>
<field x="13" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="2" y="1" type="Stringa" width="20">
<source>S3[1,20]</source>
</field>
<field x="26" y="1" type="Array" width="15">
<source>B0</source>
<list>
<li Value="Non numerica" Code=" " />
<li Value="Numerica" Code="X" />
</list>
</field>
<field x="43" y="1" type="Stringa" width="50">
<source>S1</source>
</field>
<field border="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %FRR</sql>
</report>

42
ve/vestfrr.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Formule righe documenti" -1 -1 50 8
STRING F_INIZIO1 10
BEGIN
PROMPT 2 1 "Da cod. formula "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %FRR
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. formula documento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 10
BEGIN
PROMPT 2 3 "A cod. formula "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

0
ve/bastnum.rep → ve/vestnum.rep
View File

0
ve/bastnum.uml → ve/vestnum.uml
View File

0
ve/bastprs.rep → ve/vestprs.rep
View File

0
ve/bastprs.uml → ve/vestprs.uml
View File

39
ve/veststd.rep Executable file
View File

@ -0,0 +1,39 @@
<report name="baststd" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Stati Documento">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="10" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%STD.CODTAB" width="3">
<source>CODTAB[1,3]</source>
</field>
<field x="10" type="Stringa" width="50">
<source>S0</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %STD</sql>
</report>

40
ve/veststd.uml Executable file
View File

@ -0,0 +1,40 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Stati documento" -1 -1 50 8
STRING F_INIZIO1 1
BEGIN
PROMPT 2 1 "Da cod. stato "
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FLAGS "U"
USE %STD
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 1
BEGIN
PROMPT 2 3 "A cod. stato "
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FLAGS "U"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

64
ve/vesttip.rep Executable file
View File

@ -0,0 +1,64 @@
<report name="basttip" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Tipi Documento">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="10" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="4" type="Testo" width="11" text="Riferimento">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="53" y="4" type="Testo" width="8" text="Pr. doc.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="63" y="4" type="Testo" width="7" text="Pr. st.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="73" y="4" type="Testo" width="5" text="Caus.">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%TIP.CODTAB" width="4">
<source>CODTAB[1,4]</source>
</field>
<field x="10" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="2" y="1" type="Stringa" width="50">
<source>S1</source>
</field>
<field x="53" y="1" type="Stringa" width="8">
<source>S4[1,8]</source>
</field>
<field x="63" y="1" type="Stringa" width="8">
<source>S5[1,8]</source>
</field>
<field x="74" y="1" type="Stringa" width="3">
<source>S6[1,3]</source>
</field>
<field border="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %TIP</sql>
</report>

42
ve/vesttip.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Tipi documento" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da cod. tipo documento "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %NUM
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. tipo documento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A cod. tipo documento "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

53
ve/vesttri.rep Executable file
View File

@ -0,0 +1,53 @@
<report name="basttri" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Tipi Riga">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="10" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="64" y="3" type="Testo" width="9" text="Tipo Riga">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%TRI.CODTAB" width="8">
<source>CODTAB[1,8]</source>
</field>
<field x="12" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="64" type="Array" width="12">
<source>S7</source>
<list>
<li Value="Merce" Code="M" />
<li Value="Spese" Code="S" />
<li Value="Sconti" Code="C" />
<li Value="Descrizioni" Code="D" />
<li Value="Omaggi" Code="O" />
<li Value="Prestazioni" Code="P" />
</list>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %TRI</sql>
</report>

42
ve/vesttri.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Profilo righe documento" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da cod. tipo riga doc. "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %TRI
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. profilo riga doc." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A cod. tipo riga doc. "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

87
ve/vetbeld.h Executable file
View File

@ -0,0 +1,87 @@
// campi della tabella di gestione delle elaborazioni differite
#define F_CODICE 101
#define F_DESCR 102
#define F_TIPO 103
#define F_CODNUM_I 104
#define F_CODNUM_F 105
#define F_TIPODOC_I_1 111
#define F_STATO_I_DOC_I_1 121
#define F_TIPODOC_I_2 112
#define F_STATO_I_DOC_I_2 122
#define F_TIPODOC_I_3 113
#define F_STATO_I_DOC_I_3 123
#define F_TIPODOC_I_4 114
#define F_STATO_I_DOC_I_4 124
#define F_TIPODOC_I_5 115
#define F_STATO_I_DOC_I_5 125
#define F_TIPODOC_I_6 116
#define F_STATO_I_DOC_I_6 126
#define F_TIPODOC_I_7 117
#define F_STATO_I_DOC_I_7 127
#define F_TIPODOC_I_8 118
#define F_STATO_I_DOC_I_8 128
#define F_TIPODOC_I_9 119
#define F_STATO_I_DOC_I_9 129
#define F_TIPODOC_I_10 120
#define F_STATO_I_DOC_I_10 130
#define F_STATO_F_DOC_I 139
#define F_TIPODOC_F 140
#define F_STATO_F_DOC_F 141
#define F_DOC1 151
#define F_DOC2 152
#define F_DOC3 153
#define F_DOC4 154
#define F_DOC5 155
#define F_DOC6 156
#define F_DOC7 157
#define F_DOC8 158
#define F_DOC9 159
#define F_DOC10 160
#define F_ATTIVA_PROVVISORIO 161
#define F_PROVVISORIO 162
#define F_APPLICAZIONE 163
#define F_INTERATTIVO 164
#define F_INSERT_MODE 165
#define F_AGGIORNA_TESTATA 167
#define F_ORDINA 168
#define F_PROTOCOLLO 169
#define F_USA_DCONS 170
#define F_KILLDESC 171
#define H_DOC1 180
#define H_DOC2 181
#define F_CAMBIO 201
#define F_SCONTO 202
#define F_TIPODOC 203
#define F_CODNUM 204
#define F_CONDPAG 205
#define F_BANCA 206
#define F_LISTINO 207
#define F_AGENTE 208
#define F_SPEDIZIONE 209
#define F_PORTO 210
#define F_TRASPORTO 211
#define F_VETTORI 212
#define F_DESTINAZIONE 213
#define F_SOMMA_RIGHE 301
#define F_MAGAZZINO 310
#define F_IVA 311
#define F_PREZZO 312
#define F_RIFERIMENTI 320
#define F_RIFERIMENTI_IN_TESTA 321
#define F_IGNORA_DESCRIZIONI 330
#define F_USA_DOCRIF 331
#define F_PREZZO_DA_ORDINE 340
#define F_QTACON 345
#define F_QTAEV 346
#define F_COLONNE_CO 350

720
ve/vetbeld.uml Executable file
View File

@ -0,0 +1,720 @@
#include "vetbeld.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Elaborazioni differite" -1 -1 0 0
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 0 "@bElaborazione"
END
STRING F_CODICE 8
BEGIN
PROMPT 2 1 "Codice "
FLAG "U"
FIELD CODTAB
CHECKTYPE REQUIRED
WARNING "E' necessario specificare un valore"
USE %ELD
INPUT CODTAB F_CODICE
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
KEY 1
HELP "Codice dell'elaborazione differita da eseguire"
END
STRING F_DESCR 50
BEGIN
PROMPT 2 2 "Descrizione "
FIELD S0
CHECKTYPE REQUIRED
WARNING "E' necessario specificare un valore"
USE %ELD KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODICE
KEY 2
END
LIST F_TIPO 50
BEGIN
PROMPT 2 3 "Tipo "
ITEM " |Esterna"
MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|SHOW,9@|SHOW,F_KILLDESC
ITEM "1|Consegna Ordini"
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,9@|SHOW,F_KILLDESC
ITEM "2|Fatturazione bolle"
MESSAGE HIDE,1@|SHOW,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,9@|SHOW,F_KILLDESC
ITEM "3|Trasferimento a contabilita'"
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|HIDE,4@|HIDE,5@|SHOW,9@|HIDE,F_KILLDESC
ITEM "4|Copia documento"
MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@|HIDE,5@|HIDE,9@|HIDE,F_KILLDESC
ITEM "5|Generazione effetti"
MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|HIDE,4@|SHOW,5@|HIDE,9@|HIDE,F_KILLDESC
ITEM "6|Consuntivazione produzione"
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,9@|SHOW,F_KILLDESC
ITEM "7|Trasferimento a contabilita' analitica"
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|HIDE,4@|HIDE,5@|SHOW,9@|HIDE,F_KILLDESC
FIELD I0
END
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 5 "@bDocumento originale"
END
STRING F_CODNUM_I 4
BEGIN
PROMPT 2 6 "Codice numerazione "
FLAGS "U"
FIELD S5
USE %NUM
INPUT CODTAB F_CODNUM_I
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_I CODTAB
OUTPUT F_DOC1 S2[1,4]
OUTPUT F_DOC2 S2[5,8]
OUTPUT F_DOC3 S2[9,12]
OUTPUT F_DOC4 S2[13,16]
OUTPUT F_DOC5 S2[17,20]
OUTPUT F_DOC6 S2[21,24]
OUTPUT F_DOC7 S2[25,28]
OUTPUT F_DOC8 S2[29,32]
OUTPUT F_DOC9 S2[33,36]
OUTPUT F_DOC10 S2[37,40]
OUTPUT H_DOC1 S2
OUTPUT H_DOC2 S3
CHECKTYPE NORMAL
WARNING "Numerazione errata"
END
STRING H_DOC1 70
BEGIN
PROMPT 29 5 ""
FLAGS "H"
END
STRING H_DOC2 70
BEGIN
PROMPT 29 5 ""
FLAGS "H"
END
STRING F_DOC1 4
BEGIN
PROMPT 29 6 ""
FLAGS "D"
END
STRING F_DOC2 4
BEGIN
PROMPT 34 6 ""
FLAGS "D"
END
STRING F_DOC3 4
BEGIN
PROMPT 39 6 ""
FLAGS "D"
END
STRING F_DOC4 4
BEGIN
PROMPT 44 6 ""
FLAGS "D"
END
STRING F_DOC5 4
BEGIN
PROMPT 49 6 ""
FLAGS "D"
END
STRING F_DOC6 4
BEGIN
PROMPT 54 6 ""
FLAGS "D"
END
STRING F_DOC7 4
BEGIN
PROMPT 59 6 ""
FLAGS "D"
END
STRING F_DOC8 4
BEGIN
PROMPT 64 6 ""
FLAGS "D"
END
STRING F_DOC9 4
BEGIN
PROMPT 69 6 ""
FLAGS "D"
END
STRING F_DOC10 4
BEGIN
PROMPT 74 6 ""
FLAGS "D"
END
STRING F_TIPODOC_I_1 4
BEGIN
PROMPT 2 7 "Tipo documento "
FLAGS "U"
FIELD S2[1,4]
USE %TIP
INPUT CODTAB F_TIPODOC_I_1
DISPLAY "Codice" CODTAB
DISPLAY "Tipo documento@50" S0
OUTPUT F_TIPODOC_I_1 CODTAB
CHECKTYPE REQUIRED
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_TIPODOC_I_2 4
BEGIN
PROMPT 30 7 ""
FLAGS "U"
FIELD S2[5,8]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_2
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_2 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_TIPODOC_I_3 4
BEGIN
PROMPT 39 7 ""
FLAGS "U"
FIELD S2[9,12]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_3
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_3 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_TIPODOC_I_4 4
BEGIN
PROMPT 48 7 ""
FLAGS "U"
FIELD S2[13,16]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_4
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_4 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_TIPODOC_I_5 4
BEGIN
PROMPT 57 7 ""
FLAGS "U"
FIELD S2[17,20]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_4
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_4 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_STATO_I_DOC_I_1 1
BEGIN
PROMPT 2 8 "Stato iniziale "
FLAGS "U"
FIELD S7[1,1]
USE %STD
INPUT CODTAB F_STATO_I_DOC_I_1
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATO_I_DOC_I_1 CODTAB
CHECKTYPE REQUIRED
WARNING "E' necessario specificare uno stato iniziale"
END
STRING F_STATO_I_DOC_I_2 1
BEGIN
PROMPT 30 8 ""
FLAGS "U"
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_2
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_2 CODTAB
CHECKTYPE NORMAL
FIELD S7[2,2]
END
STRING F_STATO_I_DOC_I_3 1
BEGIN
PROMPT 39 8 ""
FLAGS "U"
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_3
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_3 CODTAB
CHECKTYPE NORMAL
FIELD S7[3,3]
END
STRING F_STATO_I_DOC_I_4 1
BEGIN
PROMPT 48 8 ""
FLAGS "U"
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_4
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_4 CODTAB
CHECKTYPE NORMAL
FIELD S7[4,4]
END
STRING F_STATO_I_DOC_I_5 1
BEGIN
PROMPT 57 8 ""
FLAGS "U"
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_5
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_5 CODTAB
CHECKTYPE NORMAL
FIELD S7[5,5]
END
STRING F_TIPODOC_I_6 4
BEGIN
PROMPT 2 9 "Tipo documento "
FLAGS "U"
FIELD S2[21,24]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_6
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_6 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_TIPODOC_I_7 4
BEGIN
PROMPT 30 9 ""
FLAGS "U"
FIELD S2[25,28]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_7
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_7 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_TIPODOC_I_8 4
BEGIN
PROMPT 39 9 ""
FLAGS "U"
FIELD S2[29,32]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_8
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_8 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_TIPODOC_I_9 4
BEGIN
PROMPT 48 9 ""
FLAGS "U"
FIELD S2[33,36]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_9
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_9 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_TIPODOC_I_10 4
BEGIN
PROMPT 57 9 ""
FLAGS "U"
FIELD S2[37,40]
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_I_10
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_I_10 CODTAB
CHECKTYPE NORMAL
STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END
STRING F_STATO_I_DOC_I_6 1
BEGIN
PROMPT 2 10 "Stato iniziale "
FLAGS "U"
FIELD S10[1,1]
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_6
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_6 CODTAB
CHECKTYPE NORMAL
WARNING "E' necessario specificare uno stato iniziale"
END
STRING F_STATO_I_DOC_I_7 1
BEGIN
PROMPT 30 10 ""
FLAGS "U"
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_7
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_7 CODTAB
CHECKTYPE NORMAL
FIELD S10[2,2]
END
STRING F_STATO_I_DOC_I_8 1
BEGIN
PROMPT 39 10 ""
FLAGS "U"
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_8
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_8 CODTAB
CHECKTYPE NORMAL
FIELD S10[3,3]
END
STRING F_STATO_I_DOC_I_9 1
BEGIN
PROMPT 48 10 ""
FLAGS "U"
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_9
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_9 CODTAB
CHECKTYPE NORMAL
FIELD S10[4,4]
END
STRING F_STATO_I_DOC_I_10 1
BEGIN
PROMPT 57 10 ""
FLAGS "U"
COPY USE F_STATO_I_DOC_I_1
INPUT CODTAB F_STATO_I_DOC_I_10
COPY DISPLAY F_STATO_I_DOC_I_1
OUTPUT F_STATO_I_DOC_I_10 CODTAB
CHECKTYPE NORMAL
FIELD S10[5,5]
END
STRING F_STATO_F_DOC_I 1
BEGIN
PROMPT 2 11 "Stato finale "
FLAGS "U"
FIELD S4
USE %STD
INPUT CODTAB F_STATO_F_DOC_I
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATO_F_DOC_I CODTAB
CHECKTYPE REQUIRED
WARNING "E' necessario specificare uno stato finale"
END
GROUPBOX DLG_NULL 42 5
BEGIN
PROMPT 1 13 "@bDocumento finale"
END
STRING F_TIPODOC_F 4
BEGIN
PROMPT 2 14 "Tipo documento "
FLAGS "U"
FIELD S8
CHECKTYPE REQUIRED
WARNING "E' necessario specificare un valore"
COPY USE F_TIPODOC_I_1
INPUT CODTAB F_TIPODOC_F
COPY DISPLAY F_TIPODOC_I_1
OUTPUT F_TIPODOC_F CODTAB
END
STRING F_STATO_F_DOC_F 1
BEGIN
PROMPT 2 15 "Stato finale "
FLAGS "U"
FIELD S9
USE %STD
INPUT CODTAB F_STATO_F_DOC_F
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATO_F_DOC_F CODTAB
CHECKTYPE REQUIRED
WARNING "E' necessario specificare uno stato finale"
END
STRING F_CODNUM_F 4
BEGIN
PROMPT 2 16 "Codice numerazione "
FLAGS "U"
FIELD S6
USE %NUM
INPUT CODTAB F_CODNUM_F
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_F CODTAB
OUTPUT F_ATTIVA_PROVVISORIO B0
CHECKTYPE REQUIRED
WARNING "E' necessario specificare un codice di numerazione"
END
BOOLEAN F_ATTIVA_PROVVISORIO
BEGIN
FLAGS "HG"
MESSAGE FALSE CLEAR,F_PROVVISORIO
MESSAGE TRUE ENABLE,F_PROVVISORIO
END
BOOLEAN F_PROVVISORIO
BEGIN
PROMPT 45 13 "Genera documento provvisorio"
// FIELD B5
END
BOOLEAN F_USA_DCONS
BEGIN
PROMPT 45 14 "Usa data di consegna"
FIELD B9
GROUP 2
END
RADIOBUTTON F_PROTOCOLLO 1 38
BEGIN
PROMPT 44 14 "@bProtocollo IVA"
ITEM " |Da numero documento"
ITEM "X|Da registro IVA"
FIELD B4
GROUP 3
END
BOOLEAN F_KILLDESC
BEGIN
PROMPT 45 15 "Non riportare descrizione estesa"
FIELD B10
END
BOOLEAN F_AGGIORNA_TESTATA
BEGIN
PROMPT 2 18 "Aggiorna testata dopo l'elaborazione, se il documento e' vuoto"
FIELD B6
END
STRING F_APPLICAZIONE 70 50
BEGIN
PROMPT 2 19 "Applicazione "
FIELD S3
GROUP 9
END
BOOLEAN F_ORDINA
BEGIN
PROMPT 50 19 "Ordina per codice"
FIELD B7
GROUP 1
END
ENDPAGE
PAGE "Parametri per raggruppamenti" -1 -1 78 20
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 1 "@bCondizioni per raggruppamento documenti"
FLAG "R"
END
BOOLEAN F_CAMBIO
BEGIN
PROMPT 2 2 "Cambio"
FIELD S1[1,1]
END
BOOLEAN F_SCONTO
BEGIN
PROMPT 2 3 "Sconto"
FIELD S1[2,2]
END
BOOLEAN F_TIPODOC
BEGIN
PROMP 2 4 "Tipo documento"
FIELD S1[3,3]
END
BOOLEAN F_CODNUM
BEGIN
PROMP 2 5 "Codice numerazione"
FIELD S1[4,4]
END
BOOLEAN F_SPEDIZIONE
BEGIN
PROMPT 2 6 "Modalita'di spedizione"
FIELD S1[9,9]
END
BOOLEAN F_PORTO
BEGIN
PROMPT 2 7 "Porto"
FIELD S1[10,10]
END
BOOLEAN F_CONDPAG
BEGIN
PROMP 28 2 "Condizione di pagamento"
FIELD S1[5,5]
END
BOOLEAN F_BANCA
BEGIN
PROMPT 28 3 "Banca di appoggio"
FIELD S1[6,6]
END
BOOLEAN F_LISTINO
BEGIN
PROMPT 28 4 "Listino"
FIELD S1[7,7]
END
BOOLEAN F_AGENTE
BEGIN
PROMP 28 5 "Agente"
FIELD S1[8,8]
END
BOOLEAN F_TRASPORTO
BEGIN
PROMPT 28 6 "Causale di trasporto"
FIELD S1[11,11]
END
BOOLEAN F_VETTORI
BEGIN
PROMPT 28 7 "Vettori"
FIELD S1[12,12]
END
BOOLEAN F_DESTINAZIONE
BEGIN
PROMPT 56 2 "Destinazione"
FIELD S1[13,13]
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 9 "@bModalita' di raggruppamento delle righe"
FLAG "R"
END
BOOLEAN F_SOMMA_RIGHE
BEGIN
PROMPT 2 10 "Somma righe simili"
MESSAGE FALSE ENABLE,F_RIFERIMENTI_IN_TESTA
MESSAGE TRUE DISABLE,F_RIFERIMENTI_IN_TESTA|"X",F_RIFERIMENTI_IN_TESTA
FIELD B0
END
BOOLEAN F_MAGAZZINO
BEGIN
PROMPT 2 11 "Magazzino"
FIELD S1[41,41]
END
BOOLEAN F_IVA
BEGIN
PROMPT 28 11 "Codice IVA"
FIELD S1[42,42]
END
BOOLEAN F_PREZZO
BEGIN
PROMPT 2 12 "Prezzo e Sconto"
FIELD S1[43,43]
END
BOOLEAN F_PREZZO_DA_ORDINE
BEGIN
PROMPT 28 12 "Ricava prezzo e sconto da ordine"
FIELD B5
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 14 "@bGestione descrizioni"
END
BOOLEAN F_RIFERIMENTI
BEGIN
PROMPT 2 15 "Gestione riferimenti"
FIELD B1
END
BOOLEAN F_RIFERIMENTI_IN_TESTA
BEGIN
PROMPT 40 15 "Tutti i riferimenti in testa"
FIELD B2
END
BOOLEAN F_IGNORA_DESCRIZIONI
BEGIN
PROMPT 2 16 "Ignora righe con solo descrizione"
FIELD B3
END
BOOLEAN F_USA_DOCRIF
BEGIN
PROMPT 40 16 "Usa documento di rif. in descr.rif."
FIELD B8
END
NUMBER F_COLONNE_CO 1
BEGIN
PROMPT 1 18 "Intestazioni consegna ordini "
SHEET "Tipo|Colonna 1@25|Colonna 2@25"
ITEM " |Quantita' residua|Quantita' da evadere"
ITEM "1|Quantita' consegnata|Quantita' da fatturare"
ITEM "2|Residuo|Da evadere"
INPUT F_COLONNE_CO
OUTPUT F_COLONNE_CO
GROUP 1
FIELD I1
END
ENDPAGE
ENDMASK

6
ve/vetbfrd.h Executable file
View File

@ -0,0 +1,6 @@
#define F_CODTAB 101
#define F_DES 102
#define F_LENFLD 103
#define F_TIPO 104
#define F_IMPORTO 105
#define F_FORMULA 106

76
ve/vetbfrd.uml Executable file
View File

@ -0,0 +1,76 @@
#include "vetbfrd.h"
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
PAGE "Tabella formule documenti" -1 -1 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAG "R"
END
STRING F_CODTAB 10
BEGIN
PROMPT 2 2 "Identificatore "
FIELD CODTAB
USE %FRD
CHECKTYPE REQUIRED
INPUT CODTAB F_CODTAB
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DES S0
KEY 1
FLAG "UZ"
END
STRING F_DES 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
USE %FRD KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_DES
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@10" CODTAB
COPY OUTPUT F_CODTAB
KEY 2
END
NUMBER F_LENFLD 2
BEGIN
PROMPT 2 7 "Lunghezza campo "
FIELD I0
END
BOOLEAN F_TIPO
BEGIN
PROMPT 2 9 "Formula numerica"
FIELD B0
MESSAGE TRUE ENABLE,F_IMPORTO
MESSAGE FALSE CLEAR,F_IMPORTO
END
BOOLEAN F_IMPORTO
BEGIN
PROMPT 2 10 "Importo"
FIELD B1
END
STRING F_FORMULA 70 50
BEGIN
PROMPT 2 11 "Formula "
FIELD S1
// CHECKTYPE REQUIRED
WARNING "La formula e' obbligatoria"
FLAG "U"
END
ENDPAGE
ENDMASK

5
ve/vetbfrm.h Executable file
View File

@ -0,0 +1,5 @@
#define F_CODICE 101
#define F_DESCRIZIONE 102
#define F_TIPO 110
#define F_FORMULA_1 111
#define F_FORMULA_2 112

74
ve/vetbfrm.uml Executable file
View File

@ -0,0 +1,74 @@
#include "vetbfrm.h"
TOOLBAR "" 0 20 -1 -1
#include <toolbar.h>
ENDPAGE
PAGE "Formule per ricalcolo magazzino" -1 -1 78 10
GROUPBOX DLG_NULL 70 4
BEGIN
PROMPT 1 1 "Codice"
END
STRING F_CODICE 10
BEGIN
PROMPT 2 2 "Codice "
FLAGS "U"
USE %FRM
INPUT CODTAB F_CODICE
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCRIZIONE S0
CHECKTYPE REQUIRED
FIELD CODTAB
KEY 1
END
STRING F_DESCRIZIONE 50
BEGIN
PROMPT 2 3 "Descrizione "
USE %FRM KEY 2
INPUT S0 F_DESCRIZIONE
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@10" CODTAB
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
FIELD S0
KEY 2
END
GROUPBOX DLG_NULL 70 5
BEGIN
PROMPT 1 6 "Formula"
END
RADIOBUTTON F_TIPO 48
BEGIN
PROMPT 12 6 ""
FLAGS "Z"
ITEM " |Numerica"
ITEM "X|Alfanumerica"
FIELD B0
END
STRING F_FORMULA_1 50
BEGIN
PROMPT 2 8 "Riga 1 "
CHECKTYPE REQUIRED
FIELD S1
END
STRING F_FORMULA_2 50
BEGIN
PROMPT 2 9 "Riga 2 "
FIELD S2
END
ENDPAGE
ENDMASK

77
ve/vetbfrr.uml Executable file
View File

@ -0,0 +1,77 @@
#include "vetbfrd.h"
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
PAGE "Tabella formule righe documenti" -1 -1 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAG "R"
END
STRING F_CODTAB 10
BEGIN
PROMPT 2 2 "Identificatore "
FIELD CODTAB
USE %FRR
CHECKTYPE REQUIRED
INPUT CODTAB F_CODTAB
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DES S0
KEY 1
FLAG "UZ"
END
STRING F_DES 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
USE %FRR KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_DES
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@10" CODTAB
COPY OUTPUT F_CODTAB
KEY 2
END
NUMBER F_LENFLD 2
BEGIN
PROMPT 2 7 "Lunghezza campo "
FIELD I0
END
BOOLEAN F_TIPO
BEGIN
PROMPT 2 9 "Formula numerica"
FIELD B0
MESSAGE TRUE ENABLE,F_IMPORTO
MESSAGE FALSE CLEAR,F_IMPORTO
END
BOOLEAN F_IMPORTO
BEGIN
PROMPT 2 10 "Importo"
FIELD B1
END
STRING F_FORMULA 70 50
BEGIN
PROMPT 2 11 "Formula "
FIELD S1
CHECKTYPE REQUIRED
WARNING "La formula e' obbligatoria"
FLAG "U"
END
ENDPAGE
ENDMASK

3
ve/vetbstd.h Executable file
View File

@ -0,0 +1,3 @@
#define F_CODTAB 101
#define F_DESSTA 102

49
ve/vetbstd.uml Executable file
View File

@ -0,0 +1,49 @@
#include "vetbstd.h"
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
PAGE "Tabella stati documento" -1 -1 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAG "R"
END
STRING F_CODTAB 1
BEGIN
PROMPT 2 2 "Codice "
FIELD CODTAB
USE %STD
CHECKTYPE REQUIRED
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESSTA S0
KEY 1
FLAG "U"
END
STRING F_DESSTA 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
HELP "Descrizione tipo documento"
USE %STD KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_DESSTA
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

102
ve/vetbtip.h Executable file
View File

@ -0,0 +1,102 @@
#define F_CODTAB 101
#define F_DESNUM 102
#define F_PROFILO 103
#define F_PSTAMPA 104
#define F_CODCAUS 105
#define F_DESCAUS 106
#define F_NCOPIE 107
#define F_RIFERIMENTO 108
#define F_SPESEAUT 109
#define F_TIPO 110
#define F_MOVMAG 111
#define F_STATO_MOV_I 112
#define F_STATO_MOV_F 113
#define F_CAUS_MAG 114
#define F_DESCAUS_MAG 115
#define F_STATV 116
#define F_PROVV 117
#define F_STATO_PROVV 118
#define F_SCARES 119
#define F_CODCAUSANT 120
#define F_DESCAUSANT 121
#define F_CLIFO_OPT 122
#define F_CONAI 123
#define F_NATURA 124
#define F_NOTACREDDEB 125
#define F_LORDO 126
#define F_FATCOM 127
#define F_PSTAMPA2 130
#define F_NCOPIE2 131
#define F_STATOF_INS 150
#define F_STATOF_ST 151
#define F_STATOBLC 152
#define F_STATOI_MOD_1 201
#define F_STATOI_MOD_2 202
#define F_STATOI_MOD_3 203
#define F_STATOI_MOD_4 204
#define F_STATOI_MOD_5 205
#define F_STATOI_MOD_6 206
#define F_STATOI_MOD_7 207
#define F_STATOI_MOD_8 208
#define F_STATOI_MOD_9 209
#define F_STATOI_MOD_10 210
#define F_STATOI_MOD_11 211
#define F_STATOI_MOD_12 212
#define F_STATOI_MOD_13 213
#define F_STATOI_MOD_14 214
#define F_STATOI_MOD_15 215
#define F_STATOI_MOD_16 216
#define F_STATOI_MOD_17 217
#define F_STATOI_MOD_18 218
#define F_STATOI_MOD_19 219
#define F_STATOI_MOD_20 220
#define F_STATOI_CANC_1 301
#define F_STATOI_CANC_2 302
#define F_STATOI_CANC_3 303
#define F_STATOI_CANC_4 304
#define F_STATOI_CANC_5 305
#define F_STATOI_CANC_6 306
#define F_STATOI_CANC_7 307
#define F_STATOI_CANC_8 308
#define F_STATOI_CANC_9 309
#define F_STATOI_CANC_10 310
#define F_STATOI_CANC_11 311
#define F_STATOI_CANC_12 312
#define F_STATOI_CANC_13 313
#define F_STATOI_CANC_14 314
#define F_STATOI_CANC_15 315
#define F_STATOI_CANC_16 316
#define F_STATOI_CANC_17 317
#define F_STATOI_CANC_18 318
#define F_STATOI_CANC_19 319
#define F_STATOI_CANC_20 320
#define F_STATOI_ST_1 401
#define F_STATOI_ST_2 402
#define F_STATOI_ST_3 403
#define F_STATOI_ST_4 404
#define F_STATOI_ST_5 405
#define F_STATOI_ST_6 406
#define F_STATOI_ST_7 407
#define F_STATOI_ST_8 408
#define F_STATOI_ST_9 409
#define F_STATOI_ST_10 410
#define F_STATOI_ST_11 411
#define F_STATOI_ST_12 412
#define F_STATOI_ST_13 413
#define F_STATOI_ST_14 414
#define F_STATOI_ST_15 415
#define F_STATOI_ST_16 416
#define F_STATOI_ST_17 417
#define F_STATOI_ST_18 418
#define F_STATOI_ST_19 419
#define F_STATOI_ST_20 420
#define F_IVA_NO 501
#define F_IVA_RV 502
#define F_IVA_ES 503
#define F_IVA_NI 504
#define F_IVA_NS 505

1202
ve/vetbtip.uml Executable file
View File

File diff suppressed because it is too large Load Diff

7
ve/vetbtri.h Executable file
View File

@ -0,0 +1,7 @@
#define F_CODICE 101
#define F_DESCR 102
#define F_TPR 103
#define F_FORMFEED 104
#define F_IND 105
#define F_DESIND 106
#define F_PERIND 107

90
ve/vetbtri.uml Executable file
View File

@ -0,0 +1,90 @@
#include "vetbtri.h"
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
PAGE "Tipo di riga" -1 -1 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 4
BEGIN
PROMPT 2 2 "Codice "
FIELD CODTAB
FLAGS "U"
USE %TRI
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
KEY 1
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
USE %TRI KEY 2
INPUT S0 F_DESCR
COPY DISPLAY F_CODICE
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
KEY 2
END
LIST F_TPR 16
BEGIN
PROMPT 2 8 "Tipo "
ITEMS "M|Merce"
ITEMS "S|Spese"
ITEMS "P|Prestazioni"
ITEMS "R|Risorse"
ITEMS "A|Attrezzature"
ITEMS "C|Sconti"
ITEMS "O|Omaggi"
ITEMS "D|Descrizioni"
FIELD S7
END
BOOLEAN F_FORMFEED
BEGIN
PROMPT 2 10 "Salto pagina dopo questo tipo"
FIELD B0
END
NUMBER F_IND 1
BEGIN
PROMPT 2 12 "Detraibilita' "
SHEET "Codice|Tipo detraibilita'@75"
INPUT F_IND
ITEM " |Regime normale"
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
ITEM "9|IVA non detraibile per l'articolo 19"
OUTPUT F_IND
OUTPUT F_DESIND
FIELD I0
END
STRING F_DESIND 75 50
BEGIN
PROMPT 20 12 ""
FLAGS "D"
END
NUMBER F_PERIND 6 2
BEGIN
PROMPT 2 14 "% Indetraib. "
FIELD R0
END
ENDPAGE
ENDMASK