Forum ERP XL

[SQL]

/*<COM_DOK>
<OPIS>
Wydruk listy zaznaczontych dokumentów - ( wydruk formularzy faktury sprzedaży z listy FA ).
Definicje należy zaimportować na liście faktur załączając na formularzu wydruku
opcję : Format zbudowany w oparciu o tabelę zaznaczeń.
Wydruk uruchamia wydruk txt faktury.

Jeśli wydruk ma drukować się do maila lub do "kopii elektronicznej"
konieczne jest przekazanie obiektu do pola OptimaObjectTypeInfo

Format.OptimaObjectTypeInfo = rDok

</OPIS>
<Interfejs>Dictionary</Interfejs>
<Interfejs>ZmiennaDyn</Interfejs>
<Interfejs>WydrFormat</Interfejs>
<Osoba>MB</Osoba>
<OPT_VER>2010.0.1</OPT_VER>
</COM_DOK>*/


--@PAR ?@Hs200_NQ|Filtr:''@? PAR@
--@PAR ?@Hn1|CDN_Urzadzenie|CDN_Urzadzenie:2@? PAR@
--@PAR ?@Hs200|Printer|Printer:''@? PAR@

SELECT RpZ2_GIDNumer,Printer= ??_QPrinter
FROM CDN.RptZaznaczenia2
join CDN.TraNag on TrN_TrNId = RpZ2_GIDNumer
WHERE TrN_Rodzaj in (
--Faktura sprzedaży 302
302000 ,
--Faktura sprzedaży z wygenerowanym WZ 302
302004 ,
--Faktura sprzedaży z paragonu 302
302007 ,
--Faktura sprzedaży Z RO 302
302008 ,
--Faktura sprzedaży Z Pro-Formy 302
302009 ,
--Faktura sprzedaży z wydania kaucji 302
302090 ,
--Faktura sprzedaży pierwotna 302
302100 ) and
?@Hs200_NQ|Filtr:''@?


[XSL]
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:msxsl="urn:schemas-microsoft-com:xslt"
xmlns:usr="urn:the-xml-files:xslt" >
<xsl:output omit-xml-declaration="yes" method="html"/>
<msxsl:script language="JSScript" implements-prefix="usr">
<![CDATA[


Dim bt = CreateObject("CDNBase.BaseTools")
Dim ss = bt.Login.CreateSession()


Function WykonajWydrukFS(Filtr,Drukarka_)
Dim Format, ZmienneDyn


rDok = ss.CreateObject("CDN.DokumentyHaMag").Item( "" + Filtr )
Format.OptimaObjectTypeInfo = rDok


ZmienneDyn = CreateObject("CDNLib.Dictionary")
ZmiennaDyn = CreateObject("CDN.ZmiennaDyn")
Format = CreateObject("CDN.WydrFormat")
WykonajWydrukFS=""
Format.ZrodloID = 0
Format.WydrukID = 375
Format.ID = 1
Format.FiltrTPS = "trn_trnID=" + Filtr
Format.FiltrSQL = Format.FiltrTPS
Format.Sortowanie = ""
Format.Urzadzenie = ??CDN_Urzadzenie

If ??CDN_Urzadzenie = 3 Then Format.Drukarka = Drukarka_

Format.Wykonaj(ZmienneDyn)


End Function


]]>
</msxsl:script>
<xsl:output omit-xml-declaration="yes"/>
<xsl:preserve-space elements="*"/>

<xsl:template match="/">
<xsl:for-each select="ROOT">
<xsl:apply-templates select="RECORDSET1"/>
</xsl:for-each>

</xsl:template>

<xsl:template match="RECORDSET1">
<xsl:apply-templates select="RECORD" mode="r1"/>
</xsl:template>




<xsl:template match="RECORD" mode="r1">
<xsl:value-of select="usr:WykonajWydrukFS(string(@RpZ2_GIDNumer),string(@Printer))"/>
</xsl:template>


</xsl:stylesheet>

[RUN]
NIC.bat