gibaf

ola por favor, vc teria um numero zap pra poder conversar mais contigo a respeito de algumas duvidas iniciais sobre o webdev ? att Gilberto

estava lendo postagens bem sobre o ADS SERVER, mas tudo muito sem muitas explicacoes... quando vi o TopConnect vc usa o ADS SERVER ?

ola a todos !! o que eh topconnect e para q, exatamente, serve ? att

ola vc usa o ADS SERVER ? att Gilberto

exatamente !!! alguem ja gerou o txt desse registro (E115) ?

up

ninguem (hehe) ?

ola a todos alguem ja criou o registro E115 do Sped Fiscal e Pis/Cofins, q poderia postar em demo, por favor ? desde ja agradeco a ajuda: MUITO OBRIGADO !!! Gilberto

kkkk

bah.. sei nao....

seguindo a execucao do programa, q o error.log mostra, a classe tVGet, na linha 749 error.log: Called from: C:\Sistemas\Contrib\TVGET.PRG => TVGET:KEYDOWN(749) linha 749 do tVGet: If nKey == VK_DELETE ; ::oGet:Delete() mas a execucao vai la pro tGet.... estranho.... e agora ?

vexxx.. laskei-me ?? hehe

ola a todos alguem sabe me dizer como solucionar esse error.log na classe tGet ? Application =========== Path and name: C:\SIG\Sistemas\CompuRMT.exe (32 bits) Size: 5,513,728 bytes Time from start: 0 hours 13 mins 19 secs Error occurred at: 07/05/19, 17:15:38 Error description: Error BASE/1082 Erro nos parƒmetros: - Args: [ 1] = U NIL [ 2] = N 1 Stack Calls =========== Called from: \Sistemas\SIG_WIN\Projeto\CompuXHB\tget.prg => GET:DELETE(2163) Called from: C:\Sistemas\Contrib\TVGET.PRG => TVGET:KEYDOWN(749) Called from: => TWINDOW:HANDLEEVENT(0) Called from: source\classes\control.prg => TVGET:HANDLEEVENT(1483) Called from: source\classes\window.prg => _FWH(3391) Called from: => DIALOGBOXINDIRECT(0) Called from: source\classes\dialog.prg => TDIALOG:ACTIVATE(273) a linha 2163 da tGet eh a em negrito/vermelho: METHOD _Delete( lDisplay ) CLASS Get LOCAL nMaxLen := ::nMaxLen, n, xBuff DEFAULT lDisplay TO .t. ::Clear := .f. ::lEdit := .t. if ::lPicComplex // Calculating diferent nMaxLen for ::lPicComplex for n := ::Pos to nMaxLen if !::IsEditable( n ) exit endif next nMaxLen := n - 1 endif if ::type == "N" .and. SubStr( ::buffer, ::Pos, 1 ) IN "(-" ::minus := .f. endif /* 2006/OCT/06 - E.F. Added new @K+ functionality to empty * get buffer if first key pressed is DEL key. */ if ( "K+" IN ::cPicFunc .and. ::Pos == ::FirstEditable() ) .or.; ::lNumToLeft .and. !IsDigit( SubStr(::buffer, ::Pos, 1 ) ) ::DeleteAll() else /* 2007/FEB/24 - E.F. - Adjust ::Pos value under @L picture */ if ::lNumToLeft if ::lDecPos if ::Pos < ::DecPos ::Pos++ endif if ::Pos-1 < ::DecPos ::lDecPos := .f. endif elseif ::lNeverDeleted .or. ( IsDigit( Right(::buffer,1)) .and. ::Pos+1 == ::nMaxLen ) ::Pos++ endif endif xBuff := ::buffer ::buffer := PadR( SubStr( ::buffer, 1, ::Pos - 1) + ; SubStr( ::buffer, ::Pos + 1, nMaxLen - ::Pos ) + " " +; SubStr( ::buffer, nMaxLen + 1 ), ::nMaxLen ) if ::lPassword .and. ( ! (xBuff == ::buffer) .or. ::nPasswordLen >= ::Pos ) ::nPasswordLen := Max(0,::nPasswordLen-1) endif endif if ::type == "D" .OR. ::type == "T" ::BadDate := IsBadDate( ::buffer, ::cPicFunc ) else ::BadDate := .f. endif ::Changed := .T. if ::lNeverDeleted ::lNeverDeleted := .F. endif if lDisplay ::Display() endif return Self desde ja fico agradecido: MUITO OBRIGADO !!!

