mojaSymfonia FORUM
https://forum.mix-soft.pl/

Taki sam kod obcy dla jednego kontrahenta
https://forum.mix-soft.pl/viewtopic.php?f=2&t=7261		 Strona 1 z 1
Autor:  adam.l [ 2016-05-17, 15:46 ]
Tytuł:  Taki sam kod obcy dla jednego kontrahenta
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
Autor:  ro_bek [ 2016-05-17, 15:52 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
Kontrahent na dwa różne towary ma ten sam kod ?
Autor:  Jarek75 [ 2016-05-17, 20:37 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
Chyba tylko tak, że dodasz tę kropkę na końcu, ale zmodyfikujesz wydruk, by kropkę zjadał. To jednak zajęcie dla programisty.
Autor:  adam.l [ 2016-05-19, 08:28 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
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
Autor:  adam.l [ 2016-05-24, 13:53 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
Nikt nie ma pomysłu jak to obejść ? Jak przerobić wydruk sprzedaży, żeby nie pojawiała się ta kropka ?
Autor:  adam.l [ 2016-05-30, 12:31 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
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
Autor:  Jarek75 [ 2016-05-30, 12:39 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
Tak nie możesz, bo tutaj nie używają predefiniowanej zmiennej buf, tylko swojej, sPom. W takim razie:
Kod:
if Mid(sPom, Len(sPom)) == "." then sPom = Mid(sPom, 1, Len(sPom)-1)

Pozdrawiam programistę :)
Autor:  adam.l [ 2016-05-30, 12:59 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
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
Autor:  Jarek75 [ 2016-05-30, 13:18 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
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
Kod:
IIF(Mid(sPom, Len(Pozycje(i).KodObcy)) == ".", Mid(Pozycje(i).KodObcy, 1, Len(Pozycje(i).KodObcy)-1), Pozycje(i).KodObcy)


Z tym że dotyczy to tylko ostatniej kropki.
Autor:  adam.l [ 2016-05-30, 13:37 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
Niby brakuje mu tutaj zamykającego nawiasu ale wszystko się zgadza
Autor:  adam.l [ 2016-05-31, 09:30 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
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....
Autor:  Jarek75 [ 2016-05-31, 09:46 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
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:

Kod:
IIF(Mid(Pozycje(i).KodObcy, Len(Pozycje(i).KodObcy)) == ".", Mid(Pozycje(i).KodObcy, 1, Len(Pozycje(i).KodObcy)-1), Pozycje(i).KodObcy)


Zmieniasz tylko w linii 769.
Autor:  adam.l [ 2016-05-31, 11:03 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
Bóg zapłać dobry człowieku :) działa !!

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

Pozdrawiam
Autor:  Jarek75 [ 2016-05-31, 11:06 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
Zadowolę się gwiazdką, ale musisz ją kliknąć.
Autor:  adam.l [ 2016-05-31, 11:54 ]
Tytuł:  Re: Taki sam kod obcy dla jednego kontrahenta
zrobione :)

Pozdrawiam
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/