 |
|
Strona 1 z 1
|
[ Posty: 6 ] |
|
HMP Dekretacja dokumenty sprzedaży
| Autor |
Wiadomość |
|
wojtek
Rejestracja: 2010-02-10, 21:24 Posty: 260 Pomógł: 4
|
 HMP Dekretacja dokumenty sprzedaży Witam,
Chciałbym dowiedzieć się w jaki najprostszy sposob pobrać dane dot. dekretacji dokumentów/pozycji dokumentów handlowych.
Wykonuje raport z okna dokumentów sprzedaży.
Pobieram takie infomracje jak kod dokjumetnu, kontrahent, daty, kod pozycji dokumentu, stawka vat pozycji, kw. netto pozycji,itp. (geberalnie na razie operuje w obszarze bazy DK i DP). Chciałbym oprócz tego pobrać konto księgowe zdefinowane w schemacie księgowania dokumentu. Czy istnieje jakaś funkcja, obiekt które by mi w tym pomogły?
|
| 2011-01-17, 16:59 |
|
|
| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
Przeanalizuj raporty - integracja\eksport xxxxxxxxx w handlu - tam praktycznie widac jak pobrac konta itp
|
| 2011-01-17, 18:19 |
|
|
|
wojtek
Rejestracja: 2010-02-10, 21:24 Posty: 260 Pomógł: 4
|
Problem w tym ze przeszukałem raporty hmp111 i nie znalazłem integracja/eksport
|
| 2011-01-18, 09:17 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
Najlepsza do przeanalizowania będzie funkcja pokazująca dekretacje na fakturze.
Kod: int Sub Dekretacje()
Obliczenia obl
String sWN, sKwota, sKwotaPLN, sMA, sKw, sKnt
Int iDokWal, iLastColNr
if bDekretacje && sNapis!="ORYGINAŁ" then
obl.Add( 0x10, iddok )
obl.GetFirstZap()
iDokWal = IIF( obl.WalutaZap == "", 0, 1 )
iLastColNr = 3 + iDokWal
y = str.Pozycja(#B)+50
If iDokWal Then
tbl2 = Tabela 1, 4004, 200, bc, 250, bc, 250, bc, 200, bc
Else
tbl2 = Tabela 1, 4004, 200, bc, 250, bc, 200, bc
EndIf
if GRAF then
Ramka Od 0, y, 650 + iDokWal * 250, 10, 0, nGray
else
print "\n"
ramka od 0,#Y,str.szer,10,0
endif
tabela #tbl2, od 0,0
kolumna 1, "WN"
Kolumna 2, "Kwota " + obl.WalutaZap
If iDokWal Then
Kolumna 3, "Kwota PLN"
EndIf
Kolumna iLastColNr, "MA"
koniec
koniec
If iDokWal Then
tbl2 = Tabela 1, 4004, 200, nc, 250, kr, 250, kr, 200, nc
Else
tbl2 = Tabela 1, 4004, 200, nc, 250, kr, 200, nc
EndIf
if obl.GetFirstZap() then
j=0
Do
if j == obl.PozycjaZap then
if sKw == kwota(obl.KwotaZap) && sKnt != obl.StronaZap then
if obl.StronaZap=="WN" then
buf = sWN
delete regular "\n$"
sWN = buf
sWN += obl.KontoZap + LF
else
buf = sMA
delete regular "\n$"
sMA = buf
sMA += obl.KontoZap + LF
endif
sKw = ""
sKnt = ""
else
sKWota += kwota(obl.KwotaZap) + LF
sKwotaPLN += Kwota( obl.KwotaPLNZap ) + LF
sKw = kwota(obl.KwotaZap)
sKnt = obl.StronaZap
if obl.StronaZap=="WN" then
sWN += obl.KontoZap + LF
sMA += LF
else
sMA += obl.KontoZap + LF
sWN += LF
endif
endif
else
ramka od 0,#Y,str.szer,10,0
tabela #tbl2, od 0,0
kolumna 2, sKwota
sKwota = ""
If iDokWal Then
Kolumna 3, sKwotaPLN
sKwotaPLN = ""
EndIf
kolumna 1, sWN
sWN = ""
kolumna iLastColNr, sMA
sMA = ""
koniec
koniec
sKWota += kwota(obl.KwotaZap) + LF
sKwotaPLN += Kwota( obl.KwotaPLNZap ) + LF
sKw = kwota(obl.KwotaZap)
sKnt = obl.StronaZap
if obl.StronaZap=="WN" then
sWN += obl.KontoZap + LF
sMA += LF
else
sMA += obl.KontoZap + LF
sWN += LF
endif
endif
j=obl.PozycjaZap
Loop While ( obl.GetNextZap() )
ramka od 0,#Y,str.szer,10,0
tabela #tbl2, od 0,0
kolumna 2, sKwota
sKwota = ""
If iDokWal Then
Kolumna 3, sKwotaPLN
sKwotaPLN = ""
EndIf
kolumna 1, sWN
sWN = ""
Kolumna iLastColNr, sMA
sMA = ""
koniec
koniec
endif
endif
EndSub
|
| 2011-01-18, 09:41 |
|
|
|
wojtek
Rejestracja: 2010-02-10, 21:24 Posty: 260 Pomógł: 4
|
Albo inaczej,
Jak dobrać się do pliku sterującego eksportem 2.0 : "Format 2.0 FK" bo tez nie mogę go znaleźć. Docelowo chcę otrzymać z HMP plik CSV z dokumentami sprzedaży o strukturze w której na górze będą opisy kolumn oddzielone separatorami a poniżej w każdej linii dane dot. dokumentu wraz z dekretami. Najprościej byłoby przerobić eksport 2.0 tak by zmniejszyć liczbę danych oraz zapisać je w jednej linii
|
| 2011-01-18, 09:43 |
|
|
|
wojtek
Rejestracja: 2010-02-10, 21:24 Posty: 260 Pomógł: 4
|
Przeanalizowałem kodek i chyba mam to czego szukałem : Obliczenia :)
Właśnie o to mi chodziło
|
| 2011-01-18, 09:51 |
|
|
|
|
Strona 1 z 1
|
[ Posty: 6 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Bing [Bot] i 26 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
|
|
|
|
