Maicon Luis Ferreira

Olá! Segue a unit que modifiquei para voltar a funcionar a consulta de CNPJ no acbr. Duas mudanças 1) O captcha mudou para PNG 2) Os parametros de post mudou o input do Captcha e eliminou o viewstate. 3) A página não retorna mais erros completos.. Somente Erro na consulta ACBrConsultaCNPJ.pas

Juliomar estava me falando sobre isso agora pelo skype, porem o ECFVirtual não está pronto né teria que conclui-lo ?

Olá! Segue as units que modifiquei para usar o ACBrECFNaoFiscal com NFCe ESCPOS com a finalidade de quem tem um pdv fiscal poder usar NFCe sem alterar a estrutura do seu fonte e poder ter um PDV exatamente igual com este novo recurso. Diga-se de passagem que o meu pdv está funcionando perfeitamente com estas modificações. No ACBrECF inclui uma propriedade NaoFiscalImprime se a mesma estiver como TRUE ele imprimira todas os comandos normalmente na impressora não fiscal se estiver como false não imprimirá... o objetivo desta função é antes de abrir o cupom setar ela como false e até o fechamento do cupom manter ela em false para não imprimir mais gerar CCF COO etc... tudo normalmente como se estivesse imprimindo. Enquanto isso foi incluido no ACBrNFeDANFeESCPOS a propriedade ACBrECF para associar o mesmo ao componente acbr podendo assim imprimir o danfe pela mesma conexão feita pelo componente na impressora não fiscal compartilhando a mesma classe Device. Foi mantida a compatibilidade com o componente atual sendo que não usando estas funções o componente funciona normalmente. Maicon Luis Ferreira ACBrECF.pas ACBrECFNaoFiscal.pas ACBrNFeDANFeESCPOS.pas

Obrigado Juliomar!

Olá! Fiz algumas modificações no componente ACBrECF para atender os requisitos de postos de combustíveis com os abastecimentos no final do cupom, além de também colocar uma propriedade para optar pela quebra de linha Antes do DAV, PV, NF, pois eu já homologuei pela segunda vez em lugares diferentes em um o homologador pediu sem quebra de linha ou seja logo após o MD-5 já nesta segunda vez o homologador pediu com quebra de linha, então para facilitar para muita gente fiz a propriedade NovaLinhaDavPv e no rodapé Acrescentei PostoCombustivel uma classe onde pode ser listado os abastecimentos com os encerantes e volume. Segue em anexo. Gostaria muito que fosse atualizado no SVN obrigado. ACBrECF.pas ACBrECFClass.pas

Olá! EM outra ocasião eu já havia envia estes fontes de minha alteração no acbr boleto para fazer um boleto que contenha o extrato do que o cliente está pagando! Bom eu atualizei na versão mais nova do acbrboleto e estou enviando novamente para ver se da certo colocar no SVN porque toda vez que eu atualizo o acbr tenho que mudar isso! Obrigado pela atenção! Mudados.rar BoletoExtrato.pdf BoletoExtrato.rar

Desculpe a demora Blz show. Podia me dizer se ja foi possivel colocar no SVN? estou sem atualizar o acbr por conta disso rsrs

