<?xml version="1.0" encoding="iso-8859-9" ?>
<?xml-stylesheet type="text/xsl" href="RSS_xslt_style.asp" version="1.0" ?>
<rss version="2.0" xmlns:WebWizForums="https://syndication.webwiz.net/rss_namespace/">
 <channel>
  <title>Clomosy | Forum : SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD</title>
  <link>https://forum.clomosy.com.tr/</link>
  <description><![CDATA[XML içerik linki; Clomosy | Forum : Genel &#304;&#351;lemler : SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD]]></description>
  <copyright>Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved.</copyright>
  <pubDate>Mon, 04 May 2026 11:06:53 +0000</pubDate>
  <lastBuildDate>Fri, 21 Mar 2025 09:52:58 +0000</lastBuildDate>
  <docs>http://blogs.law.harvard.edu/tech/rss</docs>
  <generator>Web Wiz Forums 12.07</generator>
  <ttl>360</ttl>
  <WebWizForums:feedURL>https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=987</WebWizForums:feedURL>
  <image>
   <title><![CDATA[Clomosy | Forum]]></title>
   <url>https://forum.clomosy.com.tr/forum_images/logo.png</url>
   <link>https://forum.clomosy.com.tr/</link>
  </image>
  <item>
   <title><![CDATA[SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD : Merhaba Ya&#351;ar,&#304;stedi&#287;in screenshot...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1973#1973</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=132">Atiker01</a><br /><strong>Konu:</strong> 987<br /><strong>Gönderim Zamanı:</strong> 21&nbsp;Mart&nbsp;2025 Saat 09:52<br /><br />Merhaba Yaşar,<div><br></div><div>İstediğin screenshot ile ilgili çalışmalarımız devam etmektedir.</div><div><br></div><div><b>İyi çalışmalar.</b></div>]]>
   </description>
   <pubDate>Fri, 21 Mar 2025 09:52:58 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1973#1973</guid>
  </item> 
  <item>
   <title><![CDATA[SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD : Resim atm&#305;&#351;t&#305;m ama g&#246;z&#252;kmedi....]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1971#1971</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=246">yasar</a><br /><strong>Konu:</strong> 987<br /><strong>Gönderim Zamanı:</strong> 19&nbsp;Mart&nbsp;2025 Saat 09:55<br /><br />Resim atmıştım ama gözükmedi. benim yapmak istediğim tasarladığım ekranı pdf de görmek istiyorum.<div><br></div>]]>
   </description>
   <pubDate>Wed, 19 Mar 2025 09:55:10 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1971#1971</guid>
  </item> 
  <item>
   <title><![CDATA[SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD : Denedim Ama CSV format&#305;n&#305; PDF...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1970#1970</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=246">yasar</a><br /><strong>Konu:</strong> 987<br /><strong>Gönderim Zamanı:</strong> 19&nbsp;Mart&nbsp;2025 Saat 09:53<br /><br />Denedim Ama CSV formatını PDF çevirmedi. benim yapmak istediğim bu<br><img src="" border="0" /><br>ekranı PDF'e Çevirmek.]]>
   </description>
   <pubDate>Wed, 19 Mar 2025 09:53:05 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1970#1970</guid>
  </item> 
  <item>
   <title><![CDATA[SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD : Merhaba Ya&#351;ar,A&#351;a&#287;&#305;daki kod &#246;rne&#287;inde,...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1969#1969</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=106">Developer</a><br /><strong>Konu:</strong> 987<br /><strong>Gönderim Zamanı:</strong> 19&nbsp;Mart&nbsp;2025 Saat 08:51<br /><br /><p -start="0" -end="20"><b>Merhaba Yaşar,</b></p><p -start="0" -end="20">Aşağıdaki kod örneğinde, verileri bir <code -start="117" -end="132">TclStringList</code> nesnesine kaydedip, CSV formatında dosyaya yazabiliyorsun. Daha sonra bu dosyayı açarak istediğin formatta kaydedebilirsin.</p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>var</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; Form1:TclForm;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; BtnAdd : TclProButton;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; List: TclStringList;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>void BtnAddOnClick;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>{</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; List.savetofile(Clomosy.AppFilesPath+'cl.csv',nil);</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>}</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>void TclStringListCapacityOrnegi;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp;{</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp;List = Clomosy.StringListNew;&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp;try</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;List.Capacity = 5;&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;ShowMessage('Capacity: '+IntToStr(List.Capacity));&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;List.Add('Item 1;');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;List.Add('Item 2;');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;List.Add('Item 3;');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;List.Add('Item 4;');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;List.Add('Item 5;');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;List.Add('Item 6;');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp; &nbsp;List.Add('Item 7');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp;finally</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp;&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; &nbsp;}</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp;}</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp;{&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; Form1 = TclForm.Create(Self);</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; BtnAdd = Form1.AddNewProButton(Form1,'BtnAdd','');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; BtnAdd.Align = AlRight;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; BtnAdd.Margins.Right = 10;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; BtnAdd.Width = 70;&nbsp;&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; Form1.AddNewEvent(BtnAdd,tbeOnClick,'BtnAddOnClick');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; Form1.SetImage(BtnAdd,'<a href="https://clomosy.com/demos/add-list.png" target="_blank" rel="nofollow">https://clomosy.com/demos/add-list.png</a>');</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; TclStringListCapacityOrnegi;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp; Form1.Run;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp;&nbsp;</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>&nbsp;}</b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b><br></b></p><p -start="0" -end="20"><b>İyi çalışmalar.</b></p><p -start="0" -end="20"><br></p>]]>
   </description>
   <pubDate>Wed, 19 Mar 2025 08:51:53 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1969#1969</guid>
  </item> 
  <item>
   <title><![CDATA[SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD : Uzant&#305;s&#305;n&#305; PDF format&#305;na &#231;evirdim...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1968#1968</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=246">yasar</a><br /><strong>Konu:</strong> 987<br /><strong>Gönderim Zamanı:</strong> 19&nbsp;Mart&nbsp;2025 Saat 08:11<br /><br />Uzantısını PDF formatına çevirdim kaydetti ama TCLMEMO içerisine yazdığım metini&nbsp;<br>göstermiyor ve açılmıyor nasıl düzelte bilirim.<br><br><div>var</div><div>&nbsp; Form1:TclForm;</div><div>&nbsp; Memo1 : TclMemo;</div><div>&nbsp; Layout1 : TclLayout;</div><div>&nbsp; BtnAdd : TclProButton;</div><div>&nbsp; ssd:String;</div><div>&nbsp; Report_Table:TCLProGrid;</div><div>void BtnAddOnClick;</div><div>{</div><div>&nbsp; //ShowMessage(Clomosy.AppFilesPath);</div><div>&nbsp; clSaveToFile(Clomosy.AppFilesPath+'cl.pdf',Memo1.Text);</div><div>}</div><div><br></div><div>{</div><div>&nbsp; Form1 = TclForm.Create(Self);</div><div>&nbsp; ssd='kdkskd';</div><div>&nbsp; Memo1 = Form1.AddNewMemo(Form1,'Memo1','');</div><div>&nbsp; Memo1.Align = alMostTop;</div><div>&nbsp; Memo1.Height = 500;</div><div>&nbsp; Memo1.Width = 150;</div><div>&nbsp; Memo1.Margins.Left= 10;</div><div>&nbsp; Memo1.Margins.Right= 10;&nbsp;</div><div>&nbsp; Memo1.Margins.Top= 10;</div><div>&nbsp; Memo1.TextSettings.WordWrap = True;</div><div>&nbsp; &nbsp;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp;&nbsp;</div><div>&nbsp; Layout1 = Form1.AddNewLayout(Form1,'Layout1');&nbsp;</div><div>&nbsp; Layout1.Align=ALTop;</div><div>&nbsp; Layout1.Height = 50;</div><div>&nbsp;&nbsp;</div><div>&nbsp; BtnAdd = Form1.AddNewProButton(Layout1,'BtnAdd','');</div><div>&nbsp; BtnAdd.Align = AlRight;</div><div>&nbsp; BtnAdd.Margins.Right = 10;</div><div>&nbsp; BtnAdd.Width = 70;&nbsp;&nbsp;</div><div>&nbsp; Form1.AddNewEvent(BtnAdd,tbeOnClick,'BtnAddOnClick');</div><div>&nbsp; Form1.SetImage(BtnAdd,'<a href="https://clomosy.com/demos/add-list.png" target="_blank" rel="nofollow">https://clomosy.com/demos/add-list.png</a>');</div><div>&nbsp;&nbsp;</div><div>&nbsp; Form1.Run;</div><div>}</div>&nbsp;]]>
   </description>
   <pubDate>Wed, 19 Mar 2025 08:11:30 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1968#1968</guid>
  </item> 
  <item>
   <title><![CDATA[SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD : Merhaba Ya&#351;ar,https://www.docs...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1963#1963</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=261">Harun.krks</a><br /><strong>Konu:</strong> 987<br /><strong>Gönderim Zamanı:</strong> 17&nbsp;Mart&nbsp;2025 Saat 00:23<br /><br />Merhaba Yaşar,<div><br></div><div><a href="https://www.docs.clomosy.com/index.php?title=ClSaveToFile" target="_blank" rel="nofollow">https://www.docs.clomosy.com/index.php?title=ClSaveToFile</a></div><div><br></div><div>inceleyebilirsin.</div>]]>
   </description>
   <pubDate>Mon, 17 Mar 2025 00:23:14 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1963#1963</guid>
  </item> 
  <item>
   <title><![CDATA[SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD : sorunu &#231;&#246;zd&#252;m ama bir &#351;ey sormak...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1962#1962</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=246">yasar</a><br /><strong>Konu:</strong> 987<br /><strong>Gönderim Zamanı:</strong> 14&nbsp;Mart&nbsp;2025 Saat 11:24<br /><br />sorunu çözdüm ama bir şey sormak istiyorum CLOMOSY 'de yaptığımı tasarımı PDF uzantısına dönüştürülebilir mi Yada hangi uzantıyla çıkarılmakta&nbsp;<div><br></div>]]>
   </description>
   <pubDate>Fri, 14 Mar 2025 11:24:34 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1962#1962</guid>
  </item> 
  <item>
   <title><![CDATA[SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD : varbelgeform:TclForm;baslik,ta...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1961#1961</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=246">yasar</a><br /><strong>Konu:</strong> 987<br /><strong>Gönderim Zamanı:</strong> 14&nbsp;Mart&nbsp;2025 Saat 09:38<br /><br /><div>var</div><div>belgeform:TclForm;</div><div>baslik,tarihlbl,belgenolbl,firmalbl,tefonlbl,</div><div>adreslbl,brutlbl,aratoplamlbl,kdvlbl,geneltoplamlbl,</div><div>notlarlbl,metinlbl,aliciimza,saticiimza:TClProLabel;</div><div>say1,say2,say3,say4,say5,say6,say7,say8,say9:TClProLabel</div><div>ViewReportQry,ViewReportQry2:TClSqlQuery;</div><div>ScrollBox:TCLVertScrollBox;</div><div>Report_Table:TCLProGrid;</div><div>incomingProductList,i,carirecno: Integer;</div><div><br></div><div>void baglantilar</div><div>{</div><div>&nbsp; ViewReportQry = TClSqlQuery.Create(nil);</div><div>&nbsp; Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-OA0VJ0A', 'sa', '123', 'YASAR_2', 1433);</div><div>&nbsp; ViewReportQry.Connection = Clomosy.DBSQLServerConnection;&nbsp;</div><div>&nbsp; ViewReportQry.Sql.Text='SELECT&nbsp;</div><div>&nbsp; &nbsp; &nbsp; &nbsp;TBLSTOKSB.STOK_KODU</div><div>&nbsp; &nbsp; &nbsp; &nbsp;,TBLSTOKSB.STOK_ADI AS STOK_ADI</div><div>&nbsp; &nbsp; &nbsp; &nbsp;,(CASE WHEN&nbsp; ISNULL(TBLSIPARHR.GCMIK,0) =0 AND NOT BELGE_TIPI IN (3,4)&nbsp; THEN 1 ELSE&nbsp; ISNULL(TBLSIPARHR.GCMIK,0)&nbsp; END)&nbsp; AS GCMIK</div><div>&nbsp; &nbsp; &nbsp; &nbsp;,TBLSIPARHR.OLCU_BR</div><div><span style="white-space: normal;"><span style="white-space:pre">	</span>&nbsp; &nbsp; &nbsp;,TBLSIPARHR.STOK_BF</span></div><div>&nbsp; &nbsp; &nbsp; &nbsp;, ( (CASE WHEN&nbsp; ISNULL(TBLSIPARHR.GCMIK,0) =0 THEN 1 ELSE&nbsp; ISNULL(TBLSIPARHR.GCMIK,0)&nbsp; END) *STOK_NF) AS NET_TUTAR</div><div>&nbsp; &nbsp; &nbsp; &nbsp;FROM TBLSTOKSB, TBLSIPARHR</div><div>&nbsp; &nbsp; &nbsp; &nbsp;WHERE TBLSTOKSB.REC_NO = TBLSIPARHR.STOK_KODU_RECID</div><div>&nbsp; &nbsp; &nbsp; &nbsp; AND BELGE_TIPI=21</div><div>&nbsp; &nbsp; &nbsp; &nbsp; AND SUBE_KODU=0</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AND BELGE_NO = '''+QuotedStr(say2.Text)+'''</div><div>&nbsp; &nbsp; &nbsp; &nbsp; AND CARI_KODU_RECID='''+QuotedStr(carirecno)+'''</div><div>&nbsp; &nbsp; &nbsp; &nbsp; ORDER BY TBLSIPARHR.REC_NO</div><div><br></div><div>&nbsp; &nbsp; &nbsp; ';</div><div>&nbsp; &nbsp;&nbsp;</div><div>}</div><div><br></div><div>void veriler</div><div>{</div><div>&nbsp; incomingProductList = Clomosy.StringListNew;</div><div>&nbsp; incomingProductList = Clomosy.GlobalVariableStringList;</div><div>&nbsp; for (i = 0 to incomingProductList.count - 1)</div><div>&nbsp; &nbsp;{</div><div>&nbsp; &nbsp; if(i==0)</div><div>&nbsp; &nbsp; {</div><div>&nbsp; &nbsp; &nbsp; say2.Text=Clomosy.StringListItemString(incomingProductList,i);</div><div>&nbsp; &nbsp; }</div><div>&nbsp; &nbsp; if(i==1)</div><div>&nbsp; &nbsp; {</div><div>&nbsp; &nbsp; &nbsp; say1.Text=':'+Clomosy.StringListItemString(incomingProductList,i);</div><div>&nbsp; &nbsp; }</div><div>&nbsp; &nbsp; if(i==2)</div><div>&nbsp; &nbsp; {</div><div>&nbsp; &nbsp; &nbsp; say3.Text=':'+Clomosy.StringListItemString(incomingProductList,i);</div><div>&nbsp; &nbsp; }</div><div>&nbsp; &nbsp; if(i==3)</div><div>&nbsp; &nbsp; {</div><div>&nbsp; &nbsp; &nbsp; carirecno=Clomosy.StringListItemString(incomingProductList,i);</div><div>&nbsp; &nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; }</div><div>&nbsp; &nbsp;}</div><div>&nbsp; &nbsp;</div><div>}</div><div><br></div><div>void degerler</div><div>{</div><div>&nbsp; say1 = belgeform.AddNewProLabel(ScrollBox,'say1',':Müşteri Sipariş Formu');</div><div>&nbsp; say1.Margins.Bottom=1480;</div><div>&nbsp; say1.Margins.Left=30;</div><div>&nbsp; say1.Margins.Right=270;</div><div>&nbsp; say1.Width=250;</div><div>&nbsp; say1.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say1.clProSettings.FontSize = 12;</div><div>&nbsp; say1.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say1.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say1.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say1.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say1.clProSettings.IsRound = True;</div><div>&nbsp; say1.SetclProSettings(say1.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; say2 = belgeform.AddNewProLabel(ScrollBox,'say2',':Müşteri Sipariş Formu');</div><div>&nbsp; say2.Margins.Bottom=1430;</div><div>&nbsp; say2.Margins.Left=30;</div><div>&nbsp; say2.Margins.Right=270;</div><div>&nbsp; say2.Width=250;</div><div>&nbsp; say2.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say2.clProSettings.FontSize = 12;</div><div>&nbsp; say2.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say2.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say2.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say2.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say2.clProSettings.IsRound = True;</div><div>&nbsp; say2.SetclProSettings(say2.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; say3 = belgeform.AddNewProLabel(ScrollBox,'say3',':Müşteri Sipariş Formu');</div><div>&nbsp; say3.Margins.Bottom=1380;</div><div>&nbsp; say3.Margins.Left=30;</div><div>&nbsp; say3.Margins.Right=270;</div><div>&nbsp; say3.Width=250;</div><div>&nbsp; say3.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say3.clProSettings.FontSize = 12;</div><div>&nbsp; say3.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say3.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say3.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say3.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say3.clProSettings.IsRound = True;</div><div>&nbsp; say3.SetclProSettings(say3.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; say4 = belgeform.AddNewProLabel(ScrollBox,'say4',':Müşteri Sipariş Formu');</div><div>&nbsp; say4.Margins.Bottom=1330;</div><div>&nbsp; say4.Margins.Left=30;</div><div>&nbsp; say4.Margins.Right=270;</div><div>&nbsp; say4.Width=250;</div><div>&nbsp; say4.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say4.clProSettings.FontSize = 12;</div><div>&nbsp; say4.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say4.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say4.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say4.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say4.clProSettings.IsRound = True;</div><div>&nbsp; say4.SetclProSettings(say4.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; say5 = belgeform.AddNewProLabel(ScrollBox,'say5',':Müşteri Sipariş Formu');</div><div>&nbsp; say5.Margins.Bottom=1280;</div><div>&nbsp; say5.Margins.Left=30;</div><div>&nbsp; say5.Margins.Right=270;</div><div>&nbsp; say5.Width=250;</div><div>&nbsp; say5.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say5.clProSettings.FontSize = 12;</div><div>&nbsp; say5.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say5.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say5.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say5.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say5.clProSettings.IsRound = True;</div><div>&nbsp; say5.SetclProSettings(say5.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; say6 = belgeform.AddNewProLabel(ScrollBox,'say6',':Formu');</div><div>&nbsp; say6.Margins.Bottom=510;</div><div>&nbsp; say6.Margins.Left=900;</div><div>&nbsp; say6.Margins.Right=30;</div><div>&nbsp; say6.Width=250;</div><div>&nbsp; say6.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say6.clProSettings.FontSize = 12;</div><div>&nbsp; say6.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say6.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say6.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say6.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say6.clProSettings.IsRound = True;</div><div>&nbsp; say6.SetclProSettings(say6.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; say7 = belgeform.AddNewProLabel(ScrollBox,'say7',':Formu');</div><div>&nbsp; say7.Margins.Bottom=460;</div><div>&nbsp; say7.Margins.Left=900;</div><div>&nbsp; say7.Margins.Right=30;</div><div>&nbsp; say7.Width=250;</div><div>&nbsp; say7.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say7.clProSettings.FontSize = 12;</div><div>&nbsp; say7.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say7.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say7.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say7.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say7.clProSettings.IsRound = True;</div><div>&nbsp; say7.SetclProSettings(say7.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; say8 = belgeform.AddNewProLabel(ScrollBox,'say8',':Formu');</div><div>&nbsp; say8.Margins.Bottom=415;</div><div>&nbsp; say8.Margins.Left=900;</div><div>&nbsp; say8.Margins.Right=30;</div><div>&nbsp; say8.Width=250;</div><div>&nbsp; say8.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say8.clProSettings.FontSize = 12;</div><div>&nbsp; say8.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say8.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say8.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say8.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say8.clProSettings.IsRound = True;</div><div>&nbsp; say8.SetclProSettings(say8.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; say9 = belgeform.AddNewProLabel(ScrollBox,'say9',':Formu');</div><div>&nbsp; say9.Margins.Bottom=365;</div><div>&nbsp; say9.Margins.Left=900;</div><div>&nbsp; say9.Margins.Right=30;</div><div>&nbsp; say9.Width=250;</div><div>&nbsp; say9.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; say9.clProSettings.FontSize = 12;</div><div>&nbsp; say9.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; say9.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; say9.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; say9.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; say9.clProSettings.IsRound = True;</div><div>&nbsp; say9.SetclProSettings(say9.clProSettings);</div><div>}</div><div><br></div><div>{</div><div>&nbsp; belgeform=TclForm.Create(Self);</div><div>&nbsp;&nbsp;</div><div>&nbsp; ScrollBox = belgeform.AddNewVertScrollBox(belgeform,'horzScrollBox');</div><div>&nbsp; ScrollBox.Align = alClient;</div><div>&nbsp; ScrollBox.Height = 100;</div><div>&nbsp; ScrollBox.Margins.Left = 10;</div><div>&nbsp; ScrollBox.Margins.Right = 10;</div><div>&nbsp; ScrollBox.Margins.Top = 5;</div><div>&nbsp; ScrollBox.ShowScrollBars = True;</div><div>&nbsp;&nbsp;</div><div>&nbsp; baslik = belgeform.AddNewProLabel(ScrollBox,'baslik','Müşteri Sipariş Formu');</div><div>&nbsp; baslik.Align=alMostTop;</div><div>&nbsp; baslik.Margins.Left=30;</div><div>&nbsp; baslik.Margins.Right=450;</div><div>&nbsp; baslik.Width=250;</div><div>&nbsp; baslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; baslik.clProSettings.FontSize = 18;</div><div>&nbsp; baslik.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; baslik.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; baslik.clProSettings.TextSettings.Font.Style = &#091;fsBold&#093;;</div><div>&nbsp; baslik.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; baslik.clProSettings.IsRound = True;</div><div>&nbsp; baslik.SetclProSettings(baslik.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; tarihlbl = belgeform.AddNewProLabel(ScrollBox,'tarihlbl','Tarih');</div><div>&nbsp; tarihlbl.Align=alMostTop;</div><div>&nbsp; tarihlbl.Margins.Top=2;</div><div>&nbsp; tarihlbl.Margins.Left=30;</div><div>&nbsp; tarihlbl.Margins.Right=450;</div><div>&nbsp; tarihlbl.Width=250;</div><div>&nbsp; tarihlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; tarihlbl.clProSettings.FontSize = 12;</div><div>&nbsp; tarihlbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; tarihlbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; tarihlbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; tarihlbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; tarihlbl.clProSettings.IsRound = True;</div><div>&nbsp; tarihlbl.SetclProSettings(tarihlbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; belgenolbl = belgeform.AddNewProLabel(ScrollBox,'belgenolbl','Belge No');</div><div>&nbsp; belgenolbl.Align=alMostTop;</div><div>&nbsp; belgenolbl.Margins.Top=2;</div><div>&nbsp; belgenolbl.Margins.Left=30;</div><div>&nbsp; belgenolbl.Margins.Right=450;</div><div>&nbsp; belgenolbl.Width=250;</div><div>&nbsp; belgenolbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; belgenolbl.clProSettings.FontSize = 12;</div><div>&nbsp; belgenolbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; belgenolbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; belgenolbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; belgenolbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; belgenolbl.clProSettings.IsRound = True;</div><div>&nbsp; belgenolbl.SetclProSettings(belgenolbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; firmalbl = belgeform.AddNewProLabel(ScrollBox,'firmalbl','Firma');</div><div>&nbsp; &nbsp;firmalbl.Align=alMostTop;</div><div>&nbsp; firmalbl.Margins.Top=2;</div><div>&nbsp; firmalbl.Margins.Left=30;</div><div>&nbsp; firmalbl.Margins.Right=450;</div><div>&nbsp; firmalbl.Width=250;</div><div>&nbsp; firmalbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; firmalbl.clProSettings.FontSize = 12;</div><div>&nbsp; firmalbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; firmalbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; firmalbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; firmalbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; firmalbl.clProSettings.IsRound = True;</div><div>&nbsp; firmalbl.SetclProSettings(firmalbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; tefonlbl = belgeform.AddNewProLabel(ScrollBox,'tefonlbl','Telefon / Faks');</div><div>&nbsp; tefonlbl.Align=alMostTop;</div><div>&nbsp; tefonlbl.Margins.Top=2;</div><div>&nbsp; tefonlbl.Margins.Left=30;</div><div>&nbsp; tefonlbl.Margins.Right=450;</div><div>&nbsp; tefonlbl.Width=250;</div><div>&nbsp; tefonlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; tefonlbl.clProSettings.FontSize = 12;</div><div>&nbsp; tefonlbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; tefonlbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; tefonlbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; tefonlbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; tefonlbl.clProSettings.IsRound = True;</div><div>&nbsp; tefonlbl.SetclProSettings(tefonlbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; adreslbl = belgeform.AddNewProLabel(ScrollBox,'adreslbl','Adres');</div><div>&nbsp; adreslbl.Align=alMostTop;</div><div>&nbsp; adreslbl.Margins.Top=2;</div><div>&nbsp; adreslbl.Margins.Left=30;</div><div>&nbsp; adreslbl.Margins.Right=450;</div><div>&nbsp; adreslbl.Width=250;</div><div>&nbsp; adreslbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; adreslbl.clProSettings.FontSize = 12;</div><div>&nbsp; adreslbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; adreslbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; adreslbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; adreslbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; adreslbl.clProSettings.IsRound = True;</div><div>&nbsp; adreslbl.SetclProSettings(adreslbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; degerler();</div><div>&nbsp; baglantilar();</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp;Report_Table = belgeform.AddNewProGrid(ScrollBox, 'Report_Table');</div><div>&nbsp; &nbsp;Report_Table.ConnectDataSet(ViewReportQry);</div><div>&nbsp; &nbsp; Report_Table.AutoSizeColumns(True,150);&nbsp;</div><div>&nbsp; &nbsp; with Report_Table do</div><div>&nbsp; &nbsp; {</div><div>&nbsp; &nbsp; &nbsp;Align = alMostTop;</div><div>&nbsp; &nbsp; &nbsp;Margins.Top=50;</div><div>&nbsp; &nbsp; &nbsp;Margins.Right=10;</div><div>&nbsp; &nbsp; &nbsp;Margins.LEFT=30;</div><div>&nbsp; &nbsp; &nbsp;Margins.Bottom=10;</div><div>&nbsp; &nbsp; &nbsp;Width=(belgeform.clWidth*70)/100;</div><div>&nbsp; &nbsp; &nbsp;Height=(belgeform.clHeight*50)/100;</div><div>&nbsp; &nbsp; NormalLayoutFillColor = clAlphaColor.clhextocolor('#a0a0a0');</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;BandLayoutFillColor&nbsp; = clAlphaColor.clhextocolor('#a0a0a0');&nbsp;</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;SelectedLayoutFontColor = clAlphaColor.clHexToColor('#000000');&nbsp;</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;SelectedLayoutFillColor = clAlphaColor.clHexToColor('#a0a0a0');&nbsp;</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;FocusedLayoutFontColor = clAlphaColor.clwhite;&nbsp;&nbsp;</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;FocusedLayoutFillColor = clAlphaColor.clHexToColor('#808080');&nbsp;</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;FixedLayoutFillColor = clAlphaColor.clHexToColor('#c0c0c0');&nbsp;</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;FixedLayoutFontColor = clAlphaColor.clHexToColor('#000000');&nbsp;</div><div>&nbsp; &nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; }</div><div>&nbsp; &nbsp; Report_Table.Options.Selection.Mode = smSingleRow;</div><div>&nbsp; &nbsp; &nbsp;</div><div>&nbsp; &nbsp; &nbsp; Report_Table.Cells&#091;0,0&#093; = 'STOK KODU';</div><div>&nbsp; &nbsp; &nbsp; Report_Table.Cells&#091;1,0&#093; = 'STOK ADI';</div><div>&nbsp; &nbsp; &nbsp; Report_Table.Cells&#091;2,0&#093; = 'MİKTAR';</div><div>&nbsp; &nbsp; &nbsp; Report_Table.Cells&#091;3,0&#093; = 'BİRİM';</div><div>&nbsp; &nbsp; &nbsp; Report_Table.Cells&#091;4,0&#093; = 'FİYAT';</div><div>&nbsp; &nbsp; &nbsp; Report_Table.Cells&#091;5,0&#093; = 'TUTAR';</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp;&nbsp;</div><div>&nbsp; brutlbl = belgeform.AddNewProLabel(ScrollBox,'brutlbl','Brüt Toplam');</div><div>&nbsp; brutlbl.Align=alMostTop;</div><div>&nbsp; brutlbl.Margins.Top=2;</div><div>&nbsp; brutlbl.Margins.Left=600;</div><div>&nbsp; brutlbl.Margins.Right=30;</div><div>&nbsp; brutlbl.Width=250;</div><div>&nbsp; brutlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; brutlbl.clProSettings.FontSize = 12;</div><div>&nbsp; brutlbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; brutlbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; brutlbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; brutlbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; brutlbl.clProSettings.IsRound = True;</div><div>&nbsp; brutlbl.SetclProSettings(brutlbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; aratoplamlbl = belgeform.AddNewProLabel(ScrollBox,'aratoplamlbl','Ara Toplam');</div><div>&nbsp; aratoplamlbl.Align=alMostTop;</div><div>&nbsp; aratoplamlbl.Margins.Top=2;</div><div>&nbsp; aratoplamlbl.Margins.Left=600;</div><div>&nbsp; aratoplamlbl.Margins.Right=30;</div><div>&nbsp; aratoplamlbl.Width=250;</div><div>&nbsp; aratoplamlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; aratoplamlbl.clProSettings.FontSize = 12;</div><div>&nbsp; aratoplamlbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; aratoplamlbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; aratoplamlbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; aratoplamlbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; aratoplamlbl.clProSettings.IsRound = True;</div><div>&nbsp; aratoplamlbl.SetclProSettings(aratoplamlbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp;&nbsp;</div><div>&nbsp; kdvlbl = belgeform.AddNewProLabel(ScrollBox,'kdvlbl','KDV % ');</div><div>&nbsp; kdvlbl.Align=alMostTop;</div><div>&nbsp; kdvlbl.Margins.Top=2;</div><div>&nbsp; kdvlbl.Margins.Left=600;</div><div>&nbsp; kdvlbl.Margins.Right=30;</div><div>&nbsp; kdvlbl.Width=250;</div><div>&nbsp; kdvlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; kdvlbl.clProSettings.FontSize = 12;</div><div>&nbsp; kdvlbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; kdvlbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; kdvlbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; kdvlbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; kdvlbl.clProSettings.IsRound = True;</div><div>&nbsp; kdvlbl.SetclProSettings(kdvlbl.clProSettings);&nbsp;&nbsp;</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp; geneltoplamlbl = belgeform.AddNewProLabel(ScrollBox,'geneltoplamlbl','Genel Toplam');</div><div>&nbsp; geneltoplamlbl.Align=alMostTop;</div><div>&nbsp; geneltoplamlbl.Margins.Top=2;</div><div>&nbsp; geneltoplamlbl.Margins.Left=600;</div><div>&nbsp; geneltoplamlbl.Margins.Right=30;</div><div>&nbsp; geneltoplamlbl.Width=250;</div><div>&nbsp; geneltoplamlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; geneltoplamlbl.clProSettings.FontSize = 12;</div><div>&nbsp; geneltoplamlbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; geneltoplamlbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; geneltoplamlbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; geneltoplamlbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; geneltoplamlbl.clProSettings.IsRound = True;</div><div>&nbsp; geneltoplamlbl.SetclProSettings(geneltoplamlbl.clProSettings);&nbsp;</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp;metinlbl = belgeform.AddNewProLabel(ScrollBox,'metinlbl','Lütfen siparişimizi kabul ettiğinizi aşağıdaki kısmı imzalayıp formu numaralı telefonumuza faks göndererek teyit ediniz');</div><div>&nbsp; metinlbl.Align=alMostTop;</div><div>&nbsp; metinlbl.Margins.Top=50;</div><div>&nbsp; metinlbl.Margins.Left=60;</div><div>&nbsp; metinlbl.Margins.Right=30;</div><div>&nbsp; metinlbl.Width=500;</div><div>&nbsp; metinlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; metinlbl.clProSettings.FontSize = 12;</div><div>&nbsp; metinlbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; metinlbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; metinlbl.clProSettings.TextSettings.Font.Style = &#091;fsUnderline&#093;;</div><div>&nbsp; metinlbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; metinlbl.clProSettings.IsRound = True;</div><div>&nbsp; metinlbl.SetclProSettings(metinlbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; notlarlbl = belgeform.AddNewProLabel(ScrollBox,'notlarlbl','Notlar');</div><div>&nbsp; notlarlbl.Margins.Bottom=300;</div><div>&nbsp; notlarlbl.Margins.Left=20;</div><div>&nbsp; notlarlbl.Margins.Right=470;</div><div>&nbsp; notlarlbl.Width=250;</div><div>&nbsp; notlarlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; notlarlbl.clProSettings.FontSize = 12;</div><div>&nbsp; notlarlbl.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; notlarlbl.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; notlarlbl.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; notlarlbl.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; notlarlbl.clProSettings.IsRound = True;</div><div>&nbsp; notlarlbl.SetclProSettings(notlarlbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; aliciimza = belgeform.AddNewProLabel(ScrollBox,'aliciimza','Alıcı Firma (Yetkili Kişi) Tarih / Kaşe / İmza ');</div><div>&nbsp; aliciimza.Margins.Bottom=100;</div><div>&nbsp; aliciimza.Margins.Left=20;</div><div>&nbsp; aliciimza.Margins.Right=470;</div><div>&nbsp; aliciimza.Width=250;</div><div>&nbsp; aliciimza.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; aliciimza.clProSettings.FontSize = 12;</div><div>&nbsp; aliciimza.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; aliciimza.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; aliciimza.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; aliciimza.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; aliciimza.clProSettings.IsRound = True;</div><div>&nbsp; aliciimza.SetclProSettings(aliciimza.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; saticiimza = belgeform.AddNewProLabel(ScrollBox,'saticiimza','Satıcı Firma (Yetkili Kişi) Tarih / Kaşe / İmza');</div><div>&nbsp; saticiimza.Margins.Bottom=100;</div><div>&nbsp; saticiimza.Margins.Left=470;</div><div>&nbsp; saticiimza.Margins.Right=20;</div><div>&nbsp; saticiimza.Width=250;</div><div>&nbsp; saticiimza.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; saticiimza.clProSettings.FontSize = 12;</div><div>&nbsp; saticiimza.clProSettings.FontVertAlign = palcenter;</div><div>&nbsp; saticiimza.clProSettings.FontHorzAlign = palLeading;</div><div>&nbsp; saticiimza.clProSettings.TextSettings.Font.Style = &#091;ftMasters&#093;;</div><div>&nbsp; saticiimza.clProSettings.IsFill = True;&nbsp;</div><div>&nbsp; saticiimza.clProSettings.IsRound = True;</div><div>&nbsp; saticiimza.SetclProSettings(saticiimza.clProSettings);</div><div>&nbsp;&nbsp;</div><div>//&nbsp; degerler();</div><div>&nbsp; veriler();</div><div>&nbsp; //baglantilar();</div><div>&nbsp;&nbsp;</div><div>&nbsp; ClRTSetProperty(belgeform,'ClientWidth',775);</div><div>&nbsp; ClRTSetProperty(belgeform,'ClientHeight',930);</div><div>&nbsp; belgeform.SetFormColor('#FFFFFF','',clGNone);</div><div>&nbsp; belgeform.Run;</div><div>&nbsp; belgeform.FormWaiting.Visible = False;</div><div>&nbsp; belgeform.BtnFormMenu.Visible = False;</div><div>&nbsp; belgeform.BtnGoBack.Visible = False;</div><div>&nbsp;&nbsp;</div><div>}<br><br>MERHABA KOLAY GELSİN KODUM BU YUKARDAN VERİ ÇEKİYORUM VE GRİDE AKTARIYORUM AMA HATA ALMAKTAYIM NEDENİ NEDEN OLABİLİR</div><div><br></div>]]>
   </description>
   <pubDate>Fri, 14 Mar 2025 09:38:28 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=987&amp;PID=1961#1961</guid>
  </item> 
 </channel>
</rss>