gambler
Dołączył: 15 Sty 2021
Posty: 4
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Radom
|
 Wysłany: Wto 20:19, 09 Lis 2021 Temat postu: Dodanie nowego kontrahenta z poziomu funkcji prywatnych |
|
|
Witam,
nie do konca wiem jak "zapisac" bufor kontrahenta. Funkcja jest wywoływana via funkcje prywatne.
plik list.csv zawiera liste nazwy plikow z danymi kontrahentow - 1 plik = 1 kontrahent.
Celowo w skrypcie pomijam pobranie/wygenerowanie nowego numeru KTR
Funkcja ma postac:
| Kod: |
lcDir = 'C:\Folder_wymiany';
llOK = .T.
CHDIR (lcDir)
lcDocumentsFile = lcDir + "\list.csv"
create cursor pliki (plik c(20))
append from FULLPATH(lcDocumentsFile) type DELIMITED WITH TAB
BROWSE
SELECT pliki
SCAN
DO tworz_kontrahent_z_pliku WITH lcDir, pliki.plik
ENDSCAN
RETURN
PROCEDURE tworz_kontrahent_z_pliku
LPARAMETERS katalog, prefixPliku
plik = FULLPATH(katalog + '\' + prefixPliku)
create cursor bufor (;
symbol_ktr c(16), ;
nazwa_ktr c(60), ;
skrot_ktr c(60), ;
miejsc c(60), ;
kod c(10), ;
ulica c(60), ;
nip c(12), ;
symbol_grk c(3), ;
kateg_ktr c(1), ;
nr_ktr c(5), ;
firmaosoba c(1);
)
append from FULLPATH(plik) type DELIMITED WITH TAB
BROWSE
otw_sl("buf_ktr")
**BROWSE
DELETE FROM buf_ktr WHERE 1=1
INSERT INTO buf_ktr (symbol_ktr, nazwa_ktr, skrot_ktr, miejsc, kod, ulica, nip, symbol_grk, kateg_ktr, nr_ktr, firmaosoba, rodz_krt) ;
SELECT symbol_ktr, nazwa_ktr, skrot_ktr, miejsc, kod, ulica, nip, symbol_grk, kateg_ktr, nr_ktr, firmaosoba, ' ' FROM bufor
DO buf_ktr WITH bufor.symbol_ktr
ENDPROC
|
Wszystko się ładuje OK, zostaje tylko przysłowiowy "save" ale dokumentacja SDK Hermes/Corax tego nie opisuje.
Może ktoś nakieruje
Dzięki!
Post został pochwalony 0 razy
Ostatnio zmieniony przez gambler dnia Wto 21:47, 09 Lis 2021, w całości zmieniany 1 raz
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
