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

Patch level :10.0 94

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :riportate modifiche 3.2


git-svn-id: svn://10.65.10.50/trunk@16969 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-07-29 13:36:43 +00:00
parent da858b8d71
commit 1a560c6df1
13 changed files with 244 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
co/co0800.cpp
View File

@ -188,6 +188,7 @@ void TImportazioneConf::main_loop()
r.put(RDOC_SCONTO, ritprezzo); r.put(RDOC_SCONTO, ritprezzo);
} }
update_spese_doc(codmercato, *d); update_spese_doc(codmercato, *d);
d->stato(d->tipo().stato_finale_inserimento());
d->write(); d->write();
delete d; delete d;
d = NULL; d = NULL;
@ -272,6 +273,7 @@ void TImportazioneConf::main_loop()
r.put(RDOC_SCONTO, ritprezzo); r.put(RDOC_SCONTO, ritprezzo);
} }
update_spese_doc(codmercato, *d); update_spese_doc(codmercato, *d);
d->stato(d->tipo().stato_finale_inserimento());
d->write(); d->write();
} }
input_docs.close(); input_docs.close();

3
co/co1.cpp
View File

@ -12,6 +12,9 @@ int main(int argc, char** argv)
case 3: case 3:
co1400(argc, argv); // Fatturazione Conferimenti co1400(argc, argv); // Fatturazione Conferimenti
break; break;
//case 4:
// co1500(argc, argv); // Invio mov.coop. a TeamSystem
// break;
default: default:
break; break;
} }

1
co/co1.h
View File

@ -1,2 +1,3 @@
int co1300(int argc, char* argv[]); int co1300(int argc, char* argv[]);
int co1400(int argc, char* argv[]); int co1400(int argc, char* argv[]);
//int co1500(int argc, char* argv[]);

2
co/co1100a.rep
View File

@ -1,5 +1,5 @@
<report name="co1100a" orientation="2" lpi="6"> <report name="co1100a" orientation="2" lpi="6" command="ba8 -4">
<description>Stampa libro soci</description> <description>Stampa libro soci</description>
<font face="Courier New" size="7" /> <font face="Courier New" size="7" />
<section type="Head" /> <section type="Head" />

11
co/co1100a.uml
View File

@ -1,6 +1,6 @@
#include "co1100a.h" #include "co1100a.h"
PAGE "Stampa libro soci" 0 -1 78 7 PAGE "Stampa libro soci" -1 -1 78 7
GROUPBOX DLG_NULL 76 3 GROUPBOX DLG_NULL 76 3
BEGIN BEGIN
@ -21,17 +21,16 @@ STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 23 2 "" PROMPT 23 2 ""
FLAGS "D" FLAGS "D"
//FIELD RAGSOC
END END
BUTTON DLG_OK 10 2 BUTTON DLG_PRINT 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

2
co/co1200a.rep
View File

@ -1,5 +1,5 @@
<report name="co1200a" orientation="2" lpi="6"> <report name="co1200a" orientation="2" lpi="6" command="ve1 -3">
<description>STAMPA CONFERIMENTI</description> <description>STAMPA CONFERIMENTI</description>
<font face="Courier New" size="8" /> <font face="Courier New" size="8" />
<section type="Head" /> <section type="Head" />

86
co/co1300.cpp
View File

