| mojaSymfonia FORUM https://forum.mix-soft.pl/ |
|
| HMP Dekretacja dokumenty sprzedaży https://forum.mix-soft.pl/viewtopic.php?f=15&t=2691 |
Strona 1 z 1 |
| Autor: | wojtek [ 2011-01-17, 16:59 ] |
| Tytuł: | 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? |
|
| Autor: | wrob [ 2011-01-17, 18:19 ] |
| Tytuł: | |
Przeanalizuj raporty - integracja\eksport xxxxxxxxx w handlu - tam praktycznie widac jak pobrac konta itp |
|
| Autor: | wojtek [ 2011-01-18, 09:17 ] |
| Tytuł: | |
Problem w tym ze przeszukałem raporty hmp111 i nie znalazłem integracja/eksport |
|
| Autor: | rafal [ 2011-01-18, 09:41 ] |
| Tytuł: | |
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 |
|
| Autor: | wojtek [ 2011-01-18, 09:43 ] |
| Tytuł: | |
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 |
|
| Autor: | wojtek [ 2011-01-18, 09:51 ] |
| Tytuł: | |
Przeanalizowałem kodek i chyba mam to czego szukałem : Obliczenia :) Właśnie o to mi chodziło |
|
| Strona 1 z 1 | Strefa czasowa UTC+1godz. [letni] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|