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:
		
							parent
							
								
									98fcb9e68a
								
							
						
					
					
						commit
						1c0a48c9ca
					
				| @ -113,6 +113,30 @@ void TFpcust::init_insert_mode(TMask& m) | |||||||
|   row_articolo.add("Codice articolo cliente"); |   row_articolo.add("Codice articolo cliente"); | ||||||
|   row_articolo.add("READ(34, CODART)"); |   row_articolo.add("READ(34, CODART)"); | ||||||
|   row_articolo.add("READ(34, CODARTMAG) != READ(34, CODART) && 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) | int TFpcust::read(TMask& m) | ||||||
|  | |||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user