... := DATE()-365 , ; nAdded := 0 , ; nTotrec := 0 , ; nError := 0 , ; oExcel, oSheet , ; nX1 := 0 , ; nX2 := 0 , ; nMax := 65000 , ; lCont := .F. , ; lShow := .T. , ; nUpdated := 0 , ; lSource := .F. , ; cSource := "language.xlsx" , ; cDrive := DISKNAME() + ":\" + CURDIR( DISKNAME() ...