Bom eu corrigi a unit do retorno caixa com mudado as posições do nosso numero e da data do vencimento... E quanto ao SICOB sim se não colocar o numero maximo do Nosso numero o nosso numero vem embranco devido a uma conta maulca que colocarão la no codigo. veja Que na verdade até agora não descobri pra que esta conta ai! Unit ACBrCaixaEconomicaSICOB NossoNumero := Copy(Copy(Linha,47,10), // sem o DV Length(Copy(Linha,47,10))-TamanhoMaximoNossoNum , TamanhoMaximoNossoNum);

Bom o problema do retorno ja tinhão achado eu mudei na minha unit deu certo no manual tava diferente mesmo.. Agora o código de barras do SICOB ta errado.

Olá! Bom tenho seguinte problema quando eu configuro o acbrboleto para Caixa SICOB ele imprime uma linha digitável a qual não é valida para pagamento de boltos o tamnaho é diferente... Ai eu imprimi com banco Caixa Economica federal normal e a linha deu certo paguei o boleto ele entrou na conta. Porem quando baixo o retorno o retorno vem em formato SICOB ou seja para ler ele preciso colocar o banco Caixa SICOB na configuração prar ler como resolver este problema o boleto SICOB sera que está imprimindo errado a linha digitavel?

Olá é o seguinte é que a caixa retorna os retornos em formato SICOB mesmo o boleto tenque ser impresso em caixa eciomica e o retorno lido em SICOB. Estou com este mesmo problema e em formato SICOB se vc nao colocar tamanho maximo do nosso numeor voltara em branco tb.

Oi Alguma resposta ao meu pedido? Maicon Luis Ferreira

Olá! Só pra saber como ficou vai da certo por no SVN? Pois eu estava querendo atualizar o acbr e sempre que atualizo da problema nisso! Maicon Luis Ferreira

Olá! Fiz algumas modificações no boleto que não influenciam no funcionamento normal do ACBrBoleto, as modificações tratam de fazer um boleto um pouco parecido com o de um cartão de crédito, onde varias contas são acrescidas no mesmo documento e aparece o extrato da conta no boleto. Bom já está pronto para o FastReport e estou postando aqui se poderem colocar no SVN pois estou tento problemas nas atualizações do acbr! Segue o pacote com Demo do boleto com os fontes o relatório em FastReport e também um PDF ja gerado pelo meu sistema Maicon Luis Ferreira BoletoExtrato.pdf ACBrBoleto.rar

Olá Italo! Eu consegui fazer as devidas conxões via SOAP com provedor de apucarana/PR o mesmo pe uma URL so para tudo onde se passa os parametros para o que deseja usar. 4.1 - Caminho para acessar a Web Service: http://[sERVIDOR]:8080/[APLICAÇÃO]/servlet/anfse?wsdl 4.2 - Parâmetros de Entrada: - “Operação” refere-se ao tipo de execução do Web Service e aceita até 1 caractere numérico, sendo somente três valores aceitos 1 - Recepção e Processamento de Lote de RPS, 2 - Cancelamento de NFS-e e 3 - Consulta de NFS-e. - “Usuário” refere-se ao CPF/CNPJ do usuário cadastrado no sistema de ISS Online e aceita ate 20 caracteres alfanuméricos sem pontos e traços. - “Senha” refere-se a senha do usuário cadastrado no sistema de ISS Online aceitando ate 40 caracteres, a senha deverá ser criptografada utilizando o tipo de criptografia ”MD5” (Message-Digest algorithm 5). - “ArquivoXML” refere-se ao arquivo no formato citado neste documento, contendo as informações referentes a nota, esse arquivo dever ter no Máximo o tamanho de 1024 kbytes. 4.3 - Parâmetros de Saída: - “MensagemXML” refere-se ao arquivo de retorno que segue o modelo citado neste documento com o padrão XML, onde serão retornadas as mensagens de erro encontradas na importação do arquivo. Bom se você poder me add no SKYPE maicon.tec ou MSN [email protected] Pois gostria de algumas orienbtações para implantar este webservice no ACBrNFSe pois estou perdido quando como passar os parametros no meu fonte eu fiz via importação do webservice. Maicon Luis Ferreira

Olá gostaria de comunicar a minha recente homologação terminamos no dia de hoje com toda suite do Acbr e com certeza assim que possivel coloborarei para o projeto em $$$ em desenvolvimento ja tive algumas contribuições pretendo ter muito mais obrigado por manterem este projeto maravilhoso! Valbia Alves e Silva ME ( Kadoshi Automação ) Software: kPDV, versão 1.0.0.0 Laudo: UNP0662012 Roteiro 1.8 ER 01.13 Maicon Luis Ferreira

Pelo que eu olhei aqui no manual de comunicação direta eu não achei nada que retorne o numero de colunas. Mais estou anexando o manual aqui pra você olhar vai que você ache. Manual de Programação - Comunicação Direta.rar

Bom eu tenho mais uma contribuição a fazer que é na função DadosUltimaReducaoZ. Nela com minha ELGIN K está retornando em aliquotas assim [Aliquotas] 02T1700 03T1200 Quando teria que ser assim [Aliquotas] 01T1700 02T1200 Começando no 01 pq o indice 00 esta com uma licota 0 em minha impressora mais ai é problema meu quando inciiei a impressora coloquei esta alicota la bom resumindo o indice deveria começar no 00 mais esta começando no 01 por este motivo Na linha 3276 da Unit ACBrECFFiscNET.pas esta deste modo a variavel nAux Acrescentada de 1 Result := Result + FormatFloat('00', nAux+1 ) + Aliquotas[ nAux2 ].Tipo + IntToStrZero( Trunc( Aliquotas[ nAux2 ].Aliquota * 100 ), 4 ) + ' = '+ FloatToStr( nVal ) + sLineBreak ; Quando deveria estar sem esta acrescentada. Ai me surge uma duvida pois não sei se devo fazer esta linha especifica para os modelos elgin ou é BUG em todas FiscNet lembrando que todas demais funções que se trata de indice esta funcionando certo na ordem correda 00 01 02 somente esta que começa em 01 02 entao na minha unit ficou assim a mesma linha Result := Result + FormatFloat('00',nAux ) + Aliquotas[ nAux2 ].Tipo + IntToStrZero( Trunc( Aliquotas[ nAux2 ].Aliquota * 100 ), 4 ) + ' = '+ FloatToStr( nVal ) + sLineBreak ; Em vermelho é o que julgo estar errado e em verde o certo lembrando que fiz testes com minha ELGIN K e deu certo. Maicon Luis Ferreira

Tinha feito outra variavel porque na hora me pareceu que os comandos B era diferente no negrito mais estava de cabeça cheia rsrrs. Estarei postando uma outra contribuição em outro tópico referente a mesma unit.

Que isso obrigado vocês por disponibilizar esta biblioteca maravilhosa facilitando a vida da gente! Maicon Luis Ferreira

Olá resolvi adicionei os modelos da ELGIN X5, FIT e K no ACBrECFFiscNET.pas Segue em anexo a unit para avaliar e se OK colocar no servidor SVN. OBS: Baixei o manual de comunicação direta para as correções e ja testei em minha impressora ELGIN K e funcionou tudo certinho. Maicon Luis Ferreira ACBrECFFiscNET.pas

Olá! Estou usando em meu menu fiscal assim como no exemplo do acbrecf os comando PafMF_RelMeiosPagamento PafMF_DAVEmitidos e assim por diante! Minha impressora é uma ELGIN K bom sai certo porem fica tudo muito grande ou seja acaba a linha e continua na próxima linha como resolver isso?

Olá! Nesta ultima versão de quarta para cá meu tef começou a não incializar mais o GP automáticamente. Utilizo delphi XE; Bom sou novato no furum e não sei como começar mais assim está função na unit AcbrUtil.pas procedure RunCommand(Command: AnsiString; Params: AnsiString; Wait : Boolean; WindowState : Word); Foi ela que mudou foi mudado para AnsiString a qual no delphi XE apenas está dando o problema do shellexecute não funcionar com esta variaveis bom resolvi voltando para procedure RunCommand(Command: String; Params: String; Wait : Boolean; WindowState : Word); Antes de postar isso aqui tive muita conversa com Julimar Marchetti Menbro deste forum no delphi dele 2010 e XE2 está funcionando mais no meu delphi XE não funciona creio que seja um BUG talvez do delphi não sei mais ai a dica mudando para String Funciona novamente. Maicon Luis Ferreira