-
Posts
1,289 -
Joined
-
Last visited
-
Days Won
43
Everything posted by marcioe
-
destacar dados em fast com cores diferentes conforme pontuação
marcioe replied to marcioe's topic in Programação
Ol,a pessoal, obrigado a todos Fiz algo que o Toya indicou e já resolve o que preciso No evento (OnBeforePrint) procedure consulta_apostas_divulgacaoMILHAR_BRINDEOnBeforePrint(Sender: TfrxComponent); begin if (<consulta_apostas_divulgacao."PONTUACAO"> = 10) then consulta_apostas_divulgacaoMILHAR_BRINDE.Color := $FF0000; if (<consulta_apostas_divulgacao."PONTUACAO"> = 9) then consulta_apostas_divulgacaoMILHAR_BRINDE.Color := $0000FF; if (<consulta_apostas_divulgacao."PONTUACAO"> = 8) then consulta_apostas_divulgacaoMILHAR_BRINDE.Color := $000000; end; begin end. Resolveu o que precisava -
destacar dados em fast com cores diferentes conforme pontuação
marcioe posted a topic in Programação
Olá a Todos os amigos, boa noite Preciso destacar com cores diferentes a depender de uma condição ( da Coluna Acertos ) no caso Exemplo (fiz no paint, para ilustrar) Se for acertos igual a : 10 = A linha Fica Vermelha 9 = Laranja 8 = Rosa 7 = etc... Essas cores posso Fixar, ou seja o usuário não precisa escolher, pode ficar fixo no Código. Este Relatório está em FastReport Agradeço a Todos ... -
Existe algo Para Acionar a Tecla + (Mais) do teclado Tipo SetKey( VK_F12,{|| Minha_funcao() }) SetKey( VK_(Tecla_Mais),{|| Minha_funcao() }) Espero que tenha conseguido explicar
-
Olá, a todos Pessoal tem algum amigo que usa emissão de boleto por meio de api, tipo essa abaixo https://developers.bb.com.br/home Quem puder compartilhar será muito util
-
Saber o numero da Coluna clicada no Header do TXBrowse
marcioe replied to marcioe's topic in Programação
Obrigado a Todos, resolvido A quem precisar está ai a solução http://forums.fivetechsupport.com/viewtopic.php?f=6&t=42487&sid=be2a07736e1721e5085fad15bd45254d -
Saber o numero da Coluna clicada no Header do TXBrowse
marcioe replied to marcioe's topic in Programação
Olá, obrigado, mas esse retorna a Celula, pi seja se eu clicar no registro na coluna 2 ele retorna. eu to precisando do cabecalho -
Olá a todos Tem alguma forma de saber qual a coluna (cabecalho foi clicado pelo Usuario) Exemplo de clicar o cabecalho "fantasia" seria o numero 3
-
Olá a Todos os amigos Tem como ao clicar na coluna do Xbrowse, ele troca a setinha de ordenação conforma a imagem Setinha para cima e para baixo Exemplo de como a coluna é Hoje oCol := oDB_forneced_SQL:AddCol() oCol:bStrData := { || STRZERO(forneced->CODFOR,06,0) } oCol:cHeader := "Código" oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:bLClickHeader := {|r,c,f,o| ( oDB_forneced_SQL:cFilterFld := 'CODFOR', PROCURA_FORNECED_SQL(cOrder,'CODFOR',1) )} oCol:cSortOrder := 'CODFOR' oDB_forneced_SQL:aCols[01]:oHeaderFont := O_F_90_GRAUS Caso queiram ver a funcção *================================================================================= /// Pesquisa no Banco de dados Dependedo da Chave escolhida ///============================================================================= FUNCTION PROCURA_FORNECED_SQL(v_Ordenacao,v_Campo_Ordenar,v_Num_Col) DEFAULT v_Ordenacao :="A" DEFAULT v_Campo_Ordenar :="NOMFOR" DEFAULT v_Num_Col :="1" IF v_Ordenacao = 'A' cOrder := 'D' ELSE cOrder := 'A' ENDIF *---------------------------------------------------------------------------- IF SELECT("forneced") != 0 forneced->(DbCloseArea()) ENDIF cQuery := ' SELECT * from forneced ' cQuery += ' ORDER BY ' + ALLTRIM(v_Campo_Ordenar) + IF(v_Ordenacao='A',' DESC',' ASC') use sql cQuery alias "forneced" new via 'MYSQL' forneced->( DbGoTop()) oDB_forneced_SQL:oHeaderFonts := O_F_DLG oDB_forneced_SQL:oCol( (oDB_forneced_SQL:nColSel) ):oHeaderFont := O_F_GET oDB_forneced_SQL:nColSel := (v_Num_Col) oDB_forneced_SQL :GoTop() oDB_forneced_SQL :Refresh() oDB_forneced_SQL : SetFocus() Return(.t.) Exemplo está em ordem Asc (reparem a setinha) Agora em ordem desc
-
Olá, amigo, bom dia. Teria como postar algum exemplo de pesquisa incremental, porem com base de dados MYSQL. Seria algo como na tela abaixo Sem gerar *Array* Agradeço a Todos
-
getway de pagamento para auto-atendimento (Alguma empresa que tenha a API)
marcioe replied to marcioe's topic in Programação
Existe alguem que já fez algo em Fivewin ? -
Pessoal, boa tarde, sobre o banco CRESOL MINAS alguem já gerou Boleto para ele com o Acbrmonitor Pois está sendo um saco gerar remessa para esse banco padrão CNAB240. Cada hora o Validador dele dá um erro
-
Olá obrigado amigo, tinha esquecido de ver os parametros, agora é brincar aqui.... Agora Só ajustar conforme o caso, valeuuuu
-
Boa tarde a Todos os Amigos. Estava querendo um Browse ou algo que faça uma Lista Tipo isso, ou seja a imagem no Centro Texto Acima e abaixo Hoje já temos assim, mas é em Linha, queria a imagem no centro, Texto em Cima e Abaixo da imagem Agradeço aos amigos
-
Essa "COBREBEM", só faz jus ao nome literalmente, cobram-bem, mas esquece isso, ela é cara e péssima. Se quiser de forma rápida usar o acbr, ou api.
-
Amigos ainda estou precisando, não consegui evoluir esse assunto
-
Entendi, ai realmente nao sei como ajudar
-
Use o https://viacep.com.br/ viacep.com.br/ws/01001000/json/ viacep.com.br/ws/01001000/xml/ Tem vários formatos de retorno.
-
Não sei se é o que que voce quer, mas REDEFINE BUTTONBMP oBtSubir_Dados ID 4022 OF oDlg_PORTAL ACTION( SUBIR_DADOS_ATUALIZAR('U') ) BITMAP "#8688" PROMPT "Subir Cadastros Lojas" TEXTRIGHT Ok qualquer coisa chame no Zap
-
Olá, me chama no Zap (32) 9 8892-5094, talvez seja mais simples de entender o que voce quer.
-
Olá se você olhar, apenas o campo do nome que é trocado a cor
-
Acho que seria algo mais ou menos assim qoe que voce deseja Se não conseguir me chame no zap 32-9 8892-5094 Que te ajudo Cria-se uma variavel tipo assim T_CONTROLE_COR_TXT := '1' no ACTIVATE DIALOG ACTIVATE DIALOG oDlg_PDV_RECEBER_CONTA ON INIT CRIAR_TIMER_RECEBER_CONTAS() *=============================================================================== * Ciar um Timer para Ativar a Troca da Cor das Letras *=============================================================================== Function CRIAR_TIMER_RECEBER_CONTAS() Define timer oTimer interval 1000 action Trocar_Cor_letra() of oDlg_PDV_RECEBER_CONTA return .T. *=============================================================================== * Aqui fará a Troca de Cor da letra *=============================================================================== Function Trocar_Cor_letra() IF T_CONTROLE_COR_TXT = '1' T_CONTROLE_COR_TXT := '2' oT_NOME_RECEBER:SetColor(Rgb(255,0,0),Rgb(191,239,255)) ELSE T_CONTROLE_COR_TXT:= '1' oT_NOME_RECEBER:SetColor(Rgb(191,239,255),Rgb(255,0,0)) ENDIF oT_NOME_RECEBER :Refresh() return
-
Até onde sei teria que colocar um timer, no init da dialog e ir trocando de cor com um certo intervalo Exemplo (letras Fundo branco letras pretas, no outro tempo fundo vermelho letras brancas) Só sei fazer com um timer, se tiver alguma coisa diferente seria otimo
-
Olá a Todos. eu uso https://viacep.com.br/ https://viacep.com.br/ws/NUMERO_SEU_CEP_SEM_TRACOS/xml Funciona bem
-
Tem como acionar uma função por exemplo com as teclas ALT+A -> Chamar por exemplo CAD_CLIENTES() por exemplo as teclas F1, F2..... F12 Ja tem, mas não to conseguindo fazer funcionar com ATL+????
-
Alguem já fez alguma coisa