Predmet:Re: Petlja Fiskalni problemi
Dobro si ovo rijesio i radit ce. Medjutim po meni moglo bi biti malo preglednije bar sto se tice ovog unosa.
Imas:
Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!BrArt & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & rs2!NazArt & """" & " " & "PRC" & "=" & """" & rs2!PRCFiskal & """" & " " & "AMN" & "=" & """" & rs2!AMNFiskal & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "/>" & vbCrLf
sad ovo:
& """" & rs2!BrArt & """"
Mozda je elgantnije sa:
Dim Z as string
Z=Chr(34)
e sad bi bilo
& z & rs2!BrArt & z
I ostale vrijednosti iz rs bi bolje bilo prepisati u memorijske pa onda u izlaz.
Mogao bi jedan Type.
Type Unos
DS_VALUEFiskal As String
AMNFiskal As String
PRCFiskal As String
NazArt As String
MES As String
ArtGPorez As String
brArt As String
End Type
Ovo direkt u modulč a u ovoj procedurio onda ide
Dim K as Unos
I onda se ipisuje:
k.BrArt=rs2!BrArt
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.