Patch level :2.2 010
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
parent
00d73704f8
commit
951dd95222
@ -7,10 +7,10 @@ int main(int argc, char **argv)
|
|||||||
const int r = (argc>1) ? argv[1][1]-'0' : -1;
|
const int r = (argc>1) ? argv[1][1]-'0' : -1;
|
||||||
switch (r)
|
switch (r)
|
||||||
{
|
{
|
||||||
case 1 : ve1200(argc, argv); break;
|
case 1 : ve1200(argc, argv); break; //stampa scoperto, lista bolle
|
||||||
case 2 : ve1300(argc, argv); break;
|
case 2 : ve1300(argc, argv); break; //stampa report documenti
|
||||||
case 3 : ve1400(argc, argv); break;
|
case 3 : ve1400(argc, argv); break; //stampa tabelle vendita ed utilita' varie
|
||||||
default: ve1100(argc, argv); break;
|
default: ve1100(argc, argv); break; //stampa documenti di vendita
|
||||||
}
|
}
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|||||||
@ -296,7 +296,21 @@ void TKlarkKent_app::main_loop()
|
|||||||
{
|
{
|
||||||
TString_array arr;
|
TString_array arr;
|
||||||
for (int i = 2; i < argc(); i++)
|
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)
|
if (arr.items() == 0)
|
||||||
arr.add(EMPTY_STRING);
|
arr.add(EMPTY_STRING);
|
||||||
|
|
||||||
|
|||||||
@ -52,26 +52,26 @@ Caption = "Tabelle personalizzazione documenti"
|
|||||||
Picture = <ba04>
|
Picture = <ba04>
|
||||||
Module = 0
|
Module = 0
|
||||||
Flags = ""
|
Flags = ""
|
||||||
Item_01 = "Tipo documento", "ba3 -0 %TIP", "F"
|
Item_01 = "Tipo documento", "ve0 -4 %TIP", "F"
|
||||||
Item_02 = "Numerazione documenti", "ba3 -0 %NUM", "F"
|
Item_02 = "Numerazione documenti", "ve0 -4 %NUM", "F"
|
||||||
Item_03 = "Tipo riga documento", "ba3 -0 %TRI", "F"
|
Item_03 = "Tipo riga documento", "ve0 -4 %TRI", "F"
|
||||||
Item_04 = "Formule documento", "ba3 -0 %FRD", "F"
|
Item_04 = "Formule documento", "ve0 -4 %FRD", "F"
|
||||||
Item_05 = "Formule righe documento", "ba3 -0 %FRR", "F"
|
Item_05 = "Formule righe documento", "ve0 -4 %FRR", "F"
|
||||||
Item_06 = "Formule ricalcolo magazzino", "ba3 -0 %FRM", "F"
|
Item_06 = "Formule ricalcolo magazzino", "ve0 -4 %FRM", "F"
|
||||||
Item_07 = "Elaborazioni differite", "ba3 -0 %ELD", "F"
|
Item_07 = "Elaborazioni differite", "ve0 -4 %ELD", "F"
|
||||||
Item_08 = "Stati documento", "ba3 -0 %STD", "F"
|
Item_08 = "Stati documento", "ve0 -4 %STD", "F"
|
||||||
|
|
||||||
[VEMENU_008]
|
[VEMENU_008]
|
||||||
Caption = "Stampa tabelle personalizzazione documenti"
|
Caption = "Stampa tabelle personalizzazione documenti"
|
||||||
Picture = <ba03>
|
Picture = <ba03>
|
||||||
Module = 0
|
Module = 0
|
||||||
Flags = ""
|
Flags = ""
|
||||||
Item_01 = "Tipo documento", "ba3 -1 %TIP", "F"
|
Item_01 = "Tipo documento", "ve1 -3 %TIP", "F"
|
||||||
Item_02 = "Numerazione documenti", "ba3 -1 %NUM", "F"
|
Item_02 = "Numerazione documenti", "ve1 -3 %NUM", "F"
|
||||||
Item_03 = "Tipo riga documento", "ba3 -1 %TRI", "F"
|
Item_03 = "Tipo riga documento", "ve1 -3 %TRI", "F"
|
||||||
Item_04 = "Formule documento", "ba3 -1 %FRD", "F"
|
Item_04 = "Formule documento", "ve1 -3 %FRD", "F"
|
||||||
Item_05 = "Formule righe documento", "ba3 -1 %FRR", "F"
|
Item_05 = "Formule righe documento", "ve1 -3 %FRR", "F"
|
||||||
Item_06 = "Formule ricalcolo magazzino", "ba3 -1 %FRM", "F"
|
Item_06 = "Formule ricalcolo magazzino", "ve1 -3 %FRM", "F"
|
||||||
Item_07 = "Elaborazioni differite", "ba3 -1 %ELD", "F"
|
Item_07 = "Elaborazioni differite", "ve1 -3 %ELD", "F"
|
||||||
Item_08 = "Stati documento", "ba3 -1 %STD", "F"
|
Item_08 = "Stati documento", "ve1 -3 %STD", "F"
|
||||||
|
|
||||||
|
|||||||
280
ve/vesteld.rep
Executable file
280
ve/vesteld.rep
Executable 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
42
ve/vesteld.uml
Executable 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
62
ve/vestfrd.rep
Executable 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
42
ve/vestfrd.uml
Executable 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
62
ve/vestfrm.rep
Executable 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
42
ve/vestfrm.uml
Executable 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
62
ve/vestfrr.rep
Executable 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
42
ve/vestfrr.uml
Executable 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
|
||||||
39
ve/veststd.rep
Executable file
39
ve/veststd.rep
Executable 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
40
ve/veststd.uml
Executable 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
64
ve/vesttip.rep
Executable 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
42
ve/vesttip.uml
Executable 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
53
ve/vesttri.rep
Executable 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
42
ve/vesttri.uml
Executable 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
87
ve/vetbeld.h
Executable 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
720
ve/vetbeld.uml
Executable 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
6
ve/vetbfrd.h
Executable 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
76
ve/vetbfrd.uml
Executable 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
5
ve/vetbfrm.h
Executable 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
74
ve/vetbfrm.uml
Executable 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
77
ve/vetbfrr.uml
Executable 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
3
ve/vetbstd.h
Executable file
@ -0,0 +1,3 @@
|
|||||||
|
#define F_CODTAB 101
|
||||||
|
#define F_DESSTA 102
|
||||||
|
|
||||||
49
ve/vetbstd.uml
Executable file
49
ve/vetbstd.uml
Executable 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
102
ve/vetbtip.h
Executable 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
1202
ve/vetbtip.uml
Executable file
File diff suppressed because it is too large
Load Diff
7
ve/vetbtri.h
Executable file
7
ve/vetbtri.h
Executable 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
90
ve/vetbtri.uml
Executable 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
|
||||||
Loading…
x
Reference in New Issue
Block a user