qiinfo

Uau..... Quantas maneiras de se trabalhar Agradeço imensamente a todos que me esclareceram minhas dúvidas Valeu mesmo pessoal Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Tião, Eu recebi o contato da Elaine e ela tem o pinpad somente "serial". Será que este funciona beleza ? O seu é "serial" ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Luiz, Interessante esta sua dica Irei verificar isto. Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Tião, Enviei um email para ela. Obrigado pela dica Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, Eu vou ter que adquirir um pinpad aqui para eu fazer os testes junto as certificadoras de cartão de crédito. Alguém que já homologou seu sistema poderia me dizer qual pinpad usou (marca, modelo), e se possível o site onde comprou ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, Eu vou ter que adquirir um pinpad aqui para eu fazer os testes junto as certificadoras de cartão de crédito. Alguém que já homologou seu sistema poderia me dizer qual pinpad usou (marca, modelo), e se possível o site onde comprou ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Pessoal, No meu caso eu vou homologar para bematech e sweda. Para homologar estas lá em Sampa eu preciso levar o meu pin-pad e no caso, as duas impressoras ? Ou eles te fornecem o pin-pad e a(s) impressora(s) ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, Alguém aqui de Minas Gerais que já esteja homologado com o novo Paf-Ecf, usa o AcbrMonitor para comunicar com Ecf ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, Alguém aqui de Minas Gerais que já esteja homologado com o novo Paf-Ecf, usa o AcbrMonitor para comunicar com Ecf ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, Acabei de fazer a minha inscrição Gostaria de parabenizar aos organizadores por toda elaboração do evento e só fazer uma sugestão(hehe essa eu não podia deixar passar). Lá no site vocês colocaram qual a cerveja cada um gosta de beber, mas se esqueceram de colocar o grau de consumo da pessoa (hehe) Aqui vai a sugestão: 1-Iniciante 2-Moderado 3-Avançado 4-Alcoólatra (bebum) (Sem direiro a ambulância e nem glicose (hehe)) 5-Alcoólatra (organizado) (incluso ambulância, quarto com ar condicionado, galão de glicose e tudo mais (hehe)) Hehehe Brincadeirinha pessoal. No mais venham para este encontro em minas, que com certeza entrará para a história dos encontros. No mais esperamos todos aqui Abraços e obrigados a todos. Rossine. Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Pessoal, Vou testar as dicas de vocês Obrigado Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, O ADS tá lento na abertura dos arquivos. Tem como configurar isto ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá pessoal, O ADS tá lento na abertura dos arquivos. Tem como configurar isto ? Obrigado, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Vailton, GRANDE TÓPICO Eu venho já há algum tempo usando o harbour e estou tendo resultados fantásticos com ele. Obrigado por seu tempo e interesse em nos manter informado sobre o que há de melhor para o mundo xbase Um grande abraço, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour

Olá Evandro, Teria como demonstrar a impressão no modo draft (LX-300) (condensaçao,entrilhamento,etc...) também ? Obrigado, Rossine. Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG

Eita mineirada braba sô Viva nóis hehehehehe Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG

Olá pessoar, Esse eu não perco nao sô Agente se vê lá galera T+ Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG

Olá pessoal, Eu peguei este exemplo em algum lugar e adaptei para as minhas necessidades aqui. Veja se server para vocês: #include "fivewin.ch" static oWnd static nZoom := 2 static oColor function main() local oTimer DEFINE WINDOW oWnd TITLE "Prueba de ventana" MENU mimenu() DEFINE TIMER oTimer OF oWnd ; INTERVAL 70 ACTION GetColor() oTimer:Activate() ACTIVATE WINDOW oWnd oTimer:DeActivate() return nil function mimenu() local oMenu MENU oMenu MENUITEM "Zoom" MENU MENUITEM "1" ACTION ( nZoom := 1 ) MENUITEM "2" ACTION ( nZoom := 2 ) MENUITEM "3" ACTION ( nZoom := 3 ) MENUITEM "4" ACTION ( nZoom := 4 ) MENUITEM "5" ACTION ( nZoom := 5 ) ENDMENU ENDMENU return oMenu function GetColor() local hDeskTop := GetDC(0) local a := GetCursorPos() local nColor := GetPixel( hDeskTop, a[2], a[1] ) local hDC := oWnd:GetDC() local hPen := CreatePen( PS_SOLID,1,CLR_HRED ) local hOldPen local nTop, nLeft local nWidth, nHeight nTop := 10 nLeft := 100 nWidth := 300 nHeight := 200 SetBkColor( hDC, nColor ) TextOut( hDC, 10, 10, " " ) TextOut( hDC, 25, 10, " " ) TextOut( hDC, 40, 10, " " ) TextOut( hDC, 60, 10, " " + corTOrgb( nColor ) + " " ) Moveto( hDC, nLeft-1, nTop-1) Lineto( hDC, nLeft + nWidth+1, nTop-1 ) Lineto( hDC, nLeft + nWidth+1, nTop+nHeight+1 ) Lineto( hDC, nLeft -1, nTop+nHeight+1 ) Lineto( hDC, nLeft-1, nTop-1) StretchBlt( hDC, nLeft, nTop, nWidth, nHeight, hDeskTop, a[2]-(nWidth/(nZoom*2)), a[1]-(nHeight/(2*nZoom)), nWidth/nZoom, nHeight/nZoom, 13369376 ) hOldPen := SelectObject( hDC, hPen ) Moveto( hDC, nLeft+nWidth/2+1, nTop-1 ) Lineto( hDC, nLeft+nWidth/2+1, nTop+nHeight+1 ) Moveto( hDC, nLeft+1, nTop+nHeight/2+1 ) Lineto( hDC, nLeft+nWidth+1, nTop+nHeight/2+1 ) SelectObject( hDC, hOldPen ) DeleteObject( hPen ) oWnd:ReleaseDC() ReleaseDC( 0, hDeskTop ) return nil ***************** function corTOrgb( Cor1 ) ***************** local Cor2, Cor3 Cor3 := int(Cor1 / 65536) Cor2 := int( ( Cor1 - ( Cor3 * 65536 ) ) / 256 ) Cor1 := Cor1 - ( Cor3 * 65536 ) - ( Cor2 * 256 ) return strzero(Cor1,3) + "," + strzero(Cor2,3) + "," + strzero(Cor3,3) #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" HB_FUNC( STRETCHBLT ) { hb_retl( StretchBlt( (HDC) hb_parnl( 1 ) , hb_parni( 2 ) , hb_parni( 3 ) , hb_parni( 4 ) , hb_parni( 5 ) , (HDC) hb_parnl( 6 ) , hb_parni( 7 ) , hb_parni( 8 ) , hb_parni( 9 ) , hb_parni( 10 ) , (DWORD) hb_parnl( 11 ) ) ) ; } #pragma ENDDUMP id=code>id=code>Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG

Bom dia Geovani, Se você está usando fivewin (FWH 32bits) você não pode usar "loadlib32", você tem que usar "loadlibrary" e outra coisa, ao final da execução você deve liberar a DLL da memória com o comando "FreeLybrary". Veja como deveria ficar o seu exemplo: citação:******************************* FUNCTION dStart() ******************************* LOCAL hBorland,bAction SET 3DLOOK ON mensagem1:='' //------------------------> CARREGA DLL dDll:=' ' beep(16) //MsgRun("Carregando arquivo de comunicação da Impressora Fiscal","Aguarde...",{||dDll:=loadlib32('dllg2.dll')}) dDll:=loadlibrary('dllg2.dll') && loadlib32('dllg2.dll') VARCOM:="COM3" canal:=drprintlig(varcom) *MsgRun("Estabelecendo comunicação com a Impressora Fiscal","Aguarde...",{||canal:=drprintlig(varcom)}) freeLybrary( dDll ) && Não pode esquecer isto RETURN nil id=quote>id=quote>Abraços, Editado por - qiinfo on 03/07/2009 09:40:27

Olá Ale, Tente assim: oCbx:bGotFocus := { || oCbx:open() } Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG

Olá Vitor, citação:mande seu email que eu lhe envio modelo que tenho id=quote>id=quote>Meu email é qiinfo@ig.com.br Muito obrigado, Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG

Olá pessoal, Então deixa eu ver se entendi corretamente. Se eu gerar o .xml e tentar enviar a NF-e para a sefaz, e por algum motivo lá na sefaz eu não conseguir emitir a mesma, digamos por eles estarem fora do ar, é só eu imprimir no corpo da nota a ,memsagem: "Danfe em Contingencia. Impresso em decorrencia de Problemas Técnicos. " e pronto, está tudo legal assim ? É só isto ? E depois eu preciso re-emitir esta nota para que ela conste lá no site do sefaz para uma consulta posterior ? É isto ? Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG

Olá, Grande ferramenta Voto confirmado. Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG

Beleza Ale era isto mesmo. Acrescentei estes Set´s no meu arquivo de lote funcionou legal set HB_INC_ADS=C:\ADS_8_1\acesdk set HB_DIR_ADS=C:\ADS_8_1\acesdk >> Qq coisa..pedi p/o Kleyber o meu outro Msn e me add..p/ gente trocar umas ideias..ok Beleza vou falar com ele. Obrigado, Rossine. Editado por - qiinfo on 13/04/2009 12:38:47

Bom Dia Ale, Eu uso o harbour atualizado diariamente pelo SVN. Poderia me mostrar se é possivel criar a "rddads.lib" diretamente do harbour ou um .BAT a aparte ? Editado por - qiinfo on 13/04/2009 09:38:46