Reputation from kapiaba - Page 5

kapiaba got a reaction from Valdir in Revés no Windows 7 January 15, 2020

Perfeito. 100 palavras tranka. Só para ti lembrar, o Palmeiras não tem mundial e nem copinha. Eliminado. kkkkkkkkk
Não se pode deixar o "uçuário" restaurar backup nunca. Sempre deve ser feito, pelo suporte com senha de proteção, para inclusive, a concorrência não abrir o backup do(s) cliente(s).
Ken diria, Valdir dando show()??? kkkkkkkkkkkkkkkk, brincadeira tranka.

Abs.

kapiaba reacted to Valdir in Revés no Windows 7 January 15, 2020

Olá Ladinilson...
"Restauração" automática ???
Já tive esse tipo de problemas
Uma certa vez, um espertalhão achando que sabia o que estava fazendo, iniciou a restauração do back´up da semana anterior.
Porém ao perceber que estava fazendo merda, simplesmente desligou o Servidor e tentou inicialmente colocar a culpa no Sistema, depois disse que deveria ser problema do Sistema Operacional.
O que o infeliz não sabia, é que o meu Sistema registra quem e quando executa as rotinas de restauração do Back´up.
A partir desta situação, adotei que a "Restauração" do Back´up só poderia ser feita através de uma senha, que só o Suporte do Sistema teria acesso.
Abraços.

kapiaba reacted to william in Resolucao da Tela January 8, 2020

