Anthony Ormond

Boa Tarde a todos!!!! Tenho um dbf e não sei qual é sua estrutura, gostaria de exibir em um listbox todo os dados sem saber o numero e nome da colunas existentes. Teria como?? Não sei se fui claro. Desde já, obrigado. Editado por - aormond on 28/01/2009 09:13:58

Cuidado com esses bloqueios, para eu não ficar bloqueado!!!! rs rs rs Editado por - aormond on 12/01/2009 13:37:23

Bom Dia!!! Eu utilizo a PrintFileRaw()tanto para USB ou para a COM e funciona. Editado por - aormond on 31/12/2008 08:31:41

Rs rs rs rs rs rs rs Gostei do zuvido. citação:O gritinho mais estridente, rachou meus zuvidos. Por acaso voce nao esta usando o controle de cor para a linha toda. Oliveira, Sérgio A. PERSONAL Comp. e Sitemas.id=green> id=quote>id=quote>

Qual o erro que está dando?? Dependendo do erro vc pode entrar em contato com o suporte da Daruma para Desenvolvedores http://www.desenvolvedoresdaruma.com.br/home/default.html ou pelo skype

Muito Obrigado a todos, principalmente Marllon, Julio e Luisão. Deu certo, segue o que foi feito. aInd := SqlArray("SHOW INDEX FROM "+cTable+" WHERE Key_name = '"+cNameInd+"'") if Len(aInd) = 0 //retorna que não existe else // retorna que existe endif

Quando efetuo ALERT(INDEX("SHOW INDEX FROM "+cTable+" WHERE Key_mame = "+aNameInd+"")) o retorno é sempre falso. citação:Anthony, Na verdade o SHOW INDEX vai te mostrar todos os índices da tabela em questão, bem como a chave primária e outras informações. Com isso, através da função SQLArray(), vc fazer uma varredura para achar o índice ou fazer dessa forma abaixo: id=code>id=code>-- Júlio César M. Ferreira www.rsconsultores.com.br Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 8.08/ xHarbour 1.1.0/ xDevStudio 0.72/ SQL LIB 1.9/ Pelles 5.00.1 id=quote>id=quote>

Olá Júlio Muito Obrigado pela ajuda. O show index verifica a existencia do índice e caso já exista ele cria novamente?? Eu gostaria de apagar o indice caso ele exista. Gostaria de um exemplo. citação: citação:Estou criando um índice no mysql "CREATE INDEX NOME_INDEX ON NOME_TABELA (COL_TABELA);" O que devo fazer para saber se o indice já existe? Desde já, agradeço pelo ajuda. id=quote>id=quote>Anthony, Vc pode utilizar a seguinte instrução SQL: id=code>id=code>Apesar de que, o MySQL irá criticar caso o nome do índice para a chave já existir! -- Júlio César M. Ferreira www.rsconsultores.com.br Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 8.08/ xHarbour 1.1.0/ xDevStudio 0.72/ SQL LIB 1.9/ Pelles 5.00.1 Editado por - jc on 19/11/2008 15:18:42 id=quote>id=quote> Editado por - aormond on 19/11/2008 15:45:55

Estou criando um índice no mysql "CREATE INDEX NOME_INDEX ON NOME_TABELA (COL_TABELA);" O que devo fazer para saber se o indice já existe? Desde já, agradeço pelo ajuda. Editado por - aormond on 21/11/2008 10:47:50

Estou criando um índice no mysql "CREATE INDEX NOME_INDEX ON NOME_TABELA (COL_TABELA);" O que devo fazer para saber se o indice já existe? Desde já, agradeço pelo ajuda. Editado por - aormond on 21/11/2008 10:47:50

Eu que não Bebo cerveja, não posso ir???? rs rs rs rs rs E os tópicos??? citação: citação:Quais serão os temas?? Geração e Recebimento para nota fiscal eletrônica?? id=quote>id=quote>Gracinha... TEMA PRINCIPAL: CERVEJA, CERVEJA, CERVEJA!id=size5> Antes, durante e depois, o Dr. VAILTON fala um pouquinho do assunto, sem monopolizar o ASSUNTO, que sempre girará em TORNO DA CERVEJAS!! hehehehehehehe. VENS?? HEIM? HEIM?? VAI ESTà DO JEITO QUE O DIABO GOSTA... Abraços João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 14/11/2008 12:02:43 id=quote>id=quote> Editado por - aormond on 14/11/2008 14:53:30

Quais serão os temas?? Geração e Recebimento para nota fiscal eletrônica??

Olá João, pelo que eu sei o cliente faz o cadastro do inventário no site da anvisa, depois disso que o seu sistema começará a preparar o arquivo xml. De uma olhada no exemplo do xml que está no site. http://www.anvisa.gov.br/hotsite/sngpc/esquemas.asp ou Na opção manual do desenvolvedor. http://www.anvisa.gov.br/hotsite/sngpc/sistemas.asp

