Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Josevaldo Bringel

Membros Pro
 Perfil  Explorar Conteúdo

  • Total de ítens

    42

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Josevaldo Bringel

    iNSTALAR COMPONENTE NO LAZARUS

    em Dúvidas gerais

    Postado · Editado por Josevaldo Bringel

    Boa tarde!

    Como sou novo na utilização do ACBrMonitor, queria uma explicação na instalação do mesmo:

    Como eu consigo compilar a ultima versão do ACBRMonitor pelo o Lazarus.

    1. Já baixei e instalei o Lazarus (lazarus-2.0.4-fpc-3.0.4-win64)

    2. Qual os próximos passos? 

    Realmente eu não sei como fazer é a primeira vez que estou vendo essa linguagem.

    Espero ajuda do grupo...

    O Acbr-Framework Parou

    em VB6 (ActiveX)

    Postado

    Quanto custaria o projeto para deixo pronto?
    Será que não temos pessoal suficiente para bancar um desenvolvedor?
    Vamos solicitar ajuda de outros forum como VBMANIA, VBWEB, MACORATTI e outros!

     

    O que vocês acham seria uma boa?

     

    Att.

     

    Josevaldo Bringel

    Dadosultimareducaoz

    em Dúvidas Gerais sobre o ACBr

    Postado

    Estou vendo isso aqui agora mais tem comando que ecfSwedaSTX tipo: ACBrECF.CarregaAliquotas e ACBrECF.Aliquotas não estão funcionando. Com isso tem comando que deve funcionar na ecfSwedaSTX e não funciona ecfSweda. Queria saber qual seria a diferença dos dois modelos ecfSwedaSTX e ecfSweda. Alguém poderia mim responder?

    Erro Sweda Reduçãoz

    em VB6 (ActiveX)

    Postado · Editado por jbringel

    Boa Tarde,

     

    Estou com problema, num DLL do Robson EasyTEF.COM.BR, o mesmo falou que não foi implementado a função DADOSULTIMAREDUCAOZ pelo o motivo qual, que o projeto ACBR não tinha implementado, e por isso ele não implementou.

     

    A minha pergunta é se a função DADOSULTIMAREDUCAOZ e todas as outras necessárias que tem no projeto acbr esta implementada na AcbrFrameworks para vb6 (active x)?

     

    Se sim farei o contrato junto ao projeto SAC ACBR.

     

    Att...

     

     

    Josevaldo

    Redução Z Daruma

    em VB6 (ActiveX)

    Postado

    Ola Boa noite,

     

    Passei muito tempo, tentando fazer funcionar a REDUÇÃO Z, no meu projeto e nada acontece, mais quando entro no exemplo feito para VB6 do projeto teste, funciona! Estou tendo problema só com a impressora DARUAM FS600 fiz o teste em uma Bematech MP-4000 deu tudo certo.

     

    Teria algum motivo?

     

    Att.

     

    Josevaldo

    Novo: Acbrframework Em Vb6

    em VB6 (ActiveX)

    Postado

    Rafael,

     

    Foi dois assuntos num só!

    1. Eu vou substituir todos os código gerados pelo o Gas na minha aplicação pelo da AcBrFRameworks.

    2. Lhe perguntei sobre o novo processo de São Paulo sobre a nova forma de emitir cupom usando o SAT-CFe, pelo o que andei lendo no site oficial do sefaz sp, os mesmo até hoje não exigiram a utilização do PAF-ECF e é para entrar em vigor a partir de 01/07/2013 de acordo site (http://www.fazenda.sp.gov.br/sat/) do projeto. Lie o texto do link acima, fiquei muito interessado e gostaria de contribuir com que for possivel.

     

    Att.

     

    Josevaldo

    Novo: Acbrframework Em Vb6

    em VB6 (ActiveX)

    Postado

    Rafael,

     

    Foi o que pensei, mais os códigos do GAS não são simples de se entender, tem hora que eu acho que da muitas volta. A DLL já esta completa nas sua funções para que eu posso usar para homologar o PAF-ECF e outra coisa em relação ao novo projeto de SÃO PAULO sobre o SAT-CFe, vc ja estão vendo alguma coisa sobre isso.

     

    Por enquanto muito obrigado...

     

     

    Abs

     

     

    Josevaldo

    Novo: Acbrframework Em Vb6

    em VB6 (ActiveX)

    Postado

    Ola,

     

    Bom dia! 

     

    Sou usuário do GAS2003 e estou querendo retirar as funções de ECF do mesmo, conseguiu mudar os codigos e ja estou emitindo LEITURA X, Sangria, Suprimento e REDUÇÃO Z.

    Ontem a noite deparei com um problema de retorno de FLAGS, o GAS2003 esta usando duas funções ANALISAFLAGS E RETORNODEFLAGS. Segue as funcoes abaixo:

    Essa funções analisa retorno de erro que vir por existir na ECF, tipo "POUCO PAPEL", eu sei e tenho certeza que vocês estão por dentro desse assunto, a minha dúvida mesmo seria como 

    eu poderia esta usando de uma melhor forma a DLL.

     

    Espero que mim entendam.

     

    Att.

     

    Josevaldo

     

     

     
     
    *********************
     
    Public Function RetFlagsFiscais(vgQueFlag As Integer, vgValorFlag As Boolean) As Long
     Dim vgRetVal As Long, NErro As Long, vgFlag As Integer
     'On Error Resume Next
     vgValorFlag = False
     NErro = 3411
     vgRetVal = 0
     If Not AbrePortaImp() Then                                       'tenta abrir porta da impressora
      vgRetVal = 3400
     End If
     If vgRetVal = 0 And vgRetornoEcf = 1 Then
      vgRetornoEcf = GECF_FI_FlagsFiscais(vgFlag)
      vgRetornoEcf = TrataErroECF
      If vgRetornoEcf = 1 Then
       vgValorFlag = AnalisaFlagsFiscais(vgFlag, vgQueFlag)
      End If
     End If
     If vgRetornoEcf <> 1 Then
      vgValorFlag = False
     End If
     If vgRetornoEcf <> 1 And vgRetVal = 0 Then
      vgRetVal = NErro
     End If
     RetFlagsFiscais = vgRetVal
    End Function
     
    Public Function AnalisaFlagsFiscais(ByVal FlagFiscal As Integer, Optional Checagem As Integer) As Boolean
     Dim RetVal As Boolean
     If IsMissing(Checagem) Then Checagem = 0
     RetVal = False
     If (FlagFiscal >= 128) Then
      If Checagem = 128 Then
       RetVal = True
      End If
      FlagFiscal = FlagFiscal - 128
     End If
     If (FlagFiscal >= 32) Then
      If Checagem = 32 Then
       RetVal = True
      End If
      FlagFiscal = FlagFiscal - 32
     End If
     If (FlagFiscal >= 8) Then
      If Checagem = 8 Then
       RetVal = True
      End If
      FlagFiscal = FlagFiscal - 8
     End If
     If (FlagFiscal >= 4) Then
      If Checagem = 4 Then
       RetVal = True
      End If
      FlagFiscal = FlagFiscal - 4
     End If
     If (FlagFiscal >= 2) Then
      If Checagem = 2 Then
       RetVal = True
      End If
      FlagFiscal = FlagFiscal - 2
     End If
     If (FlagFiscal >= 1) Then
      If Checagem = 1 Then
       RetVal = True
      End If
      FlagFiscal = FlagFiscal - 1
     End If
     AnalisaFlagsFiscais = RetVal
    End Function
     
    Public Function GECF_FI_FlagsFiscais(ByRef Flag As Integer) As Integer
     Select Case vgMarcaECF
      Case GECF_BEMATECH, GECF_YANCO
           GECF_FI_FlagsFiscais = Bematech_FI_FlagsFiscais(Flag)
      Case GECF_DARUMA
           GECF_FI_FlagsFiscais = Daruma_FI_FlagsFiscais(Flag)
      Case GECF_ELGIN
           GECF_FI_FlagsFiscais = Elgin_FlagsFiscais(Flag)
      Case GECF_SWEDA
           GECF_FI_FlagsFiscais = ECF_FlagsFiscais(Flag)
      Case GECF_EPSON
           GECF_FI_FlagsFiscais = EPSON_Obter_Estado_Impressora(Str(Flag))
           GECF_FI_FlagsFiscais = IIf(GECF_FI_FlagsFiscais = 0, 1, 0)
     End Select
    End Function
×
×
  • 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.