Patch level : 4.0

Files correlati     : crpa0.exe
Ricompilazione Demo : [ ]
Commento            :
Sostituito uso erroneo di CODCCOSTO col corretto CODCONTO


git-svn-id: svn://10.65.10.50/trunk@14242 c028cbd2-c16b-5b4b-a496-9718f37d4682

crpa/crpa.ini

@@ -1,11 +1,95 @@
 [Oracle]
-Username=pmc
+Username=pmc40
-Password=pmc
+Password=pmc40
 Connect=zen1
-Run=
+Run=OK
+
+[23]
+TABLE=SMC_PRJDOC_T146
+UNICO=
+ARCH=!_FIRM,_MOV
+UNICARCH=!_UNICMOV
+DTATRASF=!_DATAORA
+TIPDOC=:PN
+DESDOC=!_DESMOV
+NUMDOC=
+DTADOC=!_D,DATAREG
+NUMDOCFIS=NUMDOC
+DTADOCFIS=!_D,DATADOC
+DTAPERT=!_D,DATACOMP
+AZIENDA=!_FIRM
+TIPANA=TIPOCF
+CODCF=CODCF
+CODVAL=!_CODVAL
+
+[24]
+TABLE=SMC_PRJDET_T147
+UNICO=
+ARCH=!_FIRM,_MOV
+UNICARCH=!_UNICMOV
+UNICRIGA=NUMRIG
+CODART=!_CODART
+DESART=!_DESRMOV
+QUANT=1
+UNMIS=
+CONSAL=
+IMPVAL=!_IMPORTORMOV
+NUMCOMM=CODCMS
+CODATTCM=
+ELSPESA=!_ELSPESAMOV
+CENTCOST=FASCMS
+DTACONS=
+RIFRICH=
+RIFORD=
+RIFBOL=
+CODVAL=!_CODVAL
+STATO_IMP=
+SEGNO=!_SEZIONERMOV
+
+[33]
+TABLE=SMC_PRJDOC_T146
+UNICO=
+ARCH=!_FIRM,_DOC
+UNICARCH=!_UNICDOC
+DTATRASF=!_DATAORA
+TIPDOC=!_TIPODOC
+DESDOC=!_DESDOC
+NUMDOC=NDOC
+DTADOC=!_D,DATADOC
+NUMDOCFIS=NUMDOCRIF
+DTADOCFIS=!_D,DATADOCRIF
+DTAPERT=!_D,DATADOC
+AZIENDA=!_FIRM
+TIPANA=TIPOCF
+CODCF=CODCF
+CODVAL=!_CODVAL
+
+[34]
+TABLE=SMC_PRJDET_T147
+UNICO=
+ARCH=!_FIRM,_DOC
+UNICARCH=!_UNICDOC
+UNICRIGA=#RDOC,NRIGA
+CODART=CODART
+QUANT=QTA
+DESART=!_T,70,DESCR
+UNMIS=UMQTA
+CONSAL=
+IMPVAL=#!_,IMPORTO
+NUMCOMM=#!_,COMMESSA
+CODATTCM=
+ELSPESA=!_ELSPESADOC
+CENTCOST=#!_,FASE
+DTACONS=#!_,DATACONS
+RIFRICH=
+RIFORD=!_RIFORD
+RIFBOL=!_RIFBOL
+CODVAL=!_CODVAL
+STATO_IMP=
+SEGNO=
 
 [107]
-TABLE=AGA_PRJDOC_T146_P
+TABLE=SMC_PRJDOC_T146
 UNICO=
 ARCH=!_FIRM,_MOV
 UNICARCH=!_UNICMOV
@@ -23,7 +107,7 @@ CODCF=23->CODCF
 CODVAL=!_CODVAL
 
 [108]
-TABLE=AGA_PRJDET_T147_P
+TABLE=SMC_PRJDET_T147
 UNICO=
 ARCH=!_FIRM,_MOV
 UNICARCH=!_UNICMOV
@@ -46,48 +130,6 @@ CODVAL=!_CODVAL
 STATO_IMP=
 SEGNO=SEZIONE
 
-[33]
-TABLE=AGA_PRJDOC_T146_P
-UNICO=
-ARCH=!_FIRM,_DOC
-UNICARCH=!_UNICDOC
-DTATRASF=!_DATAORA
-TIPDOC=!_TIPODOC
-DESDOC=!_DESDOC
-NUMDOC=NDOC
-DTADOC=!_D,DATADOC
-NUMDOCFIS=NUMDOCRIF
-DTADOCFIS=!_D,DATADOCRIF
-DTAPERT=!_D,DATADOC
-AZIENDA=!_FIRM
-TIPANA=TIPOCF
-CODCF=CODCF
-CODVAL=!_CODVAL
-
-[34]
-TABLE=AGA_PRJDET_T147_P
-UNICO=
-ARCH=!_FIRM,_DOC
-UNICARCH=!_UNICDOC
-UNICRIGA=#RDOC,NRIGA
-CODART=CODART
-QUANT=#!_,QTA
-DESART=!_T,70,DESCR
-UNMIS=UMQTA
-CONSAL=
-IMPVAL=#!_,IMPORTO
-NUMCOMM=#!_,COMMESSA
-CODATTCM=
-ELSPESA=!_ELSPESADOC
-CENTCOST=#!_,FASE
-DTACONS=#!_,DATACONS
-RIFRICH=
-RIFORD=!_RIFORD
-RIFBOL=!_RIFBOL
-CODVAL=!_CODVAL
-STATO_IMP=
-SEGNO=
-
 [Tipo documento]
 O=I**
 B=IM*
