Daniel Fantastsoft

Certo então, Muito obrigado pela Ajuda!

Boa Tarde a todos, gostaria de perguntar se houve alguma alteração na parte de emissão de NF-e para hambientes de homologação.

Esse é o Código Antigo procedure TACBrECFFiscNET.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer); var Obs: AnsiString; begin Obs := Observacao ; if not Consumidor.Enviado then begin { Removendo o Consumidor da Observação, pois vai usar comando próprio } Obs := StringReplace(Obs,#10+'CPF/CNPJ consumidor: '+Consumidor.Documento,'',[]) ; Obs := StringReplace(Obs,#10+'Nome: '+Consumidor.Nome,'',[]) ; Obs := StringReplace(Obs,#10+'Endereco: '+Consumidor.Endereco,'',[]) ; try { Se tiver Observações no rodape, deve enviar antes do consumidor } if Obs <> '' then begin FiscNETComando.NomeComando := 'ImprimeTexto' ; FiscNETComando.AddParamString('TextoLivre',Obs); EnviaComando ; end ; FiscNETComando.NomeComando := 'IdentificaConsumidor' ; FiscNETComando.AddParamString('IdConsumidor',LeftStr(Consumidor.Documento,29)) ; if Consumidor.Nome <> '' then FiscNETComando.AddParamString('NomeConsumidor',LeftStr(Consumidor.Nome,30)) ; if Consumidor.Nome <> '' then FiscNETComando.AddParamString('EnderecoConsumidor',LeftStr(Consumidor.Endereco,80)) ; EnviaComando ; Consumidor.Enviado := True ; except // Obs := Observacao ; end ; end ; { Tem PAF ? } { PAF ainda não está na Obs ?} if (fsPAF <> '') and (pos(fsPAF,Obs) = 0) then if Obs = '' then Obs := fsPAF else Obs := fsPAF + #10 + Obs ; if (Obs <> '') then begin FiscNETComando.NomeComando := 'ImprimeTexto' ; FiscNETComando.AddParamString('TextoLivre',Obs); EnviaComando ; end else FiscNETComando.NomeComando := 'EncerraDocumento' ; FiscNETComando.TimeOut := 5 ; FiscNETComando.AddParamString('Operador',Operador) ; EnviaComando ; fsEmPagamento := false ; end; Com as devidas Alterações ficou Assim procedure TACBrECFFiscNET.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer); var Obs: AnsiString; begin Obs := Observacao ; if not Consumidor.Enviado then begin { Removendo o Consumidor da Observação, pois vai usar comando próprio } Obs := StringReplace(Obs,#10+'CPF/CNPJ consumidor: '+Consumidor.Documento,'',[]) ; Obs := StringReplace(Obs,#10+'Nome: '+Consumidor.Nome,'',[]) ; Obs := StringReplace(Obs,#10+'Endereco: '+Consumidor.Endereco,'',[]) ; try { Se tiver Observações no rodape, deve enviar antes do consumidor } if Obs <> '' then begin FiscNETComando.NomeComando := 'EncerraDocumento' ; FiscNETComando.AddParamString('TextoPromocional',Obs); EnviaComando ; end ; FiscNETComando.NomeComando := 'IdentificaConsumidor' ; FiscNETComando.AddParamString('IdConsumidor',LeftStr(Consumidor.Documento,29)) ; if Consumidor.Nome <> '' then FiscNETComando.AddParamString('NomeConsumidor',LeftStr(Consumidor.Nome,30)) ; if Consumidor.Nome <> '' then FiscNETComando.AddParamString('EnderecoConsumidor',LeftStr(Consumidor.Endereco,80)) ; EnviaComando ; Consumidor.Enviado := True ; except // Obs := Observacao ; end ; end ; { Tem PAF ? } { PAF ainda não está na Obs ?} if (fsPAF <> '') and (pos(fsPAF,Obs) = 0) then if Obs = '' then Obs := fsPAF else Obs := fsPAF + #10 + Obs ; if (Obs <> '') then begin FiscNETComando.NomeComando := 'EncerraDocumento' ; FiscNETComando.AddParamString('TextoPromocional',Obs); EnviaComando ; end else begin FiscNETComando.NomeComando := 'EncerraDocumento' ; FiscNETComando.TimeOut := 5 ; FiscNETComando.AddParamString('Operador',Operador) ; EnviaComando ; end; fsEmPagamento := false ; end;