#include "FiveWin.ch"
#include "common.ch"
#include "xbrowse.ch"
*********************************************************************
* NOME......: DISPLAY(oWnd,nResolution)
*
* VERSAO....: 3.0 - Julho de 2010
*
* AUTOR.....: William de Brito Adami e FiveWidi, que iniciou este projeto
* no Forum Espanhol de Fivewin .
*
* DESCRICAO.: Funcao para exibir a tela sempre igual em qualquer
* resolucao, independente da fonte ou controle utilizado.
*
* PARAMETROS: oWnd: Window ou Dialog a ser redimensionado
* nResolution: Numero correspondente a resolucao
* que se desenhou inicialmente a tela.
*
*********************************************************************
function display( oWnd, nResolution, lFullres )
local lAutoresize:=.t. , nWhatSize:=0, lRepaint:=.t.
* atencao: nResolution identifica em que resolucao foram inicialmente
* desenhadas as telas, e DEVE ter um dos seguintes valores:
*
* 1 = 640 X 480
* 2 = 800 X 600
* 3 = 1024 X 768
* 4 = 1152 X 864
* 5 = 1280 X 800
* 6 = 1280 X 1024
* 7 = 1600 X 1200
* 8 = 768 X 1024
* 9 = 1440 X 900
* 10 = 1280 X 768
* 11 = 1280 X 720
* 12 = 1366 X 768
AutResiz( lAutoresize, nWhatSize, oWnd, nResolution, lRepaint, lFullres )
return nil
/*
(20/08/2009) Inicio do REdesenvolvimento da funcao.
Parametros recebidos :
lAutoresize: ativa / desativa redimensionamento automatico
nWhatSize: permite for‡ar o redimensionamento a valores concretos;
permitindo desta maneira que a aplica‡ao possa ter um valor
ao qual redimensionar as telas.
oWnd: Objeto/janela/dialogo/controle a ser redimensionado.
nResolution: Numero que identifica que resolucao tinha a tela na qual
se desenhou o objeto.
lRepaint: Indicador se deve repintar o objeto uma vez redimensionado.
lFullres: Indica se os textos devem ser redimensionados no tamanho maximo
do resource desenhado.
Esta funcao deve ser utilizada no evento ON INIT do ACTIVATE das WINDOWs
e DIALOGs .
Exemplo:
ACTIVATE DIALOG oDlg ON INIT display(oDlg,2,.t.) //desenhada em 800 X 600
-* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*
*/
FUNCTION AutResiz( lAutoresize, nWhatSize, oWnd, nResolution, lRepaint,lFullres )
// Resolucao da tela no momento de definir os controles.
Local nOriWidth, nOriHeight
// o normal seria que fosse a resolucao atual da tela (nWhatSize=0).
// Se permite forcar esta resolucao mediante o valor de nWhatSize=1,2,3,4,5,6,7,....
Local nWidth, nHeight
// Sao as relacoes entre a resolucao de tela e a resolucao de desenho.
Local nFactorWitdh, nFactorHeight
Local nContador,ofonttmp
DEFAULT lRepaint := .T.
nOriWidth := 0
nOriHeight := 0
nWidth := 0
nHeight := 0
nContador := 0
If ABS(nResolution) = 1
nOriWidth := 640
nOriHeight := 480
ElseIf ABS(nResolution) = 2
nOriWidth := 800
nOriHeight := 600
ElseIf ABS(nResolution) = 3
nOriWidth := 1024
nOriHeight := 768
ElseIf ABS(nResolution) = 4
nOriWidth := 1152
nOriHeight := 864
ElseIf ABS(nResolution) = 5
nOriWidth := 1280
nOriHeight := 800
ElseIf ABS(nResolution) = 6
nOriWidth := 1280
nOriHeight := 1024
ElseIf ABS(nResolution) = 7
nOriWidth := 1600
nOriHeight := 1200
ElseIf ABS(nResolution) = 8
nOriWidth := 768
nOriHeight := 1024
ElseIf ABS(nResolution) = 9
nOriWidth := 1440
nOriHeight := 900
ElseIf ABS(nResolution) = 10
nOriWidth := 1280
nOriHeight := 768
ElseIf ABS(nResolution) = 11
nOriWidth := 1280
nOriHeight := 720
ElseIf ABS(nResolution) = 12
nOriWidth := 1366
nOriHeight := 768
Else
ScrResolution( @nOriWidth, @nOriHeight )
Endif
If nWhatSize = 1
nWidth := 640
nHeight := 480
ElseIf nWhatSize = 2
nWidth := 800
nHeight := 600
ElseIf nWhatSize = 3
nWidth := 1024
nHeight := 768
ElseIf nWhatSize = 4
nWidth := 1152
nHeight := 864
ElseIf nWhatSize = 5
nWidth := 1280
nHeight := 800
ElseIf nWhatSize = 6
nWidth := 1280
nHeight := 1024
ElseIf nWhatSize = 7
nWidth := 1600
nHeight := 1200
ElseIf nWhatSize = 8
nWidth := 768
nHeight := 1024
ElseIf nWhatSize = 9
nWidth := 1440
nHeight := 900
ElseIf nWhatSize = 10
nWidth := 1280
nHeight := 768
ElseIf nWhatSize = 11
nWidth := 1280
nHeight := 720
ElseIf nWhatSize = 12
nWidth := 1366
nHeight := 768
Else
ScrResolution( @nWidth, @nHeight )
Endif
If lAutoresize .and. nOriHeight != nHeight
/* Este sera o caso habitual, ao qual se pretende redimensionar
os controles na resolucao da tela na qual estao viendo. */
If nResolution > 0
nFactorWitdh := nWidth / nOriWidth
nFactorHeight := nHeight / nOriHeight
ElseIf nResolution < 0
nFactorWitdh := nOriWidth / nWidth
nFactorHeight := nOriHeight / nHeight
EndIf
If lRepaint
oWnd:Hide()
EndIf
* se aumentou a altura
If nFactorHeight > 1
*****************************
* se tiver barbutton * NOVO *
*****************************
if ownd:obar <> NIL
ownd:obar:nwidth:=ownd:obar:nwidth* nfactorwitdh
ownd:obar:nHeight:=ownd:obar:nHeight*nfactorheight
ownd:obar:nbtnwidth:=ownd:obar:nbtnwidth*nfactorwitdh
ownd:obar:nbtnHeight:=ownd:obar:nbtnHeight*nfactorheight
for i= 1 to len(ownd:obar:acontrols)
ownd:obar:acontrols:Move( ownd:obar:acontrols:nTop * nFactorHeight , ;
ownd:obar:acontrols:nLeft * nFactorWitdh, ;
ownd:obar:acontrols:nWidth * nFactorWitdh, ;
ownd:obar:acontrols:nHeight * nFactorHeight , ;
.F. )
* redimensiona o BMP da BARBUTTON
o:=ownd:obar:acontrols:hbitmap1
if o<>0
hbmp:=ownd:obar:acontrols:hbitmap1
nbmpwidth := nbmpwidth(hbmp)
nbmpheight:= nbmpheight(hbmp)
larg:=nbmpwidth*nfactorwitdh
alt:=nbmpheight*nfactorheight
o:=resizebmp(o,larg ,alt )
ownd:obar:acontrols:hbitmap1:=o
endif
next
ownd:obar:refresh()
endif
If oWnd:ClassName()$"/TIMAGE/"
ad:=getcoors(ownd:hWnd)
oWnd:Move( oWnd:nTop * nFactorHeight , ;
oWnd:nLeft * nFactorWitdh, ;
((ad[4]-ad[2])) * nFactorWitdh, ;
((ad[3]-ad[1])) * nFactorHeight , ;
.F. )
Else
oWnd:Move( oWnd:nTop * nFactorHeight , ;
oWnd:nLeft * nFactorWitdh, ;
oWnd:nWidth * nFactorWitdh, ;
oWnd:nHeight * nFactorHeight , ;
.F. )
EndIf
EndIf
if oWnd:ClassName()$"/TFOLDER/TPAGES/"
If ValType( oWnd:aDialogs ) = "A"
For nContador := 1 To Len( oWnd:aDialogs )
AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F.,lFullres )
EndFor
EndIf
Elseif oWnd:ClassName()$"/TBTNBMP/"
*********************************
* redimensiona o BMP do BTNBMP
o:=oWnd:hbitmap1
if o<>0
hbmp:=ownd:hbitmap1
nbmpwidth := nbmpwidth(hbmp)
nbmpheight:= nbmpheight(hbmp)
larg:=nbmpwidth*nfactorwitdh
alt:=nbmpheight*nfactorheight
o:=resizebmp(o,larg ,alt )
oWnd:hbitmap1:=o
endif
*********************************
elseif oWnd:ClassName()$"/TCOMBOBOX/TDBCOMBO/"
Else
If ValType( oWnd:aControls ) = "A"
For nContador := 1 To Len( oWnd:aControls )
AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], nResolution, .F.,lFullres )
* ajuste de fontess
* controle TSAY
if ownd:acontrols[nContador]:classname$"/TSAY/TSAYREF/"
aja_FLD(ownd:acontrols[nContador],nFactorHeight)
ajl_FLD(ownd:acontrols[nContador],nFactorWitdh)
ELSEif ownd:acontrols[nContador]:classname$"/TGET/TSSAY/TDSAY/"
aja_FLD(ownd:acontrols[nContador],nFactorHeight)
ajl_FLD(ownd:acontrols[nContador],nFactorWitdh)
ELSEif ownd:acontrols[nContador]:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/"
aja_FLD(ownd:acontrols[nContador],nFactorHeight)
ajl_FLD(ownd:acontrols[nContador],nFactorWitdh)
endif
EndFor
EndIf
EndIf
* se diminuiu a altura
If nFactorHeight < 1
*****************************
* se tiver barbutton * NOVO *
*****************************
if ownd:obar <> NIL
ownd:obar:nwidth:=ownd:obar:nwidth* nfactorwitdh
ownd:obar:nHeight:=ownd:obar:nHeight*nfactorheight
ownd:obar:nbtnwidth:=ownd:obar:nbtnwidth*nfactorwitdh
ownd:obar:nbtnHeight:=ownd:obar:nbtnHeight*nfactorheight
for i= 1 to len(ownd:obar:acontrols)
ownd:obar:acontrols:Move( ownd:obar:acontrols:nTop * nFactorHeight , ;
ownd:obar:acontrols:nLeft * nFactorWitdh, ;
ownd:obar:acontrols:nWidth * nFactorWitdh, ;
ownd:obar:acontrols:nHeight * nFactorHeight , ;
.F. )
* redimensiona o BMP da BARBUTTON
o:=ownd:obar:acontrols:hbitmap1
if o<>0
hbmp:=ownd:obar:acontrols:hbitmap1
nbmpwidth := nbmpwidth(hbmp)
nbmpheight:= nbmpheight(hbmp)
larg:=nbmpwidth*nfactorwitdh
alt:=nbmpheight*nfactorheight
o:=resizebmp(o,larg ,alt )
ownd:obar:acontrols:hbitmap1:=o
endif
next
ownd:obar:refresh()
endif
***************************************
if oWnd:ClassName()$"/TIMAGE/"
ad:=getcoors(ownd:hWnd)
oWnd:Move( oWnd:nTop * nFactorHeight , ;
oWnd:nLeft * nFactorWitdh, ;
((ad[4]-ad[2])) * nFactorWitdh, ;
((ad[3]-ad[1])) * nFactorHeight , ;
.F. )
Elseif oWnd:ClassName()$"/TBTNBMP/"
oWnd:Move( oWnd:nTop * nFactorHeight , ;
oWnd:nLeft * nFactorWitdh, ;
oWnd:nWidth * nFactorWitdh, ;
oWnd:nHeight * nFactorHeight , ;
.F. )
*********************************
* redimensiona o BMP do BTNBMP
o:=oWnd:hbitmap1
if o<>0
hbmp:=ownd:hbitmap1
nbmpwidth := nbmpwidth(hbmp)
nbmpheight:= nbmpheight(hbmp)
larg:=nbmpwidth*nfactorwitdh
alt:=nbmpheight*nfactorheight
o:=resizebmp(o,larg ,alt )
oWnd:hbitmap1:=o
endif
*********************************
Else
oWnd:Move( oWnd:nTop * nFactorHeight , ;
oWnd:nLeft * nFactorWitdh, ;
oWnd:nWidth * nFactorWitdh, ;
oWnd:nHeight * nFactorHeight , ;
.F. )
endif
If ValType( oWnd:aControls ) <> "A"
* ajuste de fontess
* controle TSAY
if ownd:classname$"/TSAY/TSAYREF/"
aja_FLD(ownd,nFactorHeight)
ajl_FLD(ownd,nFactorWitdh)
ELSEif ownd:classname$"/TGET/TSSAY/TDSAY/"
aja_FLD(ownd,nFactorHeight)
ajl_FLD(ownd,nFactorWitdh)
ELSEif ownd:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/"
aja_FLD(ownd,nFactorHeight)
ajl_FLD(ownd,nFactorWitdh)
endif
EndIf
EndIf
If lRepaint
if oWnd:lCentered // *** AAA ***//
oWnd:Center() // *** AAA ***//
endif // *** AAA ***//
oWnd:Show()
EndIf
***************************************
* se for resolucao igual a que desenhou
***************************************
elseif lAutoresize .and. nOriHeight = nHeight
if lfullres
If nResolution > 0
nFactorWitdh := nWidth / nOriWidth
nFactorHeight := nHeight / nOriHeight
ElseIf nResolution < 0
nFactorWitdh := nOriWidth / nWidth
nFactorHeight := nOriHeight / nHeight
EndIf
If oWnd:ClassName()$"/TFOLDER/TPAGES/"
If ValType( oWnd:aDialogs ) = "A"
For nContador := 1 To Len( oWnd:aDialogs )
AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F.,lfullres )
EndFor
EndIf
elseif oWnd:ClassName()$"/TIMAGE/" //TBITMAP/TLISTBOX/TWBROWSE/TSSAY/TDSAY/TSAYREF/"
ad:=getcoors(ownd:hWnd)
oWnd:Move( oWnd:nTop * nFactorHeight , ;
oWnd:nLeft * nFactorWitdh, ;
((ad[4]-ad[2])) * nFactorWitdh, ;
((ad[3]-ad[1])) * nFactorHeight , ;
.F. )
elseif oWnd:ClassName()$"/TCOMBOBOX/TDBCOMBO/"
Else
If ValType( oWnd:aControls ) = "A"
For nContador := 1 To Len( oWnd:aControls )
AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], nResolution, .F.,lfullres )
/*
* ajuste de fontes
* controle TSAY
if ownd:acontrols[nContador]:classname$"/TSAY/TSAYREF/"
* ajustaalt(ownd:acontrols[nContador],nfactorheight,lFullres)
* ajustalarg(ownd:acontrols[nContador],ownd,nfactorwitdh,lFullres)
ELSEif ownd:acontrols[nContador]:classname$"/TGET/TSSAY/TDSAY/"
* ajustaalt(ownd:acontrols[nContador],nfactorheight,lFullres)
* ajl_FLD(ownd:acontrols[nContador],nFactorWitdh)
ELSEif ownd:acontrols[nContador]:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/"
aja_FLD(ownd:acontrols[nContador],nFactorHeight)
ajl_FLD(ownd:acontrols[nContador],nFactorWitdh)
endif
*/
EndFor
EndIf
EndIf
endif
EndIf
Return Nil
FUNCTION ajl_FLD(oq,nf)
* se nao tiver fonte , nao faz
LOCAL cFontName := iif ( oq:oFont=NIL , "NAOFAZ" ,oq:oFont:cFaceName )
LOCAL lFlagReleaseFont := .F., nAlturaDaFonte, nLarguraDaFonte := 0,;
nLarguraDoControle ,nTime:= SECONDS()+3, oFontTmp,ofont
if cfontname="NAOFAZ"
return nil
endif
if oq:oFont:nWidth = NIL // *** AAA ***//
oq:oFont:nWidth := 0 // *** AAA ***//
endif // *** AAA ***//
nLarguraDoControle := oq:nWidth
nAlturaDaFonte := oq:oFont:nHeight
nLarguraDaFonte = nLarguraDaFonte*nf
DEFINE FONT oFontTmp;
NAME cFontName;
SIZE abs(nLarguraDaFonte),ABS(nAlturaDaFonte)
oq:SetFont(oFontTmp)
oFont := oq:ofont //osay:GetFont()
RELEASE FONT oFontTmp
If oq:ClassName()$"/TXBROWSE/"
for i=1 to len(oq:acols)
* pega tamanho anterior X factor
ov:=oq:aCols:nWidth * nf
* atualiza o novo tamanho da coluna
oq:aCols:nWidth := ov
next
elseif oq:classname$"/TDSAY/"
oq:Refresh()
elseif oq:ClassName()$"/TWBROWSE/"
* atualiza a largura das colunas
for i=1 to len(oq:acolsizes)
oq:acolsizes:=oq:acolsizes*nf
next
endif
* oq:Refresh()
RETURN NIL
FUNCTION aja_FLD(oq,nf)
LOCAL cFontName := iif ( oq:oFont=NIL , "NAOFAZ" ,oq:oFont:cFaceName )
LOCAL lFlagReleaseFont := .F., nAlturaDaFonte := 0,;
nLarguraDaFonte, oFontTmp,ofont
if cfontname="NAOFAZ"
return nil
endif
if oq:oFont:nWidth = NIL // *** AAA ***//
oq:oFont:nWidth := 0 // *** AAA ***//
endif // *** AAA ***//
nLarguraDaFonte := oq:oFont:nWidth
nAlturadaFonte:=nalturadafonte*nf
DEFINE FONT oFontTmp;
NAME cFontName;
SIZE abs(nLarguraDaFonte),ABS(nAlturaDaFonte)
oq:SetFont(oFontTmp)
oFont := oq:ofont //osay:GetFont()
RELEASE FONT oFontTmp
If oq:ClassName()$"/TXBROWSE/"
oq:nRowHeight := oq:nRowHeight* nf
oq:nStretchcol:=STRETCHCOL_LAST
elseif oq:ClassName()$"/TSBROWSE/"
oq:nHeightCell:=oq:nHeightCell * nf
* oq:nheightHead:=oq:nheightHead*nf
* oq:nheightFoot:=oq:nheightFoot*nf
endif
* oq:Refresh()
RETURN NIL

