[Stacomir-commits] r303 - pkg/stacomir/R

[noreply at r-forge.r-project.org]

Author: briand
Date: 2017-03-16 10:00:49 +0100 (Thu, 16 Mar 2017)
New Revision: 303

Modified:
   pkg/stacomir/R/BilanMigrationMult.r
Log:
correcting a problem of timezone in the BilanMigrationMult

Modified: pkg/stacomir/R/BilanMigrationMult.r
===================================================================
--- pkg/stacomir/R/BilanMigrationMult.r	2017-03-13 16:52:21 UTC (rev 302)
+++ pkg/stacomir/R/BilanMigrationMult.r	2017-03-16 09:00:49 UTC (rev 303)
@@ -267,6 +267,7 @@
 #' @export
 setMethod("connect",signature=signature("BilanMigrationMult"),definition=function(object,silent=FALSE){ 
 			# recuperation du BilanMigration
+			#bilanMigrationMult<-bmM
 			bilanMigrationMult<-object
 			# retrieve the argument of the function and passes it to bilanMigrationMult
 			# easier to debug
@@ -274,8 +275,9 @@
 			req at baseODBC<-get("baseODBC", envir=envir_stacomi)			
 			req at colonnedebut<-"ope_date_debut"
 			req at colonnefin<-"ope_date_fin"
-			req at datedebut=as.Date(bilanMigrationMult at pasDeTemps@dateDebut)
-			req at datefin=as.Date(DateFin(bilanMigrationMult at pasDeTemps))
+			# we round the date to be consistent with daily values from the 
+			req at datedebut=as.POSIXlt(as.Date(bilanMigrationMult at pasDeTemps@dateDebut,tz=Sys.timezone()))
+			req at datefin=as.POSIXlt(as.Date(DateFin(bilanMigrationMult at pasDeTemps),tz=Sys.timezone()))
 			dc = vector_to_listsql(bilanMigrationMult at dc@dc_selectionne)
 			tax=vector_to_listsql(bilanMigrationMult at taxons@data$tax_code)
 			std=vector_to_listsql(bilanMigrationMult at stades@data$std_code)