Adautoes

Bom dia, realizei uma alteração no ACBrNFeDANFeQRRetrato.pas que define onde o canhoto será impresso no topo ou no rodapé. Foi inclusa uma váriavel, "FLocalImpCanhoto : Integer;", que faz essa verificação. Gostaria que fosse análisadas e inclusas no projeto Acbr. Obrigado. ACBrNFe2.rar ACBrNFe2.rar

Boa noite a todos... Estou utilizando o ACBrNFeDANFERaveCB1 para imprimir os Danfes em modo Paisagem, porém fiz uma atualização do Acbr, e não esta mais obedecendo a propriedade ACBrNFeDANFERaveCB1.TipoDanfe := tiPaisagem. So imprime em Retrato, ja reinstalei e nada.. Alguém ja pasopu por isso Att.. Adauto

Pessoal, realmente o que fiz foi pegar o Modelo da Toledo e testar, no meu caso a unica alteraçao necessária que precisei fazer foi nesta linha. procedure TACBrBALToledo.LeSerial(MillisecTimeOut: Integer); .... Antes Resposta := Trim(Copy(fpUltimaResposta,3,6)); Resposta := Trim(Copy(fpUltimaResposta,2,6)); .... Testei direto em um Balança Digitron e funcionou perfeitamente. Não conheço nenhum Emulador desta Balança. Att. Adauto

Boa Tarde a todos, me desculpem pela demora, estava meio fora da programação. Segue a unit da Balança digitron, eu ja utililzo ele e funciona perfeitamente, seria interessando os colegas adicionar no projeto, pois ficaria mais fácil as atualizações, pois hoje toda vez que atualizo tenho que alterar as units. {$I ACBr.inc} unit ACBrBALDigitron; interface uses ACBrBALClass, Classes; const STX = #02 ; ETX = #03 ; CR = #13 ; type TACBrBALDigitron = class( TACBrBALClass ) public constructor Create(AOwner: TComponent); function LePeso( MillisecTimeOut : Integer = 3000) :Double; override; procedure LeSerial( MillisecTimeOut : Integer = 500) ; override ; end ; implementation Uses ACBrBAL, ACBrUtil, {$IFDEF COMPILER6_UP} DateUtils, StrUtils {$ELSE} ACBrD5, Windows{$ENDIF}, SysUtils, Math ; { TACBrBALToledo } constructor TACBrBALDigitron.Create(AOwner: TComponent); begin inherited Create( AOwner ); fpModeloStr := 'Digitron' ; end; function TACBrBALDigitron.LePeso( MillisecTimeOut : Integer) : Double; begin fpUltimoPesoLido := 0 ; fpUltimaResposta := '' ; fpDevice.Serial.Purge ; { Limpa a Porta } fpDevice.EnviaString( #05 ); { Envia comando solicitando o Peso } sleep(200) ; LeSerial( MillisecTimeOut ); Result := fpUltimoPesoLido ; end; procedure TACBrBALDigitron.LeSerial(MillisecTimeOut: Integer); Var Resposta : AnsiString ; Decimais : Integer ; St2 : AnsiChar ; PI,PF : Integer ; begin fpUltimoPesoLido := 0 ; fpUltimaResposta := '' ; Decimais := 100 ; Try fpUltimaResposta := Copy(fpDevice.Serial.RecvPacket( MillisecTimeOut ),1,10); Resposta := Trim( copy( fpUltimaResposta, 2, 6 )) ; { Ajustando o separador de Decimal corretamente } Resposta := StringReplace(Resposta, '.', DecimalSeparator, [rfReplaceAll]); Resposta := StringReplace(Resposta, ',', DecimalSeparator, [rfReplaceAll]); try if pos(DecimalSeparator,Resposta) > 0 then { Já existe ponto decimal ? } fpUltimoPesoLido := StrToFloat(Resposta) else fpUltimoPesoLido := StrToInt(Resposta) / Decimais ; except case Resposta[1] of 'I' : fpUltimoPesoLido := -1 ; { Instavel } 'N' : fpUltimoPesoLido := -2 ; { Peso Negativo } 'S' : fpUltimoPesoLido := -10 ; { Sobrecarga de Peso } else fpUltimoPesoLido := 0 ; end; end; except { Peso não foi recebido (TimeOut) } fpUltimoPesoLido := -9 ; end ; end; end. Fim Att. Adauto