A anvisa tem incompatilibilidade com alguns navegadores. A Anvisa tem um manual para desenvolvedor que utiliza webservice para transmissão desses arquivos(somente transmissão), mas eu não cheguei a desenvolver. segue o link http://www.anvisa.gov.br/hotsite/sngpc/manual_SNGPC.pdf citação:Olá Anthony, Bom dia. O arquivo está dentro do padrão Shema do SNGPC (ANVISA), inclusive o envio dos arquivos estava normal. Pelo que meu cliente reportou, me parece que o certificado eletrônico de segurança do site é que está com problema, más não tenho certeza disso. Por isso gostaria de saber se alguém está tendo o mesmo problema. Não sei se isto resolve, más gostaria de enviar estes arquivos diretamente da minha aplicação. Se vc ou outro colega puder me ajudar, vou ficar muito grato. Um grande abraço. Edilson. id=quote>id=quote>

É to vendo que neste ano não vai ter o encontro mesmo.

Olá Edilson Bom dia!!!! Se o xml estiver dentro dos padrões da anvisa será enviado normalmente, mas a Anvisa colocou uma notificação no site dizendo que o arquivos estão demorando a ser validados conforme o link abaixo. http://www.anvisa.gov.br/divulga/informes/2008/161008.htm Caso não seja isso descreva o problema.

Resolvido: Nas primeiras linhas da função LancaFalta foi Colocado oLbxFalta:KillFocus() oBtn[1]:SetFocus() Luiz obrigado pela ajuda, o problema não estava na função lança falta, pois ao desabilitar a função Grid(Xbrowse) funcionava normalmente.

Boa Tarde a todos!!!! Tenho uma tela com um botao e um xBrowse. Assim que eu abro minha tela o foco vai para o xBrowse, se eu tentar executar o botão pela tecla de atalho e não consigo mudar o registro anterior, isto é, mesmo que eu ocorra um seek dentro do botão ele sempre retorna o registro anterior. Obs: Se eu for com o mouse em cima do botão funciona perfeitamente. Espero que tenha sido claro. Desde já, muito obrigado. Define Dialog oDlgFalta Resource "TESTE" of oWnd Redefine ButtonBmp oBtn[1]; id 101; of oDlgFalta; prompt "&Incluir "; bitmap "Novo24"; Action LancaFalta("I"); TEXTRIGHT grid() Activate dialog oDlg centered Return .t. ************************************************** *********************** static procedure Grid() *********************** Local oCol select COMPRA dbgotop() //-- Grid oLbxFalta := TXBrowse():New( oDlgFalta ) oLbxFalta:CreateFromResource( 201 ) oLbxFalta:cAlias := 'COMPRA' oLbxFalta:lUpdate := .T. //-- Colunas oCol:= oLbxFalta:AddCol() oCol:bStrData := { || COMPRA->PRODUTO } oCol:cHeader := "Código" oCol:nWidth := 40 oCol:= oLbxFalta:AddCol() oCol:bStrData := { || COMPRA->DESCRICAO } oCol:cHeader := "Produto" oCol:nWidth := 250 oCol:= oLbxFalta:AddCol() oCol:bStrData := { || COMPRA->EUNIDADE} oCol:cHeader := "UN" oCol:nWidth := 22 oCol:= oLbxFalta:AddCol() oCol:bStrData := { || transform(COMPRA->QUANTIDADE,Mascara()) } oCol:cHeader := "Sugestão" oCol:nWidth := 65 oCol:nDataStrAlign := AL_RIGHT oCol:= oLbxFalta:AddCol() oCol:bStrData := { || transform(COMPRA->ESTOQUE,Mascara()) } oCol:cHeader := "Estoque" oCol:nWidth := 65 oCol:nDataStrAlign := AL_RIGHT oCol:= oLbxFalta:AddCol() oCol:bStrData := { || transform(COMPRA->QTVENDA,Mascara()) } oCol:cHeader := "Venda" oCol:nWidth := 65 oCol:nDataStrAlign := AL_RIGHT oCol:= oLbxFalta:AddCol() oCol:bStrData := { || transform(COMPRA->PRECO,Mascara(.T.)) } oCol:cHeader := "Preço" oCol:nWidth := 75 oCol:nDataStrAlign := AL_RIGHT return nil

Boa Tarde a todos!!!! Tenho uma tela com um botao e um xBrowse. Assim que eu abro minha tela o foco vai para o xBrowse, se eu tentar executar o botão pela tecla de atalho e não consigo mudar o registro anterior, isto é, mesmo que eu ocorra um seek dentro do botão ele sempre retorna o registro anterior. Obs: Se eu for com o mouse em cima do botão funciona perfeitamente. Espero que tenha sido claro. Desde já, muito obrigado. Define Dialog oDlgFalta Resource "TESTE" of oWnd Redefine ButtonBmp oBtn[1]; id 101; of oDlgFalta; prompt "&Incluir "; bitmap "Novo24"; Action LancaFalta("I"); TEXTRIGHT grid() Activate dialog oDlg centered Return .t. ************************************************** *********************** static procedure Grid() *********************** Local oCol select COMPRA dbgotop() //-- Grid oLbxFalta := TXBrowse():New( oDlgFalta ) oLbxFalta:CreateFromResource( 201 ) oLbxFalta:cAlias := 'COMPRA' oLbxFalta:lUpdate := .T. //-- Colunas oCol:= oLbxFalta:AddCol() oCol:bStrData := { || COMPRA->PRODUTO } oCol:cHeader := "Código" oCol:nWidth := 40 oCol:= oLbxFalta:AddCol() oCol:bStrData := { || COMPRA->DESCRICAO } oCol:cHeader := "Produto" oCol:nWidth := 250 oCol:= oLbxFalta:AddCol() oCol:bStrData := { || COMPRA->EUNIDADE} oCol:cHeader := "UN" oCol:nWidth := 22 oCol:= oLbxFalta:AddCol() oCol:bStrData := { || transform(COMPRA->QUANTIDADE,Mascara()) } oCol:cHeader := "Sugestão" oCol:nWidth := 65 oCol:nDataStrAlign := AL_RIGHT oCol:= oLbxFalta:AddCol() oCol:bStrData := { || transform(COMPRA->ESTOQUE,Mascara()) } oCol:cHeader := "Estoque" oCol:nWidth := 65 oCol:nDataStrAlign := AL_RIGHT oCol:= oLbxFalta:AddCol() oCol:bStrData := { || transform(COMPRA->QTVENDA,Mascara()) } oCol:cHeader := "Venda" oCol:nWidth := 65 oCol:nDataStrAlign := AL_RIGHT oCol:= oLbxFalta:AddCol() oCol:bStrData := { || transform(COMPRA->PRECO,Mascara(.T.)) } oCol:cHeader := "Preço" oCol:nWidth := 75 oCol:nDataStrAlign := AL_RIGHT return nil

No meu caso eu só uso para criar o xml, para ler eu não fiz testes. citação:No caso ela só escreve... correto? Para ler e coletar dados vc usa outra classe ? Flow Um Xharbraço. Uso Fwh 2.5 (xharbour 0.99.3) e Xmate Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-32387012 Belem-PA id=quote>id=quote>

Bom dia a todos!!! Eu utilizo essa classe e funciona muito bem. citação:Olá Jeferson, Fiz um teste com essa classe há alguns meses atrás, ela é bem básica, serve para te dar uma noção de como criar arquivo XML, más tive mesmo que criar o arquivo XML pra ANVISA (SNGPC) na unha. Um grande abraço do seu vizinho (Maranhão). Edilson. FW 2.3, xHarbour 0.99.4, xDev, Workshop. id=quote>id=quote>

Bom dia a todos!!! Alguem sabem se é possivel descobrir o Volume(Vol) do Hd via programação??? Desde já, obrigado. Editado por - aormond on 05/07/2008 12:05:15

Bom dia a todos!!! Alguem sabem se é possivel descobrir o Volume(Vol) do Hd via programação??? Desde já, obrigado. Editado por - aormond on 05/07/2008 12:05:15

Parabéns Kapiaba!!!!

Rs rs rs rs rs rs rs, sem comentários...... E tinha que perder justamente na final. citação: citação:Depois de ontem perder por 2x0, falta garra, falta a camisa rocha, faltou 1 tecnico de futebol, Conclusao: Acho que agora e o fim, a nao ser que contrate um outro tecnico de Futebol, Sendo que no sabado ganhou do barueri por 4x1 entao o time reserva, e que deveria jogar pois estes jogadores monstraram garra, e que nem a selecao brasileira cheio de estrangeiros, , que perdem para a venezuela por 2x0. olha a decepcao que vem por ai, estamos sujeitos a um vexame pedro alceu11@yahoo.com.br OU pedro31759@hotmail.com CLIPPER 52D E BLINKER7 VISUAL LIB e QUERO IR PARA O FIVE WIN id=quote>id=quote> Alceu, você está mais REVOLTADO, que os CORINTHIANOS. KKKKKKKKKKKKKK. Não se ganha todas... Alguém tem que perder um dia. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote> Editado por - aormond on 12/06/2008 13:49:27