@ -1,10 +1,16 @@
#include <applicat.h> #include <applicat.h>
#include <automask.h> #include <automask.h>
#include <reprint.h> #include <reprint.h>
#include <textset.h>
#include "co1.h" #include "co1.h"
#include "co1300a.h" #include "co1300a.h"
#include "socicoop.h"
#include "..\ve\velib.h"
#include "..\ve\velib07.h"
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
// MASCHERA // MASCHERA
@ -31,11 +37,26 @@ bool TEstrattoConto_mask::on_field_event(TOperable_field& f, TField_event e, lon
// REPORT // REPORT
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
// vediamo se serve class TEstrattoConto_rep : public TDocument_report
{
protected:
virtual bool use_mask() {return false;}
};
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
// APPLICAZIONE // APPLICAZIONE
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
struct TRiga_totale
{
TString80 _descr;
real _qta;
real _acc;
real _impcredito;
real _impdebito;
};
class TEstrattoConto : public TSkeleton_application class TEstrattoConto : public TSkeleton_application
{ {
public: public:
@ -44,14 +65,67 @@ public:
void TEstrattoConto::main_loop() void TEstrattoConto::main_loop()
{ {
TEstrattoConto_mask mask; TEstrattoConto_mask m;
while (mask.run() == K_ENTER) while (m.run() == K_ENTER)
{ {
//report e book dei report
TReport_book book; TReport_book book;
TReport rep; TEstrattoConto_rep rep;
rep.load("co1300a"); rep.load("co1300a");
book.add(rep);
const TDate dataini = m.get_date(F_DATAINI);
const TDate datafin = m.get_date(F_DATAFIN);
const int anno = dataini.year();
// creo recordset dei soci da stampare
TISAM_recordset soci("USE SOCICOOP\nFROM CODCF=#DASOCIO\nTO CODCF=#ASOCIO");
soci.set_var("#DASOCIO", m.get_long(F_DASOCIO));
soci.set_var("#ASOCIO", m.get_long(F_ASOCIO));
for (bool ok = soci.move_first(); ok; ok = soci.move_next())
{
TRecordset * r = rep.recordset();
long codcf = soci.get(SC_CODCF).as_int();
r->set_var("#SOCIO", soci.get("CODCF"));
r->set_var("#ANNO", TVariant(long(anno)));
r->set_var("#DATAINI", dataini);
r->set_var("#DATAFIN", datafin);
// calcolo totali per articolo
TAssoc_array totali_art;
TReport_section& body2 = rep.section('B', 12);
for (bool ok = r->move_first(); ok; ok = r->move_next())
{
TRecordset* rr = rep.section('B', 11).recordset();
for (bool okr = rr->move_first(); okr; okr = rr->move_next())
{
const TString& codart = rr->get(RDOC_CODART).as_string();
TRiga_totale* rt = (TRiga_totale*) totali_art.objptr(codart);
if (rt == NULL)
{
rt = new TRiga_totale;
rt->_descr = rr->get(RDOC_DESCR).as_string();
totali_art.add(codart, (TObject*) rt);
}
// sommare qta e importi
real qta = rr->get(RDOC_QTA).as_real();
rt->_qta += qta;
}
}
// devo passare il recordset al report
TCSV_recordset csv("");
FOR_EACH_ASSOC_OBJECT(totali_art, o, k, it)
{
TRiga_totale& rt = (TRiga_totale&) *it;
csv.new_rec("");
TVariant descr = rt._descr;
csv.set(0, descr);
csv.set(1, rt._qta);
}
body2.set_recordset(&csv);
book.add(rep);
}
book.print_or_preview(); book.print_or_preview();
} }
} }

107
co/co1300a.rep
View File

@ -2,17 +2,7 @@
<report name="co1300a" orientation="2" lpi="6"> <report name="co1300a" orientation="2" lpi="6">
<description>Stampa Estratto Conto Socio</description> <description>Stampa Estratto Conto Socio</description>
<font face="Courier New" size="8" /> <font face="Courier New" size="8" />
<section type="Head" /> <section type="Head">
<section type="Head" level="1" />
<section type="Head" level="2" page_break="1">
<groupby>CODCF</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F2.103
MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
MESSAGE RESET,F2.106
MESSAGE RESET,F2.107</prescript>
<field x="1" y="1" type="Stringa" width="10" pattern="1"> <field x="1" y="1" type="Stringa" width="10" pattern="1">
<source>101@.CODCF</source> <source>101@.CODCF</source>
</field> </field>
@ -75,7 +65,8 @@ MESSAGE RESET,F2.107</prescript>
<field x="128" y="8" type="Testo" align="right" width="10" pattern="1" text="Imposta" /> <field x="128" y="8" type="Testo" align="right" width="10" pattern="1" text="Imposta" />
<field x="140" y="8" type="Testo" width="20" pattern="1" text="Mercato" /> <field x="140" y="8" type="Testo" width="20" pattern="1" text="Mercato" />
</section> </section>
<section type="Head" level="3" /> <section type="Head" level="1" />
<section type="Head" level="2" />
<section type="Body" /> <section type="Body" />
<section type="Body" level="1" /> <section type="Body" level="1" />
<section type="Head" level="11" /> <section type="Head" level="11" />
@ -118,7 +109,7 @@ ELSE
#107 ENABLE #107 ENABLE
THEN</prescript> THEN</prescript>
</field> </field>
<field x="52" type="Numero" align="right" width="10" id="101" pattern="1" hide_zero="1" text="###.###.@@"> <field x="52" type="Numero" align="right" width="10" id="101" pattern="1" hide_zero="1" text="###.###,@@">
<groups>1</groups> <groups>1</groups>
<source>QTA</source> <source>QTA</source>
<postscript description="B11.101 POSTSCRIPT">MESSAGE ADD,F2.101</postscript> <postscript description="B11.101 POSTSCRIPT">MESSAGE ADD,F2.101</postscript>
@ -134,12 +125,13 @@ THEN</prescript>
<field x="85" type="Prezzo" align="right" width="10" id="104" pattern="1" hide_zero="1" text="#########,@@"> <field x="85" type="Prezzo" align="right" width="10" id="104" pattern="1" hide_zero="1" text="#########,@@">
<groups>1</groups> <groups>1</groups>
<source>IMPCNN-IMPCNS</source> <source>IMPCNN-IMPCNS</source>
<prescript description="B11.104 PRESCRIPT">MESSAGE ADD,F2.104</prescript> <postscript description="B11.104 POSTSCRIPT">MESSAGE ADD,F2.104</postscript>
</field> </field>
<field x="96" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@"> <field x="96" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@">
<groups>1</groups> <groups>1</groups>
<source>IMPCNS</source> <source>IMPCNS</source>
<postscript description="B11.105 POSTSCRIPT">MESSAGE ADD,F2.105</postscript> <postscript description="B11.105 POSTSCRIPT">MESSAGE ADD,F2.105
MESSAGE ADD,F2.115</postscript>
</field> </field>
<field x="112" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@"> <field x="112" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@">
<groups>2</groups> <groups>2</groups>
@ -152,27 +144,86 @@ THEN</prescript>
</field> </field>
</section> </section>
<section type="Foot" level="11" /> <section type="Foot" level="11" />
<section type="Head" level="12" />
<section deactivated="1" type="Body" level="12" hidden="1">
<sql>USE RDOC
SELECT (TIPORIGA='CO')||(TIPORIGA='06')
JOIN %SPP ALIAS 201 INTO CODTAB==CODART
FROM CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
TO CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
</sql>
<field x="13" type="Stringa" width="30" pattern="1">
<source>DESCR</source>
</field>
<field x="142" type="Stringa" hidden="1" align="right" bg_color="#00FFFF" width="12" id="100" pattern="1">
<font face="Arial" size="10" />
<source>34.TIPORIGA</source>
<prescript>#THIS @
"CO" = \ confronta tiporiga con "CO"
IF
#101 ENABLE
#102 ENABLE
#103 ENABLE
#104 ENABLE
#105 ENABLE
#106 DISABLE
#107 ENABLE
ELSE
#101 DISABLE
#102 DISABLE
#103 DISABLE
#104 DISABLE
#105 DISABLE
#106 ENABLE
#107 ENABLE
THEN</prescript>
</field>
<field x="53" type="Numero" align="right" width="10" id="101" pattern="1" hide_zero="1" text="###.###.@@">
<source>QTA</source>
<postscript>MESSAGE ADD,F2.101</postscript>
</field>
<field x="64" type="Prezzo" align="right" width="10" id="102" pattern="1" hide_zero="1" text="#########,@@">
<source>PREZZONN</source>
</field>
<field x="75" type="Prezzo" align="right" width="10" id="103" pattern="1" hide_zero="1" text="#########,@@">
<source>PREZZONS</source>
</field>
<field x="86" type="Prezzo" align="right" width="10" id="104" pattern="1" hide_zero="1" text="#########,@@">
<source>IMPCNN-IMPCNS</source>
<prescript>MESSAGE ADD,F2.104</prescript>
</field>
<field x="97" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@">
<source>IMPCNS</source>
<postscript>MESSAGE ADD,F2.105</postscript>
</field>
<field x="113" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@">
<source>IMPCNS</source>
<postscript>MESSAGE ADD,F2.106</postscript>
</field>
<field x="129" type="Prezzo" align="right" width="10" id="107" pattern="1" hide_zero="1" text="#########,@@">
<source>IMPOSTA</source>
<postscript>MESSAGE ADD,F2.107</postscript>
</field>
</section>
<section type="Foot" level="12" />
<section type="Foot" /> <section type="Foot" />
<section type="Foot" level="1" /> <section type="Foot" level="1" />
<section type="Foot" level="2"> <section type="Foot" level="2">
<field border="1" y="1" type="Linea" width="160" height="0" pattern="1" /> <field x="30" type="Testo" width="10" pattern="1" text="TOTALI" />
<field x="24" y="2" type="Testo" width="10" pattern="1" text="TOTALI" /> <field x="92" y="3" type="Testo" width="35" pattern="1" text="Progressivo annuo conferimenti" />
<field x="140" y="2" type="Testo" width="10" pattern="1" text="Saldo" /> <field x="52" type="Numero" align="right" width="10" id="101" pattern="1" hide_zero="1" text="###.###,@@">
<field x="52" y="2" type="Numero" align="right" width="10" id="101" pattern="1" /> <postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F2.101</postscript>
<field x="85" y="2" type="Prezzo" align="right" width="10" id="104" pattern="1" hide_zero="1" text="#########,@@" />
<field x="96" y="2" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@" />
<field x="112" y="2" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@" />
<field x="128" y="2" type="Prezzo" align="right" width="10" id="107" pattern="1" hide_zero="1" text="#########,@@" />
<field x="146" y="2" type="Prezzo" align="right" width="15" id="108" pattern="1" hide_zero="1" text="#########,@@">
<source>#105-#106</source>
</field> </field>
<field x="96" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@" />
<field x="112" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@" />
<field x="128" type="Prezzo" align="right" width="15" id="107" pattern="1" hide_zero="1" text="#########,@@" />
<field x="128" y="3" type="Prezzo" align="right" width="15" id="115" pattern="1" text="###.###.###,@@" />
</section> </section>
<section type="Foot" level="3" />
<sql>USE DOC <sql>USE DOC
KEY 2 KEY 2
SELECT (NUM(ANSI(DATADOC)&#3E;=ANSI(#DATAINI)))&#26;&#26;(NUM(ANSI(DATADOC)&#3C;=ANSI(#DATAFIN))) SELECT (NUM(ANSI(DATADOC)&#3E;=ANSI(#DATAINI)))&#26;&#26;(NUM(ANSI(DATADOC)&#3C;=ANSI(#DATAFIN)))
JOIN CLIFO ALIAS 101 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN CLIFO ALIAS 101 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN COMUNI TO 101@ INTO STATO==STATOCF COM==COMCF JOIN COMUNI TO 101@ INTO STATO==STATOCF COM==COMCF
FROM TIPOCF='F' CODCF=#DASOCIO PROVV='D' FROM TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAINI
TO TIPOCF='F' CODCF=#ASOCIO PROVV='D'</sql> TO TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAFIN</sql>
</report> </report>

75
co/co1400.cpp
View File

@ -1,15 +1,19 @@
#include <progind.h> #include <progind.h>
#include "../ve/velib04.h"
#include "../ve/ve6200.h" #include "../ve/ve6200.h"
#include "../ve/ve6200a.h" #include "../ve/ve6200a.h"
#include <doc.h> #include <doc.h>
class TFatturazione_cooperative : TFatturazione_bolle class TFatturazione_cooperative : public TFatturazione_bolle
{ {
void campi_raggruppamento_righe(TToken_string& campi_riga) const; virtual void campi_raggruppamento_righe(TToken_string& campi_riga) const;
void campi_raggruppamento(TToken_string& campi) const; virtual void campi_raggruppamento(TToken_string& campi) const;
void add_rows(TRiga_documento & rout, TRiga_documento & rin); virtual bool doc_raggruppabile(const TDocumento & doc) const { return true; }
virtual bool doc_raggruppabile(const TDocumento & doc_in, const TDocumento & doc_out, TToken_string & campi) const;
virtual void add_rows(TRiga_documento & rout, TRiga_documento & rin);
virtual void create_row(TDocumento& doc_out, const TRiga_documento & rin);
virtual const TString & get_tipo_out(const TDocumento & doc_out);
public: public:
TFatturazione_cooperative(const char* cod) : TFatturazione_bolle(cod) {} TFatturazione_cooperative(const char* cod) : TFatturazione_bolle(cod) {}
@ -18,7 +22,7 @@ public:
void TFatturazione_cooperative::campi_raggruppamento_righe(TToken_string& campi_riga) const void TFatturazione_cooperative::campi_raggruppamento_righe(TToken_string& campi_riga) const
{ {
campi_riga = "CODART|UMQTA"; // Uguali sempre campi_riga = "CODART|UMQTA!CODIVA"; // Uguali sempre
} }
void TFatturazione_cooperative::campi_raggruppamento(TToken_string& campi) const void TFatturazione_cooperative::campi_raggruppamento(TToken_string& campi) const
@ -28,21 +32,62 @@ void TFatturazione_cooperative::campi_raggruppamento(TToken_string& campi) const
void TFatturazione_cooperative::add_rows(TRiga_documento & rout, TRiga_documento & rin) void TFatturazione_cooperative::add_rows(TRiga_documento & rout, TRiga_documento & rin)
{ {
if (rin.get(RDOC_CODAGG1).full()) real valore = rout.get_real(RDOC_PREZZO);
{
real valore = rout.get_real(RDOC_PREZZO);
valore += rin.get_real(RDOC_PREZZO); valore += rin.doc().imponibile();
rout.put(RDOC_PREZZO, valore); rout.put(RDOC_PREZZO, valore);
}
else
TFatturazione_bolle::add_rows(rout, rin);
} }
bool TFatturazione_cooperative::doc_raggruppabile(const TDocumento & doc_in, const TDocumento & doc_out, TToken_string & campi) const
{
if (doc_in.physical_rows() > 0 && doc_out.physical_rows() > 0)
{
const TRiga_documento & rout = doc_out[1];
const TRiga_documento & rin = doc_in[1];
const TString art_in = rin.get(RDOC_CODART);
const TString art_out = rout.get(RDOC_CODART);
bool raggruppa = art_in == art_out;
if (raggruppa)
{
const TString iva_in = rin.get(RDOC_CODIVA);
const TString iva_out = rout.get(RDOC_CODIVA);
raggruppa = iva_in == iva_out;
}
return raggruppa;
}
return false;
}
void TFatturazione_cooperative::create_row(TDocumento& doc_out, const TRiga_documento & rin)
{
if (rin.get_int(RDOC_NRIGA) == 1)
{
TFatturazione_bolle::create_row(doc_out, rin);
TRiga_documento & rout = doc_out[1];
const real valore = rin.doc().imponibile();
rout.put(RDOC_QTA, 1);
rout.put(RDOC_PREZZO, valore);
rout.zero(RDOC_SCONTO);
}
}
const TString & TFatturazione_cooperative::get_tipo_out(const TDocumento & doc_out)
{
const TString & art = doc_out[1].get(RDOC_CODARTMAG);
const TString & tipodoc = cache().get(LF_ANAMAG, art, ANAMAG_USER2);
if (tipodoc.full() && !cache().get("%TIP", tipodoc).empty())
return tipodoc;
else
return get("S8");
};
class TFatturazione_cooperative_app : public TFatturazione_bolle_app class TFatturazione_cooperative_app : public TFatturazione_bolle_app
{ {
protected: protected:
virtual TElaborazione * elab(const TString & cod) { return new TFatturazione_bolle(cod);} virtual TFatturazione_bolle * elab(const TString & cod) const { return new TFatturazione_cooperative(cod);}
}; };
int co1400(int argc, char *argv[]) int co1400(int argc, char *argv[])

2
co/comenu.men
View File

@ -5,7 +5,7 @@ Module = 29
Flags = "" Flags = ""
Item_01 = "Configurazione modulo", "co0 -2", "F" Item_01 = "Configurazione modulo", "co0 -2", "F"
Item_02 = "Archivi e tabelle", [COMENU_011] Item_02 = "Archivi e tabelle", [COMENU_011]
Item_03 = "Stampa archivi e tabelle", [COMENU_11] Item_03 = "Stampa archivi e tabelle", [COMENU_012]
Item_04 = "Conferimenti e prestazioni", [COMENU_013] Item_04 = "Conferimenti e prestazioni", [COMENU_013]
Item_05 = "Stampe", [COMENU_014] Item_05 = "Stampe", [COMENU_014]

6
co/costcmp.uml
View File

@ -19,13 +19,13 @@ END
STRING F_INIZIO2 50 STRING F_INIZIO2 50
BEGIN BEGIN
PROMPT 3 2 "Descrizione " PROMPT 9 1 "Descrizione "
FLAGS "D" FLAGS "D"
END END
NUMBER F_FINE1 4 NUMBER F_FINE1 4
BEGIN BEGIN
PROMPT 5 1 "A Codice compagnia " PROMPT 3 2 "A Codice compagnia "
FIELD CODTAB FIELD CODTAB
KEY 1 KEY 1
USE %CMP USE %CMP
@ -40,7 +40,7 @@ END
STRING F_FINE2 50 STRING F_FINE2 50
BEGIN BEGIN
PROMPT 5 2 "Descrizione " PROMPT 9 2 "Descrizione "
FLAGS "D" FLAGS "D"
END END

8
co/costcoa.uml
View File

@ -4,7 +4,7 @@ PAGE "Stampa Correlazione articolo" -1 -1 78 19
NUMBER F_INIZIO1 6 NUMBER F_INIZIO1 6
BEGIN BEGIN
PROMPT 2 2 "Mercato " PROMPT 2 2 "Da Mercato "
KEY 1 KEY 1
FIELD CODTAB[1,6] FIELD CODTAB[1,6]
USE LF_MERCATICOOP USE LF_MERCATICOOP
@ -20,13 +20,13 @@ END
STRING F_INIZIO2 50 STRING F_INIZIO2 50
BEGIN BEGIN
PROMPT 2 9 "" PROMPT 22 2 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_FINE1 6 NUMBER F_FINE1 6
BEGIN BEGIN
PROMPT 4 2 "Mercato " PROMPT 2 4 "A Mercato "
KEY 1 KEY 1
FIELD CODTAB[1,6] FIELD CODTAB[1,6]
USE LF_MERCATICOOP USE LF_MERCATICOOP
@ -42,7 +42,7 @@ END
STRING F_FINE2 50 STRING F_FINE2 50
BEGIN BEGIN
PROMPT 4 9 "" PROMPT 22 4 ""
FLAGS "D" FLAGS "D"
END END

8
co/cotbcoa.uml
View File

@ -26,7 +26,7 @@ END
STRING F_DESMER 50 STRING F_DESMER 50
BEGIN BEGIN
PROMPT 35 2 "" PROMPT 14 2 ""
FLAGS "D" FLAGS "D"
END END
@ -51,7 +51,7 @@ END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 14 3 "Descrizione "
KEY 2 KEY 2
FIELD S0 FIELD S0
USE %COA KEY 2 USE %COA KEY 2
@ -66,7 +66,7 @@ END
STRING F_CODART 20 STRING F_CODART 20
BEGIN BEGIN
PROMPT 2 6 "Articolo " PROMPT 2 4 "Articolo "
FLAG "U" FLAG "U"
FIELD S1 FIELD S1
USE LF_ANAMAG USE LF_ANAMAG
@ -80,7 +80,7 @@ END
STRING F_DESART 50 STRING F_DESART 50
BEGIN BEGIN
PROMPT 35 6 "" PROMPT 24 4 ""
USE LF_ANAMAG KEY 2 USE LF_ANAMAG KEY 2
INPUT DESCR F_DESART INPUT DESCR F_DESART
DISPLAY "Codice@20" CODART DISPLAY "Codice@20" CODART