Jump to content
Fivewin Brasil

vagner_miv

Membros
 View Profile  See their activity

  • Posts

    92

  • Joined

  • Last visited

 Content Type 

Everything posted by vagner_miv

  1. vagner_miv
    Eu faço o backup e restore do MySql assim: if .not. lRestore cCmd := 'mysqldump --add-drop-database --add-drop-table' + ; ' -u ' + cUser + ; //-- Usuario do BD ' -p' + cPassword + ; //-- Senha do BD ' -c' + ; //-- Uso completo de instruções INSERT ' -e' + ; //-- Permite a utilização de fora da nova sintaxe de INSERT, muito mais rápido ' -B ' + cDataBase + ; //-- Nome do BD ' > "' + cFile + '.sql"' //-- Copia para o arquivo else cCmd := 'mysql -u ' + cUser + ' -p' + cPassword + ; ' --database=' + cDataBase + ' < "' + cFile + '"' end//if .not. lRestore //cTimeInicio := Time() MsgRun('Aguarde... ' + if(.not. lRestore,'Gerando arquivo de','Restaurando o') + ' backup...',; 'Aguarde', {|| WAITRUN('CMD /C ' + cCmd,0 ) }) id=code>id=code>Quando uso esses comandos para backup e restore precisa dos dois executaveis na pasta do meu executavel (mysqldump.exe e mysql.exe). Alguem saberia como usar a SqlLib? Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  2. vagner_miv
    Eu faço o backup e restore do MySql assim: if .not. lRestore cCmd := 'mysqldump --add-drop-database --add-drop-table' + ; ' -u ' + cUser + ; //-- Usuario do BD ' -p' + cPassword + ; //-- Senha do BD ' -c' + ; //-- Uso completo de instruções INSERT ' -e' + ; //-- Permite a utilização de fora da nova sintaxe de INSERT, muito mais rápido ' -B ' + cDataBase + ; //-- Nome do BD ' > "' + cFile + '.sql"' //-- Copia para o arquivo else cCmd := 'mysql -u ' + cUser + ' -p' + cPassword + ; ' --database=' + cDataBase + ' < "' + cFile + '"' end//if .not. lRestore //cTimeInicio := Time() MsgRun('Aguarde... ' + if(.not. lRestore,'Gerando arquivo de','Restaurando o') + ' backup...',; 'Aguarde', {|| WAITRUN('CMD /C ' + cCmd,0 ) }) id=code>id=code>Quando uso esses comandos para backup e restore precisa dos dois executaveis na pasta do meu executavel (mysqldump.exe e mysql.exe). Alguem saberia como usar a SqlLib? Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  3. vagner_miv
    citação:FIFO e LIFO id=quote>id=quote>FIFO - First In First Out (Primeiro a entrar primeiro a sair) Primeiro a ser cadastrado primerio a ser vendido LIFO - Last In Firt Out (Ultimo a entrar primeiro a sair) Ultimo a ser cadastrado primeiro a ser vendido Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  4. vagner_miv
    citação:UM COMERCIO QUALQUER, te pede para fazer UM CONTROLE dos PRODUTOS PERECÃVEIS, como você faria? id=quote>id=quote>1° arquivo com as informações do produto: codigo, nome, marca, fornecedor, etc... 2° arquivo com as informações para controle de validade: CodProduto,Lote,Validade,Quantidade citação:Quais as perguntas faria nos GET´s, e o que você MOSTRARIA na LISTBOX para o OPERADOR ver?? id=quote>id=quote>Com as informações desse segundo arquivo vc pod criar um arquivo com produtos vencidos ou para vencer... citação:Se der saida no produto, o que fazer?? id=quote>id=quote>Buscaria no segundo arquivo se o produto e o lote escolhido tem a quantidade e se esta vencido... citação:Se der entrada no produto, o que fazer? id=quote>id=quote>Perguntaria o lote do produto, quantidade e validade... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  5. vagner_miv
    Acho que não estou sabendo o que vc esta querendo. Vc quer fazer um sistema com informações especificas para esse tipo de produto ou um sistema genérico? Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  6. vagner_miv
    citação:O que quer dizer MIV?? id=quote>id=quote>Vagner Miv é nome, o Miv é a junção dos nomes do meus pais e meu... citação:Quanto ao CADASTRO, o que eu pergunto nos GETS e na LISTBOX, o que eu INFORMO? E depois de CADASTRADOS o que devo fazer em matéria de PROCESSAMENTO para o Usuário e para o CADASTRO de ESTOQUE? id=quote>id=quote>Aconselho fazer um cadastro bem generalizado tipo nome, fabricante, fornecedor, codbarras, etc... um CheckBox informando se esse produto é perecivel. um list box com LOTE e VALIDADE para que depois fazer uma pesquiza da VALIDADE para saber se existe algum produto vencido... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  7. vagner_miv
    citação:Produtos Perecíveis id=quote>id=quote>São considerados perecíveis todos os produtos sujeitos a deterioração, decomposição ou morte, como flores, plantas vivas, comestíveis em geral, etc... Não entendi como poder t ajudar a fazer o cadastro Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  8. vagner_miv
    citação: citação:6º Ver o flamengo ganhar hoje e perder de goleada no Domingo. Fivewin 8.12 + XHarbour Build 1.1.0 + WorkShop + vLib + SqlLib + MySQL 5.0.27 + xDev Studio + FWPPC E-mail: leandrolopes@success.inf.br Msn: leandroptu@ada.com.br Paracatu/MG id=quote>id=quote> Beber menos e parar de delirar Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com - NÃO ABANDONE SEU TÓPICOid=blue> id=quote>id=quote>Eles já se formaram (Tri-vice) na escola, mas mesmo assim não aprende... como já diz o ditado freguez tem sempre razão.... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  9. vagner_miv
    Dicas para o trabalho: 1° água bem gelada 2° remédios para dor de cabeça 3° energéticos 4° não exagerar no alcool na terça-feira, ih já foi!!! Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  10. vagner_miv
    Dicas para o trabalho: 1° água bem gelada 2° remédios para dor de cabeça 3° energéticos 4° não exagerar no alcool na terça-feira, ih já foi!!! Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  11. vagner_miv
    eu utilizo oxBrw:SelectedCol():nArrayCol que retorna o número da coluna selecionada Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  12. vagner_miv
    citação:Amigos, estou com um problema, pois o SEF-MG nao esta recebendo NFE, no site do PORTAL NACIONAL ESTA ASSIM. Informamos que o ambiente de NF-e de MG já se encontra disponível e em funcionamento. Para evitar possíveis transtornos manteremos o SCAN ativado até amanhã, dia 21/01/2010 às 18:00 horas, conforme anteriormente informado. Assinado por: Secretaria da Fazenda de Minas Gerais O QUE DEVO FAZER. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com id=quote>id=quote>O SCAN é a modalidade de contingência eletrônica que permite que o emissor possa transmitir as NF-e para o Ambiente Nacional administrado ... http://nf-eletronica.com/blog/?p=97 Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  13. vagner_miv
    citação:OLA PESSOAL, GOSTARUA DE SABER SE TERIA COMO FAZER UMA QUERY COM SQLRDD, PARA PEGAR REGISTROS QUE CONTENHAM CARACTERES? POR EXEMPLO: cVar:="BRAD" xSQL_Query := "Select * FROM BANCO WHERE NOME = %"+ALLTRIM(cVar)+"%" aDirect1:={} apCode := SR_SQLParse( xSQL_Query, @nErr, @nPos ) oSql := SR_GetConnection() cComm := SR_SQLCodeGen( apCode,, oSql:nSystemID ) oSql:exec( cComm,,.t.,@aDirect1) E A QUERY VAI ME DAR OS REGISTROS COM ESSES NOMES BRADESCO BRADESCONTO BRADIMENTRO E POR AI VAI ALQUEM SABER COMO EU FAÇO? FHW 903, XHB110, PELLESC 6.0, XDEV 7.2, SQLRDD id=quote>id=quote>a Query tem que ser assim xSQL_Query := "Select NOME From BANCO Where NOME Like '%" + AllTrim(cVar) + "'%" O % faz com que não importe qual informação esta ali, do jeito que esta a Query vai trazer todos os registros que contém o 'cVar' pode ser no inicio no fim ou no meio Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>Editado por - vagner_miv on 21/01/2010 08:45:50
  14. vagner_miv
    citação: citação:Se uma facudade vai ensinar a programar ao não vai depender de cada um... o que se faz um bom programador é a esperiência como em cada profissão... não aceitar a necessidade de um diploma para exercer a profissão é regredir... um médico, um dentista ou um advogado para exercer a profissão dele precisa do diploma... muitas pessoas já tiveram essa discução isso é a evolução. cabe a empresa contratar um funcionario que saiba exercer sua profissão. o ensino sempre faz bem... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green> id=quote>id=quote>id=size2>Tipo o Diploma de Jornalismo.. né ?? Hoje qq moleque que mau terminou o 2º grau capengando, basta ser apadrinhado de terceiros pegar um microfone falar no rádio bater no peito e dizer "Sou Jornalista" desse tá cheio por ai... assim como os que copiam codigo colam e geram um exe e diz ser programador sem nem saber o que é Sintaxe. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com - NÃO ABANDONE SEU TÓPICOid=blue> id=quote>id=quote>Seu exemplo foi mto bom... Me faz lembrar do meu primo que ralou mto na facudade e correu mto atraz de um emprego ele sendo jornalista... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  15. vagner_miv
    Se uma facudade vai ensinar a programar ao não vai depender de cada um... o que se faz um bom programador é a esperiência como em cada profissão... não aceitar a necessidade de um diploma para exercer a profissão é regredir... um médico, um dentista ou um advogado para exercer a profissão dele precisa do diploma... muitas pessoas já tiveram essa discução isso é a evolução. cabe a empresa contratar um funcionario que saiba exercer sua profissão. o ensino sempre faz bem... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  16. vagner_miv
    oxBrw:bChange := {|| ; OnChangeDetalhe(@oSay,oxBrw:nArrayAt)} **************************************************************************** static procedure OnChangeDetalhe(poSay, nRow) **************************************************************************** * * Mostra no say as informações de cada produto * Parametros: poSay, nRow * Retorno: Nenhum * * Autor: Vagner Miv * 29/5/2009 - 09:21:46 * **************************************************************************** //-- Testa se a lista esta vazia --------------------------------------// if !Empty(aSugest) .and. !Empty(aSugest[1,FIELD_CODIGO]) poSay:SetText(aSugest[nRow,FIELD_CODIGO]+'-'+aSugest[nRow,FIELD_DESCRICAO]) else poSay:SetText('') end//if !Empty(aSugest) .and. !Empty(aSugest[1,FIELD_CODIGO]) Return Nil /*------------------------------------------------------------------------*/ Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green> Editado por - vagner_miv on 22/12/2009 08:48:52
  17. vagner_miv
    citação:Ainda não resolvi, está funcionando como eu postei lá no inicio. Se eu não der o comit ele nãoa grava Se eu der commit no final mesmo assim ele não grava mas como está funcionando, Apenas fiz os testes que os amigos indicarm. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com id=quote>id=quote>criei um repasse de DBF para MySql faço da seguinte maneira: 1° executo o comando CREATE DATABASE; 2° executo o comando CREATE TABLE; 3° executo os comandos INSERT INTO; no final de tudo que criei todas as tabela do BD e inseri suas informações eu executo o COMMIT, funciona direitinho pode não aparecer de imediato se vc estiver com o gerenciador do MySql aberto, mas se vc fechar e abrir depois vai estar la todas as suas informações Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  18. vagner_miv
    citação:Ola amigos, tenho um campo numerico e queria indexar ele em ordem decrescente do maior pro menor, alguem lembra qual o atributo no index, tentei DECEND, DESCEND mas da erro de sintaxe. Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com id=quote>id=quote>DESCENDING Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  19. vagner_miv
    citação:Colegas já vi aqui no forum ou no samples, não sei bem,mais não consigo achar de forma alguma, achei até um exemplo mais com array , em minha browse chamo uma funcao externa, nesta funcao preciso saber qual coluna estou... tentei algo assim, mais nao deu certo. oBrw[1]:bKeyDown:={|nKey| tarefa(oCol)} function tarefa(nCol) msglaert(nCol) // retorno array return .t. id=code>id=code>Obrigado Luiz Fernnado msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.09,XHARHOUR 1.2 id=quote>id=quote>Use isso que é o que esta querendo oBrw:SelectedCol():nArrayCol Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  20. vagner_miv
    citação:O QUE VOCE ESTA USANDO PARA GERAR O RELATORIO? TDOSPRN.PRG? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>uso a TDOSPRN Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  21. vagner_miv
    Preciso imprimir um titulo em uma LX-300 em negrito e expandido, alguem poderia me ajudar... desde ja agradeço... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green> Editado por - vagner_miv on 30/10/2009 09:57:25 Editado por - vagner_miv on 30/10/2009 19:18:14
  22. vagner_miv
    Preciso imprimir um titulo em uma LX-300 em negrito e expandido, alguem poderia me ajudar... desde ja agradeço... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green> Editado por - vagner_miv on 30/10/2009 09:57:25 Editado por - vagner_miv on 30/10/2009 19:18:14
  23. vagner_miv
    Não consigo ver sua imagem... Esplique oq esta ocorrendo e oq vc quer... Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  24. vagner_miv
    citação: citação:Não consegui ver sua imagem, mas sua sql tem que ser +- assim... SELECT Programa.NomePrograma, Empresa.NomeEmpresa, Grupo.NomeGrupo FROM Atendimento INNER JOIN Programa ON Atendimento.CodPrograma = Programa.CodPrograma INNER JOIN Empresa ON Atendimento.CodEmpresa = Empresa.CodEmpresa INNER JOIN Grupo ON Atendimento.CodGrupo = Grupo.CodGrupo Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green> id=quote>id=quote>mas igual informei ai no poste no inicio abro a tabela com o comando use certo... no caso teria que usar as tabelas das chaves estrageniras ou seja teria que usar alem da tabela de atendimentos usar tbm a de programas e grupo atendimento e empresa?? valesw Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Editado por - fabin01 on 08/10/2009 13:42:08 id=quote>id=quote>nao entendi direito o q vc quer, mas para que vc pudesse ver as informações que salvou no ListBox, tera que salvar essas informações em um local para q possa acessar em outro momento... e buscar as informações como no sql q t mostrei Tabela Atendimento CodAtendimento CodPrograma CodEmpresa CodGrupo Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
  25. vagner_miv
    Não consegui ver sua imagem, mas sua sql tem que ser +- assim... SELECT Programa.NomePrograma, Empresa.NomeEmpresa, Grupo.NomeGrupo FROM Atendimento INNER JOIN Programa ON Atendimento.CodPrograma = Programa.CodPrograma INNER JOIN Empresa ON Atendimento.CodEmpresa = Empresa.CodEmpresa INNER JOIN Grupo ON Atendimento.CodGrupo = Grupo.CodGrupo Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySql id=green>
×
×
  • Create New...