paulorsa

Segue unit's para análise. ACBrNFeDANFeRLPaisagem.dfm ACBrNFeDANFeRLPaisagem.pas ACBrNFeDANFeRLRetrato.dfm ACBrNFeDANFeRLRetrato.pas

Em meu entender isso não deve ser feito no ACBr e sim no seu sistema, ele deve gravar o desconto de cada item já rateado e depois alimentar o componente.

Coloque a unit AJBarcode no uses do seu programa.

Parte do código para você dar uma olhada em como achar o tipo que você precisa. unit ACBrBarCode; type TACBrBarCode = class ( TGraphicControl ) private // fsAbout: TACBrAboutInfo; fsBarCode : TAsBarcode ; fsTransparent: Boolean; procedure SetTransparent(const Value: Boolean); function GetAngle: Double; property Typ : TBarcodeType read GetTyp write SetTyp Olhe no Uses para encontra a unit que consta o TBarcodeType. uses {ACBrBase, }Classes, SysUtils, {$IFDEF VisualCLX} QGraphics, QControls, QExtCtrls, QDialogs, {$ELSE} Graphics, Controls, ExtCtrls, Dialogs, {$ENDIF} AJBarcode ; Olhe a unit AJBarcode; type TBarcodeType = ( bcCode_2_5_interleaved, bcCode_2_5_industrial, bcCode_2_5_matrix, bcCode39, bcCode39Extended, bcCode128A, bcCode128B, bcCode128C, bcCode93, bcCode93Extended, bcCodeMSI, bcCodePostNet, bcCodeCodabar, bcCodeEAN8, bcCodeEAN13, bcCodeUPC_A, bcCodeUPC_E0, bcCodeUPC_E1, bcCodeUPC_Supp2, { UPC 2 digit supplemental } bcCodeUPC_Supp5, { UPC 5 digit supplemental } bcCodeEAN128A, bcCodeEAN128B, bcCodeEAN128C );

Eu pedi para um amigo testar no delphi seatle e também funciona, isso quer dizer que é um problema do delphi. Com isso em mente comparei as funções do Delphi XE com a do Delphi Seatle. Delphi XE function SimpleRoundTo(const AValue: Extended; const ADigit: TRoundToRange = -2): Extended; var LFactor: Extended; begin LFactor := IntPower(10, ADigit); if AValue < 0 then Result := Trunc((AValue / LFactor) - 0.5) * LFactor else Result := Trunc((AValue / LFactor) + 0.5) * LFactor; end; Delphi Seatle. function SimpleRoundTo(const AValue: Extended; const ADigit: TRoundToRange = -2): Extended; var LFactor: Extended; begin LFactor := IntPower(10.0, ADigit); if AValue < 0 then Result := Int((AValue / LFactor) - 0.5) * LFactor else Result := Int((AValue / LFactor) + 0.5) * LFactor; end; Como se trata de uma função do Delphi que é usada dentro do RoundABNT, para resolver meu problema eu criei uma Função SimpleRoundToEX igual ao do Delphi Seatle e inclui dentro da unit ACBrUtil, e passei a usar ela no lugar da SimpleRoundTo do Delphi. Eu não sei se essa seria a melhor opção para o projeto, mas rodei a UnitTestes é funcionou direitinho. Segue unit para analise. ACBrUtil.pas acbrutiltest.pas

A exception é gerada ao tentar arredondar o nr 9.41212959024529 em 10 casas. RoundABNT(9.41212959024529,-10) Debugando percebi que na verdade a exception e gerada em uma função do Delphi a SimpleRoundTo. Na unit ACBrUtil na linha 580. PowValue := SimpleRoundTo( FracValue * 10 * Pow, -9) ; // SimpleRoundTo elimina dizimas ; A versão do Delphi que eu uso e a XE. Não sei se em outras versões ou se no Lazarus também ocorre essa exception.

Uma forma bem pratica seria instalar o OnDrive ou GoogleDrive ou Drobox em cada servidor que recebera o xml, dessa forma basta a aplicação salvar o xml já dentro desta pasta e será replicado a todas as outras.

