topic-46162

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

how to write this Line ?
Posted: Thu Nov 27, 2025 10:38 AM

hi,

i try to read from XML File

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

using this

Code: Select all Collapse

   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 ?

greeting,

Jimmy

mauri.menabue

Posts: 181

Joined: Thu Apr 17, 2008 02:38 PM

Re: how to write this Line ?
Posted: Thu Nov 27, 2025 12:06 PM

hi Jimmy,
try to semplify the expression :

Code: Select all Collapse

   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

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: how to write this Line ?
Posted: Thu Nov 27, 2025 02:26 PM

hi,

mauri.menabue wrote:
try to semplify the expression :

THX for help
nice Idee, but still NOT working :(

Code: Select all Collapse

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 Collapse

<udt:DateTimeString format="102"

but it is this String :

<udt:DateTimeString format="´102´"

i have also try this :

Code: Select all Collapse

 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 :(

greeting,

Jimmy

alerchster

Posts: 137

Joined: Mon Oct 22, 2012 04:43 PM

Re: how to write this Line ?
Posted: Thu Nov 27, 2025 04:29 PM

Code: Select all Collapse

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

maybe

Regards

Ing. Anton Lerchster

mauri.menabue

Posts: 181

Joined: Thu Apr 17, 2008 02:38 PM

Re: how to write this Line ?
Posted: Thu Nov 27, 2025 10:59 PM

hi Jimmi,
is problem solved ?
if not try

Code: Select all Collapse

   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

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: how to write this Line ?
Posted: Fri Nov 28, 2025 04:19 PM

hi,

alerchster wrote:

Code: Select all Collapse

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

greeting,

Jimmy

FiveTech Support Forums

Continue the discussion