Pessoal Problema resolvido, Me desculpem mas era um erro meu.. Ao inves de mandar consultar desa forma: Dados.NFe.WebServices.Retorno.Executar; Estava utilizando Dados.NFe.WebServices.Recibo.Executar; Resolvido. Obrigado.

Bom dia aos amigos. Estou mudando minha aplicação de Nota Eletronica para o Acbr, pelo sinal parabéns a equipe. Estou com o seguinte problema. Abaixo minha rotina de envio: Tenho um For que adiciona várias notas no lote..... Dados.Nfe.NotasFiscais.LoadFromFile(ExtractFilePath(application.ExeName)+'xml\preXML.xml'); Finalizo o for.... Envio as notas assim: Dados.Nfe.NotasFiscais.GerarNFe; Dados.NFe.NotasFiscais.Assinar; Dados.NFe.NotasFiscais.Valida; Dados.Nfe.WebServices.Enviar.Lote :=IntToStr(v_Lote); Dados.Nfe.WebServices.Enviar.Executar; Depois gravo o Recibo em uma tabela para cosultar depois. Em uma rotina de consulta executo a seguinte rotina. Abro a tab. de lote com os recibos, atraves de um loop. executando o comando abaixo: Dados.NFe.WebServices.Recibo.Recibo := cds_Lote.FieldByName('LOTE_RECIBO').AsString; Dados.NFe.WebServices.Recibo.Executar; Dados.NFe.NotasFiscais.SaveToFile(); for i:= 0 to Dados.NFE.WebServices.Recibo.NFeRetorno.ProtNFe.Count - 1 do begin Façop todos os tratamentos.. e quando o CStat = 100 Gravo as informações necessárias no banco. Mas ai esta o problema, não consigo pegar o xml com o prot. ja tentei de tudo so consigo pegar o xml original do envio. .... End; Alguém poderia me dar uma luz. Att. Adauto

Bom dia. utilizo os componentes do acbr, e parabéns a todos tem nos ajudado e muito. Recentemente implementei no componente a captura de peso de uma nova balança a Digitron que até então não existia este modelo configurado, gerando alguns conflitos de variáveis na recepção da balança. Gostaria de Saber como faço para mandar esta implementação nova para que a mesma possa ser compartilhada no controle de versão com todos, pois meu problema e que sempre que atualizo o componente ela não esta presente. Fico no aguardo de uma resposta. Para quem devo enviar os fontes da mesma? Att. Adauto

Bom dia. Tenho um projeto de NFE, porem com uma assinatura e evio atraves de uma dll de terceiro. Vou converter a Assinatura, Enviou REcepção para o ACBR NFe 2.0, mas estou com duvida, TRabalho com Delphi 2010, Qual seria a melhor opção CAPICOM ou OpenSSL, Detalhe meus clientes possuem Certificado A1 e A3? Obrigado pela atenção.

Resolve da Seguinte maneira.. Comentei a Linha que se refere ao erro. e deu certo. Me desculpem nao informei qual a unit do erro.. ACBrNFeUtil e nela que me retorna o erro na. linha: 218 - dsigCtx^.signKey := xmlSecCryptoAppKeyLoad(key_file, xmlSecKeyDataFormatPkcs12, senha, nil, nil);

Sim Inclusive fiz uma sincronização hoje...

Me desculpem nao informei qual a unit do erro.. ACBrNFeUtil e nela que me retorna o erro na. linha: 218 - dsigCtx^.signKey := xmlSecCryptoAppKeyLoad(key_file, xmlSecKeyDataFormatPkcs12, senha, nil, nil); Erro retornado. [DCC Error] ACBrNFeUtil.pas(217): E2010 Incompatible types: 'AnsiChar' and 'Char'

Bom dia Amigos. Estou tentando instalar o AcebrNfe2 no Delphi 2010 e o mesmo esta me retornando um erro na seguinte linha. linha: 218 - dsigCtx^.signKey := xmlSecCryptoAppKeyLoad(key_file, xmlSecKeyDataFormatPkcs12, senha, nil, nil); Erro retornado. [DCC Error] ACBrNFeUtil.pas(217): E2010 Incompatible types: 'AnsiChar' and 'Char' Alguem ja passou por isto e como resolver? Att. Adauto