robinhocne

opa, me desculpa, abri esse tópico e nem prestei atenção.... Eu utilizo o Evento OnColExit do DbGrid, nele eu tenho ligado um DataSource que está ligado a uma tabela temporário(RxMemoryData). Onde gravo temporáriamente as informações do DbGrid e ai salvo, mas quando eu passo pela a coluna por exemplo a coluna 0 ( DbgClas.Fields[00].AsString ) que recebe o código da classificação eu verifico se existe algum valor if DbgClas.Fields[00].AsString = '' then begin DbgClas.SelectedIndex := 0; end; e quando está vazia em vez de ela ficar na primeira coluna ela pula para a proxima. O que pode ser ?

Pessoal não estou conseguindo deixar focado uma celula no DBgrid quando não tem registro nenhum, eu faço dessa maneira mas não dá certo...ela sempre pula para a proxima....o que eu faço ???

Na hora que estou clicando no meu DbGrid está dando essa mensagem erro: Esse DBgrid é ligado num DataSet com uma tabela temporia (RxMemoryData) quando eu edito o meu cadastro clicando no botão editar eu mando o comando assim: TblValor.edit; TblValor(RxMemoryData) mas mesmo assim está dando o erro! Alguém pode me ajudar ?

Ok, otimo.....obrigado

Boa noite pessoal, Queria saber como posso criar em tempo de execução um banco de dados .fdb, já com 3 tabelas pre-definidas. Alguém poderia me ajudar ?

Esse era o meu problema, não estava relacionando em nenhuma tabela ai não aparecia mesmo...... Obrigado Jhonas.

Jhonas, tem mais alguma coisa que eu tenho que fazer no DbGrid, pois estou colocando ele sem ligar a nada, só para testar e ai no OnShow do formulario eu coloquei: DBGrid1.Columns[0].PickList.Append('JAN '); DBGrid1.Columns[0].PickList.Append('FEV '); DBGrid1.Columns[0].PickList.Append('MAR '); DBGrid1.Columns[0].PickList.Append('ABR '); DBGrid1.Columns[0].PickList.Append('MAI '); DBGrid1.Columns[0].PickList.Append('JUN '); DBGrid1.Columns[0].PickList.Append('JUL '); DBGrid1.Columns[0].PickList.Append('AGO '); DBGrid1.Columns[0].PickList.Append('SET '); DBGrid1.Columns[0].PickList.Append('OUT '); DBGrid1.Columns[0].PickList.Append('NOV '); DBGrid1.Columns[0].PickList.Append('DEZ '); mas não apareceu nada na hora que eu executei. tem que fazer algo no dbgrid ?

Jhonas eu adicionei, fiz igual ao exemplo varias vezes mais não deu certo.....não estou conseguindo fazer.

então eu tinha visto esses dois exemplos, mas o primeira não deu certo, nem funcionou e segundo...é commo é falei, não vou trazer nada do banco de dados...tinha q estar fixo

não......é expliquei meio confuso mesmo....rsrs eu tenho o dbgrid......ai na coluna moeda tem la na celula tem q aparecer um combo box com algumas informações nele... entendeu ?

Pessoal procurei mas não consegui achar, então peço ajuda para todos do forum; Eu tenho um DbGrid (DbgCambio), um RxMemoryData (TblCambio)..... ai no DbgCambio eu tenho a primeira coluna Moeda1, a segunda Moeda2 e a terceira Valor. Nas colunas moedas eu tinha que trazer num combobox fixo a lista e Dolar, Guarani e Real, pois esses valores do combobox eu não tenho nada em tabela e não estou sabendo colocar isso num DbGrid, alguém pode me ajudar ?

alguém pode me ajudar ?

