*FUNCTION otvor_navision_hlavicky
PARAMETERS menofirmy, menoalias, podmienka
PRIVATE lsql, m.curschema, m.updfieldlist, m.vysledok, m.menotabulky, m.updschema, m.keyschema
lsql = 'SELECT documentheader.timestamp as tmsmp,'
lsql=lsql+'documentheader.RecordNo as rno,'
lsql=lsql+'documentheader.RecordType as rtyp,'
lsql=lsql+'documentheader.RecordState as rstat,'
lsql=lsql+'documentheader.DocumentType as doctyp,'
lsql=lsql+'documentheader.CVNo, documentheader.No,'
lsql=lsql+'documentheader.PostingDate as postdate,'
lsql=lsql+'documentheader.PostingDescription as postdesc,'
lsql=lsql+'documentheader.DueDate,'
lsql=lsql+'documentheader.GlobalDimension1Code as gdc1,'
lsql=lsql+'documentheader.GlobalDimension2Code as gdc2,'
lsql=lsql+'documentheader.CurrencyCode as curcode,'
lsql=lsql+'documentheader.Name, documentheader.Name2,'
lsql=lsql+'documentheader.Address as adresa,'
lsql=lsql+'documentheader.Address2 as adresa2, documentheader.City,'
lsql=lsql+'documentheader.Contact,'
lsql=lsql+'documentheader.PostCode as psc,'
lsql=lsql+'documentheader.CountryRegionCode as regcode,'
lsql=lsql+'documentheader.VATRegistrationNo as vatcislo,'
lsql=lsql+'documentheader.RegistrationNo as regcislo,'
lsql=lsql+'documentheader.TaxRegistrationNo as taxcislo,'
lsql=lsql+'documentheader.DocumentDate as docdate,'
lsql=lsql+'documentheader.VATDate,'
lsql=lsql+'documentheader.BankAccountNo as ucetno,'
lsql=lsql+'documentheader.IBAN,'
lsql=lsql+'documentheader.SWIFTCode as swift,'
lsql=lsql+'documentheader.VendorInvoiceNo as nasdoklad,'
lsql=lsql+'documentheader.Correction as oprava,'
lsql=lsql+'documentheader.OriginalDocumentNo as povdocno,'
lsql=lsql+'documentheader.PaymentType as platba,'
lsql=lsql+'documentheader.ReceiptNo as faktura,'
lsql=lsql+'documentheader.Canceled as canceled'
lsql=lsql+' FROM '
lsql=lsql+m.navision_databaza+'.dbo."'+menofirmy+'$COMDocumentHeader" documentheader'
IF !EMPTY(m.podmienka)
    lsql=lsql+' WHERE '+m.podmienka
ENDIF 

m.curschema='tmsmp m, rno i, rtyp C(2), rstat c(1), doctyp c(10), cvno c(20), no C(20), postdate T, postdesc c(50), duedate T, gdc1 C(20), gdc2 C(20), curcode C(10), name c(50), name2 c(50),'
m.curschema=m.curschema+'adresa c(50), adresa2 c(50), city c(30), contact C(50), psc C(20), regcode C(10), vatcislo C(20), regcislo C(20), taxcislo C(20), docdate T, vatdate T, ucetno C(30),'
m.curschema=m.curschema+'iban C(50), swift C(20), nasdoklad C(20), oprava L, povdocno C(20), platba C(20), faktura C(20), canceled L'

m.updschema='rno '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[RecordNo],'
m.updschema=m.updschema+'tmsmp '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[timestamp],'
m.updschema=m.updschema+'rtyp '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[RecordType],'
m.updschema=m.updschema+'rstat '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[RecordState],'
m.updschema=m.updschema+'doctyp '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[DocumentType],'
m.updschema=m.updschema+'cvno '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[CVNo],'
m.updschema=m.updschema+'no '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[No],'
m.updschema=m.updschema+'postdate '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[PostingDate],'
m.updschema=m.updschema+'postdesc '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[PostingDescription],'
m.updschema=m.updschema+'duedate '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[DueDate],'
m.updschema=m.updschema+'gdc1 '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[GlobalDimension1Code],'
m.updschema=m.updschema+'gdc2 '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[GlobalDimension2Code],'
m.updschema=m.updschema+'curcode '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[CurrencyCode],'
m.updschema=m.updschema+'name '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[Name],'
m.updschema=m.updschema+'name2 '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[Name2],'
m.updschema=m.updschema+'adresa '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[Address],'
m.updschema=m.updschema+'adresa2 '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[Address2],'
m.updschema=m.updschema+'city '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[City],'
m.updschema=m.updschema+'contact '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[Contact],'
m.updschema=m.updschema+'psc '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[PostCode],'
m.updschema=m.updschema+'regcode '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[CountryRegionCode],'
m.updschema=m.updschema+'vatcislo '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[VATRegistrationNo],'
m.updschema=m.updschema+'regcislo '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[RegistrationNo],'
m.updschema=m.updschema+'taxcislo '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[TaxRegistrationNo],'
m.updschema=m.updschema+'docdate '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[DocumentDate],'
m.updschema=m.updschema+'vatdate '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[VATDate],'
m.updschema=m.updschema+'ucetno '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[BankAccountNo],'
m.updschema=m.updschema+'iban '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[IBAN],'
m.updschema=m.updschema+'swift '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[SWIFTCode],'
m.updschema=m.updschema+'nasdoklad '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[VendorInvoiceNo],'
m.updschema=m.updschema+'oprava '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[Correction],'
m.updschema=m.updschema+'povdocno '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[OriginalDocumentNo],'
m.updschema=m.updschema+'platba '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[PaymentType],'
m.updschema=m.updschema+'faktura '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[ReceiptNo],'
m.updschema=m.updschema+'canceled '+m.navision_databaza+'.dbo."'+m.menofirmy+'$COMDocumentHeader".[Canceled]'

m.updfieldlist="tmsmp, rno, rtyp, rstat, doctyp, cvno, no, postdate, postdesc, duedate, gdc1, gdc2, curcode, name, name2,"
m.updfieldlist=m.updfieldlist+"adresa, adresa2, city, contact, psc, regcode, vatcislo, regcislo, taxcislo, docdate, vatdate,"
m.updfieldlist=m.updfieldlist+"ucetno, iban, swift, nasdoklad, oprava, povdocno, platba, faktura, canceled"

m.tabschema=m.navision_databaza+".dbo."+CHR(34)+menofirmy+"$COMDocumentHeader"+CHR(34)

m.keyschema="rno"
RETURN nav_vytvor_cursor("navision_hlav",m.menoalias, m.tabschema, m.lsql, m.updfieldlist, m.updschema, m.keyschema, m.curschema)
