CTOAS

Boa tarde. Para colocar um ícone em minha aplicação, eu uso um .RES, adiciono o ícone. Depois adiciono o .RES e referencio ele no Define Window E compilar. []'s

Boa tarde amigos, estou precisando da SQLLIB Free para xHb 1.2.1 Rev. 6717, alguém tem e pode me passar? Obs.: O site do nosso amigo Vailton sofreu ataque. []'s

Boa tarde amigos, estou precisando da SQLLIB Free para xHb 1.2.1 Rev. 6717, alguém tem e pode me passar? Obs.: O site do nosso amigo Vailton sofreu ataque. []'s

Eu usaria indice condicional temporário INDEX ON CODPROD TO INDPRODTEMP FOR LEFT(CODPROD) == "D6" MEMORY []'S

Eu uso Windows 7 Ultimate x64 e funciona perfeitamente.

Minha função funcionando. ******************************************************************************** STATIC FUNCTION ENVIAPDF() ******************************************************************************** local oCfg, oError TRY oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "smtp.provedor.com" :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 25 :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .t. :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .t. :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := "usuario@provedor.com" :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "senha" :Update() END WITH lRet := .t. CATCH oError MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "Atenção" ) END ENVIAMAIL(oCfg) RETURN NIL ******************************************************************************** STATIC FUNCTION EnviaMail(oCfg) ******************************************************************************** LOCAL aAttach := {}, aTo := {} LOCAL cToken LOCAL nEle LOCAL oMsg LOCAL cFrom, cSubject, cMsg, cAttach cFrom := "usuario@provedor.com" cTo := "usuario@provedor.com.br" cSubject := "Assunto" cMsg := "Arquivo PDF em anexo" TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration := oCfg :From := cFrom :To := cTo :Subject := cSubject :TextBody := cMsg :AddAttachment( cARQDIR+"\PEDIDOS\"+cNumPedid+".PDF" ) :Send() END WITH CATCH alert("Não Foi Possível Enviar a Mensagem: "+cSubject ) END Return nil id=code>id=code>[]'S Editado por - ctoas on 06/07/2012 10:32:07

Boa tarde amigos. Como colocar um célula em modo de edição em tempo de execução (sem apertar [Enter]), isso na saída de um VALID? []'s

Boa tarde amigos. Como colocar um célula em modo de edição em tempo de execução (sem apertar [Enter]), isso na saída de um VALID? []'s

Parabéns, saúde e felicidades. []'s

Boa tarde amigos. Tenho um xBrowse e preciso pegar o posicionamento na tela do campo do xbrowse para poder criar uma janela com um GET simples na mesma altura do campo. Tem como ? []'s

Boa tarde amigos. Tenho um xBrowse e preciso pegar o posicionamento na tela do campo do xbrowse para poder criar uma janela com um GET simples na mesma altura do campo. Tem como ? []'s

citação: citação:Talvez porque ele não tenha resolvido, ou não tenha tido tempo. Agora, chato só um, dois ningues aguenta. kkk Dimob / SPED(pis/cofins) ..:: Este post é uma opnião pessoal, NAO DEVE SER ENCARADO COMO VERDADE ABSOLUTA ::.. id=quote>id=quote>As duas coisas.... MALDITO SPED !!!! QUE CHATO !!!! kkkkkkkkkkkk Abraços a todos id=quote>id=quote>

citação:Talvez porque ele não tenha resolvido, ou não tenha tido tempo. Agora, chato só um, dois ningues aguenta. kkk Dimob / SPED(pis/cofins) ..:: Este post é uma opnião pessoal, NAO DEVE SER ENCARADO COMO VERDADE ABSOLUTA ::.. id=quote>id=quote>As duas coisas.... MALDITO SPED !!!! Abraços a todos

Ola Marciano... Já desenvolvi isso usando o web service da byjg. http://www.byjg.com.br []'s

Obrigado amigos... Testando.

Amigos... Como indexar um mesmo DBF por dos indices condicionais diferentes e varrer o DBF pegando um valor de uma condição procurando-o na outra condição. Exemplo: DBSELECTAREA('TEMP_BL0') INDEX ON LEFT(TEMP_BL0->CAMPO06,2) TO TEMP_04 FOR TEMP_BL0->CAMPO01 == '0200' INDEX ON LEFT(TEMP_BL0->CAMPO02,2) TO TEMP_05 FOR TEMP_BL0->CAMPO01 == '0190' WHILE TEMP_BL0->(!EOF()) // USANDO O INDICE TEMP_05 IF TEMP_BL0->(!DBSEEK(LEFT(TEMP_BL0->CAMPO02,2))) // USANDO O INDICE TEMP_04 TEMP_BL0->(DBDELETE()) END END id=code>id=code>Obrigado

Amigos... Como indexar um mesmo DBF por dos indices condicionais diferentes e varrer o DBF pegando um valor de uma condição procurando-o na outra condição. Exemplo: DBSELECTAREA('TEMP_BL0') INDEX ON LEFT(TEMP_BL0->CAMPO06,2) TO TEMP_04 FOR TEMP_BL0->CAMPO01 == '0200' INDEX ON LEFT(TEMP_BL0->CAMPO02,2) TO TEMP_05 FOR TEMP_BL0->CAMPO01 == '0190' WHILE TEMP_BL0->(!EOF()) // USANDO O INDICE TEMP_05 IF TEMP_BL0->(!DBSEEK(LEFT(TEMP_BL0->CAMPO02,2))) // USANDO O INDICE TEMP_04 TEMP_BL0->(DBDELETE()) END END id=code>id=code>Obrigado

citação:Nao to conseguindo enviar e-mail com anexo tambem.. na realidade não consigo qdo chamo a funçao de envio e passo o arquivo para anexar. Se eu anexar clicando no botão para anexar da td certo... mas direto não vai. o endereco e nome do arquivo fica meio grande. Será que é isso? vejam como fica: :AddAttachment( "D:\ESCOLA\Pré-III A Vespertino Anual - 2012\RENAN OLIVEIRA Anual 2012 - Geral.JPG" ) tentei por tudo dentro de uma variável e tambem tentei digitar tudo entre aspas, como acima. Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS id=quote>id=quote>Posta o código que dou uma olhada.... []'s

Também gostei.... Amanhã posto ele traduzido. []'s

Boa tarde Cleiton... Eu imagino que você possa criar sua própria criptografia, veja exemplo. citação:É simples e não é, depende da sua capacidade de raciocíno, isto é , se você não esta acostumado a pensar fica mais difícil, mas não impossível. Vou da um exemplo: Criem uma tabela de converção manual mesmo, no simples e singelo Bloco de notas, ou se você tiver como fazer uma tabela de converção automática melhor ainda. Atribua os valores que você deseja aos caracteres de texto e números. Exemplo: A=Xy0 B=Xy9 C=Xy4 Numeros: 1=W00a 2=W00n 3=W00z Simbolos: "!@#$%¨&*()_+{`Ç^}?:><[´]~ç/;.,¹²³£¢¬§ªº°/?°₢°'' Associando os simbolos as letras e números: A=Xy0=X['y}+0 B=Xy9=+9 C=Xy4=X''^}y}''+4 1=W00a=W³ºª§Ç} 2=W00n=W:}´[7$ 3=W00z=W(5@!)~ç Colocando esses caracteres em sequencia, ficaria assim: ABC123 X['y}+0=+9X''^}y}''+4W³ºª§Ç}W:}´[7$W(5@!)~ç....Alguém se arriscaria a dizer que isso significa ABC123? Não é nenhum AES, mas vale a brincadeira...! Claro que isso tudo é apenas um exemplo, pode ser bem mais simplificado ou muito mais complexo, depende do objetivo da cada um. O material é farto e existem zilhoes de possibilidades, basta raciocinar e aplica-la detro da area de programação que cada um achar melhor, e oque não souber, pesquisar e adquirir conhecimento. Claro que não se trata de nada baseado em dados científicos , matemáticos e fisico, apenas uma brincadeira de raciocínio, pura diverção, que gera conhecimento, que é a melhor parte disso tudo. Estou desenvolvendo um conversor automático para conversas no MSN, ainda está em faze se testes, mas está sendo bem útil, principalmente porque continuamente, troco informações importantes via Menssger, e tem funcionado bem, por que não fazê-lo? No meu conversor os mesmos ''ABC123'' acima citados ficariam assim: ''[F6=)(8bNça^^Ç´17%43ºa=19Ha^-uBka+tkKsaq2)(]'' ......bem mais complexo, pois a combinação algarítimica foi bem mais elaborada, onde cada algarismos tem 2 camadas de combinações, Exemplo: A=[Ç7@<)¬¢]... que é igual a $#> ..., sendo assim, se por ventura um pesquisador entusiasta conseguisse decifrar oque significa $#> encontraria apenas a primeira camada da cifragem, [Ç7@<)¬¢]... e nao a letra A. Oque eu acredito ser praticamente impossivel, pois nao utilizei nenhum calculo matematico nem cientifico aos caracteres, onde quem tem conhecimento poderia comecar a destrinchar e com o tempo, decifra-lo, e sim valores que eu atribui aos caracteres, valores esses que somente eu sei, tornando impossivel sua decriptacao, passivel de alteracao a qualquer momento, a gosto do desenvolvedor, utilizando sempre codigos diferentes, para cada tipo de necessidade, aumentando ou diminuindo sua complexidade. Acham facil?..., basta decifrarem o desafio que eu postei nesse forum e que vale 1.000 Reais. ps>O desafio tem uma camada somente de cifragem. fonte: http://info.abril.com.br/forum/viewtopic.php?f=123&start=0&t=1567 id=quote>id=quote> Editado por - ctoas on 12/06/2012 15:46:54

Trabalho desta maneira lSAIR:= .f. ACTIVATE DIALOG oDlg Valid lSAIR []'s Editado por - ctoas on 08/06/2012 15:40:51

Resolvido. cBUFFER := "ECF.LeituraMemoriaFiscalSerial("+DATA1+","+DATA2+")" cBUFFER := cBUFFER + CRLF iARQUIVO:= FCREATE("Z:\ACBR\ENT.TMP") FWRITE(iARQUIVO, @cBUFFER, LEN(cBUFFER)) FCLOSE(iARQUIVO) FRENAME("Z:\ACBR\ENT.TMP","Z:\ACBR\ENT.TXT") id=code>id=code>

Boa tarde amigos... Alguém saberia me dizer como ler a memoria fiscal e coloca-la em um TXT ? Estou fazendo conforme abaixo, mas só é impresso nao cria o TXT cBUFFER := "ECF.LeituraMemoriaFiscal("+DATA1+","+DATA2+")" cBUFFER := cBUFFER + CRLF iARQUIVO:= FCREATE("Z:\ACBR\ENT.TMP") FWRITE(iARQUIVO, @cBUFFER, LEN(cBUFFER)) FCLOSE(iARQUIVO) FRENAME("Z:\ACBR\ENT.TMP","Z:\ACBR\ENT.TXT") id=code>id=code>