viol

peço descupas meus amigos mas vou tocar neste assunto novamente. na rede wireless quando coloco 2 ou 3 terminais pendurado no mesmo sistema.. base de dados DBF e CDX, quando vc começa a usar muito abre clientes fecha abre vendas fecha ela CAI para tudo e começa a reconectar a rede. fica maluquinha olha que a base de dados não é tão grande assim uns 100mil registros todos os arquivos. pergunto tem como resolver isto como faço pra usar o executavel no terminal e os DBF no servidor? sera que isto não resolve ? Viol

Euuuuuuuuuuu Taaaaaaaaaaaamemmmmmmm quero aprenderrrrrrrrr mas não consigo entenderrrrrrr.. nao existe um tutorial como CRIA O ARQUIVO SEUS CAMPOS COMO ABRE COMO COLOCA INFORMAÇOES NELE E FECHA..... simples né... pra quem sabe....hahaha Viol

Descobri que apos atualização do Windows XP pack 3 a função PRNGETNAME() não funciona. tirei a funcão dos fontes , executou ok agora. Viol

TENHO UM MAQUINA QUE ESTA DANDO ESSE ERRO Called from PRNGETNAME(0) Called from MAN(100) E UM BOTÃO DE OK NA OUTRA MAQUINA DA REDE RODA PERFEITO. O QUE PODE SER MEUS AMIGOS ?? Viol

TENHO UM MAQUINA QUE ESTA DANDO ESSE ERRO Called from PRNGETNAME(0) Called from MAN(100) E UM BOTÃO DE OK NA OUTRA MAQUINA DA REDE RODA PERFEITO. O QUE PODE SER MEUS AMIGOS ?? Viol

não judia do velhinho aqui não... como criar isto.. Viol

estou compilando os fontes do ARSOFT e um deles me da este erro TVGet.Prg' was compiled by older version, PCODE version 5 is no longer supported - Please recompile como resolvo isto Viol

estou compilando os fontes do ARSOFT e um deles me da este erro TVGet.Prg' was compiled by older version, PCODE version 5 is no longer supported - Please recompile como resolvo isto Viol

ESTOU COM UM PROBLEMA, MANDO IMPRIMIR UM PEQUENO ARQUIVO CRIADO EM PDF. NUMA IMPRESSORA DA REDE... DEMORA DEMAIS PRA COMEÇAR A IMPRESSÃO.. ALGUEM SABE PORQUE.. COMO CONFIGURAR ISTO Viol

ESTOU COM UM PROBLEMA, MANDO IMPRIMIR UM PEQUENO ARQUIVO CRIADO EM PDF. NUMA IMPRESSORA DA REDE... DEMORA DEMAIS PRA COMEÇAR A IMPRESSÃO.. ALGUEM SABE PORQUE.. COMO CONFIGURAR ISTO Viol

No Estado de SPaulo não é permitido bufferizar a venda. abrir cupom, vender item direto impressora, venda item direto impressora. fecha venda... permitido cancelar somente ultimo cupom impresso. se for assim supermercado colocaria uma impressora fiscal sim outra nao nas gondolas... o custo cai pela metade em impressoras.. Viol

Cole no Word e recorte para seu editor. funciona. Viol

Eita cabra bão.... Viol

ola Vagner tudo bem, veja o fonte @ 1,1 LISTBOX oLbx FIELDS caixa->Data ,; caixa->historico,; caixa->che_din,; caixa->deb_cre,; tran(caixa->valor,'@E 999,999.99'),; tran(caixa->nr_cheque,'@R 9.9.999'); HEADERS "Data", "Histórico", "C/D", "E/S" , "Valor","Conta" ; FIELDSIZES 90, 350, 35, 35, 88,40 SIZE 390, 250 OF oDlg FONT oFont1; On DBLCLICK(f_editcaixa() ) //,oLbx:Refresh(),oLbx:SetFocus() Viol

o que ser este erro. não é sempre que acontece.. Viol

o que ser este erro. não é sempre que acontece.. Viol

Já passei por isto, Para impressão modo texto, instale o drive de impressora GENERICO SOMENTE TEXTO. Viol

