Patch level : 12.0 954

Files correlati     : fp0.exe
Commento            :
- Modificata esportazione dati CONAI se non hai le personalizzazioni attive, in modo da poter personalizzare anche il CONAI.
- Aggiunti dati precompilati per altri dati gestionali per CONAI.
This commit is contained in:
Simone Palacino 2020-02-24 13:16:31 +01:00
parent 98fcb9e68a
commit 1c0a48c9ca

View File

@ -97,22 +97,46 @@ public:
void TFpcust::init_insert_mode(TMask& m)
{
// Presetto delle righe di default
// Presetto delle righe di default
// Causale
TToken_string& row_causale = m.sfield(F_CAUSALI).row(-1);
row_causale.add("READ(%TIP, S0)");
// Causale
TToken_string& row_causale = m.sfield(F_CAUSALI).row(-1);
row_causale.add("READ(%TIP, S0)");
// Articoli
TToken_string& row_articolo_interno = m.sfield(F_ARTICOLI).row(-1);
row_articolo_interno.add("Codice articolo interno");
row_articolo_interno.add("READ(34, CODARTMAG)");
row_articolo_interno.add("READ(34, CODARTMAG) != \"\" && READ(34, CODART) != \"\"");
// Articoli
TToken_string& row_articolo_interno = m.sfield(F_ARTICOLI).row(-1);
row_articolo_interno.add("Codice articolo interno");
row_articolo_interno.add("READ(34, CODARTMAG)");
row_articolo_interno.add("READ(34, CODARTMAG) != \"\" && READ(34, CODART) != \"\"");
TToken_string& row_articolo = m.sfield(F_ARTICOLI).row(-1);
row_articolo.add("Codice articolo cliente");
row_articolo.add("READ(34, CODART)");
row_articolo.add("READ(34, CODARTMAG) != READ(34, CODART) && READ(34, CODART) != \"\"");
TToken_string& row_articolo = m.sfield(F_ARTICOLI).row(-1);
row_articolo.add("Codice articolo cliente");
row_articolo.add("READ(34, CODART)");
row_articolo.add("READ(34, CODARTMAG) != READ(34, CODART) && READ(34, CODART) != \"\"");
// Altri dati gestionali
// CONAI
TRelation rel(LF_TABMOD);
TRectype rec(LF_TABMOD);
rec.put("MOD", "VE");
rec.put("COD", "CSC");
TCursor conais(&rel, "", 1, &rec, &rec);
for (conais = 0; conais.pos() < conais.items(); ++conais)
{
TRectype& row = conais.curr();
TToken_string& row_conai = m.sfield(F_ADG).row(-1);
const TString& csc = row.get("CODTAB");
TString cat(conai_material(conai_str2class(csc)));
cat.upper();
row_conai.add("CONAI"); // TIPODATO
row_conai.add(TString("\"Contributo CONAI ") << cat << " (KG)\""); // RTESTO
row_conai.add("READ(RDOC,PCON(1))"); // RNUMERO
row_conai.add(""); // RDATA
row_conai.add(""); // TIPORIGA
row_conai.add(TString("READ(RDOC,CCON(1)) == \"") << csc << "\""); // COND
row_conai.add(""); // SPLIT
}
}
int TFpcust::read(TMask& m)