kapiaba reacted to infosys2 in VRMM January 7, 2020

João tem como você mandar o gasfw.exe para mim: jfab2007@yahoo.com.br

kapiaba reacted to infosys2 in VRMM January 6, 2020

Com certeza utilizando o resource fica muito mais fácil, por sinal eu aprendi bastante com o gerado de sistema que você fez, não teria como você liberar uma copia dele para mim?

GASFW.EXE

Grato

kapiaba reacted to marcioe in BitMap 32 x 32 December 19, 2019

Baixe e veja se te serve

https://mega.nz/#F!xUBVxaYa!e-7K92KVPu71hJJAx7xFDA

ou acesse icofinder.com

kapiaba got a reaction from aferra in VRMM December 18, 2019

Thanks friend. Projeto legal, mas gera tudo em @SAY(), y @SAY(), eu não SAY. kkkkkkkkkkkkkkkkkk

kapiaba reacted to aferra in VRMM December 17, 2019

http://www.pctoledo.com.br/forum/filebase.php?d=1&id=143&c_old=0&what=c&page=1

kapiaba reacted to alex2002 in RPV December 2, 2019

Fala João, saudade de você meu jovem.

Tudo tranquilo?

O RPV é um visualizador de relatórios. Na época, se não me engano, foi o Elias que trouxe a novidade pra nós.

