Painel de líderes

Um dos principais problemas é achar DLLs do XMLSec para 64 bits... Use o Lazarus/FPC 32... compilar em 32 bits não torna o programa incompatível com Windows 64 bits

Bom dia. Adicionei duas novas funções na unit ACBrTEFDCliSiTef para a coleta do CPF ou CNPJ pelo pinpad. As funções são as seguintes: - ACBrTEF.TEFCliSiTef.CapturaCpfPinPad; -ACBrTEF.TEFCliSiTef.CapturarCnpjPinPad. Na chamada das funções deverão ser passados dois parâmetros Identificador e ChavePersonalizada. - IDENTIFICADOR: CNPJ liberado pela Software Express para uso da biblioteca de coleta dos dados; - CHAVEPERSONALIZADA: Chave de 280 caracteres gerada pela Software Express. Observação: Em contato com o pessoal da Software Express sobre dúvidas na captura do CNPJ, fui informado que por limitação na quantidade de dígitos que a biblioteca suporta, o CNPJ deverá ser coletado em duas etapas, informando 8 dígitos e após a confirmação, será solicitado os outros 6 dígitos. O CPF será coletado de uma única vez. Em anexo a unit. ACBrTEFDCliSiTef.pas

Estou começando a usar o FortesReport (ainda não domino o Fortes apesar de ser bem parecido com o QuickReport) e estou com as duvidas abaixo: No tamanhopapel A4, usuário e sistema não está mais saindo no final da folha e sim antes da Identificação do Conj.Transportador e está cortando o inicio da string No tamanhopapel A5, usuário e sistema sai no final porem como se a folha fosse um A4 Li num post de 2014 sobre a possibilidade de imprimir 2 cte (no formato A5) num papel A4. Já existe essa possibilidade no trunk2? Transportadoras de empresas distribuidoras emitem muitos cte e o gasto de papel é grande. (mais de 200 cte por carga)

Lazarus é 32! nós damos manutenção e também programamos em 32! existem problema no 64 que me lembre!

Atualizei meu fontes e ficou 100%. Obrigada!

@matheusd Utilizo a versão 32bits. O FortesReport-ce não compila em 64bits (nesse momento).

Denise, Esse problema é por causa da acentuação retornada pelo provedor. Ontem o Italo disponibilizou uma alteração para corrigir esse problema. Caso a propriedade de configuração RetirarAcentos estiver com o valor True os acentos serão removidos. Já testamos e funcionou. Dercide.

Boa Tarde, @Dercide Alvarez Você conseguiu resolver o problema do xml? Estou com o mesmo problema, mas não estou conseguindo identificar o que é. Tem alguma sugestão sobre como resolver?

o meu problema e o certificado mesmo peguei um certificado que acabei de comprar e testei funcionou perfeitamente obrigado pela sua atenção

Boa tarde, Para quem não sabe e caso precise fazer a impressão da dacte sem preview e sem abertura do dialog do FastReport, basta passar as seguintes propriedades do componente ACBrCTeDacteFR: ACBrCTeDacteFR.MostrarPreview := False; ACBrCTeDacteFR.MostrarStatus := False; Com isso o componente irá enviar a impressão diretamente para a impressora padrão do Windows. Abs

Está falando de certificado A1 ou A3? se for A3 vai dar problemas deverá somente informar o número de serie! chegou a olhar o exemplo ou o projeto do monitor? lá tem detalhado como fazer!

preenche as propriedades do componente em certificado, Acbr1.Configuracoes.Certificados.NumeroSerie:=num_serie_na_base_dados; Acbr1.Configuracoes.Certificados.Senha:=Decriptografar(senha_do_cert_na_base);

Obrigado... já está no SVN, na pasta Exemplos

Bom dia! Foi feita uma alteração na estrutura do componente (ACBrBoletoFCFR) e no demo, não foi mexido no layout. Att

http://isaquesp.blogspot.com/2011/09/varias-versoes-do-delphi-instaladas-sem.html

Boa noite Rodrigo, Não temos nenhum componente para esse fim.

Exatamente, faz um novo MDF-e.. O único problema que vejo, é que se precisasse cancelar o MDF-e e ele estivesse no prazo(24horas) o teu cliente não ia conseguir, e caso passasse no posto fiscal com MDF-e encerrado eles iriam multar. (Isso aconteceu com um cliente meu, que finalizou em viagem e não gerou um novo)

