-
Total de ítens
42 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Josevaldo Bringel postou
-
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...
-
Baixando os Fontes por SVN
Josevaldo Bringel replied to Josevaldo Bringel's tópico in Dúvidas gerais
O meu Firewall esta desativado... -
Baixando os Fontes por SVN
Josevaldo Bringel replied to Josevaldo Bringel's tópico in Dúvidas gerais
-
Boa Tarde! Gostaria de saber qual o endereço certo para baixar os códigos fontes da ultima versão do ACBRmonitor pelo o SVR. Achei um postagem mais não está funcionando.
-
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
-
Problemas Na Migração Do Acbrx Para Acbrframework - Memoparams
Josevaldo Bringel replied to naugustijr's tópico in VB6 (ActiveX)
Olá naugustijr, Favor contactar pelo e-mail [email protected]. Att. Josevaldo -
Dadosultimareducaoz
Josevaldo Bringel replied to Josevaldo Bringel's tópico in Dúvidas Gerais sobre o ACBr
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? -
Ola, Quando será disponibilidade para nós do fórum. Att. Josevaldo.'.
-
Rafael, Tenho interesse! Como fazemos? Se for o caso mande um e-mail com seus contatos para que eu possa te ligar.... Att. Josevaldo Bringel
-
Caro Rafael Batiati, Agradeço sua atenção mais queria saber se no projeto contempla todos os codigo necessários para que eu possa esta utilizando no hora de homologar o paf-ecf? Att. Josevaldo
-
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
-
Ola, Já consegui fazer a redução Z na daruma! Att. Josevaldo
-
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
-
Rafael, Esqueci de falar eu quero usar ACBr do SAT-CFe no GAS! Att. Josevaldo
-
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
-
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
-
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