Jão, sei que vc tem participação nesse fonte, da outra ajuda. gostaria de usar com telas montada no WORKSHOP, como ficaria, não consegui... assinale em vermelho onde coloco as IDs /* //-> Id‚ia Original, By S‚rgio Oliveira - Personal -> Muito Boa //-> Agradecimentos Especiais: Mister Paulo Ara£jo - contato@pleno.com.br // //-> Modificado em: 16/12/2006 - JoÆo Santos - SÆo Paulo - Brasil //-> kapiaba@brfree.com.br - kmt_karinha@pop.com.br //-> Para Usar o Comando: ORDWILDSEEK, Pegando Uma Palavra Chave, em Qualquer //-> Parte do Banco de Dados - Exemplo: SABONETE LUX... Digito: LUX. //-> Rotina Somente Para FiveWin 32 Bits For xHarbour. //-> Coloquei o botÆo pr¢ximo para ir pegando o proximo registro que contenha a palavra //-> Digitada. Cleiton 18/12/2006. */ #Include "FiveWin.Ch" #Define CLR_LGREEN nRGB( 190, 215, 190 ) #Define CLR_LGRAY nRGB( 230, 230, 230 ) #Define CLR_VERMELHO nRGB( 255, 000, 000 ) //--> Vermelho Para a Letra #Define CLR_AMARELO nRGB( 255, 255, 000 ) //--> Amarelo Para o Fundo STATIC lOpcaoRadio := 1 FUNCTION PESQUISA_NOME() FIELD NOME LOCAL oDlg, oLbx, oBrush, oFont, oRadio, oRadioMostra LOCAL XNOMEC MEMVAR oNome_Busca MEMVAR oBotao PRIVATE oBotao[4] **----------------------------------------** ** Determina RDD de ARQUIVOS ** **----------------------------------------** REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") DBSETDRIVER("DBFCDX") USE ARQUIVO VIA "DBFCDX" INDEX ON NOME TAG "NOME" TO ARQUIVO USE DbSelectArea(0) USE ARQUIVO INDEX ARQUIVO VIA "DBFCDX" ALIAS ARQUIVO XNOMEC := SPACE(40) DEFINE BRUSH oBrush FILE "COMPAR.BMP" DEFINE FONT oFont NAME "Courier" SIZE 12, -10 WEIGHT 45 BOLD //600 DEFINE DIALOG oDlg FROM 0,0 TO 280, 680 PIXEL ; TITLE "Teste Com o Comando: ORDWILDSEEK do XHARBOUR" //; * BRUSH oBrush TRANSPARENT oDlg:lHelpIcon := .F. Set( _SET_INSERT, ! Set( _SET_INSERT ) ) @ 004, 002 RADIO oRadioMostra VAR lOpcaoRadio ; PIXEL SIZE 100, 10 OF oDlg oRadio := TRadio():New( 04, 10, '&Normal ', ; .T., ; // sempre o primeiro elemento recebe .t. .T., ; // .t. = selecionado (Checked) 1, oDlg, oRadioMostra, , , , , .F., , ; 50, 10, , .F., .T. ) oRadioMostra:AddRadio( oRadio ) oRadio := TRadio():New( 04, 70, '&Interna ', ; .F. , ; .F. , ; 2, oDlg, oRadioMostra, , , , , .F., , ; 50, 10, , .F., .T. ) oRadioMostra:AddRadio( oRadio ) @ 005, 130 SAY "Buscar Por:" OF oDlg PIXEL SIZE 060, 012 ; FONT oFont ; COLORS CLR_VERMELHO, CLR_AMARELO //-> Get Para Fazer a Busca do Que Quero Procurar @ 005, 194 GET oNome_Busca VAR XNOMEC PICTURE "@K!" OF oDlg ; PIXEL SIZE 130, 012 ; FONT oFont ; COLORS CLR_VERMELHO, CLR_AMARELO ; ON CHANGE( CONTEUDO( oNome_Busca, nKey, oDlg, oLbx, XNOMEC ) ) @ 020, 010 LISTBOX oLbx FIELDS ARQUIVO->NOME Alias "ARQUIVO" ; HEADERS "Nome" ; PIXEL SIZE 320, 100 ; FIELDSIZES 320 OF oDlg ; FONT oFont oLbx:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho oLbx:nClrBackFocus := CLR_HRED // Cor do Cursor Em Cima do Ötem oLbx:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos // Cor no Pano de Fundo da Browse() Listbox-Legal - abaixo o comando oLbx:nClrPane := { || IIF( ARQUIVO->(OrdKeyNo()) % 2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } // cor do fundo oLbx:aJustify := { .F. } oLbx:nLineStyle := 3 oLbx:lCellStyle := .T. // S¢ Pinta a celula que o cursor est oLbx:lMChange := .F. // Desabilita Mousemove oLbx:SetFocus() // Refocus on The Browse oLbx:Refresh() // Estabiliza o Browse/Listbo //-> Botäes @ 123, 010 BUTTON oBotao[1] PROMPT "&A - Z" OF oDlg PIXEL ; SIZE 050, 012 ; ACTION( ARQUIVO->( OrdDescend(,, .F. ) ), ; ARQUIVO->( DbGoTop() ), oLbx:Refresh(), ; xFocus( oNome_Busca ) ) @ 123, 063 BUTTON oBotao[2] PROMPT "&Z - A" OF oDlg PIXEL ; SIZE 050, 012 ; ACTION( ARQUIVO->( OrdDescend(,, .T. ) ), ; ARQUIVO->( DbGoTop()), oLbx:Refresh(), ; xFocus( oNome_Busca ) ) @ 123, 116 BUTTON oBotao[3] PROMPT "&Saida " OF oDlg PIXEL ; SIZE 050, 012 ; ACTION( oDlg:End() ) CANCEL @ 123, 176 BUTTON oBotao[4] PROMPT "&Pr¢ximo " OF oDlg PIXEL ; SIZE 050, 012 ; ACTION( PROXIMO_REGISTRO("ARQUIVO", XNOMEC, oLbx), xFocus(oNome_Busca) ) *CONTEUDO( oNome_Busca, nKey, oDlg, oLbx, XNOMEC ) ) *PROXIMO_REGISTRO( Arquivo, xNomec, oLbx ) //-> Fonte nos Botäes SET FONT OF oBotao[1] TO oFont SET FONT OF oBotao[2] TO oFont SET FONT OF oBotao[3] TO oFont ACTIVATE DIALOG oDlg CENTERED //RESIZE16 Set( _SET_INSERT, ! Set( _SET_INSERT ) ) oFont:End() oBrush:End() DbCloseAll() RETURN NIL // Busca o Conteudo do GET no Banco de Dados---------------------------------// STATIC FUNCTION CONTEUDO( oGetBusca, cKey, oDlg, oLbx, XNOMEC ) LOCAL RetornaBusca := "" MEMVAR oNome_Busca MontaChaveBuscaArquivo( oGetBusca, cKey, oDlg, @RetornaBusca, oLbx ) //-> Original Antigo //->ARQUIVO->( DBSEEK( ALLTRIM( RetornaBusca ) ) ) IF lOpcaoRadio=1 //-> Busca da Op‡Æo 1 do Radio Button ARQUIVO->( DBSEEK( ALLTRIM( RetornaBusca ) ) ) ELSE //-> Busca da Op‡Æo 2 do Radio Button ARQUIVO->( ORDWILDSEEK( "*" + ALLTRIM( RetornaBusca ) + "*", .F. ) ) ENDIF oLbx:Refresh() RETURN( .T. ) //-> Chave da Busca do GET do Nome do Cliente/Fornecedor---------------------// STATIC FUNCTION MontaChaveBuscaArquivo( oGetBusca, cKey, oDlg, RetornaBusca ) Local cChaveBusca := ( oGetBusca:oGet:Buffer ), nPosAnt := Recno() IF ( cKey != 7 .And. cKey != 8 ) cChaveBusca := Stuff( cChaveBusca, oGetBusca:nPos, ; If( Set(_SET_INSERT), 0, 1 ), ; Upper( Chr( cKey ) ) ) ENDIF RetornaBusca := cChaveBusca RETURN( RetornaBusca ) //-> Para Pegar o Proximo Registro no Banco de Dados-------------------------// STATIC FUNCTION PROXIMO_REGISTRO( Arquivo, xNomec, oLbx ) SELECT( ARQUIVO ) IF lOpcaoRadio=1 ARQUIVO->( DBSEEK( ALLTRIM( XNOMEC ) ) ) IF EOF() MsgInfo( "Fim do Arquivo dos Registros", "Aviso" ) DBGOTOP() ENDIF ELSE ARQUIVO->( ORDWILDSEEK( "*" + ALLTRIM( XNOMEC ) + "*", .T. ) ) IF EOF() MsgInfo( "Fim do Arquivo dos Registros", "Aviso" ) DBGOTOP() ARQUIVO->( ORDWILDSEEK( "*" + ALLTRIM( XNOMEC ) + "*", .F. ) ) IF EOF() DBGOTOP() ENDIF ENDIF ENDIF oLbx:Refresh() RETURN( .T. ) //-------------------------------------------------------------------------// // As vezes simples SetFocus( oObj ) nao faz um objeto ganhar foco // neste caso pode apelar para estas duas funcoes a seguir // For‡ar foco para um objeto especifico - Ednaldo Rolim... //-------------------------------------------------------------------------// STATIC FUNCTION xSetFocus( oObj ) LOCAL _oWnd := oObj:oWnd, _oTempo := "" DEFINE Timer _oTempo Interval 10 of _oWnd ; Action ( oObj:SetFocus(), _oTempo:End() ) ACTIVATE Timer _oTempo RETURN( .T. ) //-------------------------------------------------------------------------// STATIC FUNCTION xFocus( oObj ) xSetFocus( oObj ) xSetFocus( oObj ) RETURN( .T. ) // Fim do Programa-----------------------------------------------------------// Viol

Jão, sei que vc tem participação nesse fonte, da outra ajuda. gostaria de usar com telas montada no WORKSHOP, como ficaria, não consegui... assinale em vermelho onde coloco as IDs /* //-> Id‚ia Original, By S‚rgio Oliveira - Personal -> Muito Boa //-> Agradecimentos Especiais: Mister Paulo Ara£jo - contato@pleno.com.br // //-> Modificado em: 16/12/2006 - JoÆo Santos - SÆo Paulo - Brasil //-> kapiaba@brfree.com.br - kmt_karinha@pop.com.br //-> Para Usar o Comando: ORDWILDSEEK, Pegando Uma Palavra Chave, em Qualquer //-> Parte do Banco de Dados - Exemplo: SABONETE LUX... Digito: LUX. //-> Rotina Somente Para FiveWin 32 Bits For xHarbour. //-> Coloquei o botÆo pr¢ximo para ir pegando o proximo registro que contenha a palavra //-> Digitada. Cleiton 18/12/2006. */ #Include "FiveWin.Ch" #Define CLR_LGREEN nRGB( 190, 215, 190 ) #Define CLR_LGRAY nRGB( 230, 230, 230 ) #Define CLR_VERMELHO nRGB( 255, 000, 000 ) //--> Vermelho Para a Letra #Define CLR_AMARELO nRGB( 255, 255, 000 ) //--> Amarelo Para o Fundo STATIC lOpcaoRadio := 1 FUNCTION PESQUISA_NOME() FIELD NOME LOCAL oDlg, oLbx, oBrush, oFont, oRadio, oRadioMostra LOCAL XNOMEC MEMVAR oNome_Busca MEMVAR oBotao PRIVATE oBotao[4] **----------------------------------------** ** Determina RDD de ARQUIVOS ** **----------------------------------------** REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") DBSETDRIVER("DBFCDX") USE ARQUIVO VIA "DBFCDX" INDEX ON NOME TAG "NOME" TO ARQUIVO USE DbSelectArea(0) USE ARQUIVO INDEX ARQUIVO VIA "DBFCDX" ALIAS ARQUIVO XNOMEC := SPACE(40) DEFINE BRUSH oBrush FILE "COMPAR.BMP" DEFINE FONT oFont NAME "Courier" SIZE 12, -10 WEIGHT 45 BOLD //600 DEFINE DIALOG oDlg FROM 0,0 TO 280, 680 PIXEL ; TITLE "Teste Com o Comando: ORDWILDSEEK do XHARBOUR" //; * BRUSH oBrush TRANSPARENT oDlg:lHelpIcon := .F. Set( _SET_INSERT, ! Set( _SET_INSERT ) ) @ 004, 002 RADIO oRadioMostra VAR lOpcaoRadio ; PIXEL SIZE 100, 10 OF oDlg oRadio := TRadio():New( 04, 10, '&Normal ', ; .T., ; // sempre o primeiro elemento recebe .t. .T., ; // .t. = selecionado (Checked) 1, oDlg, oRadioMostra, , , , , .F., , ; 50, 10, , .F., .T. ) oRadioMostra:AddRadio( oRadio ) oRadio := TRadio():New( 04, 70, '&Interna ', ; .F. , ; .F. , ; 2, oDlg, oRadioMostra, , , , , .F., , ; 50, 10, , .F., .T. ) oRadioMostra:AddRadio( oRadio ) @ 005, 130 SAY "Buscar Por:" OF oDlg PIXEL SIZE 060, 012 ; FONT oFont ; COLORS CLR_VERMELHO, CLR_AMARELO //-> Get Para Fazer a Busca do Que Quero Procurar @ 005, 194 GET oNome_Busca VAR XNOMEC PICTURE "@K!" OF oDlg ; PIXEL SIZE 130, 012 ; FONT oFont ; COLORS CLR_VERMELHO, CLR_AMARELO ; ON CHANGE( CONTEUDO( oNome_Busca, nKey, oDlg, oLbx, XNOMEC ) ) @ 020, 010 LISTBOX oLbx FIELDS ARQUIVO->NOME Alias "ARQUIVO" ; HEADERS "Nome" ; PIXEL SIZE 320, 100 ; FIELDSIZES 320 OF oDlg ; FONT oFont oLbx:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho oLbx:nClrBackFocus := CLR_HRED // Cor do Cursor Em Cima do Ötem oLbx:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos // Cor no Pano de Fundo da Browse() Listbox-Legal - abaixo o comando oLbx:nClrPane := { || IIF( ARQUIVO->(OrdKeyNo()) % 2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } // cor do fundo oLbx:aJustify := { .F. } oLbx:nLineStyle := 3 oLbx:lCellStyle := .T. // S¢ Pinta a celula que o cursor est oLbx:lMChange := .F. // Desabilita Mousemove oLbx:SetFocus() // Refocus on The Browse oLbx:Refresh() // Estabiliza o Browse/Listbo //-> Botäes @ 123, 010 BUTTON oBotao[1] PROMPT "&A - Z" OF oDlg PIXEL ; SIZE 050, 012 ; ACTION( ARQUIVO->( OrdDescend(,, .F. ) ), ; ARQUIVO->( DbGoTop() ), oLbx:Refresh(), ; xFocus( oNome_Busca ) ) @ 123, 063 BUTTON oBotao[2] PROMPT "&Z - A" OF oDlg PIXEL ; SIZE 050, 012 ; ACTION( ARQUIVO->( OrdDescend(,, .T. ) ), ; ARQUIVO->( DbGoTop()), oLbx:Refresh(), ; xFocus( oNome_Busca ) ) @ 123, 116 BUTTON oBotao[3] PROMPT "&Saida " OF oDlg PIXEL ; SIZE 050, 012 ; ACTION( oDlg:End() ) CANCEL @ 123, 176 BUTTON oBotao[4] PROMPT "&Pr¢ximo " OF oDlg PIXEL ; SIZE 050, 012 ; ACTION( PROXIMO_REGISTRO("ARQUIVO", XNOMEC, oLbx), xFocus(oNome_Busca) ) *CONTEUDO( oNome_Busca, nKey, oDlg, oLbx, XNOMEC ) ) *PROXIMO_REGISTRO( Arquivo, xNomec, oLbx ) //-> Fonte nos Botäes SET FONT OF oBotao[1] TO oFont SET FONT OF oBotao[2] TO oFont SET FONT OF oBotao[3] TO oFont ACTIVATE DIALOG oDlg CENTERED //RESIZE16 Set( _SET_INSERT, ! Set( _SET_INSERT ) ) oFont:End() oBrush:End() DbCloseAll() RETURN NIL // Busca o Conteudo do GET no Banco de Dados---------------------------------// STATIC FUNCTION CONTEUDO( oGetBusca, cKey, oDlg, oLbx, XNOMEC ) LOCAL RetornaBusca := "" MEMVAR oNome_Busca MontaChaveBuscaArquivo( oGetBusca, cKey, oDlg, @RetornaBusca, oLbx ) //-> Original Antigo //->ARQUIVO->( DBSEEK( ALLTRIM( RetornaBusca ) ) ) IF lOpcaoRadio=1 //-> Busca da Op‡Æo 1 do Radio Button ARQUIVO->( DBSEEK( ALLTRIM( RetornaBusca ) ) ) ELSE //-> Busca da Op‡Æo 2 do Radio Button ARQUIVO->( ORDWILDSEEK( "*" + ALLTRIM( RetornaBusca ) + "*", .F. ) ) ENDIF oLbx:Refresh() RETURN( .T. ) //-> Chave da Busca do GET do Nome do Cliente/Fornecedor---------------------// STATIC FUNCTION MontaChaveBuscaArquivo( oGetBusca, cKey, oDlg, RetornaBusca ) Local cChaveBusca := ( oGetBusca:oGet:Buffer ), nPosAnt := Recno() IF ( cKey != 7 .And. cKey != 8 ) cChaveBusca := Stuff( cChaveBusca, oGetBusca:nPos, ; If( Set(_SET_INSERT), 0, 1 ), ; Upper( Chr( cKey ) ) ) ENDIF RetornaBusca := cChaveBusca RETURN( RetornaBusca ) //-> Para Pegar o Proximo Registro no Banco de Dados-------------------------// STATIC FUNCTION PROXIMO_REGISTRO( Arquivo, xNomec, oLbx ) SELECT( ARQUIVO ) IF lOpcaoRadio=1 ARQUIVO->( DBSEEK( ALLTRIM( XNOMEC ) ) ) IF EOF() MsgInfo( "Fim do Arquivo dos Registros", "Aviso" ) DBGOTOP() ENDIF ELSE ARQUIVO->( ORDWILDSEEK( "*" + ALLTRIM( XNOMEC ) + "*", .T. ) ) IF EOF() MsgInfo( "Fim do Arquivo dos Registros", "Aviso" ) DBGOTOP() ARQUIVO->( ORDWILDSEEK( "*" + ALLTRIM( XNOMEC ) + "*", .F. ) ) IF EOF() DBGOTOP() ENDIF ENDIF ENDIF oLbx:Refresh() RETURN( .T. ) //-------------------------------------------------------------------------// // As vezes simples SetFocus( oObj ) nao faz um objeto ganhar foco // neste caso pode apelar para estas duas funcoes a seguir // For‡ar foco para um objeto especifico - Ednaldo Rolim... //-------------------------------------------------------------------------// STATIC FUNCTION xSetFocus( oObj ) LOCAL _oWnd := oObj:oWnd, _oTempo := "" DEFINE Timer _oTempo Interval 10 of _oWnd ; Action ( oObj:SetFocus(), _oTempo:End() ) ACTIVATE Timer _oTempo RETURN( .T. ) //-------------------------------------------------------------------------// STATIC FUNCTION xFocus( oObj ) xSetFocus( oObj ) xSetFocus( oObj ) RETURN( .T. ) // Fim do Programa-----------------------------------------------------------// Viol

minha colaboração também ... ///////////////////////////////////////// function cr() /// encriptar parameters palavra pi=len(TRIM(palavra)) pe=len(palavra) - len(trim(palavra)) declare pala[pi],palav[pi] palavr="" for pj=1 to pi pala[pj]=substr(palavra,pj,1) palav[pj]=chr(asc(pala[pj])-(pj+113)) next for pk=1 to pi palavr=palavr+palav[pk] next palavr=palavr+space(pe) return(palavr) //////////////////////////////////////// function uncr() // parameters palavra pi=len(TRIM(palavra)) pe=len(palavra) - len(trim(palavra)) declare pala[pi],palav[pi] palavr="" for pj=1 to pi pala[pj]=substr(palavra,pj,1) palav[pj]=chr(asc(pala[pj])+(pj+113)) next for pk=1 to pi palavr=palavr+palav[pk] next palavr=palavr+space(pe) if empty(palavra) return(palavra) else return(palavr) endif Viol

QUEM PODE AJUDAR? , PRECISO DE UM EXEMPLO EM CLIPPER PURO COM A LIB FORNECIDA PELA EPSON. NA EPSON SO TEM EM C++ Viol

QUEM PODE AJUDAR? , PRECISO DE UM EXEMPLO EM CLIPPER PURO COM A LIB FORNECIDA PELA EPSON. NA EPSON SO TEM EM C++ Viol

jão, vc é 10 , venha aqui pro interior Paulista, vou pagar uma SKOL bem gelada.. agora LITRÃO. Viol

Valeu Kapiaba, cuidado pessoal com esse topico... tem coisa mal explicada aqui... Viol

cara que loucura... fui inventar de mexer no que esta certo.... fui fazer tudo isso que esta neste topico... me dei mal... tentei salvar como .RC e matou meu .RES perdi tudo... fica algum backup do .RES em algum lugar do WORKSHOP... Viol