Utilize o comando: NFE.EnviarEvento(cIniEvento) Passe o INI evento como parâmetro ou salve o INI em arquivo e passe o caminho para ele. Abaixo exemplo do INI [CCE] idLote=<Envio o numero da nota> [EVENTO001] chNFe=<Chave da NFe> cOrgao=<Dois primeiros digitos da chave da NFe> CNPJ=<CNPJ do Emitente> dhEvento=<Data hora do envio> nSeqEvento=<Indice do evento, se já foi enviada alguma CCe, este numero aumenta> xCorrecao=<Texto da CCe, justificativa do envio> Lembrando que todos os comandos do ACBrMonitorPLUS podem ser encontrados no manual do mesmo, que está no SVN. Exemplos: NFE.EnviarEvento("c:\evento.ini") NFE.EnviarEvento("[CCE] idLote=<Envio o numero da nota> [EVENTO001] chNFe=<Chave da NFe> cOrgao=<Dois primeiros digitos da chave da NFe> CNPJ=<CNPJ do Emitente> dhEvento=<Data hora do envio> nSeqEvento=<Indice do evento, se já foi enviada alguma CCe, este numero aumenta> xCorrecao=<Texto da CCe, justificativa do envio>")

meu exemplo: IDE.tpEmit := (se CTe = teTransportadora, se NFe = teTranspCargaPropria) With infNFe.Add do begin chNFe := DM.qrynotas.FieldByName('ItemChaveDeAcesso').AsString; dqNFe := dqNFe+1; dQtdRatNFe := dQtdRatNFe + DM.qrynotas.FieldByName('PesoBruto').AsFloat; end; tot.qNFe := dqNFe;

Boa noite, Juliomar e Isaque Muito obrigado ... pelas dicas Para resolver o problema eu exclui a pasta do Acbr que estava em amarelo e vermelho , atualizei e executei o instalador . Funcionou tudo corretamente. Esta resolvido este tópico, não sei como deixo marcado como resolvido; Obrigado

Obrigado pela contribuição, mas acredito que poderíamos implementar algo mais genérico... ( e não somente para CPF/CNPJ ) Tenho uma implementação em Java para essas rotinas de captura no PinPad (que usei em um projeto proprietário)... Vou tentar ajustá-las para o ACBrTEFD

