zxz 21.02.2011 17:50
Predmet:Re: XML po zadanoj shemi

Prvo da te pitam jel mislis na Msgbox napomenu kada se zavrsi neki dio xml-a.
Ako sam u pravu onda si pribiljezio tamo u vordu da ti to treba poslije dio2 ili pak mislis na svaki upis u dio2 dijela jer ovaj dio2 se ponavlja vise puta.

Zuko 21.02.2011 20:58
Predmet:Re: XML po zadanoj shemi

zasvaki dio treba u djelu dio2 treba da pise
</PodaciOPrihodimaDoprinosimaIPorezu>
pa iza ovog
<Ukupno>
pa bla,bla
</ukupno>
</Dio2PodaciOPrihodimaDoprinosimaIPorezu>
i ja sam mislio da sam rješio to if naredbom ako je eof
da upiše ove gore podatke ali iz nekog razloga njemu nijekraj i ne napiše ovo završetke, ali uredno otvori novog radnika

Zuko 21.02.2011 21:31
Predmet:Re: XML po zadanoj shemi

Rješio sam "pješke" ali radi

Zuko 23.02.2011 17:18
Predmet:Re: XML po zadanoj shemi

Nije ova tema ali je vezana za ovi.
Kako da omogućim korisnicima da iz "programa" naprave zapis za poreznu upravu a da ne zovu mene, jer sam evo iz nekog puta uspio finalizirati taj godiÅ¡nji fail obrazac-1022? PoÅ¡to poreska uprava traži da taj file bude zipovan (po određenim kriterijima), mada nisam siguran kako to uraditi i da nemora biti zipovan, predpostavljam da bih trebao pozvati neku dos komandu iz accessa, vjerovatno Copy file-a koji sam napravio na istoj lokaciji gdje je i program (koristo sam zxz ovu funkciju putanje i uzeo da je to ista lokacija kao i "programska".

Unaprijed svima puno hvala,

zxz 23.02.2011 17:27
Predmet:Re: XML po zadanoj shemi

Ako ti treba zip file iz koda mogu ti dati primjer. Ostalo te bas nisam nesto ni razumio.

Zuko 24.02.2011 12:26
Predmet:Re: XML po zadanoj shemi

E to mi baš treba, pošto PU traži da to bude ZIP-ovano na CD-u

zxz 24.02.2011 12:45
Predmet:Re: XML po zadanoj shemi

Evo ti ova procedura.
Ona usporava shell odnosno kontrolise kada se zavrsi i provjerava jeli odradjeno pa tek onda dozvoljava dalji tok koda.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  4. Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
  5. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  6.  
  7. Private Const SYNCHRONIZE = &H100000
  8. Private Const INFINITE = -1&
  9.  
  10. ' Usporava shel
  11. ' to finish, hiding while we wait.
  12. Private Sub UsporiShell(ByVal program_name As String, ByVal window_style As Integer)
  13. Dim process_id As Long
  14. Dim process_handle As Long
  15.     ' Start the program.
  16.    On Error GoTo ShellError
  17.     process_id = Shell(program_name, window_style)
  18.     On Error GoTo 0
  19.  
  20.     ' Wait for the program to finish.
  21.    ' Get the process handle.
  22.    process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
  23.     If process_handle <> 0 Then
  24.         WaitForSingleObject process_handle, INFINITE
  25.         CloseHandle process_handle
  26.     End If
  27.  
  28.     Exit Sub
  29.  
  30. ShellError:
  31.     MsgBox "Error starting task " & _
  32.          program_name & vbCrLf & _
  33.         Err.Description, vbOKOnly Or vbExclamation, _
  34.         "Error"
  35. End Sub

Procedura se poziva:
UsporiShell putanjafajla & "\pkzip " & PutZipa & "\" & ImeFajla & ".zip " & PutZapisa, vbHide

U prilogu zip fajl.
Prilozi:
pkzip_dos.zip (Velicina datoteke:69.33 KB)

Zuko 24.02.2011 16:07
Predmet:Re: XML po zadanoj shemi

Jeli pozivam proceduru na neki klik..., a ostalo moram probati kad sve unesen u bazu.
pa ću se javiti dali mi radi ili ne!

Hvala puno!

Zuko 24.02.2011 16:56
Predmet:Re: XML po zadanoj shemi

moraju li ovi zip. exe fieovi biti na istom direktriumu kao i program, jer ja imam na program fileu na nekom dir. postavljene i zip i unzip, neznam tačno kako se zove dir. ali se nalaze tamo(klod kuće...)

zxz 24.02.2011 18:00
Predmet:Re: XML po zadanoj shemi

Gledaj nije ti dobro da stavljas na neku fiksnu putanju ako ces to instalisati negdje.
Onda imas dvije mogucnodti a to su:
Da cuvas putanju u tabeli nekoj pa da ucitavas, ili da mijenjas u kodu kada postavis ili pak da moras i na to racunaru napraviti istu putanju.

Ja licno to radim u dir programa ili iza njega.
Naprimjer ako instalises program na d:\mojprogram\xml
Naredbom db.name naci ces ovu putanju.
E sad ako neces ovdje staviti otvoris novi forlder na putanji:
d:\mojprogram\xml\zip
sada mozes kodom iscitati putanju gdje god bilo instalisano
putanja=putanjaprograma & \zip
Ako sad instalise neko program na putanji:
c:\xml
Ti nista u kodu nemoras mijenjati a i nisi tu da mijenjas
putanja=putanja programa &\zip