vagner

Olá Pessoal, Alguém sabe se é possível mandar impressão para uma impressora TCP/IP, sem necessariamente ela estar instalada no windows ? Ou seja ela está na rede, mas eu gostaria de mandar sem ir para o spoller do windows Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Bom, eu montei a minha própria rotina (já que só uso boleto itaú e bradesco), mas parece que existe um harboleto ou algo assim Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Imagina então como ficaria a NFAe (Nota Fiscal Avulsa Eletrônica), onde o emissor é sempre o mesmo mas a nota sai no nome do responsável Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Bom Dia pessoal, aproveitando o topico. Estou imprimindo etiqueta na argox os214, são 4 colunas, até ai tudo bem, imprime sem problemas, mas no começo (qdo comecei a usar a impressora) ao final da impressão, a impressora se posicionava para que o usuario corte a etiqueta e depois voltava sozinho qdo envia outra impressão, mas agora não esta fazendo isto mais, e não consegui achar o motivo. ALGUEM AI SABE E PODE ME AJUDAR? Obgdo. id=quote>id=quote>Olá, Você está passando os comandos corretos ? essa impressora usa a linguagem PPL ? Veja se consegue imprimir isso cManda := "" + Chr(13) cManda += "L" + Chr(13) cManda += "D11" + Chr(13) cManda += "H09" + Chr(13) cManda += "c0000"+ Chr(13) cMand1 := "" //Quantidade cMand1 += "121100000750010" + Left(AllTrim(cNom_Clie)+Space(40),25)+ Chr(13) cMand1 += "121100000630010" + SemAcentos(AllTrim(Iif(PedidoCb->Qua_Ende,cCid_Entr,cCid_Auxi)))+"/"+Iif(PedidoCb->Qua_Ende,cEst_Entr,cEst_Auxi) + Chr(13) cMand1 += "121100000510010" + Cnpj_Cpf(RetornaDados("Cliente1",PedidoCb->Cod_Clie,"Cgc_Clie"))+ Chr(13) cMand1 += "131100000200010CODIGO : "+cCod_Clie+ Chr(13) cMand1 += "Q1" + Chr(13) cMand1 += "E" + Chr(13) cMand1 += Chr(2) + "f320" cArq := FCreate(cPrnPorta) FWrite(cArq,cManda+cMand1) FClose(cArq) id=code>id=code>Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Negativo, aqui na empresa, temos 3 Cnpj e somente um endereço físico, o que nos dá o mesmo número de IP Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

