Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-28, 17:52x



Odpowiedz w temacie  [ Posty: 3 ] 
Modyfikacja raportu Lista dokumentów z pozycjami 
Autor Wiadomość

Rejestracja: 2009-02-02, 19:03
Posty: 33
Post Modyfikacja raportu Lista dokumentów z pozycjami
Witam
Klient chciał, aby zmodyfikować w/w raport tak, aby do danych Kontrahenta i Odbiorcy dopisać NIP, Regon lub Pesel; ewentualnie dodać dodatkowe kolumny NIP, Regon lub Pesel.
Wybrałem pierwszą opcję, bo wydawała mi się łatwiejsza ;-)
Zmodyfikowałem kod i dopisałem :
Kod:
sPom = GetField(dk,"khNazwa")
   if Getfield(dk,"KhNIP") then sPom += " NIP: "+Getfield(dk,"KhNIP")
   if Getfield(khdk,"Regon") then sPom += " Regon: "+Getfield(khdk,"Regon")
   if Getfield(khdk,"Pesel") then sPom += " Pesel: "+Getfield(khdk,"Pesel")

   g_Values(JakiIndex("Kontrahent")).Set( (Using "%L",lp1) , sPom )


Efektem tego jest wydruk, na którym program drukuje dane klienta (NIP, Regon lub Pesel), ale NIP jest wpisywany poprawny, natomiast Regon i Pesel są wpisywane kolejnego Kontrahenta z listy. Gdzie tkwi błąd? Czy powodem jest to, że pole NIP jest w dk, a Regon i Pesel w khdk?


2010-10-18, 22:39
Wyświetl profil
Autor Wiadomość
 



Rejestracja: 2009-02-02, 19:03
Posty: 33
Post 
Taki sam efekt jest jak wstawię taki kod:
Kod:
g_Values(JakiIndex("Kontrahent")).Set( (Using "%L",lp1) , GetField(dk,"khNazwa")+" NIP: "+Getfield(dk,"KhNIP")+" Regon: "+Getfield(khdk,"Regon")+" Pesel: "+Getfield(khdk,"Pesel"))

Drukuje się Nazwa i NIP pierwszego kontrahenta, a Regon i Pesel drugiego kontrahenta z listy. :cry:


2010-10-18, 22:44
Wyświetl profil
Awatar użytkownika

Rejestracja: 2008-12-03, 21:11
Posty: 276
Pomógł: 2
Post 
lechuedat pisze:
Taki sam efekt jest jak wstawię taki kod:
Kod:
g_Values(JakiIndex("Kontrahent")).Set( (Using "%L",lp1) , GetField(dk,"khNazwa")+" NIP: "+Getfield(dk,"KhNIP")+" Regon: "+Getfield(khdk,"Regon")+" Pesel: "+Getfield(khdk,"Pesel"))

Drukuje się Nazwa i NIP pierwszego kontrahenta, a Regon i Pesel drugiego kontrahenta z listy. :cry:


Witaj,

Kod:
#include "Engine do listy dokumentów"

// ***************************************** //
// w tym miejscu otwórz bazę danych Kontrahentów //
// ***************************************** //

int errL = SetTaggedPos(FS)
long id, lp1, i
float wartNetto, wartBrutto
while errL
   lp1 +=1
   id = GetLineId()

   SetKey ( dk,"id" )
   SetKeySeg(dk,"id",id )
   if GetRec(dk,EQ ) then Error "Błąd wewnętrzny programu"

   g_Values(1).Set( (using "%L",lp1) , (using "%L",lp1) )
   g_Values(JakiIndex("Typ dokumentu")).Set( (using "%L",lp1) , GetField(dk,"nazwa") )
   g_Values(JakiIndex("Nr dokumentu")).Set( (using "%L",lp1) , GetField(dk,"kod") )
   g_Values(JakiIndex("Kontrahent")).Set( (using "%L",lp1) , GetField(dk,"khNazwa") )
   g_Values(JakiIndex("Adres")).Set( (Using "%L",lp1) , BuildAdresKh(dk)+" "+Getfield(dk,"khMiasto")+" "+ getfield(dk,"khKodPocz"))
   g_Values(JakiIndex("Odbiorca")).Set( (Using "%L",lp1) , Getfield(dk,"OdNazwa"))
   g_Values(JakiIndex("Adres Odbiorcy")).Set( (Using "%L",lp1) , BuildAdresOd(dk)+" "+Getfield(dk,"OdMiasto")+" "+Getfield(dk,"OdKodPocz"))
   g_Values(JakiIndex("Data")).Set( (using "%L",lp1) , GetField(dk,"data") )
   
// ***************************************** //
// w tym miejscu ustaw bazę Kontrahentów po ID kontrahenta, które pobierzesz z bazy Dokumentów - może to być Kontrahent lub Odbiorca, wedle życzenia //
// ***************************************** //

   t.PrintRows(1, lp1 , lp1)

   PobierzDane(id)
   t.PreparePlace(2)
   i = size( Pozycje )

   wartNetto      = 0
   wartBrutto   = 0


Poradzisz sobie ?

_________________
Pozdrawiam

Misiek DGTL Rzeszów


2010-10-19, 08:00
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 3 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Lista dokumentów magazynowych z pozycjami Handel Forte 2011a

w Programowanie

tomkos

1

2062

2012-03-16, 16:06

user Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Modyfikacja raportu - lista płac.

w Techniczne

Suavilla

5

4550

2008-06-18, 13:36

Suavilla Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Raport - lista dokumentów z modyfikacją

w Programy Handlowe

AdamM

1

2249

2016-02-07, 02:07

wrob Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Lista zamówień z pozycjami

w Programy Handlowe

bartek

6

3010

2010-01-19, 15:57

Jarek75 Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 5 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant