frkiko

Triste... que Deus conforte todos os familiares. 

Legal....Ótimo Natal a todos. E um 2020 de muito sucesso. Abraços.

Tarde.... eu utilizo este

"http://www.nfe.fazenda.gov.br/PORTAL/consultaRecaptcha.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8="

Triste Notícia. Meus sentimentos.

Bom dia Valdir.

- Passo 2: Aplicar o algoritmo SHA-1 sobre o resultado da concatenação do passo 1, gerando uma
string de 40 caracteres em hexadecimal.

Como que faço o SHA-1 em xHarbour ? Não achei em xHarbour, ou minha versão não tem?

Bom dia Luiz,

Resolveu?

 

Colega usando a forma que postei e usando a sua forma da este erro aqui

https://ibb.co/rMStWRH

tem algum ideia do que pode ser

obg

Boa tarde Luiz.

Essa dll vem junto com a mp2032. Você não tem ela?

 

Colega estou usando sim, veja como estou fazendo a chamada, consegue enxergar algo de errado no codigo abaixo.

function gaveta()
  abremp4000()
  bm_iniciaporta('COM7')
  bm_configuramodeloimpressora(7)
  syswait(0.01)
  Bm_BematechTX( chr( 27 ) + chr( 118 ) + chr( 140 ) )
  bm_fechaporta()
  closemp4000()
return

Rochinha e Kapiaba obg pelo retorno vou testar os comandos de vcs no cliente para ver se dar certo, e retorno aqui para dizer se deu certo.

Eu faço assim:

      cComando:=chr(27)+chr(118)+chr(140)
      Ret:=Bematech_ComandoTX(cComando,Len(cComando))

No Help da DLL

Esta função é utilizada no envio de comandos para a impressora, como por exemplo: comandos de Autenticação, comando para Acionamento de Gaveta, comandos para Habilitar Tabelas de Caracteres, etc .

 Parâmetros:

 Comando: STRING com o comando que deseja executar.

Tamanho do Comando: INTEIRO com o tamanho do comando que será enviado.

 Exemplo:

 ' Exemplo em Visual Basic

' Comando para Acionar a Gaveta de Dinheiro

sComando = chr( 27 ) + chr( 118 ) + chr( 140 )

iRetorno = ComandoTX( sComando, Len( sComando )

 

Colegas será que alguém pode me dar uma luz para abrir um gaveta de dinheiro da marca bematech, impressora mp4200, tentei com a sequencia abaixo mais não vai.

chr(27)+chr(117)+chr(140) 

 

obg

Tentou Chr(27)+Chr(118)+Chr(140)

Está utilizando a Dll Mp2032 ?

Em Vonfe2g:

      Do Case
         Case ::nTipoRef==1 // Modelo 55
            AAdd(::axNodes[nPos,2],{"NFref"  , ::SetRefNfe(oItem) })
         Case ::nTipoRef==2 // Modelo A
            AAdd(::axNodes[nPos,2],{"NFref"  , ::SetrefNF(oItem) })
         Case ::nTipoRef==3 // ECF
            AAdd(::axNodes[nPos,2],{"NFref"  , ::SetrefECF(oItem) })
         Case ::nTipoRef==4 // Cpf Pessoa Física
            AAdd(::axNodes[nPos,2],{"NFref"  , ::SetrefNFP(oItem) })
      EndCase

Estou vendo aqui.... depois você tem que preparar para todas os tipos de notas. (Eu também)

 

Frito, grato pela atenção. 

Mas como faço isso na identificação da nota ? Pois já tentei com o setvalue  e não da certo 

Bom dia... Estava olhando aqui. Estou Utilizando a Vonfe2G-v4 mais antiga... com algumas alterações que eu mesmo coloquei.

É muito simples se a nota de ref. é modelo 55 você deve informar a chave de acesso. :refNfe := Ref_Chave

e de maneira alguma informar os outros dados, eles não podem sair no xml,

Boa Tarde.

Para notas de entradas modelo 55 ou seja NFe. É passado apenas a chave de acesso.

Gerado em Minas com vDesc 0. Agora funcionando. Tem que atualizar a Dll.

http://flexdocs.com.br/guianfe/guiaAtualizacao.NT2016002.html

Não funcionou?

      for I:=1 to 12
         IF cMes==Lower(vMes[I])
            cMes:=StrZero(I,2,0)
            Exit
         ENDIF
      next

Uai não sei como foi errado Lower(vMes)

uai quando posto some as [ i ]

vMes

Confere ai este é o retorno do cData

Terça-feira, 8 de maio de 2018.

Resultado 08/05/2018

Uai estou utilizando....

      vMes:={"Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro"}

      cDia:=StrZero(Val(SubStr(cData,At(",",cData)+1,3)),2,0)
      cMes:=SubStr(cData,At("de ",cData)+3)
      cMes:=AllTrim(SubStr(cMes,1,At(" de ",cMes)-1))
      for I:=1 to 12
         IF cMes==Lower(vMes)
            cMes:=StrZero(I,2,0)
            Exit
         ENDIF
      next

   cAno:=SubStr(AllTrim(Right(cData,5)),1,4)
? cDia+"/"+cMes+"/"+cAno

Mudei para este link.... eu passava pelo primeiro e sem resposta passava para este.

     Try
         oHttp:=CreateObject("winhttp.winhttprequest.5.1")
         oHttp:Open("GET","http://www.horariodebrasilia.org/",.f.)
         oHttp:Send()
         cHtml:=oHttp:ResponseText()
         //<h3 id="dia-topo">Quarta-feira, 2 de dezembro de 2015</h3><p id="relogio">08:05:50</p>
         cDados:=SubStr(cHtml,At('<h3 id="dia-topo">',cHtml))
         cDados:=Substr(cDados,19,At('/p>',cDados)-3)
         cData :=SubStr(cDados,1,At('</h3>',cDados)-1)
         cHora :=SubStr(cDados,At('"relogio">',cDados)+10,8)
      Catch
      End Try

Grande João... rsrsr rapaz.... estou com este problema de lentidão deste semana passada. E agora testando é isso mesmo.

Rsrsrsr verdade. Benditos sites de bancos.....

Pois é percebi isso também. Alguém saberia de uma forma de evitar isso. De sair do sistema e ele ainda continuar em processos?

 

Tanto faz: 32 bits roda em 64 bits. Ai, é questão de gosto, teste os dois e decida-se. abs.

 

Eu não largo o meu Workshop.exe the best,  nem a pau Juvenal!! kkkkkkkkkkkkkkk

Rapaz estou assim também.... até quando..... rsrsrsrsr