Se for isso não estou conseguindo gravar o campo.
Código: Selecionar todos
nPosIni := Rat(Alltrim(Caminho->PathNFe) +'\RESPOSTA\', cNFeLog)
nPosFim := RAt('XML', cNFeLog) + 3 // devido ter q considerar os caracteres 'XML' tb
nTotSubstr := nPosFim - nPosIni
cRetorno := Substr( cNFeLog, nPosIni, nTotSubstr )
cRetorno := StrTran( cRetorno, 'OK:','')
cRetorno := StrTran( cRetorno, ' ','')
cRetorno := StrTran( cRetorno, 'C:\ACBR\NFE\',Alltrim(Caminho->PathNFe))
cRetorno := StrTran( cRetorno, CHR(13),'')
cRetorno := Alltrim(StrTran( cRetorno, CHR(10),''))
Nota->XMLRETORNO := cRetorno // ,'C', 70, 0},;
Nota->STATUS := 'GERADA' // ,'C', 20, 0},;
obrigado.