@@ -95,23 +137,27 @@ BO=*M*
 FB=**F
 FO=*MF
 F=IMF
+FR=*M*
+FF=**F
 
 [Codice valuta]
 EUR=EU
 
 [Descrizioni]
-F01=Percentuale,QTAGG1|Giorni,QTAGG2
+ORFI=Cliente o Fornitore: ,TIPOCF|Codice: ,CODCF
+SEPARATORE=-
 
 [Ditte]
 1=S
 2=S
+3=N
 
 [Cespiti]
-CodNum=CES
+CodNum=AMM
 
 [Gruppi]
 4=X
 5=X
-6=X
 7=X
 8=X
+

crpa/crpa0.cpp

@@ -554,17 +554,17 @@ void TIni2Sql::validate(const TString& elabfield, TString& str)
   	TToken_string key;
   	if (code == "_ELSPESAMOV") // per righe movimenti
   	{
-			key = _inputfile->get("CODCCOSTO", "108");
+			key = _inputfile->get("CODCONTO", "108");
-	  	//key = _inputfile->get("GRUPPO");
+      key.insert("|", 6);
-	  	//key.add(_inputfile->get("CONTO"));
+      key.insert("|", 3);
-	  	//key.add(_inputfile->get("SOTTOCONTO"));
   	}
   	else											// per righe documenti
   		key.format("%d|%d|%ld", _conto.gruppo(), _conto.conto(), _conto.sottoconto());
 	  if (!key.empty_items())
 	  {
 	    key = cache().get(LF_PCON, key, "CODCBL");
-  	  str = cache().get(LF_ABPCON, key, "DESCRIZ").left(6);
+  	  str = cache().get(LF_ABPCON, key, "DESCRIZ");
+      str.cut(6);
   	  str.upper();
   	}
   	else
@@ -581,8 +581,10 @@ void TIni2Sql::validate(const TString& elabfield, TString& str)
   	str.format("%s (%s)", (const char*) tmpstr, (const char*) _inputfile->get("PROTIVA"));
   }	
   else if (code == "_CODART") // campo CODART per movimenti
-		str = _inputfile->get("CODCCOSTO", "108");
+  {
-  	//str.format("%s-%s-%s", (const char*) _inputfile->get("GRUPPO"), (const char*) _inputfile->get("CONTO"), (const char*) _inputfile->get("SOTTOCONTO"));
+		str = _inputfile->get("CODCONTO", "108");
+  	str.format("%d-%d-%ld", atoi(str.left(3)), atoi(str.mid(3,3)), atol(str.right(6)));
+  }
   else if (code == "_IMPORTORMOV") // campo importo per righe movimenti
   {                             
 		real importo(_inputfile->get("IMPORTO"));
@@ -866,7 +868,7 @@ void TIni2Sql::write_sqlinsert()
 		bool almenounariga = false;                              
 		TString insert, colonne, valori;
 		_firm = _inputfile->get_int("Firm", "Transaction");
-		TString16 firm = "";
+		TString16 firm;
 		firm.format("%ld", _firm);
 		if (_configfile->get((const char*)firm, "Ditte")[0] == 'S')
 		{
@@ -908,12 +910,19 @@ void TIni2Sql::write_sqlinsert()
 						ok = _configfile->get_bool(gruppo, "Gruppi");
 					}
 					if (strpar == "108")
-					{               
+					{ 
+            /* Come NON si deve fare: leggere e poi cancellare
 						TString gruppo(_inputfile->get("CODCONTO"));
 						const int codgruppo = atoi(gruppo.left(3));
-
 						gruppo.format("%ld", codgruppo);
-						ok = _configfile->get_bool(gruppo, "Gruppi");
+            ok = _configfile->get_bool(gruppo, "Gruppi");
+            */
+
+            // E' meglio lavorare localmente senza TString nello heap o temporanee (left).
+            // In questo modo non ho nessuna TString, left(), atoi, format!
+            TString16 gruppo = _inputfile->get("CODCONTO");
+            gruppo.cut(3); gruppo.ltrim('0');
+            ok = _configfile->get_bool(gruppo, "Gruppi");
 					}
 					// vecchia condizione: se riga documento deve avere codice iva oppure essere tipo riga spesa e avere gruppo 4 o 5 (andare su anamag con codart o )
 					// se riga documento preocedo come la contabilizzazione per cercare il gruppo-conto-sottoconto, che deve essere presente in crpa.ini