Rozwiązanie pozwala na skopiowanie danych z Excela do schowka a następnie na ich podstawie wygenerowanie nowego dokumentu.
Raport umieść w Raporty
Kartoteki Raporty z menu Sprzedaż Dokument ze schowkaKod:
// raport dla zaznaczonych 4 kolumn Excela
#define COL_KOD 1
#define COL_ILOSC 2
#define COL_JM 3
#define COL_CENA 4
basetw tw
dispatch cb = "htmlfile"
buf = cb.ParentWindow.ClipboardData.GetData("text") + "\r\n"
io.SetField("typ_dokumentu", "FVS")
while find regular "{*}\t{*}\t{*}\t{*}/\r\n-"
if tw.GetRec( EQ ) == 0 then
io.BeginSection("Pozycja dokumentu")
io.SetField("kod", regular COL_KOD)
io.SetField("ilosc", regular COL_ILOSC)
io.SetField("cena", regular COL_CENA)
io.EndSection()
endif
wend
long iddok = io.ImportSP()
OpenWindow("SP.TPL", iddok, 1, 1)
NoOutPut()
#define COL_KOD 1
#define COL_ILOSC 2
#define COL_JM 3
#define COL_CENA 4
basetw tw
dispatch cb = "htmlfile"
buf = cb.ParentWindow.ClipboardData.GetData("text") + "\r\n"
io.SetField("typ_dokumentu", "FVS")
while find regular "{*}\t{*}\t{*}\t{*}/\r\n-"
if tw.GetRec( EQ ) == 0 then
io.BeginSection("Pozycja dokumentu")
io.SetField("kod", regular COL_KOD)
io.SetField("ilosc", regular COL_ILOSC)
io.SetField("cena", regular COL_CENA)
io.EndSection()
endif
wend
long iddok = io.ImportSP()
OpenWindow("SP.TPL", iddok, 1, 1)
NoOutPut()
W excelu zaznacz i skopiuj komórki z danymi do schowka (Ctrl+C)
Załącznik:
hmsch01.jpg [ 116.25 KiB | Przeglądany 6167 razy ]
W Handlu w kartotece dokumentów sprzedaży wybierz Dokument ze schowka z menu podręcznego (prawy klawisz myszy)
Załącznik:
hmsch02.jpg [ 92.92 KiB | Przeglądany 6167 razy ]
Zostanie wygenerowany dokument
Załącznik:
hmsch03.jpg [ 125.35 KiB | Przeglądany 6167 razy ]