Svetlana
16th November 2006, 09:41
cmfId = xmlNewNode("RESPONSE",XML_ELEMENT)
retVal = xmlSetAttribute(cmfId, "VERSION", "1.0.0" )
identId = xmlNewNode("HEADER", XML_ELEMENT, cmfId)
ddat=DTE$()
filename="20"&ddat(5;2)&"-"&ddat(1;2)&"-"&ddat(3;2)&"T"&ddat(7;2)&"-"&ddat(9;2)&"-"&ddat(11;2)&"_MESSAGEID.xml"
retVal = xmlSetAttribute (identId, "MESSAGEID", "Ñîîáùåíèå îòïðàâèòåëÿ" )
retVal = xmlSetAttribute(identId, "SEND_DATE", filename(1;19) )
retVal = xmlSetAttribute(identId, "DIRECTION", "TO_ESK" )
retVal = xmlSetAttribute(identId, "DECLARANT", logname$ )
retVal = xmlSetAttribute(identId, "DECLARANT_EMAIL", vscom006.mail )
CONTRAGENTID = xmlNewNode("CONTRAGENT", XML_ELEMENT, cmfId)
LOCAL_SYSTEM_HEADERID=xmlNewNode("LOCAL_SYSTEM_HEADER", XML_ELEMENT, CONTRAGENTID)
LOCAL_SYSTEMID=xmlNewNode("LOCAL_SYSTEM", XML_ELEMENT, LOCAL_SYSTEM_HEADERID)
CA_ADDRESSESID=xmlNewNode("CA_ADDRESSES", XML_ELEMENT, CONTRAGENTID)
CA_UA_ADDRESSID=xmlNewNode("CA_UA_ADDRESS", XML_ELEMENT, CA_ADDRESSESID)
CA_FA_ADDRESSID=xmlNewNode("CA_FA_ADDRESS", XML_ELEMENT, CA_ADDRESSESID)
retVal = xmlSetAttribute (CONTRAGENTID, "PARENT_ESK_CODE", vscom824.Gesk )
retVal = xmlSetAttribute(CONTRAGENTID, "ESK_CODE", vscom824.Cesk )
retVal = xmlSetAttribute (CONTRAGENTID, "CA_STATE_ID", vscom824.Psts )
retVal = xmlSetAttribute(CONTRAGENTID, "CA_TYPE_ID", vscom824.Ctyp )
retVal = xmlSetAttribute (CONTRAGENTID, "NAME_65", vscom824.nama&" "&vscom824.namb )
code.fd=creat.tmp.file$(bse.tmp.dir$())
xmlWritePretty(fd, cmfId, 0 )
seq.close(fd)
I send a file on reading.
I receive mistakes:
Patch number: -1
Error Code: Error executing
Error message: Ошибка при выполнении. System.ArgumentException: Cannot set column 'C21252'. The value violates the MaxLength limit of this column. at System.Data.DataColumn.CheckMaxLength(DataRow dr) at System.Data.DataTable.RaiseRowChanging(DataRowChangeEventArgs args, DataRow eRow, DataRowAction eAction, Boolean fireEvent) at System.Data.DataTable.SetNewRecordWorker(DataRow row, Int32 proposedRecord, DataRowAction action, Boolean isInMerge, Int32 position, Boolean fireEvent, Exception& deferredException) at System.Data.DataTable.InsertRow(DataRow row, Int32 proposedID, Int32 pos, Boolean fireEvent) at System.Data.DataRowCollection.Add(DataRow row) at ESK.PortalSupportLibrary.Positions.AddPositionDataRowByDBColumnNames(DataSet positionDataSet, XmlNode positionNode, MarshalElement element, String& errorCode, String& errorDescription, IDictionary`2 infoTypes, DateTime _InfinityDateTime) at ESK.PortalSupportLibrary.Positions.AddPositionByDBColumnNames(XmlDocument inDoc)
I do not understand, what not so.
Help me, please.
retVal = xmlSetAttribute(cmfId, "VERSION", "1.0.0" )
identId = xmlNewNode("HEADER", XML_ELEMENT, cmfId)
ddat=DTE$()
filename="20"&ddat(5;2)&"-"&ddat(1;2)&"-"&ddat(3;2)&"T"&ddat(7;2)&"-"&ddat(9;2)&"-"&ddat(11;2)&"_MESSAGEID.xml"
retVal = xmlSetAttribute (identId, "MESSAGEID", "Ñîîáùåíèå îòïðàâèòåëÿ" )
retVal = xmlSetAttribute(identId, "SEND_DATE", filename(1;19) )
retVal = xmlSetAttribute(identId, "DIRECTION", "TO_ESK" )
retVal = xmlSetAttribute(identId, "DECLARANT", logname$ )
retVal = xmlSetAttribute(identId, "DECLARANT_EMAIL", vscom006.mail )
CONTRAGENTID = xmlNewNode("CONTRAGENT", XML_ELEMENT, cmfId)
LOCAL_SYSTEM_HEADERID=xmlNewNode("LOCAL_SYSTEM_HEADER", XML_ELEMENT, CONTRAGENTID)
LOCAL_SYSTEMID=xmlNewNode("LOCAL_SYSTEM", XML_ELEMENT, LOCAL_SYSTEM_HEADERID)
CA_ADDRESSESID=xmlNewNode("CA_ADDRESSES", XML_ELEMENT, CONTRAGENTID)
CA_UA_ADDRESSID=xmlNewNode("CA_UA_ADDRESS", XML_ELEMENT, CA_ADDRESSESID)
CA_FA_ADDRESSID=xmlNewNode("CA_FA_ADDRESS", XML_ELEMENT, CA_ADDRESSESID)
retVal = xmlSetAttribute (CONTRAGENTID, "PARENT_ESK_CODE", vscom824.Gesk )
retVal = xmlSetAttribute(CONTRAGENTID, "ESK_CODE", vscom824.Cesk )
retVal = xmlSetAttribute (CONTRAGENTID, "CA_STATE_ID", vscom824.Psts )
retVal = xmlSetAttribute(CONTRAGENTID, "CA_TYPE_ID", vscom824.Ctyp )
retVal = xmlSetAttribute (CONTRAGENTID, "NAME_65", vscom824.nama&" "&vscom824.namb )
code.fd=creat.tmp.file$(bse.tmp.dir$())
xmlWritePretty(fd, cmfId, 0 )
seq.close(fd)
I send a file on reading.
I receive mistakes:
Patch number: -1
Error Code: Error executing
Error message: Ошибка при выполнении. System.ArgumentException: Cannot set column 'C21252'. The value violates the MaxLength limit of this column. at System.Data.DataColumn.CheckMaxLength(DataRow dr) at System.Data.DataTable.RaiseRowChanging(DataRowChangeEventArgs args, DataRow eRow, DataRowAction eAction, Boolean fireEvent) at System.Data.DataTable.SetNewRecordWorker(DataRow row, Int32 proposedRecord, DataRowAction action, Boolean isInMerge, Int32 position, Boolean fireEvent, Exception& deferredException) at System.Data.DataTable.InsertRow(DataRow row, Int32 proposedID, Int32 pos, Boolean fireEvent) at System.Data.DataRowCollection.Add(DataRow row) at ESK.PortalSupportLibrary.Positions.AddPositionDataRowByDBColumnNames(DataSet positionDataSet, XmlNode positionNode, MarshalElement element, String& errorCode, String& errorDescription, IDictionary`2 infoTypes, DateTime _InfinityDateTime) at ESK.PortalSupportLibrary.Positions.AddPositionByDBColumnNames(XmlDocument inDoc)
I do not understand, what not so.
Help me, please.