Daí temos muitos relatórios nele, e agora a coisa ta começando a ficar feia rsrsrsrs

kapiaba reacted to sygecom in Biometria Facial December 2, 2019

E até hoje nada do Lainton entregar o projeto ou devolver o dinheiro. Infelizmente tenho que entender que fui mais um que perdeu.
Agora ele procura contratar programadores.
http://www.pctoledo.com.br/forum/viewtopic.php?f=8&t=23713&sid=dcdc3cece48245d5d4a5781aedf89e41

Lailton,
Agora que você está contratando quem sabe faz uma devolução do meu dinheiro, se quiser podemos até aproveitar o Black Free Day

kapiaba got a reaction from evertonlb in manual do xHb October 28, 2019

Se não conseguir agora... kkkkkkkkkkkkkkkkkk
xHarbour Language Reference Guide
https://code.google.com/archive/p/santysoft/downloads
http://www.marinas-gui.org/projects/harbour_manual/
http://www.fivetechsoft.com/harbour-docs/harbour.html
https://pt.scribd.com/doc/61362967/xHarbour-Language-Reference-Guide
https://www.xharbour.com/store/p33/OrderDocs.html
https://sourceforge.net/p/xharbour/mailman/message/16233246/

kapiaba got a reaction from Valdir in Acessar MariaDb remotamente. October 23, 2019

