leandroaoa
-
Total de ítens
390 -
Registro em
-
Última visita
-
Days Won
3
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que leandroaoa postou
-
Salvar certificado PEM, CER, KEY na base de dados
um tópico no fórum postou leandroaoa Dúvidas Gerais sobre o ACBr
Bom dia pessoal. É possivel salvar os certificado PEM, CER, KEY em base de dados ? Estou implementando a APIPIX e estava vendo essa possibilidade ao inves de ter que levar os certificados pra distribuir junto a aplicacao -
boa tarde segue o passo que tem ai nesse link ai tem os banco suportados atualmente
-
Concatenar varios PDFs utilizando FPDF é possivel ?
leandroaoa replied to leandroaoa's tópico in Dúvidas Gerais sobre o ACBr
Perfeito obrigado pela dica funcionou perfeitamente -
Concatenar varios PDFs utilizando FPDF é possivel ?
um tópico no fórum postou leandroaoa Dúvidas Gerais sobre o ACBr
Boa tarde pessoal é possivel concatenar varios PDFs em delphi utilizando o ACBrFPD ? se for alguem teria um exemplo ! -
Bom dia se voce tinha uma versão tão antiga assim sugiro a dar uma olhada nos fontes pois tiveram algumas mudancas pegue o exemplo tambem a analisa. Essa foi uma das prorpiedades alteradas que pode estar dando esse problema ai FETQ.Unidade := etqMilimetros; //etqMilimetros, etqPolegadas, etqDots, etqDecimoDeMilimetros essa propriedade altera o tamanho conforme o que estiver selecionado
-
Bom dia estude melhor o link que o @Renato Rubinho te passou voce esta fazendo errado a consulta por ultNSU voce tem que informar o ultimo NSU que é devolvido da consulta anterior e deve espera 1 hora entre consulta. Pra poder efetuar o download dos xml voce precisa fazer a manifestacao so apos a manifestacao é que é liberado o XML para ser baixado. A consulta so traz um resumo.
-
Mas é so voce criar os style estou deduzindo que voce saiba trabalhar com htm var Doc: Variant; begin if not Assigned(WebBrowser1.Document) then WebBrowser1.Navigate('about:blank'); Doc := WebBrowser1.Document; Doc.Clear; Doc.Write('<html>'); Doc.Write('<head>'); Doc.Write('<style>'); Doc.Write('.important {background-color: blue; color: white; border: 2px solid black; margin: 2px; padding: 2px;}'); Doc.Write('</style>'); Doc.Write('</head>'); Doc.Write('<body>'); Doc.Write('<h1 class="important">Isto é um cabeçalho</h1>'); Doc.Write('<p class="important">Isto é um parágrafo.</p>'); Doc.Write('</body>'); Doc.Write('</html>
-
bom dia porque voce não usa WebBrowser no lugar do RichEdit exemplo: var Doc: Variant; begin if not Assigned(WebBrowser1.Document) then WebBrowser1.Navigate('about:blank'); Doc := WebBrowser1.Document; Doc.Clear; Doc.Write('<b>Erro:</b>Forma de pagamento inválida.'); Doc.Close;
-
no seu caso deve ficar assim: vtroco := 5,00 pois o valor da nota é menor que o pagamento e fazer um controle interno desse valor, nao tem outra solução a nao ser controle interno seu pra fazer o que voce quer faca o seguinte informa o valor da nota na forma de pagamento e esse valor voce salva em ouro lugar seria mais ou menos isso
-
Bom dia pra voce usar outros voce tem que alimentar a seguinte tag tambem xPag := 'CREDITO COMPRA FUTURA';
-
NFe com devolução de IPI
leandroaoa replied to gutopj01's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
bom dia o Campo vOutros esta tambem com valor nesse caso ele deve ser zerado -
como eu disse acima nao existe csosn 3500 voce tem que passar o seguinte icms.orig := 3; icms.csosn := 500; nao importa se é nota de venda devolucao etc esse seu if esta totalmente errado verifica ai essa sua funcao. outra coisa verirfica com o contador da empresa para gerar a nota de devolucao correta pois existe produtos com ST e produtos normal existe regras e tem que empresas que ate mandam um espelho de como dever ser feita a nota de devolucao
-
Boa tarde esses numeros nao existe. abaixo tabela CSOS consulte um contador para enteder a numeracao pelo visto ali o primeiro numero seria a origem da mercadoria o campo Produto.Imposto.ICMS.orig
-
boa tarde da uma olhada ai
-
Voce esta usando o danfe do Fortes use o ACBrNFeDANFeESCPOS da uma olhado no exemplo do acbr
-
Opa boa tarde manda em escpos eu uso assim e não tenho problemas usando a mesma impressora
-
Poste o XML para teste
-
bom dia basta alterar o propriedade ExibeEAN para True
-
Sugestão de ajuste na unit ACBrBancoBancoob CNAB 400
leandroaoa replied to leandroaoa's tópico in ACBrBoleto
Bom dia ficou ok as atualizacoes obrigado -
Bom dia eu acho que ja vi esse codigo em algum lugar. o codigo esta certo crie a funcao somar e chama ela no adicionar e no remover
-
Bom dia no seu caso voce deve fazer um loop no listbox para recalcular
-
Sugestão de ajuste na unit ACBrBancoBancoob CNAB 400
um tópico no fórum postou leandroaoa ACBrBoleto
Bom dia realizei uns ajuste na função LerRetorno400 onde esta pegando os dados de cedente errado. conforme trecho abaixo var ContLinha: Integer; Titulo : TACBrTitulo; Linha, rCedente, rCNPJCPF : String; begin if (copy(ARetorno.Strings[0],1,9) <> '02RETORNO') then raise Exception.Create(ACBrStr(ACBrBanco.ACBrBoleto.NomeArqRetorno + 'não é um arquivo de retorno do '+ Nome)); rCedente := trim(Copy(ARetorno[0],32,8)); //// AQUI ESTA ERRADO CONFORME MANUAL /////////// ajuste proposto var ContLinha: Integer; Titulo : TACBrTitulo; Linha, lNomeCedente, lCodigoCedente, rCNPJCPF : String; begin if (copy(ARetorno.Strings[0],1,9) <> '02RETORNO') then raise Exception.Create(ACBrStr(ACBrBanco.ACBrBoleto.NomeArqRetorno + 'não é um arquivo de retorno do '+ Nome)); lCodigoCedente := trim(Copy(ARetorno[0],32,8)) + trim(Copy(ARetorno[0],40,1)); lNomeCedente := trim(Copy(ARetorno[0],47,30)); segue unit alterada a manual do banco Sicoob 240_400.xls ACBrBancoBancoob.pas -
primeiro apague o ACBr geral verifica realmente se nao tem nada depois abra o delphi e verifica a librarys path remove o que tiver la do acbr depois baixe novamente e instale fiz aqui e esta funcionando conforme imagens mesma versao do seus Delphi XE7
-
Boa tarde da uma olhada ai nesse link
- 1 reply
-
- 1
-
-
Problema com ACBrETQ apos atualização
leandroaoa replied to mikromundosistemas's tópico in ACBrSerial
adicione na uses ACBrETQClass