VB.NET - Фискална

Zdravo, imam napraeno aplikacija za turisticka agencija, rezervacii takvi raboti, so databaza, sega gazdata mi pobara aplikacijata da ja povrzam so fiskalen aparat (pf5000), rabotata e sto ne se razbiram na fiskali, ustvari samo sto sum diplomiral i ne znam bas nisto za fiskalnite aparati.
Ima nekoj ideja kako da go zavrsam ovoj problem, ili potocno kako da ja povrsam aplikacijata so fiskalniot aparat.
Pozz

 

Spored eden drugar kako mi kaza, tie so prodavaat fiskalni aparati se zadolzitelni da im pokazaat na programerite kako treba da se raboti so fiskalniot aparat, ama jas veke nekolku pati prakam e-mail na accent.com.mk i nisto rabotava..zatoa baram pomos mozda nekoj moze da mi pomogne.

 

eh Kuzma kolku lesno bilo ova za tebe, ne ednas sto pati sum se javil, sum prasal, odogovorot e ostavi telefon ili e-mail zasto programerot ne e tuka vo momentot i toj ke ti se javu ili preku e-mail ke ti kaze. Sepak dosega ne sum imal nieden odgovor.

 

Fala marv sum gledal na forumot, sepak nisto od rabotava, mene mi treba nesto sto mozam da komuniciram so fiskalniot aparat, da e nekoe .dll file. Sepak fala za pomosta.
Garfield fiskalniot aparat e toj so se koristi povise na makedonskiot aparat, firmata e od accent a fiskalniot aparat e pf500.
Mozes slobodno i na C++ da mi pokazes nekoe trikce kako da komuniciram so aparatot, znam nesto na C++ pa i ke se obidam da go prevedam na VB.NET posle.
Fala

 

marv fala ti ke proveram dali mozam da storam nesto, sepak fala ti odnapred.

 

posle nekoe vreme otsustvo tuka sum
ne sum imal vreme za forumot sepak mi tekna sega pa se odluciv da pisam, najdov resenie za fiskalniot aparat pf500 blagodarenie na marv sto mi gi prati tie fajlovi, mnogu lesno so programceto mozete da komunicirate so fiskalniot aparat pf500. Sepak uste ednas fala ti marv za fajlovite sto mi gi prati, bez toa nisto nemase da stignam. Ako nekoj uste ima problem so komuniciranje na fiskalniot aparat slobodno prasajte ili ako vi se potrebni fajlovite slobodno pisete mi na e-mail admin@bujarademi.com

 

OK napraiv upload na fajlovite, moze da gi zimate fajlovite tuka
Example:

Код:

Dim objWriter As New StreamWriter(My.Application.Info.DirectoryPath.ToString & "FISCALPF500.IN", False, System.Text.Encoding.Default)

        'Otvoranje na fiskalna smetka
        objWriter.Write(Chr(32) + Chr(48) + "1,0000,1" + Chr(13) + Chr(10))

        'Pisuvanje artikli <seq> = Chr(35) ose Chr(36)
         objWriter.Write(Chr(35) & Chr(49) & "Produkt 1" & Chr(9) & Chr(192) & CDbl(CenaNaArtikal).ToString("##.00") & "*" & CDbl(KolicinaNaArtikal).ToString("#0.000") & Chr(13) & Chr(10))

        ' TOTAL
        objWriter.Write(Chr(32) & Chr(53) & Chr(9) & Chr(13) & Chr(10))

        'Zatvoranje smetka
        objWriter.Write(Chr(37) & Chr(56))
        objWriter.Flush()
        objWriter.Close()

       Shell("FISCALFiscal32 " & "FISCALPF500.IN", AppWinStyle.NormalFocus)

 

Tosi123 za zal nema takvi funkcii kupi si fiskalna i ke vidis dali ima funkcii. Ina4e Accent ima pusteno text file koj gi opisuva komandite koi treba da se zadadat na fiskalniot aparat. Jas go napraiv upload i toj text file sto gi opisuva komandite, taka da ima nacin i bez da koristis drug exe file ili .dll file da komuniciras so fiskalniot aparat preku SerialPort controlata na .NET 2.0 no nemam testirano toa taka da i ova ide super

 

gocets mislam deka sum go stail i dokumentot so kodovite. Citaj gi pa ke vidis kako mozes da naprais i izvestai. Poveketo izvestai davaat rezultat na fajloj pf500.out taka da treba da citas od fajlot koga e potrebno. Pozdrav :bravo:
​

 

Код:

Function IzvestajDatum(ByVal startdate As Date, ByVal enddate As Date) As Boolean
        ' Znaci Kodot sto ni e potreben za izvestajot e Chr(94)
        ' Otvarame PF500.IN za pisuvanje
        Dim objWriter As New IO.StreamWriter(My.Application.Info.DirectoryPath.ToString & "PF500.IN", False, System.Text.Encoding.Default)

        'Pisuvame Kodot
        objWriter.Write(Chr(32) & Chr(94) & startdate.ToString("dd.MM.yyyy") & "," & enddate.ToString("dd.MM.yyyy") & Chr(13) & Chr(10))
        ' Chr(32) = Sequenca dadena do fiskalniot aparat, sekoja komanda treba da ima razlicen sequent broj od prethodnata komanda
        ' Chr(94) = Naredbata dadena na fiskalniot aparat (Izvestaj od datum do datum)
        ' startdate.ToString("dd.MM.yyyy") & enddate.ToString("dd.MM.yyyy") = datumite so format dd.MM.yyyy , mozebi ne e tocniot format sto se bara sepak
        ' probaj nekoj format, no veruvam deka ovoj e tocniot format na datumot kako treba da bide daden do fiskalniot aparat.
        ' Chr(13) & Chr(10) = Nisto posebno oznacuva NewLine otkako e zavrsena komandata

        ' Execute Fiscal32.exe
        Shell("Fiscal32 " & "FISCALPF500.IN", AppWinStyle.Hide)

        ' Napomena:
        ' Otkako se zavrsuva nema da ti dade nisto na pf500.out tuku ke pecati list isto kako za dnevniot finansiki izvestaj
        ' So Sreka
    End Function