Enquanto espera, vá dando uma lidinha por aqui:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33908

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33286#p196127

Abs.

kapiaba reacted to evertonlb in Mouse não funciona na Window com BMP October 22, 2019

Perdi não.. achei um erro no FW.. quem perdeu foi o Linhares! hahahaha
Cara.. to compilando! kkkkk
Agora começo com o tal JSon...

kapiaba reacted to evertonlb in Mouse não funciona na Window com BMP October 22, 2019

ON RESIZE oBmp:Center() -- Isso que me atrapalhava...

kapiaba reacted to aferra in Mouse não funciona na Window com BMP October 22, 2019

inverta a ordem do bmp e do group, veja se funciona.

kapiaba reacted to evertonlb in Mouse não funciona na Window com BMP October 22, 2019

Johny, johny... "Cérebro de minhoca"? Não subestime a capacidade do colega.. é feio assim! kkkkkk
Não travou o programa nem o mouse.. e muito menos meu cérebro de minhoca!!! O mouse anda.. e clica em outras coisas ao redor do programa.. as tecas funcionam e com o TAB eu navego do software.. se eu colocar o BMP atras de um Group somente, NESTE group o mouse não clica.. mas nos outros get´s, e Btn ele clica normalmente... e em todas essas situações meu cérebro de minhoca continua funcionando... Falando em "cérebro de minhoca" .. lembrei de você há alguns dias! kkkkkkkkkk

