#include "MES Config include"





//Deklaracje zmiennych
Dispatch MES_Communication
Dispatch SDO
Dispatch SDOItem
Dispatch SDOFiles
int filesCounter
int positionsCounter
//dokument
string typ = ""
string seria = ""
string dataWystawienia = ""
string dataOperacji = ""
string magazyn = ""
string kontrahent = ""
string kodPozycji = ""
string ilosc = ""
string jm = ""
string nazwaDostawy = ""
long id
string path = ""
string opis = ""
string zamowienie = ""
string querySQL2
string qsql2
dispatch rs2 = "ADODB.Recordset"
dispatch con2 = GetAdoConnection()
string twnazwa, cenaPozDok

string zamkod = ""

string filePath = ""
string backupFilePath = ""

IOrec ior

dispatch con = GetAdoConnection()
dispatch rs = "ADODB.Recordset"
string querySQL
string qsql
float przelicznik
float iloscc
float iloscf

float przelicznik2

string tona
string jm1
string importFol = "E:\\oracle\\oradata\\QPROD\\utl_file_dir_QPROD\\exp"

MES_Communication.Create("MES_Communication.TransferFiles")
SDOFiles = MES_Communication.Method("GetFiles",importFol)

For filesCounter = 0 To filesCounter > SDOFiles.Count - 1
   filePath = MES_Communication.Method("GetFile",SDOFiles,filesCounter)
   SDO = MES_Communication.Method("ImportSDO",filePath)
   
   typ = SDO.SdoDocument.DOC_TYPE_NR
   magazyn = SDO.SdoDocument.WH_NR
   
   if magazyn != "P01" Then
      if typ == "WZ" then seria = seriaWZ   
      if typ == "PZ" then seria = seriaPZ
      if typ == "RW" then seria = seriaRW
      if typ == "PW" then seria = seriaPW
      if typ == "MRW" then
         seria = seriaRW
         typ = "RW"
      endif
      if typ == "MPW" then
         seria = seriaPW
         typ = "PW"
      endif
      if typ == "MM+" then seria = seriaMMplus
      if typ == "MM-" then seria = seriaMMminus
      if typ == "IW-" then
         seria = seriaINminus   
         typ = "IN-"
         
      endif
      if typ == "IW+" then
         seria = seriaINplus   
         typ = "IN+"
      
         
      endif
      dataWystawienia = SDO.SdoDocument.DATE_EMITTED
      dataOperacji = SDO.SdoDocument.DATE_EMITTED   
      kontrahent = SDO.SdoDocument.CUSTOMER_NR
      opis = SDO.SdoDocument.DOC_NR
      
      //if zamowienie != "0"   then
         //ior.SetField("odebranyPrzez", zamowienie)
   //   endif
      

   
      //IOrec
      ior.SetField("typDK", typ)
      ior.SetField("seria", seria)
      
      //rezerwacja
      //0 - brak
      //1 - ilościowa
      //2 - ze wskazaniem dostawy
      ior.SetField("rezerwacja", "1")
      ior.SetField("dataWystawienia", dataWystawienia)
      ior.SetField("dataOperacji", dataOperacji)

         
      ior.SetField("opis", opis)
      //magazyn
      ior.SetField("dzial", magazyn)
      //kontrahent (dla dokumentów MM w polu kontrahent jest przesyłany magazyn przyjmujący)
      ior.BeginSection("DaneKh")
      ior.SetField("KhKod", kontrahent)
      ior.EndSection()



   
      
      //Pozycje
      For positionsCounter = 0 To positionsCounter > SDO.SdoDocument.Items.Count - 1
         SDOItem = MES_Communication.Method("GetItem",SDO,positionsCounter)
         kodPozycji = SDOItem.PRODUCT_NR


   
         zamowienie = SDO.SdoDocument.C_ORDER_NR
querySQL = "select przeljmdod1 as przelicznik1,jmdod1 as tona1,jm as jednostkam,* from dbo.tw where tw.kod="
qsql = using "%s'%s'",querySQL,kodPozycji







         ilosc = Using "%f", SDOItem.QUANTITY

   
if rs.State == 1 then rs.Close()

rs.Open(qsql, con, 3)

if rs.eof then
   //message "Eksport został zatrzymany, nie ma takiego towaru w FORTE"
   goto konieczadania
endif

  rs.MoveFirst()
// while !rs.EOF
   
   //message "nie ma nic"
//else
      jm1 = rs.Fields("jednostkam").Value
      przelicznik = rs.Fields("przelicznik1").Value

      

      tona = rs.Fields("tona1").Value
      if tona == "T" then
         przelicznik = 1.0
      endif

      
   
      if przelicznik == 0.0 then
      przelicznik = 1.0
      endif

      
      if jm1 == "szt" then
      przelicznik = 1.0
      endif
      
      

/*
   if typ == "IN+" then
          przelicznik = 1.0
      endif
      if typ == "WZ" then
      przelicznik = 1.0
      endif

*/
      

      

//wend
//message using "%f", przelicznik
iloscf = val(ilosc)

//przelicznik2 = using "%f", przelicznik
iloscc = przelicznik*iloscf





ilosc = Using "%f", iloscc


konieczadania:

//message using "%f", iloscc
         ior.BeginSection("Pozycja dokumentu")
      
         ior.SetField("kod",kodPozycji)

      //

querySQL2 = "select nazwa as twnazwa, cn.waluta as walutaPozDok, cn.cena as cenaPozDok, kod from dbo.tw join dbo.cn on cn.idpm=tw.id where cn.aktywna=1 and cn.typ=8 and tw.kod="   
//querySQL2 = "select nazwa as twnazwa, kod from dbo.tw where tw.kod="
qsql2 = using "%s'%s'",querySQL2,kodPozycji



if rs2.State == 1 then rs2.Close()

rs2.Open(qsql2, con2, 3)

if rs2.eof then
   goto konieczadania2
endif
  rs2.MoveFirst()

      
      twnazwa = rs2.Fields("twnazwa").Value
         zamkod = using "%s, %s", twnazwa,zamowienie
      cenaPozDok = using "%f", rs2.Fields("cenaPozDok").Value
      //message cenapozdok
      //   message using "%f", cenaPozDok
   
      //   cenaBazowaPozDok = using "%s",          
   
           ior.SetField("opis",zamkod)
         ior.SetField("ilosc_ewid", ilosc)
         ior.SetField("jednostkaMiary", SDOItem.MU_CODE)
      
         //cenapozdok = "6"
         //cenapozdok = kwotanatekst(cenapozdok)
         ior.SetField("cena",  cenapozdok)
         //ior.SetField("waluta", rs2.Fields("walutaPozDok").Value)
         
         //Nazwa dostawy wykorzystywana do dokumentów przyjęcia zewnętrznego (PZ)
         If SDO.SdoDocument.DOC_TYPE_NR == "PZ" Then ior.SetField("nazwaDostawy", SDO.SdoDocument.DOC_NR)
         If SDO.SdoDocument.DOC_TYPE_NR == "RW" Then
            //Podsekcja dostaw dokumentów (wykorzystywana dla dokumentów RW)
            //ior.BeginSection("Dostawa")
            //ior.SetField("ilosc", ilosc)
            //ior.SetField("nazwa_dostawy", nazwaDostawy)
            //ior.EndSection()
         EndIf
         ior.EndSection()
      Next positionsCounter
      //zapis do bufora
      id = ImportMG(ior)
      if id == 0 then error "Import dokumentu do bufora nie powiódł się"
      //wystawienie dokumentu
      WystawDokumentMagazynowy(id,1)
      //Wyczyszczenie obiektu
      ior.Clear()
      //Backup pliku
   endif
   backupFilePath = "E:\\oracle\\oradata\\QPROD\\utl_file_dir_QPROD\\arc" + "\\" + MES_Communication.Method("GetFileName",filePath)
   
//message using "%s", backupFilePath
   MES_Communication.Method("BackupFile",filePath,backupFilePath)
Next filesCounter

konieczadania2: