joaosolution

http://www.pctoledo.com.br/forum/viewtopic.php?f=42&t=13306 Att João Bosco

Bom dia //------------------------------------------------------------------- Function Aposta() Local aCampos, hi aCampos:={{"NOME","C",50,0},{"AP1","N",3,0},{"AP2","N",3,0},{"AP3","N",3,0},{"AP4","N",3,0},; {"AP5","N",3,0},{"AP6","N",3,0},{"AP7","N",3,0},{"AP8","N",3,0},{"AP9","N",3,0},{"AP10","N",3,0}} DbCreate("APOSTA.DBF",aCampos) Use aposta New Alias Aposta Aposta->( DbAppend() ) Aposta->Nome := "JOAO" Aposta->AP1 := 5 Aposta->AP2 := 15 Aposta->AP3 := 25 Aposta->AP4 := 35 Aposta->AP5 := 45 Aposta->AP6 := 55 Aposta->AP7 := 65 Aposta->AP8 := 75 Aposta->AP9 := 85 Aposta->AP10 := 95 Aposta->( DbAppend() ) Aposta->Nome := "Maria" Aposta->AP1 := 8 Aposta->AP2 := 18 Aposta->AP3 := 25 Aposta->AP4 := 35 Aposta->AP5 := 45 Aposta->AP6 := 58 Aposta->AP7 := 65 Aposta->AP8 := 78 Aposta->AP9 := 85 Aposta->AP10 := 95 aResultados:={} While .T. For hi:=1 To 10 If Len(aResultados) < hi nResu := 0 Else nResu := aResultados[hi] Endif MsgGet("Informe o resultado","Resultado:"+StrZero(hi,2),@nResu,"99") If Len(aResultados) < hi AADD( aResultados, nResu ) Else aResultados[hi] := nResu Endif Next ? "Resultados lançados:"+CRLF+; "1-"+StrZero(aResultados[1],2)+CRLF+; "2-"+StrZero(aResultados[2],2)+CRLF+; "3-"+StrZero(aResultados[3],2)+CRLF+; "4-"+StrZero(aResultados[4],2)+CRLF+; "5-"+StrZero(aResultados[5],2)+CRLF+; "6-"+StrZero(aResultados[6],2)+CRLF+; "7-"+StrZero(aResultados[7],2)+CRLF+; "8-"+StrZero(aResultados[8],2)+CRLF+; "9-"+StrZero(aResultados[9],2)+CRLF+; "10-"+StrZero(aResultados[10],2) If !MsgYesNo("Deseja alterar os resultados lançados?","Escolha opção") Exit Endif End aAcertos:={} Aposta->( DbGoTop() ) While Aposta->( !Eof() ) nAcertos:=0 If Ascan(aResultados,Aposta->Ap1) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap2) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap3) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap4) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap5) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap6) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap7) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap8) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap9) > 0 nAcertos ++ Endif If Ascan(aResultados,Aposta->Ap10) > 0 nAcertos ++ Endif AADD( aAcertos,{nAcertos,Aposta->Nome}) Aposta->( DbSkip( 1 ) ) End Asort( aAcertos,,,{|x,y| x[1] < y[1] } ) xBrowse(aAcertos) Return .T. Att João Bosco

Infosys Estou precisando implementar estes controles, tem como me adicionar no skype joaosolution@hotmail.com Att João Bosco

Srs. Bom dia Estou precisando fazer busca de processos no TJMG gostaria de saber se alguém já desenvolveu algo nessa área. Att João Bosco

Pablo Boa tarde oSql := SR_GetConnection() cComm := "DROP INDEX IDEMPREG_DBF.IDEMPREG_DBF_SR" nErr := oSql:exec( cComm,, .T.,@nReturn) Att João Bosco

Bom dia Já tentou nVrOleo := GetPvProfString("SISTEMA","VALOR DO OLEO","", "c:\teste.ini") Att João Bosco

Bom dia Estou gerando os arquivos, mas vou precisar assinar os xmls, vocês têm alguma sugestão para assinatura? Att João Bosco

João Acredito que o problema está relacionado ao path utilizado. Att João Bosco

João Bom dia 161 Invalid path name passed to exec Att João Bosco

Carlos Boa tarde Já criei os arquivos da qualificação cadastral, e os XMLs da parte médica. Att João Bosco

João Boa tarde A conversão de relatórios para Word é feita através da inserção da imagem de cada página do relatório em uma página do Word oWord:Selection:InlineShapes:AddPicture( cEMF, .f., .t. ) Para poder editar, a exportação teria que ser mais fiel ao relatório criando as colunas em uma tabela (por exemplo) e depois inserindo os dados. Para isso vc teria que converter a função ConvertToWordDoc para criar a página em Word linha a linha, acredito que em report isso é tranquilo já que existe uma padrão de cabeçalho e colunas, mas para Printer seria mais complicado. Att João Bosco

Bom dia Eu uso a 12.06 para compilar o FiveDBu e funciona perfeitamente. A opção de poder criar código dele é muito boa. Att João Bosco

JFAguiar Boa tarde Resolvi utilizando esta função. //-------------------------- Function TtoDate( tDate ) If empty( tDate) Return( ctod("00/00/00")) Endif If ValType( tDate ) = "D" Return(tDate ) Endif Return( stod( substr( ttos( tDate ), 1, 8 ) )) Att João Bosco

Edu Mas qual a origem dessa string? É um campo de baco de dados? Está lendo de um arquivo texto? Xml? Excel? Você têm um exemplo da String para nos mostrar? Att João Bosco

Edu Boa tarde Function Testa_String(pString) cLetras := "ABCDEFGHIJKLMNOPQRSTUVWXYabcdefghijklmnopqrstuvwxz0123456789" For x:=1 To Len(pString) If !(SubStr(pString,x,1) $ cLetras) Return .F. Endif Next Return .T. Att João Bosco

Rubens Para controlar o salto da linha pego a altura da fonte utilizada. nLinha := oFont1:nHeight nRow += nLinha Att João Bosco

Mamp2? Segue código: DEFINE FONT oFont1 NAME "Arial" BOLD SIZE 0,-09 OF oPrn nWidth := oPrn:nHorzRes() nHeight := oPrn:nVertRes() oPrn:Say(nRow, CENTRA_TEXTO(oPrn, "História pregressa", oFont1, nWidth,0),; "História pregressa", oFont1 ) //----------------------------------------------------------------------------- // Centraliza textos automaticamente //----------------------------------------------------------------------------- FUNCTION CENTRA_TEXTO(oPrt, Texto, oFonte, nEspaco, nAcerto) LOCAL nCol nCol:=(nEspaco-80-oPrt:GetTextWidth(Alltrim(Texto),oFonte)) / 2 Return nCol //---------------------------------------------------------------------------- Att João Bosco

MAMP2? Boa tarde Impressão em qual recurso? Report? Printer? Att João Bosco

Edu Bom dia Você pode colocar uma Window MDICHILD fixa no sistema mostrando os dados em listbox,say,get etc Ou colocar direto na Window principal. Não estou vendo a dificuldade. Att João Bosco

Pablo Você está usando set softseek on neste seek? Att João Bosco

Pablo Para consultar os índices criados use a tabela: SR_MGMNTINDEXES Do próprio sql Att João Bosco

Pablo Na hora de recriar use DELETE TAG NOMETAG Att João Bosco

Pablo Bom dia Utilizo assim: Index On Str(Empresa,5)+CodSetor + nivel + CodSubSe + Tipo TAG TMPCLARV Att João Bosco

Bom dia Só para dar um Up no Post. Att João Bosco

Pablo Trabalho com sistema parte console e parte FiveWin. Veja se você está utilizando o SETMODE(25,80) no inicio do programa console. Att João Bosco