Jackson Douglas

Members
  • Content count

    7
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Jackson Douglas

  • Rank
    Soldier
  1. Ola... Veja como estou fazendo atualmente. IF TableCount(TABLE_DOCUMENTOS) > 0 THEN FOR EACH ROW OF TABLE_DOCUMENTOS IF TABLE_DOCUMENTOS.COL_SELECIONAR = 1 THEN sData is Date = TABLE_DOCUMENTOS.COL_DATA sDia is string = sData..Day sAno is string = sData..Year sMes is string = sData..Month sDiretorio_Origem is string = CompleteDir(sLocal_XML + sAno + sMes) IF NOT fDirectoryExist(sDiretorio_Origem) THEN fMakeDir(sDiretorio_Origem) END sArquivo_XML is string QRY_XML.p_CNPJ = sCNPJ_Contador QRY_XML.p_DATA = sData HExecuteQuery(QRY_XML,hQueryDefault) sArquivo_XML_ZIP is string = sLocal_XML + sCNPJ_Contador + "_" + sAno + sMes + sDia + ".zip" sArquivo_ZIP is zipArchive zipCreate(sArquivo_ZIP,sArquivo_XML_ZIP) HReadFirst(QRY_XML) WHILE NOT HOut(QRY_XML) SWITCH QRY_XML.tipo_doc CASE 1 : sArquivo_XML = sDiretorio_Origem + QRY_XML.chave_doc + "_" + QRY_XML.modelo + ".xml" CASE 3 : sArquivo_XML = sDiretorio_Origem + QRY_XML.chave_doc + "_CAN_" + QRY_XML.modelo + ".xml" CASE 5 : sArquivo_XML = sDiretorio_Origem + QRY_XML.chave_doc + "_INU_" + QRY_XML.modelo + ".xml" OTHER CASE sArquivo_XML = sDiretorio_Origem + QRY_XML.chave_doc + "_" + QRY_XML.modelo + ".xml" END IF fSaveText(sArquivo_XML, QRY_XML.xml_doc) THEN zipAddFile(sArquivo_ZIP,sArquivo_XML,zipNone) END HReadNext(QRY_XML) END O PROBLEMA é JUSTAMENTE AQUI, o WEBDEV só consegue enviar o 1o, não faz os sequinte IF NoSpace(sArquivo_XML_ZIP) > "" THEN xNOME_ZIP is string = sCNPJ_Contador + "_" + sAno + sMes + sDia FileDisplay(sArquivo_XML_ZIP,typeMimeZIP,xNOME_ZIP) END END END END O que quero é que com o FileDisplay pudesse baixar todos os arquivos gerados. Fico no aguardo
  2. Ola, Bom dia, Boa tarde, Boa noite a Todos os amigos Sou novo em WEBDEV e estou precisando salvar vários arquivos .ZIP ja gerados da seguinte FORMA sARQUIVO_ZIP is string = sMyPASTA_XML + sCNPJ_CLIENTE + "_" + sANO + sMES + sDIA + ".zip" cZIP is zipArchive zipCreate(cZIP,cARQUIVO_ZIP) até aqui beleza, faço os ADD dos XML no ZIP e vai de boa, cria o arquivo... mais são vários arquivos que são criados, mudando apenas o sDIA sNOME_ZIP is string = sCNPJ_CLIENTE + "_" + sANO + sMES + sDIA FileDisplay(sARQUIVO_ZIP,typeMimeZIP,sNOME_ZIP) EU consigo fazer gravar no PC local, apenas UM deles com o comando gostaria de gravar todos os arquivos gerados Já tentei colocar no parâmetro um ARRAY, uma STRING concatenada com CR ou TAB e não deu CERTO... Fico no aguardo dos amigos
  3. Olá, Boa noite meu jovem Acho que o sPedis esta indo com uma vírgula a mais no final, e por incrível que pareça o HExecuteSQLQuery, quando tem uma QUERY STRING mal formatada, com erro de SINTAX ele realmente dá CRASH no sistema. Tente pegar o conteúdo do sPedis depois de concluído via debug, e faça um teste no gerenciador do seu SGDB. Espero ter ajudado.
  4. Ola, Boa tarde amigos e quero gravar o conteúdo dela em um arquivo... exemplo: FuncaoGravaArquivo( nome do arquivo, variável ) Qual seria a Função/Comando ? Fico no aguardo
  5. Janio minha ideia é pegar a ESTRUTURA de uma tabela em um banco de dados e criar um array a partir dele, Por exemplo em POSTGRES SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'estoque' quero pegar o RESULTSET e popular um ARRAY com eles.
  6. Janio, esse é um dilema, muitas vezes crio um array, não sei qual vai ser a sua dimensão. podendo ser { 1, 2, 3 ,4 } { 1, 2 } isso em HARBOUR é transparente, ele não se preocupa.... só que quando EU colocar as dimensões, todas as linhas deverão ter as mesmas dimessões
  7. Ola Meus amigos, é possível criar uma variável array sem informar o seu tamanho e comprimento no Windev... em HARBOUR, basta eu colocar assim aArray := {} << já sei que é um array... mais vazio ai eu posso AADD( aArray, { x, y, z } ) << aqui informei o conteudo