Projeto hbNFe (Nota Fiscal Eletronica/Danfe) para [x]Harbour
Moderador: Moderadores
ubiratan
Usuário Nível 1
Mensagens: 17 Registrado em: 12 Jan 2014 16:07
Localização: MARINGA/PR
Mensagem
por ubiratan » 26 Fev 2014 20:18
Amigos,
usando HBNFEDANFEFAST, não estou conseguindo fazer as observações serem impressas, a unica que consegui foi: oNF:InfAdic:infCpl
Abaixo não consegui:
Código: Selecionar todos
oNF:InfAdic:infADFisco := ""
WITH OBJECT oNF:ObsCont
:AddObs()
WITH OBJECT :ItemObs[:nItensObs]
:xCampo := 'EMAIL DO CLIENTE'
:xTexto := 'TESTE@EMAILDOCLIENTE.COM.BR'
END WITH
END WITH
Alguem poderia ajudar?
Editado pela última vez por
Toledo em 27 Fev 2014 22:43, em um total de 1 vez.
Razão: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
sygecom
Administrador
Mensagens: 7131 Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:
Mensagem
por sygecom » 04 Mar 2014 00:29
Eu só uso:
oNF:InfAdic:infCpl := ''
oNF:InfAdic:infAdFisco := ''
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
ubiratan
Usuário Nível 1
Mensagens: 17 Registrado em: 12 Jan 2014 16:07
Localização: MARINGA/PR
Mensagem
por ubiratan » 04 Mar 2014 14:28
Muito obrigado por responder Leonardo,
UTILIZANDO:
oNF:InfAdic:infCpl := ''
oNF:InfAdic:infAdFisco := ''
Existe uma maneira de forçar a quebra de linha?
pauloa1
Usuário Nível 3
Mensagens: 227 Registrado em: 25 Jun 2008 14:57
Localização: Augusto Pestana-RS
Mensagem
por pauloa1 » 05 Mar 2014 14:38
Olá Ubiratan !
Tenta assim:
cOBS:=NFiscal_Sql->ADIC_CON
cOBS:=StrTran( cOBS, CHR(13),';' )
cOBS:=StrTran( cOBS, CHR(10),'' )
cOBS:=StrTran( cOBS, ',','.' )
cbuffer:=cbuffer+;
"[DadosAdicionais]"+CRLF+;
"Complemento="+cOBS+CRLF
Paulo
ubiratan
Usuário Nível 1
Mensagens: 17 Registrado em: 12 Jan 2014 16:07
Localização: MARINGA/PR
Mensagem
por ubiratan » 05 Mar 2014 15:15
Paulo,
obrigado por responder.
Então, pelo que entendi vc quer que eu utilize CRLF para forçar a quebra de linha correto?
Eu tinha tentando algo assim:
cMsg := cObs1+CRLF
cMsg += cObs2+CRLF
cMsg += cObs3
oNF:InfAdic:infCpl := cMsg
E não funcionou, tem alguma outra ideia? Lembrando que usa a classe HBNFEDANFEFAST
obrigado
pauloa1
Usuário Nível 3
Mensagens: 227 Registrado em: 25 Jun 2008 14:57
Localização: Augusto Pestana-RS
Mensagem
por pauloa1 » 05 Mar 2014 15:21
Pelos testes que fiz na época, eu utilizei o arquivo txt "ini" como no acbrnfemonitor, e não direto nos métodos da hbnfe.
Por isso que tive que trocar o ";" para quebra de linha.
Talvez seja isso.
ubiratan
Usuário Nível 1
Mensagens: 17 Registrado em: 12 Jan 2014 16:07
Localização: MARINGA/PR
Mensagem
por ubiratan » 05 Mar 2014 17:38
Paulo,
vou tentar e comento aqui.
muito obrigado.