kapiaba reacted to Jmsilva in WPS Office For PC October 22, 2019

Obrigado! Pelo feedback. Kkk

kapiaba reacted to ricardomouramarques in WPS Office For PC October 21, 2019

Instalei há alguns meses atrás. No início foi lindo, mas após uns dias começou a explodir propaganda a todo minuto na barra de notificações do Windows. uma b0$t@... com todo respeito. rsrs

kapiaba reacted to evertonlb in Envio de SMS - Pronto October 16, 2019

kkkk.. na boa... to mexendo no envio de SMS

kapiaba reacted to Theotokos in Envio de SMS - Pronto October 16, 2019

Vixi.... Desculpa ai!!! rsrsrsrs.... nem vi que escrevi errado...

kapiaba got a reaction from sistem in Owner draw ComboBox October 12, 2019

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37878

kapiaba reacted to cnavarro in Luto no grupo October 11, 2019

Si puedo ayudar técnicamente con temas de Fivewin, no duden en contactar conmigo.

kapiaba got a reaction from frkiko in Código do benefício fiscal de ICMS na geração de NF-e a partir da Nota Técnica 2019.001 October 9, 2019

http://ajuda.nomus.com.br/support/solutions/articles/27000058336-1-código-do-benefício-fiscal-de-icms-na-geracão-de-nf-e-a-partir-da-nota-técnica-2019-001