ola ja experimentor trabalhar com .hrb ? dae o seu fonte vc carrega a rotina na hora de executar, faz o q tem q fazer, dae descarrega... sera q nao altera a performance ? att Gilberto

ola somente para consular ? ou, tambem para gravar (incluir, alterar e excluir) ?

CONNECT_MYSQL = consulta e alteracao CONNECT_MYSQL_QUERY_ONLY = somente consulta

ops so retirei o HSCROLL e tudo resolvido...hehe

ola a todos ! estou usando um MULTILINE... nele, estou atribuindo uma strings.. quando essa string for muito longa, nao esta quebrando e ficando dentro, tipo, esta ficando tudo numa linha e escondendo, o q nao cabe, no limite a direita... segue, abaixo, a sintaxe q estou usando: @ 15,01 GET oTexto VAR wTexto OF oDlg MULTILINE COLORS CLR_BLACK,RGB(255,255,213) SIZE 400,200 FONT oFont PIXEL READONLY HSCROLL NOBORDER desde ja agracedo a ajuda

ola a todos ao fazer um String Table no Pelles C, tem como o ID nao ser um numero, ou seja, ser um caracter ? se nao tem como, tem algum outro recurso do Pelles q faz igual o String Table, com q ao inves do ID ser numerico, poder ser caracter ? obrigado

a..sim..sim... entendi.. eu tenho q criar no meu prg uma variavel, no exemplo a oDlgActive e na rotina onde faz a janela, atribuir a essa variavel o objeto da janela aberta...dae, la na funcao, usar essa variavel.. entendi.. eh uma solucao, mas, pra mim fazer isso eu terei q alterar todas as rotinas do sistema... pensei q facilitaria, se tivesse como eu saber o obj da janela aberta, dae, sim fazer o laco e correr os controls.... alguem mais arriscaria ?

bah.. fiquei animado para testar essa dica, mas deu error.log: Variavel nao existe: ODLGACTIVE DETALHE, estou falando o campo q esta em GET, nao especificamente da classe TGET, ou seja, o campo pode ser TGET, TVGET, TCOMBOBOX, TMULTIGET, ETC... ainda estou precisando de uma solucao, se algume mais teria ae uma carta na manga, por favor, me ajudem... MUITO OBRIGADO !!!!

up

acho q agora falta pouco... 1) bem no inicio da app, coloquei isso: SetKey( VK_F1, {|p,k,o| HelpIndex(p,k,o) }) 2) nos objetos dos gets (tget, tcombobox, etc) coloquei isso: oGet1:aProperties[2] := "VAR_GET_1" oGet2:aProperties[2] := "VAR_GET_2" oGet3:aProperties[2] := "VAR_GET_3" 3) dae, na Functon HelpIndex(p,k,o), coloquei isso: If ValType(o) = "O" If o:ClassName() $ "TGET/TVGET/TMULTIGET/TCOMBOBOX" cVarGet := o:aProperties[2] Endif Endif mas, o cVarGet esta mostrando sempre o proximo get daquele q esta focado... e agora ?? heheh

ola eu fico muito agradecido pelas postagens.. mas nos links q tem me mostrado eh sabido o oDlg... q nao eu o meu caso.. eh esse o problema ! antes de qquer coisa, eu preciso saber o objeto da janela (window ou dialog) ae sim, penso, q conseguiria...

desculpa... nao entendi... como saber qual a DIALOG ou WINDOW ? ATT