how to write this Line ?

[Jimmy]

hi,

i try to read from XML File

Code: Select all | Expand

 <ram:IssueDateTime>
   <udt:DateTimeString format="102">20240528</udt:DateTimeString>

using this

Code: Select all | Expand

   REPLACE ISU_DATE WITH Stod( SubStr( ExtractTag( cXml, "<udt:DateTimeString format=´102´>", "</udt:DateTimeString>" ), 1, 8 ) )

but it give me only Error

how to write that Line ?

[mauri.menabue]

hi Jimmy,
try to semplify the expression :

Code: Select all | Expand

   LOCAL dRet
   LOCAL xRet
   LOCAL cRet
   LOCAL c102

   c102 := "´102´"
   

   xRet := ExtractTag( cXml, "<udt:DateTimeString format=" + c102 + ">", "</udt:DateTimeString>" )
   

   cRet := SubStr( xRet, 1, 8 )
   

   dRet := Stod( cRet )

   REPLACE ISU_DATE WITH dRet

thanks

[Jimmy]

hi,

try to semplify the expression :

THX for help
nice Idee, but still NOT working

Code: Select all | Expand

PROCEDURE ImportInvoice( cXmlFile )
   LOCAL cXml := MemoRead( cXmlFile )
   LOCAL CTAX
   LOCAL dRet
   LOCAL xRet
   LOCAL cRet
   LOCAL c102

   c102 := "´102´"
   // ------------------- Invoice Header -------------------
   USE INVOICE NEW exclusiv
   ZAP
   APPEND BLANK
   REPLACE INV_ID   WITH win_UuidCreateString()
   REPLACE INV_NUM  WITH ExtractTag( cXml, "<ram:ID>", "</ram:ID>" )
   *REPLACE ISU_DATE WITH Stod( SubStr( ExtractTag( cXml, ´<udt:DateTimeString format="102">´, "</udt:DateTimeString>" ), 1, 8 ) )
   xRet := ExtractTag( cXml, "<udt:DateTimeString format=" + c102 + ">", "</udt:DateTimeString>" )
   cRet := SubStr( xRet, 1, 8 )
   dRet := Stod( cRet )
   REPLACE ISU_DATE WITH dRet

it must be this String :

Code: Select all | Expand

<udt:DateTimeString format="102"

but it is this String :

<udt:DateTimeString format="´102´"

i have also try this :

Code: Select all | Expand

 c102 := chr(34)+"102"+CHR(34)
   // ------------------- Invoice Header -------------------
   USE INVOICE NEW exclusiv
   ZAP
   APPEND BLANK
   

*   REPLACE ISU_DATE WITH Stod( SubStr( ExtractTag( cXml, "<udt:DateTimeString format=´102´>", "</udt:DateTimeString>" ), 1, 8 ) )
   xRet := ExtractTag( cXml, "<udt:DateTimeString format=" + c102 + ">", "</udt:DateTimeString>" )
   cRet := SubStr( xRet, 1, 8 )
   dRet := Stod( cRet )
   REPLACE ISU_DATE WITH dRet

but still dos NOT work

[alerchster]

Code: Select all | Expand

REPLACE ISU_DATE WITH Stod( SubStr( ExtractTag( cXml, [<udt:DateTimeString format="102">], [</udt:DateTimeString>] ), 1, 8 ) )

maybe

[mauri.menabue]

hi Jimmi,
is problem solved ?
if not try

Code: Select all | Expand

   LOCAL dRet
   LOCAL xRet
   LOCAL cRet
   LOCAL cTagStart 
   LOCAL cTagEnd  

   cTagStart := '<udt:DateTimeString format="102">'
   cTagEnd   := '</udt:DateTimeString>'
   xRet        :=  ExtractTag( cXml, cTagStart, cTagEnd )
   cRet        := SubStr( xRet, 1, 8 )
   dRet        := Stod( cRet )

   REPLACE ISU_DATE WITH dRet

Thanks

[Jimmy]

hi,

Code: Select all | Expand

REPLACE ISU_DATE WITH Stod( SubStr( ExtractTag( cXml, [<udt:DateTimeString format="102">], [</udt:DateTimeString>] ), 1, 8 ) )

maybe

YES, it work without "quote" ?!
THX very much