kapiaba reacted to bortot in funcao para bloquear teclado/mouse October 1, 2019

OBRIGADO KAPIABA PARA O MOUSE.
PARA O TECLADO PRECISO BLOQUEAR TOTALMENTE O TECLADO DURANTE A IMPRESSÃO DO CUPOM DO TEF PARA QUE
O OPERADOR DO PDV NAO INTERFIRA NO PROCESSAMENTO DO PDV.

kapiaba got a reaction from evertonlb in Acessar um site com o Chrome September 16, 2019

Fácil: use o CHROME como Navegador DEFAULT.
//-> Programa Para acionar os Correios - by kapiabafwh@gmail.com #Include "FiveWin.Ch" Static oWnd Function Main() LOCAL cSiteCorreios cSiteCorreios := ( "http://www.buscacep.correios.com.br/sistemas/buscacep/BuscaCepEndereco.cfm" ) //-> Invisibilizo a Janela DEFINE WINDOW oWnd FROM -10, -10 TO -5, -5 ACTIVATE WINDOW oWnd ; ON INIT( ShellExecute(GetActiveWindow(),"open",'"'+cSiteCorreios+'"'), oWnd:End() ) // Google // ShellExecute(GetActiveWindow(),"open",'"'+cSite+'"') // Internet Explorer // ON INIT( ( MeuWinExec( "Start Iexplore.Exe http://www.buscacep.correios.com.br/sistemas/buscacep/resultadoBuscaCepEndereco.cfm?t", 0 ) ), oWnd:End() ) // ON INIT( ( MeuWinExec( "Start Iexplore.Exe http://www.correios.com.br/", 0 ) ), oWnd:End() ) Return Nil /* // IsWin2000() // IsWinXP() // IsNTPreWin2K() // IsNTWorkstation() // IsNTServer() // IsWin2000Prof() // IsWin2000Server() */ FUNCTION MeuWinExec( cParametro ) //LOCAL cExec := GetPvProfString("Editor","Pgm","notepad", cIniFile ) LOCAL cExecute := GetPvProfString( "" ) // NT, 2000 e XP IF IsWinNT() .OR. IsWin2000() cExecute := GetEnv( "COMSPEC" ) + " /C " ENDIF RETURN WinExec( cExecute + cParametro, 0 ) //-> Fim do programa

Sign In

kapiaba

Posts

Joined

Last visited

Days Won

Reputation Activity

Browse

Activity