Sim. Segue o link do Acbr svn://svn.code.sf.net/p/acbr/code

99% das dúvidas referente a utilização do componente podem ser sanadas dando uma olhada nos exemplos que estão contidos em ..\trunk2\Exemplos. Os 1% restantes vão ser coisas bem específicas, e que se não achar a resposta aqui no Forum (quase sempre tem), é só postar a dúvida que alguém sempre ajuda.

Também recebo um ou outro xml errado (com o mesmo tipo de erro), mas que foram validados, tanto é que foram baixados do portal nacional, mas o que eu faço é corrigir a tag errada e ele é validado. Segue um exemplo que de xml que também está errado, mas está no portal nacional. 41161193949899000417570010001927631128650862.xml Segue o mesmo xml corrigido manualmente e validado pelo acbr. 41161193949899000417570010001927631128650862.xml

Surgiram algumas dúvidas, você passou o certificado do cliente para poderem baixar os xml's.

Valdir eu entendo sua posição, mas você está vendo o seu caso, mas pense um pouco mais amplo, veja por exemplo o que diz o Agnaldo atente para "cada cliente informa seu texto em informações complementares, ...", não é só texto sobre legislação tributária que vai ali, também tem nr do pedido do cliente, alguns colocam o nome do vendedor e assim vai. E o que você fizer vai afetar todos os usuários do ACBR e sua implementação acredito eu não passaria pelo crivo dos administradores do componente e assim toda a comunidade de usuários ficaria sem a sua contribuição, que como eu já deixei claro minha opinião é de que é uma implementação válida e interessante.

Acho válido e muito interessante sim, mas também acho que você deve ficar atento quando implementar essa funcionalidade, de deixar a cargo de quem usa optar por incluir automaticamente ou não, pois no meu caso minha tabela de notas tem um campo com as informações complementares e já consta o texto do DIFAL, nesse caso sairia duas vezes o texto. Também acho que essa caso você implemente, a opção deva ser como padrão para não incluir o texto e quem necessitar marque a propriedade.

Me parece que o usuário não tem direito a gravação na system32, tente habilitar a gravação na system32 e registrar a capicom, depois pode deixar somente leitura.

O problema deve ser o processo/serviço GbPlugin.

Eu tenho clientes que fazem acesso ao sistema usando Área de trabalho remota também, como você não informou qual o tipo de certificado (A1 ou A3). Vou falar com base nos meus clientes que são todos tipo A1, Nesse caso você deve instalar o certificado para cada Usuário do servidor.

Eu tenho clientes que emitem notas com acesso TS normalmente, mas não sou eu quem faz a configuração do certificado, quem faz e a empresa que da suporte no server, mas o que sei é que você deve além de instalar o certificado no usuário, registrar a capcom também nesse usuário, pois em algumas situações ocorrem problemas ao emitir a nota.

Creio que você deva fazer assim NaturezaOperacao := StrToNaturezaOperacao(ok, '59') sem o noSimplesNacional, apenas o numeral 59.

Cada uma tem sua sequencia.

De uma verificada mas acho que a alíquota interna de SC é 17%.

De uma olhada em "..\trunk2\Exemplos\ACBrDFe\ACBrNFSe\ArqINI\Cidades.INI", acredito que tenha a cidade de Barreiras - BA.

Não conheço nenhum banco que tenha.

Antonio são duas consultas diferentes uma consulta a situação do CNPJ (consulta http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/Cnpjreva_Solicitacao2.asp?cnpj=07618871000112 ) e a outra a Inscrição estadual. O CNPJ está ativo, isso não quer dizer que a IE também esteja. Até porque você pode ter CNPJ e não ter IE.

Você deve entrar na sua conta do banco e importar esse arquivo gerado.

Você informou 0 (zero) na tag indTot, se você quer que o valor do item faça parte do total da mercadoria você deve informar 1 (um) no xml. No componente esse campo é do tipo TpcnIndicadorTotal = (itSomaTotalNFe, itNaoSomaTotalNFe );