Ir para conteúdo
  • Cadastre-se

Maicon Luis Ferreira

Membros
  • Total de ítens

    23
  • Registro em

  • Última visita

Posts postados por Maicon Luis Ferreira

  1. 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

  2. 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

    • Curtir 1
  3. 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!

    rodape.jpg

    Mudados.rar

    BoletoExtrato.pdf

    BoletoExtrato.rar

  4. 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);
  5. 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?

  6. 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

  7. 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

  8. 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

  9. 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

  10. 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?

  11. 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

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.