O marido e a mulher conversam: - Querida, nós éramos tão felizes trinta anos atrás. - Mas amor, naquela época nós nem éramos casados... - Por isso mesmo, meu bem! Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Gente não vamos matar o tópico , deixem as brincadeiras para o off por favor, senão vão começar a avacalhar tudo Bom fim de semana pra todos Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Sempre usei desta forma: If Empty(Select("Venda") ) DBUseArea(.T.,"DBFCDX","SGOVEN","Venda",Modo,.F.) If !NetErr() Venda->(OrdListAdd("Vendas")) // DocVen,DatVen,CpfVen,CopVen Else MsgAlert(" Arquivo: Registro de vendas ","Abrir Arquivos") Endif Endif Nunca tive problemas de alocação de área Crisvam - xHarbour_FWH_10.11 - Whorkshop id=quote>id=quote>Olá Crisvam, Estamos falando de arquivos em memória Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Concordo com o Eduardo Motta, O pessoal que usa área fixa, precisa mudar o conceito, além do que vc está forçando uma área que pode não ser a melhor para o processador no momento. Além do que fazendo desse jeito que o EMotta colocou funciona, mas teria que montar dentro de um for next e só fechar as outras áreas qndo vc chegar na área 120 como vc está querendo , o que vai deixar o processo lento ao invés de muito rápido como é o caso do arquivo temporário Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Se vc souber como pegar o seu IP (function(){ var info = document.getElementById('info'); var lat = geoip_latitude(); var lon = geoip_longitude(); var city = geoip_city(); var out = ' Informações para seu IP'+ ' '+ ' Latitude: ' + lat + ''+ ' Longitude: ' + lon + ''+ ' Cidade: ' + city + ''+ ' Cód. Região: ' + geoip_region() + ''+ ' Região: ' + geoip_region_name() + ''+ ' Código do País: ' + geoip_country_code() + ''+ ' Nome do País: ' + geoip_country_name() + ''+ ' '; info.innerHTML = out; var url = 'http://maps.google.com/maps/api/staticmap?center='+ lat+','+lon+'&sensor=false&size=300x300&maptype=roadmap&key='+ 'ABQIAAAAijZqBZcz-rowoXZC1tt9iRT2yXp_ZAY8_ufC3CFXhHIE1NvwkxQQBCa'+ 'F1R_k1GBJV5uDLhAKaTePyQ&markers=color:blue|label:I|'+lat+ ','+lon+'6&visible='+lat+','+lon+'|'+(+lat+1)+','+(+lon+1); var map = document.getElementById('map'); map.innerHTML = ''; })(); id=code>id=code>Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Ana, boa noite. Você somente saberá se tem algum problema (seja no compilador ou na sua rotina) ao isolar a situação. Por exemplo, você poderia isolar este código e rodar em modo console, notei que você colocou um trecho onde apresentou o problema, mas precisaríamos ver como o alias Clientes foi aberto, qual a expressão do SET ORDER TO etc ... enfim, só analisando a situação por completo ou isolando um exemplo simples demonstrando o problema. No trabalho com o FW já tive sim problemas de "falhas" deste tipo, mas foi devido a forma de desenvolvimento da rotina e o culpado no meu caso foi o SysRefresh. NÃO ENTENDAM COMO PROBLEMA DA FUNÇÃO SYSREFRESH!!! O problema foi numa rotina que fazia um WHILE no mesmo ALIAS que estava num BROWSE, ao executar o SYSREFRESH o Windows mandou uma mensagem para atualizar os controles e quem recebeu este comando??? o BROWSE, que reposicionou meu WHILE ... Talvez não ajude em nada esta informação, mas foi uma situação que eu encontrei uma falha de programação. Você poderia também nos informar qual o RDD e versão do compilador? Boa sorte em sua análise. Alexandre id=quote>id=quote>Por isso mesmo, perguntei se há um timer no sistema, ou algo assim, já tive problemas por causa de um "correio interno" onde eu com um timer lia se havia mensagens para o usuário e os arquivos se reposicionavam, aí montei uma função para pegar a ordem de todos os arquivos, e depois de executar a rotina retorna a ordem Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Bom, vamos por partes então 1ªmente, vc abre seu arquivos no início do programa ? 2ªmente, vc usa dialog ou window para apresentação de tela ? 3ªmente, vc possui temporizadores no seu programa que executem alguma outra função ? 4ªmente, vc não está fazendo chamadas recursivas nessa mesma função/procedure ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Tente Colocar AllTrim(CampodoBanco) == AllTrim(Variavel) Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, SELECT BancoDeDados SET ORDER TO Ordem Veja se não existe algum scope(), nessa ordem, não esqueça que se vc abre o arquivo no início do programa, ele mantem sempre até a saida, então se fez um scope, retire BancoDeDados->(DbGoTop()) SEEK Variavel ? Found() ou ? BancoDeDados->(DbSeek(Variavel)) DO WHILE !EOF() .AND. CampoDoBanco == Variavel (...) SKIP ENDDO id=code>id=code>Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, @ 01,01 ListBox oBrow Fields aMatriz[oBrow][1],aMatriz[oBrow][2]... oBrow:SetArray(aMatriz) Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Function Main() Private Var1,Var2,Var3,Var4 Var1 := "(N01+N02)/0.78" Var2 := "N05+N06+N07-12.15" Var3 := "(N60/N61^2" Var4 := "N60/Var3" ... seu codigo que substitui o N01,N02,N05,N06,N07,N60,N61 por valores... ... Var1 := &Var1 Var2 := &Var2 Var3 := &Var3 Var4 := &Var4 ? "Resultados" ? Var1 ? Var2 ? Var3 ? Var4 citação:Extraio de um texto as seguintes expressões: Var1 := "(N01+N02)/0.78" Var2 := "N05+N06+N07-12.15" Var3 := "(N60/N61^2" Var4 := "N60/Var3" já consegui substituir as variaveis N?? pelos numeros certos, mas resolver as equações que tá osso. Alguma idéia ? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD id=quote>id=quote>Vai dar pau no VAR3, está faltando fechar ")" Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

— Papai, hoje eu coloquei dinamite debaixo da cadeira da professora! — Seu desgraçado! Vai já para a escola e peça desculpas a sua professora! — Escola? Que escola? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Right Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Veja se ajuda: Local cFimf := Chr(13)+chr(10),cnHandle Fwrite(cnHandle, "TESTE"+cFimf) id=code>id=code>João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Desse jeito não vai ajudar não Precisa abrir e depois fechar nHadler := FOpen("SeuArquivoTeste.Txt") FWrite(nHandler,"Teste"+CRLF) FClose(nHandler) Ou poderia Fazer com o MemoWrit("SeuArquivoTeste.Txt","Teste"+CRLF) Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Fladimir, Pode mandar para vwirts@terra.com.br, obrigado Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Fladimir, Eu agradeço, estou me matando com uma não fiscal, não encontrei exemplos, só encontrei um exemplo de uma epson, (parece que essa olivetti, simula essa epson), mas fico agradecido se conseguir Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Alguém trabalha com essa impressora ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Alguém trabalha com essa impressora ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Com certeza dará erro O xTranslate, irá converter o seu comando para o que está na frente na hora da compilação ou seja : #xtranslate ^ => .AND. If a ^ b , na compilação fica If A .and. B Que é diferente da execução com a macro, que não vai existe Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Não Entendi, Mas vc pode usar o seu campo * seu percentual acrescido de 1 ex.: SeuValor := 2,00 SeuPerce := 0.10 == 10% SeuValor*(1+SeuPercen) Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"