marcelokrol

Beleza Rafael funcionou direitinho, vou continuar debugando (ahahaha) o acbrframework. muito obrigado

Ola rafael fiz assim: AcBrECF.CarregaAliquotas() Dim a() As ACBrFramework.ECF.Aliquota a = AcBrECF.Aliquotas lbl1.Text = CStr(a(0).Total) mais continua retornado com valor zerado, segue a tela com o debug

pessoal estou implementando o registro 60 do sintegra em meu pdv, e como nao tinha testado ainda com aliquotas de icms, e fui fazer isso somente hoje, pude parceber que a propriedade valor sempre retorna tudo zerado, segue o exemplo de como estou utilizando. vb.net Dim Tmp_Aliq() As ACBrFramework.ECF.Aliquota Tmp_Aliq = AcBrECF.Aliquotas For i = Tmp_Aliq.GetLowerBound(0) To Tmp_Aliq.GetUpperBound(0) MsgBox(Tmp_Aliq(i).Sequencia & " - " & Tmp_Aliq(i).Total) Next i antes que alguem pergunte, o dia na ecf ainda esta aberto executando o ecfteste do acbrmonitor os dados sao retornado corretamente

Ok Rafael, problema resolvido, vou gerar os outros registros e qualquer problema entro em contato. Aaahhh!!! Parabéns a voce e todos que colaboram com esse componente, ele é otimo. um feliz ano novo a todos os colegas forum.

Cdate converte uma string para data, ou seja, pega o que esta no controle text e transforma em data, pois o controle retorna texto, bom... eu ja debuguei e os valores e nao estao errados, parece que é quando vai gerar o arquivo, pois nas propriedades do acbrsintegra os valores estao todos ok, so que gera com valor errado. a aah, esqueci de falar o cdate é uma function do proprio vb.net

Entao pessoal, estou implementando em meu pdv a geração do registro 60 do sintegra, bom ate ai tudo bem, so que ao executar a minha rotina, segue ela: 'REGISTRO TIPO 10 ************************************************************************************************************************************** AcBrSintegra.LimparRegistros() With AcBrSintegra.Registro10 .FinalidadeArquivo = CInt(TxtFinalidade.Text) .CNPJ = CStr(FbDs.Tables(0).Rows(0).Item("cnpjfilial")) .Inscricao = CStr(FbDs.Tables(0).Rows(0).Item("iefilial")) .RazaoSocial = FbDs.Tables(0).Rows(0).Item("razaosocial").ToString .Cidade = FbDs.Tables(0).Rows(0).Item("nomemunic").ToString .Estado = FbDs.Tables(0).Rows(0).Item("siglauf").ToString .Telefone = FbDs.Tables(0).Rows(0).Item("fonefilial1").ToString .DataInicial = CDate(TxtData1.Text) '=01/01/2012 .DataFinal = CDate(TxtData2.Text) '=31/12/2012 .CodigoConvenio = 3 .NaturezaInformacoes = 3 End With 'REGISTRO TIPO 11 ************************************************************************************************************************************** With AcBrSintegra.Registro11 .Endereco = FbDs.Tables(0).Rows(0).Item("endfilial").ToString .Numero = FbDs.Tables(0).Rows(0).Item("numero").ToString .Complemento = FbDs.Tables(0).Rows(0).Item("complemento").ToString .Bairro = FbDs.Tables(0).Rows(0).Item("bairrofilial").ToString .Cep = FbDs.Tables(0).Rows(0).Item("cepfilial").ToString .Responsavel = FbDs.Tables(0).Rows(0).Item("nomeresp").ToString .Telefone = FbDs.Tables(0).Rows(0).Item("fonefilial2").ToString End With 'outros registros que nao vem ao caso AcBrSintegra.VersaoValidador = ACBrFramework.Sintegra.VersaoValidador.V524 AcBrSintegra.FileName = Application.StartupPath & "\fisco.txt" AcBrSintegra.GeraArquivo() segue tambem o arquivo em anexo gerado. bom vamos ao problema, esta gerando a data final com erro vejam no arquivo gerado, ta la como '18991230' fisco.txt

Ola pessoal entao no roteiro contem: TESTE 027: Arquivo Eletrônico de Movimento Passo 1: Execute a função “Movimento por ECF” do Menu Fiscal. Passo 2: Verifique se há possibilidade de selecionar o ECF e o período por data, para a geração do arquivo. essa parte de "possibilidade de selecionar a ECF", não entendi direito, quer dizer que deve ter a opção de selecionar outra ecf, que nao seja aquela que o PDV esta programado para trabalhar naquele momento?

obrigado rafael pela dica, so me diga mais uma coisa, o porque que ele cancela o cupom antes de chamar o GP, isso acontece logo apos a linha, segue o meu codigo: With acBrTEFD .EsperaSleep = 250 .TEFAuttar.EsperaSTS = 7 .AutoAtivar = True .MultiplosCartoes = True .AutoEfetuarPagamento = False .AutoFinalizarCupom = False Select Case TipoTEF Case tTEF.TefAuttar .GPAtual = ACBrFramework.TEFD.ACBrTEFDTipo.TefAuttar .Initializar(ACBrFramework.TEFD.ACBrTEFDTipo.TefAuttar) .AtivarGP(ACBrFramework.TEFD.ACBrTEFDTipo.TefAuttar) .ATV(ACBrFramework.TEFD.ACBrTEFDTipo.TefAuttar) Case tTEF.TefDial .GPAtual = ACBrFramework.TEFD.ACBrTEFDTipo.TefDial .Initializar(ACBrFramework.TEFD.ACBrTEFDTipo.TefDial) .AtivarGP(ACBrFramework.TEFD.ACBrTEFDTipo.TefDial) .ATV(ACBrFramework.TEFD.ACBrTEFDTipo.TefDial) End Select Result = .CRT(tValor, tIndiceFpgECF, tNumCOO) End With dando um break em linha por linha, ele chega nessa em negrito, nao da erro nenhum, pode ver que nao estou usando try de proposito e ele chama o evento OnAntesCancelarTransacao

