Cassiano

Administrators
  • Content count

    61
  • Joined

  • Last visited

  • Days Won

    17

Cassiano last won the day on February 18

Cassiano had the most liked content!

Community Reputation

32 Excellent

About Cassiano

  • Rank
    Aprendiz

Recent Profile Visitors

39 profile views
  1. Consegue fazer um mini projeto e disponibilizar aki?
  2. Já tentou usar o HReadSeek sem o IF e abaixo do comando colocar IF HFound(nomedatabela) pra avaliar? Eu usava igual vc mas tive alguns problemas q não me recordo e mudei pra HReadSeek(....) IF HFound(...) THEN ... END
  3. Faz e reporta o q deu por favor
  4. Esquisito. E se procurar por "-2" ele retorna True tb ou False?
  5. Acredito q não @Janio Aguiar por se tratar de algo relativo ao JAVA pelo q vi e não propriamente ao Windev. (mas posso estar equivocado)
  6. Vejam o exemplo de código abaixo... Agora imaginem q vc precise inverter o código (apenas para efeito de estudo) como faria? arrVendedores[1,1] = "Marcos" arrVendedores[1,2] = "17/02/2020" arrVendedores[1,3] = "MOCOCA" arrVendedores[2,1] = "Carlos" arrVendedores[2,2] = "10/02/2020" arrVendedores[2,3] = "TESTE1" arrVendedores[3,1] = "Paulo" arrVendedores[3,2] = "15/02/2020" arrVendedores[3,3] = "TESTE2" arrVendedores[4,1] = "Pedro" arrVendedores[4,2] = "20/02/2020" arrVendedores[4,3] = "TESTE3" Vc pode fazer o seguinte: Seleciona o trecho de código q quer inverter, depois pressione CTRL + ALT + SETA da Direta ou da Esquerda. Pronto. O resultado será semelhante a imagem abaixo.
  7. Veja se seria isso q precisa: arrVendedores is array of 4 by 3 strings arrVendedores[1,1] = "Marcos" arrVendedores[1,2] = "17/02/2020" arrVendedores[1,3] = "MOCOCA" arrVendedores[2,1] = "Carlos" arrVendedores[2,2] = "10/02/2020" arrVendedores[2,3] = "TESTE1" arrVendedores[3,1] = "Paulo" arrVendedores[3,2] = "15/02/2020" arrVendedores[3,3] = "TESTE2" arrVendedores[4,1] = "Pedro" arrVendedores[4,2] = "20/02/2020" arrVendedores[4,3] = "TESTE3" nPos is int = ArraySeek(arrVendedores,asLinearFirst,"1;3","Paulo","TESTE2") Info("Atenção!!!", "O item pesquisado esta na posição:" + NumToString(nPos)) No ArraySeek vc separa cada coluna q quer pesquisar com Ponto e Vírgula e depois os parametros são separados por vírgula, no caso acima estou pesquisando na coluna 1 e 3 com os parametros "Paulo" e "TESTE2"
  8. Como assim @Luiz FERNANDO? Vc diz dentro do ArraySeek comparar os campos?
  9. Faz como o Mello disse e depois faz o merge no código, segue link do manual
  10. Não entendi muito bem o q vc precisa, mas teorizando temos o seguinte, os códigos de barras podem ter 8, 12, 13 ou 14 dígitos e serem válidos, o ideal seria vc aplicar ao teu código uma função de validação, ou seja, vc aplica o código nesta função e com isso vai saber se o mesmo é válido, se o dígito verificador esta correto, e com esta função poderá desconsiderar o dígito verificador e extrair somente o número se esta for tua intenção. Esta função não tenho em Windev e sim na minha antiga linguagem, não cheguei a migrar ela, talvez algum colega tenha. Caso o q eu respondei não seja o objeto da sua dúvida, favor desconsiderar e fornecer maiores informações do q precisa.
  11. As 2 formas q conheço são: 1 - Vc cria um relatório com a ferramenta de Editor de Relatórios a partir de uma tabela, Query, variaveis etc... depois executa com iDestination(iGenericXLS,"teste") iPrintReport(RPT_NoName1) A forma nr 1 é a q eu considero mais prática, mas vai depender muito da tua necessidade. Outra forma é via Automação OLE (porém q eu saiba esta forma precisa ter o Excel instalado) - Segue exemplo (não testado) oExcel is object OLE dynamic oExcel = new object OLE "Excel.Application" oExcel >>Visible = OLEFalse oExcel >>Workbooks>>Open(sMyReport) HReadSeek(GPWUSER,Login,gsMyLogin) oExcel >>Range("C10")>>Value=GPWUSER.Nome oExcel >>Range("F10")>>Value=GPWUSER.Matricula nMyCurrentRow is int = 13 FOR EACH ROW OF TABLE_QRY_Agenda oExcel >>Range("B" + nMyCurrentRow)>>Value=DateToString(TABLE_QRY_Agenda.COL_Date,"DD-MM-YYYY") oExcel >>Range("C" + nMyCurrentRow)>>Value=DateToString(TABLE_QRY_Agenda.COL_Date,"DD-MM-YYYY") oExcel >>Range("D" + nMyCurrentRow)>>Value=TABLE_QRY_Agenda.COL_HoraTipoNumerico oExcel >>Range("E" + nMyCurrentRow)>>Value=TimeToString(TABLE_QRY_Agenda.COL_Inicio,"HH:MM:SS") oExcel >>Range("F" + nMyCurrentRow)>>Value=TimeToString(TABLE_QRY_Agenda.COL_Inicio,"HH:MM:SS") oExcel >>Range("G" + nMyCurrentRow)>>Value=TABLE_QRY_Agenda.COL_Cliente + ":" + TABLE_QRY_Agenda.COL_Trajeto nMyCurrentRow ++ END oExcel >>Range("A1")>>Select oExcel >>ActiveWorkbook>>Save oExcel >>ActiveWorkbook>>Quit oExcel >>Application>>Quit Delete oExcel
  12. Olá @Fábio Senji verifiquei aki e a plataforma esta adicionada Smartphone e Tablet Tentei mexer nas resoluções e não deu. O q eu fiz pra entregar o projeto é remover o Smartphone e deixar somente plataforma do Tablet e tb somente 1 layout, depois qdo aprender altero.
  13. Deixa eu ver se eu entendi, vc tem um STC linkado a um campo de uma query ou table, exemplo Nome + quer mostrar além do campo linkado + outro campo? É isso? Caso sim se for uma query, não compensa já montar um campo contendo o conteúdo dos 2 campos?
  14. Fiz a alteração @Ananias Guerra Tinha um detalhe na configuração do fórum depois q restaurei q deixei passar. Tb foi bom pq percebi q novos usuários não estavam conseguindo se cadastrar devido uma outra configuração q já ajustei. Teste e me fale, caso ok já limpo essas nossas mensagens aki
  15. A princípio era pra vcs conseguirem tb, vou criar um usuario teste aki pra ver como se comporta e se for configuração já altero.