Josevaldo Bringel

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

Olá naugustijr, Favor contactar pelo e-mail [email protected]. Att. Josevaldo

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