adenilsonjsn

Olá gente, um grande abraço à todos. Uso para emitir a DANFE o notafiscaleletronica.rav agora observando o .rav existe campo para informar o Site e o Email do emitente. como adicionar isto pois uso o exemplo do ACBr NFe2. exemplo: Emit.CNPJCPF := edtEmitCNPJ.Text; Emit.IE := edtEmitIE.Text; Emit.xNome := edtEmitRazao.Text; Emit.xFant := edtEmitFantasia.Text; Emit.EnderEmit.fone := edtEmitFone.Text; Emit.EnderEmit.CEP := StrToInt(edtEmitCEP.Text); Emit.EnderEmit.xLgr := edtEmitLogradouro.Text; Emit.EnderEmit.nro := edtEmitNumero.Text; Emit.EnderEmit.xCpl := edtEmitComp.Text; Emit.EnderEmit.xBairro := edtEmitBairro.Text; Emit.EnderEmit.cMun := StrToInt(edtEmitCodCidade.Text); Emit.EnderEmit.xMun := edtEmitCidade.Text; Emit.EnderEmit.UF := edtEmitUF.Text; Emit.enderEmit.cPais := 1058; Emit.enderEmit.xPais := 'BRASIL'; Não encontrei o campo de Emit.EnderEmit.Email ou Site, alguém poderia mim ajudar. Agradeço antecipadamente.

Olá isto aconteceu comigo e resolvi informando nos campos do webserviço em proxy um espaço em branco em hosts e porta, pois estes campo quarda sujeira. Espero que sirva para vc também. abs

Ola pessoal, Esta com esse mesmo problemapor vários dias sem solução, daí pela internet consegui esta função que resolveu tudo. Não esqueça de acrescentar na: Uses Math; declare a função: function TBRound(Value: Extended; Decimals: integer): Extended; function TBRound(Value: Extended; Decimals: integer): Extended; var Factor, Fraction: Extended; begin Factor := IntPower(10, Decimals); { A conversão para string e depois para float evita erros de arredondamentos indesejáveis. } Value := StrToFloat(FloatToStr(Value * Factor)); Result := Int(Value); Fraction := Frac(Value); if Fraction >= 0.5 then Result := Result + 1 else if Fraction <= -0.5 then Result := Result - 1; Result := Result / Factor; end; utilizando: Tabela1ValorUnitario.Value:=TBRound(seu valor,2); Espero ter ajudado abs.

Olá, agradeço a todos pela atenção, consegui sim depois de formatar, instalar umas dez vezes, pois todo o problema é o componente VCLSkin, ele dá pau qdo mandava consulta status, enviar e etc...mas sofri muito, pois utilizo outros componentes e ate chegar nele o sofrimento foi grande rsrsrs, dai ao entrar na form eu desativo o SkinData e funciona perfeito, inclusive já estou no modo de produção sem nenhum problema...agradeço a todos e a equipe do ACBr. abs.

Olá, Pessoal esta acontecendo uma coisa estranha: uso o exemplo da NFe2 e consegui eviar, receber e ainda gerar a nota em pdf, depois cancelei a nota tudo no modo homologação, dai parei e ao entrar novamente para continuar o projeto, dar erro exatamente no momento de assinar ou seja: GerarNFe(vAux); Showmessage(' gerou nota '); [color=#FF0000]ok gera pois não causa erro (depuração)[/color] ACBrNFe1.Enviar(vNumLote,True); Showmessage(' Enviou '); [color=#FF0000]não chega a mostrar msg.[/color] Observando a rotina em ACBrNFe.pas: function TACBrNFe.Enviar(ALote: String; Imprimir: Boolean): Boolean; var i: Integer; begin if NotasFiscais.Count <= 0 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Nenhuma NF-e adicionada ao Lote'); raise EACBrNFeException.Create('ERRO: Nenhuma NF-e adicionada ao Lote'); exit; end; if NotasFiscais.Count > 50 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Conjunto de NF-e transmitidas (máximo de 50 NF-e) excedido. Quantidade atual: '+IntToStr(NotasFiscais.Count)); raise EACBrNFeException.Create('ERRO: Conjunto de NF-e transmitidas (máximo de 50 NF-e) excedido. Quantidade atual: '+IntToStr(NotasFiscais.Count)); exit; end; showmessage('assinar'); [color=#FF0000]ok aparece esta mensagem[/color] NotasFiscais.Assinar; showmessage('depois de assinar'); [color=#FF0000]não aparece esta msg e da o erro abaixo relatado[/color] NotasFiscais.Valida; showmessage('depois de validar'); Aparece a mensagem (range check error) ou seja não assina e para nesta rotina em ACBrUtil.pas class function NotaUtil.PosEx(const SubStr, S: AnsiString; Offset: Cardinal = 1): Integer; var I,X: Integer; Len, LenSubStr: Integer; begin if Offset = 1 then Result := Pos(SubStr, S) else begin I := Offset; LenSubStr := Length(SubStr); Len := Length(S) - LenSubStr + 1; while I <= Len do begin if S[I] = SubStr[1] then begin X := 1; while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do [color=#FF0000]//// nesta linha esta o erro[/color] Inc(X); if (X = LenSubStr) then begin Result := I; exit; end; end; Inc(I); end; Result := 0; end; end; Alguem ja passou por isso que possa mim dar uma luz, ja desinstalei a cadeia de certificados e instalei novamente e nada, foi de uma hora para outra. Atualizei o ACBR com a versão mais recente e continua o mesmo erro. Agradeço antecipadamente.

Pessoal isto está gravado no intpos: 000-000 = CNC 001-000 = 31849 002-000 = 011285 003-000 = 38325 009-000 = 6 010-000 = VISANET 011-000 = 0 012-000 = 107156 015-000 = 1609085202 016-000 = 1609085202 022-000 = 16092011 023-000 = 085202 027-000 = 110916085202107156 028-000 = 0 então entra no plugue&pay e eu tenho que cancelar. 030-000 = OPERACAO CANCELADA 999-999 = 0 O interessante é que já está cancelada a operação no visa e redecard, agora tem um detalhe os comprovantes de cancelamento nao foram emitidos será isto o erro ? e como deveria proceder

Consegui cancelar o segundo cartão e na verdade agora os dois cartões foi cancelado, ate ai tudo bem, mais ao entrar novamente no tef administrativo, fica do mesmo jeito dizendo: requizição anterior não realizada, dai entra no plugue&pay e fica assim: Ativar ECF Inicializando: gpTefDial Enviando: ATV ID: 56264 Enviando: CNC ID: 56265 Ativando GP: gpTefDial ACBrTEFD.AtivarGP Executado Inicializando: gpTefDial ACBrTEFD.Inicializar Executado Inicio de ATV Requisição anterior não concluida já estou louco.

Ola pessoal, Estou mim deparando com um erro que não conssigo resolver, é o seguinte: Houve um pagamento com dois cartões só que o cliente desistiu, daí cancelei o primeiro cartão e o segundo não conssigo cancelar, pois fica o tempo todo pedindo para passar o cartao. dai não conssigo mais vender com cartao, ha como fazer um cancelamento deste segundo pelo ADM, houvi falar em NCN mais sou leigo no assunto. alguém poderia mim dar uma luz. agradeço antecipadamente.