dúvida com duas linhas de comando

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

porter
Usuário Nível 5
Usuário Nível 5
Mensagens: 1057
Registrado em: 10 Dez 2009 16:44
Localização: OLIMPIA-SP

dúvida com duas linhas de comando

Mensagem por porter »

olá pessoal, esse trecho de código, faz parte da rotina que o fladimir passou ao qual agradeço, para ser usado com o Acbr, mas tem duas linhas da rotina que não estou entendendo, elas tem a função de gravar valores Nota->XMLRETORNO:=cRetorno e Nota->STATUS:=GERADA no arquivo Nota.dbf ?

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},;
xHabour

obrigado.
Avatar do usuário
Daniel
Usuário Nível 3
Usuário Nível 3
Mensagens: 373
Registrado em: 13 Ago 2003 22:42
Localização: Apucarana - PR

dúvida com duas linhas de comando

Mensagem por Daniel »

Porter
Este comando grava no banco de dados nota no campo XMLRETORNO e no campo STATUS
e na frete esta o tamanho dos campos e o tipo.
e o mesmo que o comando Replace STATUS With 'GERADA'
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
porter
Usuário Nível 5
Usuário Nível 5
Mensagens: 1057
Registrado em: 10 Dez 2009 16:44
Localização: OLIMPIA-SP

dúvida com duas linhas de comando

Mensagem por porter »

olá Daniel,
é o que eu pensei, ele faz o mesmo que Replace, não sei porque que o meu não está gravando, devo ter feito algo errado, vou procurar aqui.

obrigado.
Responder