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

2019-04-23T12:18:24Z

            ' Отправка подтверждения получения XML Старт
                        confname$  = datapatch$ + "Confirmation" + Strleft (v,"." )+  ".xml"          ' c:\Tmp-mejved\ConfirmationXXX.xml
                        Print "confname: " confname$ 
                        myxml = {
}   + Strleft (v,".")  +   {
  } + doc.Server_id(0) +  {
  
}
                        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 -ЕНД!

Форум компьютерной помощи — Отправка подтверждения о доставке

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