Pessoal estou precisando de uma ajuda.... tenho uma tabela no banco mysql chamada solicitações onde em cada solicitação cadastrada eu lanço a data de inclusao e quando finalizo eu gravo a data concluido, ai na consulta por essa tabela.,.....dentro do while eu teria que ver se existe valor no campo dtconcluido se tiver eu tenho que pegar e subtrair a dtinclusao menos dtconcluido se não tem eu tenho que subtrair a dtinclusao menos a data atual, fiz dessa maneira abaixo porém dá erro.... function listaSolicitacoes() { $sql=mysql_query("select * from solicitacoes"); $linhas['lista']=""; $num=0; while($linha=mysql_fetch_object($sql)){ $linhas['lista'][$num]['controle'] =$linha->controle; $linhas['lista'][$num]['dtinclusao'] =$linha->dtinclusao; $linhas['lista'][$num]['sistema'] =$linha->sistema; $linhas['lista'][$num]['formulario'] =$linha->formulario; $linhas['lista'][$num]['situacao'] =$linha->situacao; $linhas['lista'][$num]['dtconcluido'] =$linha->dtconcluido; $linhas['lista'][$num]['solicitacao'] =$linha->solicitacao; $linhas['lista'][$num]['status'] =$linha->status; $linhas['lista'][$num]['observacao'] =$linha->observacao; $linhas['lista'][$num]['tópico'] =$linha->tópico; $linhas['lista'][$num]['urgente'] =$linha->urgente; if ($dtconcluido != 0000-00-00) { $dias = $dtincluido->diff($dtconcluido); $linhas['lista'][$num]['dias'] =$linha->dias; }else { $dataatual = date("Y/m/d"); $dias = $dtincluido->diff($dataatual); $linhas['lista'][$num]['dias'] =$linha->dias; } $num++; } return $linhas; } estou consultando no banco mysql e se não tiver ele calcula com o de hj, se tem data de concluido ele calcula com a data da consulta, e incluir no array para que eu possa mostrar no datagrid.... mas dá esse erro... (Object)#0 message = "faultCode:INVALID_AMF_MESSAGE faultString:'Invalid AMF message' faultDetail:' Fatal error: Call to a member function diff() on a non-object in C:\xampp\htdocs\AdmInfinity\bin-debug\amfphp\services\principal.php on line 54 '" name = "Error" rootCause = (null)

Perfeito Jhonas, procedure TFPesPes001.DbgPesDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If odd(DtsPes.DataSet.RecNo) then begin DbgPes.Canvas.Font.Color:= clBlack; DbgPes.Canvas.Brush.Color:= clMoneyGreen; end else begin DbgPes.Canvas.Font.Color:= clBlack; DbgPes.Canvas.Brush.Color:= clWhite; end; if (gdSelected in state) then DbgPes.Canvas.Brush.Color := clSkyBlue; // else // DbgPes.Canvas.Brush.Color := clSkyBlue; DbgPes.Canvas.FillRect(Rect); DbgPes.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; muito Obrigado,

