Witam,

Mam do Państwa pytanie i prośbę o pomoc. Czy ktoś z was miał może przypadek, kiedy musiał dla jednego kontrahenta wprowadzić KOD OBCY towaru taki sam dla dwóch towarów ?
Nie wchodząc w szczegóły muszę takie coś zrobić, kontrahent czepia się nawet kropki na końcu kodu. Sprawdziłem program, parametry i nie znalazłem nigdzie takiej blokady.
Ma ktoś pomysł lub jakąś radę jak sobie z takim problemem poradzić ?

Pozdrawiam

Kontrahent na dwa różne towary ma ten sam kod ?

Chyba tylko tak, że dodasz tę kropkę na końcu, ale zmodyfikujesz wydruk, by kropkę zjadał. To jednak zajęcie dla programisty.

Tak się składa, że klient ma wersję Premium Handlu a gospodarka magazynowa wymusiła na nas zdublowanie towarów dla wyrobów gotowych i towarów na jeden magazyn.
A czy zjadanie tej kropki na wydruku to aż tak problematyczna modyfikacja ? Może chociaż jakaś mała podpowiedź jak się do tego zabrać ?

Dzięki za poprzednie odpowiedzi

Nikt nie ma pomysłu jak to obejść ? Jak przerobić wydruk sprzedaży, żeby nie pojawiała się ta kropka ?

Może teraz ktoś mi coś podpowie.

W każdym wydruku moje poprawki działają ale nie działają w tym na którym najbardziej mi zależy mianowicie:

Dokument eksport I ang.

Wprowadziłem zmiany jak niżej: dopisując taki fragment ": Replace "." , "" //- usuniecie kropki z kodu obcego" w miejscu gdzie występuje tekst KodObcy

Ale na wyżej wymienionym wydruku nie mogę tego zmienić i program nadal drukuje kropkę. Pomocy !!!!

sPom += " " + Pozycje(i).KodObcy : Replace "." , "" //- usuniecie kropki z kodu obcego[/color]
case 3
sPom += " " + KodPaskowy_pozycji(i)
endselect
endif
if GRAF then
kolumna 2,PiszWyrazy(sPom,KolTab1(2)-10)
else
print DrukujDaneTxt(2,KolTab1(2),sPom,0)
endif
pos = 2
#ifndef SIMPLIFIED
if !nKod then
select case nKodTyp
case 1
if GRAF then
kolumna (pos+=1),PiszWyrazy(Pozycje(i).Kod,KolTab1(pos)-10)
else
print DrukujDaneTxt(pos+=1,KolTab1(pos),Pozycje(i).Kod,-1)
endif
case 2
if GRAF then
kolumna (pos+=1),PiszWyrazy(Pozycje(i).KodObcy,KolTab1(pos)-10) : Replace "." , "" // - usuniecie kropki z kodu obcego
else
print DrukujDaneTxt(pos+=1,KolTab1(pos),Pozycje(i).KodObcy,-1)
endif

Tak nie możesz, bo tutaj nie używają predefiniowanej zmiennej buf, tylko swojej, sPom. W takim razie:

Pozdrawiam programistę :)

Dzięki za odpowiedź.

Gdzie to wkleić :) tak jak poniżej ? Bo po aktualizacji i tak nie działa :) sam się bawię, nie jestem programistą.

endif
sPom = poz_opis.Get(using "%d",i)
if nKod==1 then
select case nKodTyp
case 1
sPom += " " + Pozycje(i).Kod
case 2
sPom += " " + Pozycje(i).KodObcy : if Mid(sPom, Len(sPom)) == "." then sPom = Mid(sPom, 1, Len(sPom)-1)
sPom += " " + KodPaskowy_pozycji(i)
endselect
endif
if GRAF then
kolumna 2,PiszWyrazy(sPom,KolTab1(2)-10)
else
print DrukujDaneTxt(2,KolTab1(2),sPom,0)
endif
pos = 2
#ifndef SIMPLIFIED
if !nKod then
select case nKodTyp
case 1
if GRAF then
kolumna (pos+=1),PiszWyrazy(Pozycje(i).Kod,KolTab1(pos)-10)
else
print DrukujDaneTxt(pos+=1,KolTab1(pos),Pozycje(i).Kod,-1)
endif
case 2
if GRAF then
kolumna (pos+=1),PiszWyrazy(Pozycje(i).KodObcy,KolTab1(pos)-10) : if Mid(sPom, Len(sPom)) == "." then sPom = Mid(sPom, 1, Len(sPom)-1)
else
print DrukujDaneTxt(pos+=1,KolTab1(pos),Pozycje(i).KodObcy,-1)
endif

To jednak nie jest takie proste. Zrobiłeś zmiany w 2 miejscach, widocznie jedno z tych miejsc jest nieistotne.

Można jeszcze spróbować wpisać w miejscie Pozycje(i).KodObcy


Z tym że dotyczy to tylko ostatniej kropki.

Niby brakuje mu tutaj zamykającego nawiasu ale wszystko się zgadza

Witam,

Jak bym nie wkleił tego kodu i gdzie go nie wkleję to i tak kropka jak była na końcu kodu tak jest....

No bo nie można kopiować bezkrytycznie :) W moim kodzie jest błąd, nie można się odwoływać do sPom. Prawidłowo jest tak:



Zmieniasz tylko w linii 769.

Bóg zapłać dobry człowieku :) działa !!

Powinieneś dostać Talon na .... i balon :)

Pozdrawiam

Zadowolę się gwiazdką, ale musisz ją kliknąć.

zrobione :)

Pozdrawiam