Pessoal estou eu aqui novamente com problemas no tef entao eu estou recebendo um erro estranho (segue o projeto de exemplo), onde o cupom fiscal é cancelado antes de chamar o auttar, segue a minha logica: -faço a venda R$2,00 -chamo o acbrtef.crt(1, indiceecf, numcoo), R$1.00 -chamo o acbrtef.crt(1, indiceecf, numcoo), R$1.00 segundo pagamento -se aprovou tudo - Subtotaliza o cupom - efetua as formas de pagamento - da uma espera de 500ms - chama acbrtef.ImprimirTransacoesPendentes() se alguem pudem me ajudar com isso fico grato perdi o dia todo tentando fazer funcionar e nao consegui, e o que mais me intriga é que no teste do acbr funciona perfeitamente: nao estou conseguindo anexar o arquivo, ta me retornado "Você excedeu seu espaço para anexos" existe isso? segue o projeto exemplo pelo 4shared: http://www.4shared.com/zip/sVzVy4Bx/testetef1.html

ok, arquivo gerado com sucesso com a revisao 4459

Ola Rafael, obrigado pelo retorno, entao fiz o teste com apenas um produto e o erro persiste, segue um projetinho de exemplo

So pra deixar o comentario, com a revisao 4436, o LCB funcionou perfeitamente, obrigado

Pessoal, eu de novo... pode ficar a tranquilos estou debugando bem o acbrframework, ahahahah. Bom vamos ao problema: estou gerando o estoque mais ou memos assim: With Grid TotalReg = .RowCount - 1 For i = 0 To TotalReg Dim ItemE2 As New ACBrFramework.PAF.ACBrPAFRegistroE2 ItemE2.COD_MERC = CStr(.GetRow(i).Cells("CodBarra").Value) ItemE2.DESC_MERC = CStr(.GetRow(i).Cells("DescPro").Value) ItemE2.QTDE_EST = CDec(.GetRow(i).Cells("EstoqueAtual").Value) ItemE2.UN_MED = CStr(IIf(IsDBNull(.GetRow(i).Cells("UnidPro").Value) = False, .GetRow(i).Cells("UnidPro").Value, " ")) ItemE2.RegistroValido = True AcBrPAF.PAF_E.RegistroE2.Add(ItemE2) ItemE2 = Nothing Next If AcBrPAF.SaveFileTXT_E("PAF_Estoque.txt") = True Then tMsg.Msg("Arquivo de estoque gerado em: " & AcBrPAF.Path & "PAF_Estoque.Txt") Me.Close() Else tMsg.Msg("O arquivo não foi gerado!") End If End With E esta apresentando este erro, segue a tela em anexo. Gostaria de salientar que a adicao dos produto ocorre normalmente, o erro acontece no momento de gerar o arquivo estou usando a revisao 4436

obrigado rafael, vou baixar e testar, e dou noticias do funcionamento, por hora muito obrigado

Entrando no tópico do colega, mais talvez resolva o seu problema... eu pego os dados da ultima redução z antes de emitir a redução, pois se executar desse modo a unica coisa que ficara errada é o crz, mais ai é so acrescentar 1 e fica tudo blz. Estou correto? Isso solucionará sua dúvida?

Pessoal Outro probleminha encontrado com o LCB, segue a tela e um projeto de exemplo, me corrijam se estiver com a lógica errada. Estou usando VS 2012 e revisao 4343 do acbrframework TesteLCB.rar

So pra deixar resgistrado... o problema ja foi resolvido e disponibilizado no SVN. Obrigado a todos

Nao querendo ser chato, mais pode me ajudar?

Ola rafael cara assim, ja fiz de tudo e nao consegui fazer funcionar, tem como voce me ajudar, voce teria ai por acaso algum exemplo via VB, pois nao estou conseguindo achar o defeito. agradecido ps. te adicionei no msn: [email protected], se puder me adicionar tambem: [email protected] obrigado mais uma vez

Rafael na verdade o tef funciona com o Teste que veio junto com o AcbrFramework via svn, so nao funciona na minha aplicação, acho que ta faltando algum parametro, mais nao estou conseguindo achar qual é. Entende?

cara ele tem 45mb como eu faço pra te enviar?

desculpe a minha ignorancia mais o que é GP posso te adicionar no msn?

Pessoal, passei o fim de semana todo tentado fazer funcionar o tef auttar pelo acbrframework via vb.net 2012. Não sou muito bom entendedor de orientação a objetos, por isso o metodo procedual (eu sei isso é errado, mais estou aprendendo), bom tambem tem um problema programo muito bem em vb e C# nao sei quase nada, pouco coisa com um pouco de interpretaçao, ta... entao tentando migrar o teste do acbr para a minha aplicação fiz um pequeno projeto, e deixei a ecf do seguinte modo: - abri o cupom fiscal; - fiz a venda de um item (total 7,67); - a forma de pagamento do cartao de debito na ecf é "03"; - cupom fiscal em aberto é o "51592"; - chamei o tef e apresentou e nao sei como resolver este problema. segue a tela abaixo segue tambem o meu pequeno projeto de teste. se alguem puder me ajudar fico muitissisisimo contente testetef.rar

so mais uma duvida, o porque se eu pegar o SVN do acbrframework e recompilar, ele fica com nomes e tamanhos diferentes do qual esta no site?

opa legal... só mais uma duvida como que eu faco para contatar ele?