Witam Forumowiczów,
Mam problem użyciem Metody WczytajKonto i Istnieje w Sferze w REWIZOR – z excel zaczytuje nr konta do zmiennej i w przypadku użycia
[...początkowy kod VBA...]
DKonto = Worksheets("Arkusz1").Range("A1")
Set oKonto = oRewGT.PKManager.DodajKonto(DKonto)
oKonto.Nazwa = DNazwa
oKonto.Opis = DOpis
oKonto.Nazwa2 = DNazwa2
oKonto.Nazwa3 = DNazwa3
oKonto.Zapisz
wszystko działa poprawnie i konto zostaje dodane do planu kont, natomiast gdy użyje metody WczytajKonto lub Istnieje to już wyskakuje komunikat, że zmienna DKonto jest pusta
oRewGT.PKManager.Istnieje (DKonto)
Set oKonto = oRewGT.PKManager.WczytajKonto (DKonto)
Oczywiście zmienna jest ustawiona jako String. Jeżeli przykładowo zamiast zmiennej wpisze „401” to metoda WczytajKonto i Istnieje działa poprawnie.
Macie jakiś pomysł co może być nie tak?
Edit:
Problem rozwiązałem. Może komuś się przyda.
przy wywpłaniu kodu odpowiedzialnego za sprawdzenie konta czy istnieje lub wczytania konta należy użyć w zmiennej zapisu :
oRewGT.PKManager.Istnieje (Cstr(Trim(DKonto))) lub oRewGT.PKManager.WczytajKonto (Cstr(Trim(DKonto)))
dodatkowa konwersja na zmiennej na string oraz usunięcie pustych znaków na początku i na końcu zmiennej załatwia sprawę.