Pessoal, sou novo no mysql e estou querendo uma ajuda aqui de vocês do forum, tenho a seguinte situação, tenho um campo na tabela que chama situação, ela tem Andamento, Concluido, Desenvolvendo e Cancelado.... então eu coloquei uns filtros que quando tiver setados os campos Andamento, Concluido ele vai trazer o valor S....ai beleza o que quero saber é como ai vou filtrar minhas solicitações que está com a situação em Andamento e Concluida.... if Andamento = 'S'{ if Concluido = 'S'{ select * from solicitacoes where situacao = 'Andamento' and situacao = 'Concluido'; }else{ select * from solicitacoes where situacao = 'Andamento';//aki beleza mas a primeira linha não retorna nada...como faço nesse caso }

então eu testo atraves do amfphp, no broswer dele, uma vez que eu coloco uma variavel na funcao ele mostra no broswer do amfphp ai eu testo la mesmo. não tá não, acho que descobri o problema, mas não sei resolver para o amfphp, percebi que simbolos se eu digito não aparece no amfphp, recebo na variavel mas aparece, isso não sei o porque! ai também percebi que se eu digitar assim: assim: assim: o porque disso ? alguém pode me ajudar ?

então eu testo atraves do amfphp, no broswer dele, uma vez que eu coloco uma variavel na funcao ele mostra no broswer do amfphp ai eu testo la mesmo.

function INSERIRDATA($data) { $array = explode("/", $data); $dia = $array[0]; $mes = $array[1]; $ano = $array[2]; $dtinclusao = $ano."-".$mes."-".$dia; return "Data: ".$dtinclusao; } então eu mesm que estou digitando para testar la no broswer do amfphp, ai não dá certo, mas se eu jogar a data já fixa na variavel ela dá certo, mas quando eu digito não dá certo. como eu faço para salvar essa data num campo varchar então ?, porque não encontro solução.....

Pessoal, pesquisei, pesquisei, usei tudo q achei na net mas não consegui... tenho um campo no banco mysql chamando dtinclusao, é uma data determinada pelo o usurio, então não é a data atual do sistema ou servidor. Ai fiz dessa maneira em baixo: function INSERIRDATA($data) { $data = "13/12/2010"; $array = explode("/", $data); $dia = $array[0]; $mes = $array[1]; $ano = $array[2]; $dtinclusao = $ano."-".$mes."-".$dia; return "Data: ".$dtinclusao; } ai beleza me retornou no formato 2010-12-13, mas ai eu fiz assim para o usuario informar a data: function INSERIRDATA($data) { $array = explode("/", $data); $dia = $array[0]; $mes = $array[1]; $ano = $array[2]; $dtinclusao = $ano."-".$mes."-".$dia; return "Data: ".$dtinclusao; } mas me retorna assim e ai se eu tento salvar pegando assim: function INSERIRDATA($data) { $array = explode("/", $data); $dia = $array[0]; $mes = $array[1]; $ano = $array[2]; $dtinclusao = $ano."-".$mes."-".$dia; $sql=mysql_query("insert into solicitacoes ($dtinclusao)values('$dtinclusao')"); $ultimo_codigo = mysql_insert_id(); return $ultimo_codigo; } mas ai nem salvou nada..... alguém pode me ajudar ?

Pessoal estou com um probleminha basico aqui, mas não estou conseguindo resolver, Quando eu vou percorrendo um DbGrid com a seta do teclado ou pela barra de rolagem do DbGrid ai ele pinta todas as linhas da mesma cor com a linha que estou selecionada, o codigo abaixo é o que eu utilizo; procedure TFPesPes001.DbgPesDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If Not odd(DtsPes.DataSet.RecNo) Then If Not (gdSelected in State) Then begin DbgPes.Canvas.Brush.Color:=clSkyBlue; DbgPes.Canvas.FillRect(Rect); DbgPes.DefaultDrawDataCell(rect,Column.Field,State); end; if (TAuxDBGrid(dbgpes).DataLink.ActiveRecord + 1 = TAuxDBGrid(dbgpes).Row) or (gdSelected in State) then begin dbgpes.Canvas.Brush.Color := clMoneyGreen; dbgpes.Canvas.Font.Style := dbgpes.Canvas.Font.Style + [fsBold]; dbgpes.Canvas.Font.Style := dbgpes.Canvas.Font.Style + [fsUnderline]; dbgpes.Canvas.Font.Color := clBlack; end; dbgpes.Canvas.FillRect(Rect); dbgpes.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); dbgpes.DefaultDrawDataCell(Rect, Column.Field, State); end; uma ajuda ?

To criando uma procedure onde pesquiso o valor do procedimento na tabela Adm_Proced_Empresa se não tiver nada ele pega da tabela Adm_Procedimentos que traz as informações da configuracao de um determinado Form. Meu problema é ali no while, eu tinha que trazer o nome do procedimento (P.ProProcedimento) e o valor dele (EP.EpdValor ou P.Valor), pois quando não tem no EP.EpdValor eu pego o valor default do P.Valor, mas tenho que trazer os resultados deles na variavel e ai ver o valor dele e jogar a configuração, Como faço para receber os nomes dos procedimentos e valores e ai passar eles verificando se é ele mesmo tipo assim: if Procedimento = 'TIPO_CADASTRO' then//traz padrão se é juridico ou fisico o cadastro begin If Valor = 'F' then begin CboPes.ItemIndex := 0; end else If Valor = 'J' then begin CboPes.ItemIndex := 1; end; end if Procedimento = 'OBG_CPF' then//traz padrão se é juridico ou fisico o cadastro else begin If Valor = 'S' then begin end else If Valor = 'N' then begin end; end; procedure Procedimentos(Formulario, EmpCodigo:String); var Procedimento, Valor : String; begin with Dtm.QryProcedimentos do begin Close; sql.Clear; sql.Add('Select P.ProCodigo, P.ProFormulario, P.ProProcedimento, P.ProValor, P.ProObrigatorio,'); sql.Add('EP.ProCodigo, EP.EpdValor, EP.EmpCodigo'); sql.Add('From Adm_Procedimentos P, Adm_Proced_Empresa EP where P.ProFormulario =:For and P.procodigo = EP.procodigo and'); sql.Add('EP.EmpCodigo =:EmpCod'); sql.Add('group by P.ProCodigo, P.ProFormulario, P.ProProcedimento, P.ProValor, P.ProObrigatorio,'); sql.Add('EP.procodigo, ep.epdvalor, ep.empcodigo'); ParamByName('For').AsString := Formulario; ParamByName('EmpCod').AsString := EmpCodigo; open; end; while not Dtm.QryProcedimentos.Eof do begin Procedimento := Dtm.QryProcedimentos.FieldByName('P.Procedimento').AsString; if Dtm.QryProcedimentos.FieldByName('EP.EpdValor').AsString = '' then begin Valor := Dtm.QryProcedimentos.FieldByName('P.Valor').AsString; end else if Dtm.QryProcedimentos.FieldByName('EP.EpdValor').AsString <> '' then begin Valor := Dtm.QryProcedimentos.FieldByName('EP.EpdValor').AsString; end; Dtm.QryProcedimentos.Next; end; end; ai eu não sei, já me deu nó na cabeça....alguém poderia me ajudar ?

Obrigado Jhonas, juntei o exemplo que vocë me passou e ai fui aos poucos montando novamente, consegui que imprimisse a etiqueta sem que ela ficasse indo e voltando para regular, ela só regula na primeira impressão, e ai também parou de travar, por enquanto mandei um monte e não travou mais.... realmente Jhonas, mas como eu não entendo ingles, fiz a tradução de muitas coisas desse manual, mas mesmo assim ai ficou muito vago para mim.... muito obrigado.

veja o manual de programação ... tem alguns comandos que voce não está usando que podem ajudar http://www.novitus.pl/pl/cok/download/druk...kreskowych/EPL2 abraço Jhonas olhei novamente e consegui colocar mais uns codigos, mas agora esta travando mais ainda, dá uma ajuda como eu posso limpar essa memoria ou alocar mais espaço, uma ajuda não sei o que faço mais......

Estou com um problema que não sei se pode ser a impressora ou se pode ser os codigos que está matando a memória dela....... Impressora Térmica: Zebra TLP 2844 Seguinte, fiz meu sistema gerar um arquivos txt, segue abaixo: N Q114,13 F2 q705 D10 S4 ZT A680,65,2,1,1,1,N,"00000200" B495,3,0,2,2,5,30,N,"00000200" A680,85,2,1,1,1,N,"BRINCO LAÇO " A600,71,2,3,1,2,N,"R$ 14,98" A453,85,2,1,1,1,N,"BRINCO LAÇO " A370,68,2,3,1,2,N,"R$ 14,98" A454,68,2,1,1,1,N,"00000200" B270,5,0,2,2,5,30,N,"00000200" A225,85,2,1,1,1,N,"BRINCO LAÇO C/STRAS" A145,68,2,3,1,2,N,"R$ 6,98" A227,68,2,1,1,1,N,"00000105" B40,5,0,2,2,5,30,N,"00000105" P001 N Q114,13 F2 q705 D10 S4 ZT A680,65,2,1,1,1,N,"00000006" B495,3,0,2,2,5,30,N,"00000006" A680,85,2,1,1,1,N,"COLAR DIVERSOS" A600,71,2,3,1,2,N,"R$ 4,98" A453,85,2,1,1,1,N,"COLAR DIVERSOS" A370,68,2,3,1,2,N,"R$ 4,98" A454,68,2,1,1,1,N,"00000006" B270,5,0,2,2,5,30,N,"00000006" A225,85,2,1,1,1,N,"COLAR DIVERSOS" A145,68,2,3,1,2,N,"R$ 4,98" A227,68,2,1,1,1,N,"00000006" B40,5,0,2,2,5,30,N,"00000006" P001 N Q114,13 F2 q705 D10 S4 ZT A680,65,2,1,1,1,N,"00000003" B495,3,0,2,2,5,30,N,"00000003" A680,85,2,1,1,1,N,"BATOM TANGO VIT.E" A600,71,2,3,1,2,N,"R$ 2,98" A453,85,2,1,1,1,N,"BATOM TANGO VIT.E" A370,68,2,3,1,2,N,"R$ 2,98" A454,68,2,1,1,1,N,"00000003" B270,5,0,2,2,5,30,N,"00000003" P001 nesse codigo acima eu mandei a impressão de 8 etiquetas, ai tanto faz as vezes imprime as 8, as vezes trava, as vezes mando 40, 50, 60 tanto faz as vezes imprime outros trava, não dá para saber, creio o sistema não seja, porque quando trava a luz da impressora fica vermelha ai eu aperto o botão dela e perde umas 3 etiqueta ai continua, as vezes trava umas 4 vezes dentro de 60 etiquetas então por isso não dá para saber..... Ai eu não sei se essa Zebra trabalha assim, aqui estou com uma bobina de 3 colunas, então mando imprimir 9 etiquetas a impressora imprime 3, volta e regula, imprime mais 3 e volta e regula e imprime mais 3, tipo ela não vai as 9 de uma vez....então pelo fato disso que acho que esta travando ela.... sei lá preciso muito de um auxilio com isso estou perdido, o manual o que eu pude fazer eu fiz, mas não consegui.....alguém me ajuda por favor ? qualquer coisa add meu MSN = robinhocne@hotmail.com obrigado desde já!

Então eu tenho uma outra aplicação que faço isso ai funciona certinho....mas dessa maneira que eu fiz aqui abrindo um formulario e ai chamando o login pelo OnActive não deu certo, aparentemente o causador foi o Skin, porque fiz sem o Skin e ai dá certo. Mas valeu pela ajuda!