For i = 1 To rs.RecordCount ' excel
If DCount("[kod_upr]", "[NCI_UPR_1214]", "[NCI_UPR_1214].[kod_upr]='" & rs.Fields(6) & "'") > 0
And DCount("[nStrEd]", "[NCI_StrEd_18]", "[NCI_StrEd_18].[nStrEd]=" & rs.Fields(3)) > 0 Then
rs2.AddNew
rs2.Fields("kod_kurator") = rs.Fields(" ") '0
rs2.Fields("kod_manager") = rs.Fields(" ") '1
rs2.Fields("type_activ") = rs.Fields(" ///") '2
rs2.Fields("kod_18") = rs.Fields(" (18 )") '3
rs2.Fields("NumDogKurator") = rs.Fields(" ") '4
rs2.Fields("kod_25") = rs.Fields(" (25 )") '5
rs2.Fields("nameUslugi") = rs.Fields(" ") '6
rs2.Fields("kod_upr") = rs.Fields(" ") '7
rs2.Fields("kod_12") = rs.Fields(" (12 )") '8
rs2.Fields("kod_52") = rs.Fields(" (52 )") '9
rs2.Fields("kod_33") = rs.Fields(" (33 )") '10
rs2.Fields("kod_39") = rs.Fields(" (39 )") '11
rs2.Fields("kod_47") = rs.Fields(" (47 )") '12
rs2.Fields("kod_13") = rs.Fields(" ( -,13 )") '13
rs2.Fields("kod_103") = rs.Fields(" (103 )") '14
rs2.Fields("kod_24") = rs.Fields(" (24 )") '15
rs2.Fields("kod_AFE") = rs.Fields(" AFE ( )") '16
rs2.Fields("recoverable") = rs.Fields(" ( )") '17
rs2.Fields("kod_Cdelka") = rs.Fields(" ( )") '18
rs2.Fields("kod_StatBud") = rs.Fields(" ( )") '19
rs2.Fields("numberLot") = rs.Fields(" ") '20
rs2.Fields("ZKprotocol") = rs.Fields(" ") '21
rs2.Fields("kod_edizm") = rs.Fields(" ") '22
rs2.Fields("kod_urovuslug") = rs.Fields(" (//)") '23
rs2.Fields("cost") = rs.Fields(" ( , )") '24
rs2.Fields("valuta") = rs.Fields(" ") '25
rs2.Fields("procNDS") = rs.Fields(" ") '26
rs2.Fields("coefficient") = rs.Fields(" ") '27
rs2.Fields("volume01") = rs.Fields(" (1)") '28
rs2.Fields("sum01") = rs.Fields(" , , (1)") '29
rs2.Fields("volume02") = rs.Fields(" (2)") '30
rs2.Fields("sum02") = rs.Fields(" , , (2)") '31
rs2.Fields("volume03") = rs.Fields(" (3)") '32
rs2.Fields("sum03") = rs.Fields(" , , (3)") '33
rs2.Fields("volume04") = rs.Fields(" (4)") '34
rs2.Fields("sum04") = rs.Fields(" , , (4)") '35
rs2.Fields("volume05") = rs.Fields(" (5)") '36
rs2.Fields("sum05") = rs.Fields(" , , (5)") '37
rs2.Fields("volume06") = rs.Fields(" (6)") '38
rs2.Fields("sum06") = rs.Fields(" , , (6)") '39
rs2.Fields("volume07") = rs.Fields(" (7)") '40
rs2.Fields("sum07") = rs.Fields(" , , (7)") '41
rs2.Fields("volume08") = rs.Fields(" (8)") '42
rs2.Fields("sum08") = rs.Fields(" , , (8)") '43
rs2.Fields("volume09") = rs.Fields(" (9)") '44
rs2.Fields("sum09") = rs.Fields(" , , (9)") '45
rs2.Fields("volume10") = rs.Fields(" (10)") '46
rs2.Fields("sum10") = rs.Fields(" , , (10)") '47
rs2.Fields("volume11") = rs.Fields(" (11)") '48
rs2.Fields("sum11") = rs.Fields(" , , (11)") '49
rs2.Fields("volume12") = rs.Fields(" (12)") '50
rs2.Fields("sum12") = rs.Fields(" , , (12)") '51
rs2.Fields("totalVolume") = rs.Fields(" ") '52
rs2.Fields("totalSum") = rs.Fields(", , ") '53
rs2.Update
End If
If i < rs.RecordCount Then rs.MoveNext ' eXcel
Next i
End If
|
