1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

Тема: Отправка подтверждения о доставке

            ' Отправка подтверждения получения XML Старт
                        confname$  = datapatch$ + "Confirmation" + Strleft (v,"." )+  ".xml"          ' c:\Tmp-mejved\ConfirmationXXX.xml
                        Print "confname: " confname$ 
                        myxml = {<html Typ="Confirmation">
<id>}   + Strleft (v,".")  +   {</id>
  <kodorg>} + doc.Server_id(0) +  {</kodorg>
  <sig></sig>
</html>}
                        Call strmxml.Open( confname$, "UTF-8")
                        Call strmxml.Truncate
                        Call  strmxml.WriteText(myxml)   '  записали ConfirmationXXX.xml в c$\Tmp-mejved\
                        Call strmxml.Close
                        
                        ' залить ConfirmationXXX.xml  на FTP
                        namout = "Ishodishie/" &  "Confirmation" + Strleft (v,"." )+  ".xml"  
                        Print "namout: " namout
                        .PutFile confname$, namout,FTP_TRANSFER_TYPE_ASCII
                        
                        Sleep (2)
                        Kill confname$
                        Print confname$ " отослан и удален"
                        myxml = ""
                        confname$ = ""    
                        ' Отправка подтверждения получения XML -ЕНД!

Поделиться