Boa tarde a equipe do AcBr, implementei o serviço de Consulta de CEP e Endereço da ViaCep (http://viacep.com.br/). Achei este WS uma das melhores soluções pois o IBGE em algumas cidades o WS dos correios não retornava. Segue arquivo em anexo. Obrigado. ACBrCEP.pas

Incorporado ao SVN

Corrigi o método “TACBrWSViaCEP.ProcessaResposta” pois o mesmo trazia repetidamente os mesmos dados quando a consulta por logradouro retornava mais de 1 resultado ACBrCEP.pas

Você reconstruiu o seu Lazarus ? A IDE compila os componentes de forma estática... ou seja, provavelmente a sua IDE ainda tem a versão antiga do ACBrMail...

Faz assim: tPag := fpCartaoCredito; tpIntegra := tiPagNaoIntegrado; Da mesma forma com o tPag := fpCartaoDebito

FocusRJ, Bastou adicionar ACBrNFe1.NotasFiscais.Clear; antes de tudo! Deu certo!

Sua analise está correta... pois os acentos retornados por "RetEventoNFe.XML", estão em UNICODE (ou ANSI) dependendo da versão do seu Delphi... o método ConvertesXMLtoUTF8, irá converter esses acentos para UTF8 e anexar o cabeçalho...

Bom dia Regys e demais companheiros Não sei como voce fez o seu teste, mas nem sempre a forma que se faz por ai é igual a que é necessária por arqui, bom mas isso não vem ao caso agora, o importante é que consegui resolver o problema usando uma função acho que do acbr For i:=0 to dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento:=FormatFloat('00',dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); vXml:=ConverteXMLtoUTF8(dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.XML); Era somente isso que eu queria e tentei explicar desde o inicio, o XML quando abria no navegador aparecia que estava com falhas, na realidade é porque no XML contem palavras acentuadas e o componente não retornava o XML com cabeçalho de UTF8. Obrigado a quem me ajudou Bom dia a todos

Revisado e incorporado ao SVN Obrigado pela contribuição.

Bom, creio que se eu colocar aqui o que fiz no meu sistema, vc não poderá aproveitar nada ou quase nada, visto que campos, tabelas, etc, são diferentes do seu jeito de programar. Mas posso te passar um roteiro, pq a leitura de arquivo de retorno é relativamente simples: 1o - Preencha os dados do banco e da conta corrente no ACBrBoleto; 2o - Setar as propriedades DirArqRetorno e NomeArqRetorno, com o local e nome do arquivo que deverá ser lido; 3o - Execute o método LerRetorno; 4o - Vc pode pegar os valores lidos nas propriedades do ACBrBoleto. Segue a forma que usei: for I:=0 to Boleto.ListadeBoletos.Count-1 do begin with Boleto.ListadeBoletos.Objects do begin cds_receber_retr.Insert; cds_receber_retrNUMDOCTO.AsString:=NumeroDocumento; cds_receber_retrNOSSONRO.AsString:=NossoNumero; cds_receber_retrREFERENCIA.AsString:=Referencia; cds_receber_retrSEUNRO.AsString:=SeuNumero; cds_receber_retrUSOBANCO.AsString:=UsoBanco; cds_receber_retrSACADO.AsString:=Sacado.NomeSacado; cds_receber_retrCGCCPF.AsString:=Sacado.CNPJCPF; cds_receber_retrVALORDOCTO.AsCurrency:=ValorDocumento; cds_receber_retrDATVENCTO.AsDateTime:=Vencimento; cds_receber_retrNUMPARCELA.AsInteger:=Parcela; cds_receber_retrQTDPARCELA.AsInteger:=TotalParcelas; if (DataDocumento<>StrToDate('30/12/1899')) then cds_receber_retrDATADOCUMENTO.AsDateTime:=DataDocumento; if (DataOcorrencia<>StrToDate('30/12/1899')) then cds_receber_retrDATARECEBIMENTO.AsDateTime:=DataOcorrencia; if (DataProcessamento<>StrToDate('30/12/1899')) then cds_receber_retrDATAPROCESSAMENTO.AsDateTime:=DataProcessamento; if (DataCredito<>StrToDate('30/12/1899')) then cds_receber_retrDATACREDITO.AsDateTime:=DataCredito; if (DataAbatimento<>StrToDate('30/12/1899')) then cds_receber_retrDATABATIMENTO.AsDateTime:=DataAbatimento; if (DataDesconto<>StrToDate('30/12/1899')) then cds_receber_retrDATADESCONTO.AsDateTime:=DataDesconto; if (DataProtesto<>StrToDate('30/12/1899')) then cds_receber_retrDATAPROTESTO.AsDateTime:=DataProtesto; if (DataBaixa<>StrToDate('30/12/1899')) then cds_receber_retrDATABAIXA.AsDateTime:=DataBaixa; if (DataMoraJuros<>StrToDate('30/12/1899')) then cds_receber_retrDATAJUROS.AsDateTime:=DataMoraJuros; cds_receber_retrDESPESACOBRANCA.AsCurrency:=ValorDespesaCobranca; cds_receber_retrVALORABATIMENTO.AsCurrency:=ValorAbatimento; cds_receber_retrVALORDESCONTO.AsCurrency:=ValorDesconto; cds_receber_retrVALORIOF.AsCurrency:=ValorIOF; cds_receber_retrVALOROUTDESP.AsCurrency:=ValorOutrasDespesas; cds_receber_retrVALOUTROSCRED.AsCurrency:=ValorOutrosCreditos; cds_receber_retrPERJUROS.AsFloat:=PercentualMulta; cds_receber_retrVALORJUROS.AsCurrency:=ValorMoraJuros; cds_receber_retrTOTALRECEBIDO.AsCurrency:=ValorRecebido; cds_receber_retrESPECIE.AsString:=EspecieDoc; cds_receber_retrCARTEIRA.AsString:=Carteira; cds_receber_retrINSTR1.AsString:=Instrucao1; cds_receber_retrINSTR2.AsString:=Instrucao2; cds_receber_retrMSG.AsString:=Mensagem.Text; cds_receber_retrREJEICAO.Value:=DescricaoMotivoRejeicaoComando.Text; if (Aceite=atSim) then cds_receber_retrACEITE.AsString:='S' else cds_receber_retrACEITE.AsString:='N'; end; cds_receber_retr.Post; end; Depois disso vc pode fazer algumas implementações interessantes como imprimir uma lista do retorno, baixar o título através do nosso numero ou seu numero, etc. Vai da sua imaginação. Espero ter ajudado. Jorge Henrique