Preluare date firme de pe net

[cvmircea]

Partea pentru preluarea j-ului trebuie mutata dupa citirea adresei. Asta ar trebui sa functioneze;

Cod: Selectaţi tot

 strSource = Mid(strSource, InStr(1, strSource, _
   "cif") + 50)
        
        strCif = Left(strSource, InStr(1, strSource, "<") - 1)
        
        strSource = Mid(strSource, InStr(1, strSource, _
   "city") + 51)
        strCity = Left(strSource, InStr(1, strSource, "<") - 1)


  strSource = Mid(strSource, InStr(1, strSource, _
   "address") + 54)
        strAddress = Left(strSource, InStr(1, strSource, "<") - 1)
        
         strSource = Mid(strSource, InStr(1, strSource, _
   "registration") + 62)
        registration_id = Left(strSource, InStr(1, strSource, "<") - 1)

  
  strSource = Mid(strSource, InStr(1, strSource, _
   "name") + 51)
        strCompany = Left(strSource, InStr(1, strSource, "<") - 1)

  strSource = Mid(strSource, InStr(1, strSource, _
   "state") + 52)
        strState = Left(strSource, InStr(1, strSource, "<") - 1)

[mesersmith]

Da, asta e. Super.

Mai e o smecherie cu ie-ul.
Chiar daca nu se deschide, procesul ramane.
Ca sa testezi, verifica un cod de 10 ori si apoi deschide task managerul si o sa vezi ca sunt toate instantele acolo.

Cred ca partea de final nu prea-si face treaba.
Set ie = Nothing


Eu am inclus in cod sa citeasca cif-ul dintr-o casuta. Presupun ca tot asa ai facut si tu, nu?

[cvmircea]

Da introduc cif-ul intr-un textbox apoi preiau datele si le pun in textbox-uri in formularul pt crearea facturii la beneficiar.

[mesersmith]

Ok.
O sa fac un exemplu functional si o sa-l urc aici.

[cvmircea]

Am pus aici un clip cu emiterea facturii dintr-o aplicatie. In formularul de creare a facturii datele se preiau din comanda dar daca trebuie facuta factura pe firma este un buton " Cauta firma" in partea din dreapta sus care face vizibil un cimp in care introduc cif-ul preiau datele de pe net si le pun in cimpurile corespunzatoare la beneficiar.

[cvmircea]

Trebuie sa specific : codul pentru preluarea datelor despre care am discutat aici este scris de Alexandru.

[mesersmith]

Vad ca e fontul destul de mic in aplicatiile tale. Si eu ma straduiesc sa le fac cat mai mici, pe motiv de rezolutii diferite pe calculatoare diferite.
Ai gasit ceva referitor la faptul ca daca pui o baza pe un pc cu rezolutia mai mica, se mareste ca naiba?

[cvmircea]

Inregistrarea este facuta pe un laptop si de aceea este asa mic. Si la formularul pentru crearea facturii trebuie sa folosesc sroll pentru a putea trece data expeditiei si data scadentei , dar cind o folosesc pe desktop nu am problema asta, se vede ok. Mai am probleme ca lucrez pe laptop iar cind pun aplicatia pe alte calculatoare am probleme cu rezolutia.

[mesersmith]

Da, e cunoscuta problema asta, cum ca porcaria asta de access nu stie sa scaleze rezolutia.
Am inteles ca exista o alifie si pentru asta, un nu stiu ce soft care se instaleaza peste.
Problema este ca citeam pe un forum cum ca nu merge atunci cand folosesti aplicatia pe pc-uri unde ai doar runtime.


Am injghebat la repezeaza un mic exemplu functional pentru tema noastra.
O sa mai fac eu un cod sa ia si telefonul, desi il ia degeaba, de cele mai multe ori sunt telefoane vechi, inexistente.

[cvmircea]

Merge brici, ar fi fain daca l-am putea pune intr-un modul .Daca o sa il folosesti in aplicatiile tale ar fi bine sa verifici inainte de rulare daca ai conexiune la internet.