atnsoft

Pessoal boa tarde, Em um laboratorio(cliente) tenho 9 impressoras Argox OS214 instaladas, 5 delas usando um soft meu. Hoje, o patrao trocou as etiquetas normais+ribbon para etiquetas termicas. No meu soft imprime 1 etiqueta e a impressora entra em falha, piscando os dois leds frontais. Nas outras funcionou normalmente. Pergunta: Tem alguma coisa a ser mudada nos comandos abaixo para a impressora passar a imprimir em etiquetas termicas ? oPrn:Say(oPrn:nRow+01,01,Chr(2)+"L") // //oPrn:Say(oPrn:nRow+01,01,Chr(2)+"K170") Jà TENTEI ISSO AKI, MAS NAO FUNFOU........... // oPrn:Say(oPrn:nRow+01,01,"D11") oPrn:Say(oPrn:nRow+01,01,"H"+StrZero(lDens,2,0)) oPrn:Say(oPrn:nRow+01,01,"131000000960008"+LletiL+Wcodigo) oPrn:Say(oPrn:nRow+01,01,"121000001000085"+" - "+Wnome) oPrn:Say(oPrn:nRow+01,01,"121000000840008"+WnomeN) oPrn:Say(oPrn:nRow+01,01,"121000000760008") oPrn:Say(oPrn:nRow+01,01,"121000000720008"+Wind[Conta]) oPrn:Say(oPrn:nRow+01,01,"121000000600008") oPrn:Say(oPrn:nRow+01,01,"121000000480008"+Aveco[Conta]) oPrn:Say(oPrn:nRow+01,01,"1A0002000010027"+LletiL+Ltrim(Str(Val(Wcodigo),8,0))) oPrn:Say(oPrn:nRow+01,01,"Q0001") oPrn:Say(oPrn:nRow+01,01,"E") id=code>id=code>Grato, AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pessoal boa tarde, Em um laboratorio(cliente) tenho 9 impressoras Argox OS214 instaladas, 5 delas usando um soft meu. Hoje, o patrao trocou as etiquetas normais+ribbon para etiquetas termicas. No meu soft imprime 1 etiqueta e a impressora entra em falha, piscando os dois leds frontais. Nas outras funcionou normalmente. Pergunta: Tem alguma coisa a ser mudada nos comandos abaixo para a impressora passar a imprimir em etiquetas termicas ? oPrn:Say(oPrn:nRow+01,01,Chr(2)+"L") // //oPrn:Say(oPrn:nRow+01,01,Chr(2)+"K170") Jà TENTEI ISSO AKI, MAS NAO FUNFOU........... // oPrn:Say(oPrn:nRow+01,01,"D11") oPrn:Say(oPrn:nRow+01,01,"H"+StrZero(lDens,2,0)) oPrn:Say(oPrn:nRow+01,01,"131000000960008"+LletiL+Wcodigo) oPrn:Say(oPrn:nRow+01,01,"121000001000085"+" - "+Wnome) oPrn:Say(oPrn:nRow+01,01,"121000000840008"+WnomeN) oPrn:Say(oPrn:nRow+01,01,"121000000760008") oPrn:Say(oPrn:nRow+01,01,"121000000720008"+Wind[Conta]) oPrn:Say(oPrn:nRow+01,01,"121000000600008") oPrn:Say(oPrn:nRow+01,01,"121000000480008"+Aveco[Conta]) oPrn:Say(oPrn:nRow+01,01,"1A0002000010027"+LletiL+Ltrim(Str(Val(Wcodigo),8,0))) oPrn:Say(oPrn:nRow+01,01,"Q0001") oPrn:Say(oPrn:nRow+01,01,"E") id=code>id=code>Grato, AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Judson, atualize os drives do Win7, ao que parece é o mesmo problema que passei por aqui. (Cache de disco). Na Verdade, só consegui trocando o Win7 pelo Server 2003. Outras encrencas que tive com o Win7 como servidor: -Perda de mapeamento constante, -Não atualiza em tempo real (nosso caso), -Erro qdo volume de gravação muito constante, -Erro ao copiar qdo tamanho do arquivo sup. a 800Mb(nao testei outros). E o interessante que mantive exatamente a mesma maquina ao trocar o SO. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Alexandre, grato pela atenção. Ao que parece, esta empresa mudou o foco, quem está à frente do que preciso é Data Innovations Latin America Ltda. Ps Como o Marsan avisou: é cara pra chuchu. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Alexandre, agredeço e fico no aguardo. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Alguem do Rio já ouviu falar da MB&A ? Preciso entrar em contato com esse Sr aí: (Email retorna e fone não atende). Assunto: Titan Interface. Algum já viu alguma coisa sobre isso? (interfaceamento de equipamentos laboratoriais) MB&A - Marcelo Botelho & Associados S/C Ltda - SISTEMA TITAN Rua São José, 40 - 4° andar - Centro - Rio de Janeiro - RJ - Telefone (021) 7837-0864 - Fax (021) 3231-9009 - Email : info@marcelo-botelho.com AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Alguem do Rio já ouviu falar da MB&A ? Preciso entrar em contato com esse Sr aí: (Email retorna e fone não atende). Assunto: Titan Interface. Algum já viu alguma coisa sobre isso? (interfaceamento de equipamentos laboratoriais) MB&A - Marcelo Botelho & Associados S/C Ltda - SISTEMA TITAN Rua São José, 40 - 4° andar - Centro - Rio de Janeiro - RJ - Telefone (021) 7837-0864 - Fax (021) 3231-9009 - Email : info@marcelo-botelho.com AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Verifique as portas e as configurações do postgres em postgresql.conf (depende da versao, pg_hba.conf) CONNECTIONS AND AUTHENTICATION port = 5432 (eu acho, sei que no mysql é 3306 Vi isso num livro, mas é pra ser isso. ou tente aqui tambem: http://pgfoundry.org/pipermail/brasil-usuarios/2006-January/000939.html AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Que este Natal e Ano Novo sejam mais do que confraternizações porque todos os momentos, em especial este novo ano, deverão ser iluminados, abençoados e que os 365 dias, sejam vividos na sua totalidade. Já que Natal significa: NASCER, nasçamos então dia 25, para que os doze vinte e cinco vindouros, sejam a busca da paz, conquista, compreensão, reflexão, prosperidade. Feliz Natal e Ano Novo! E um muito obrigado a todos os meus amigos deste forum. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Que este Natal e Ano Novo sejam mais do que confraternizações porque todos os momentos, em especial este novo ano, deverão ser iluminados, abençoados e que os 365 dias, sejam vividos na sua totalidade. Já que Natal significa: NASCER, nasçamos então dia 25, para que os doze vinte e cinco vindouros, sejam a busca da paz, conquista, compreensão, reflexão, prosperidade. Feliz Natal e Ano Novo! E um muito obrigado a todos os meus amigos deste forum. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

@ 05.7,50.5 Button " xxxxxxxxxxxxxxxa " OF oDlg Size 50,12 Action(oTexto:Paste( "TESTE DE ESCRITA" ), oTexto:SetFocus()) AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Se for variavel: LenNum() : Returns the number of characters a numeric value needs for display. Syntax LenNum( ) --> nLength Arguments A numeric value. Return value The function returns a numeric value. It is the number of characters required to display the numeric value, including the decimal point. Description LenNum() is a utility function that calculates the number of characters a numeric value needs for display. It is an abbreviation for the expression Len( LTrim( Str( ) ) ). Examples // The example shows various results of LenNum() PROCEDURE Main ? LenNum( 1 ) // result: 1 ? LenNum( 10 ) // result: 2 ? LenNum( 100 ) // result: 3 ? LenNum( 1000 ) // result: 4 ? LenNum( 10.1 ) // result: 4 ? LenNum( 100.12 ) // result: 6 ? LenNum( 1000.123 ) // result: 8 ? LenNum( 0.1 ) // result: 3 ? LenNum( 0.01 ) // result: 4 ? LenNum( 0.001 ) // result: 5 ? LenNum( 0.0001 ) // result: 6 RETURN id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Giovany, os bancos não são dbfs e sim adm e adt. como proceder neste caso? O programa abre, mostra a tela de erro e somente o primeiro registro do arquivo. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Tenho um cliente que usa em seu programa o ADS, mas tá dando o seguinte erro: Error 7010: Problem with Advantage server file read. Já enviei os bancos para o desenvolvedor, mas faz mais de 3 meses e nenhum retorno do mesmo. Baixei o ACE32.exe para ver se conseguia contornar isso, mas dá o mesmo erro. Tem alguma coisa que eu possa fazer ou algum utilitário para reparo do banco ADS? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 02/12/2011 17:01:27

Tenho um cliente que usa em seu programa o ADS, mas tá dando o seguinte erro: Error 7010: Problem with Advantage server file read. Já enviei os bancos para o desenvolvedor, mas faz mais de 3 meses e nenhum retorno do mesmo. Baixei o ACE32.exe para ver se conseguia contornar isso, mas dá o mesmo erro. Tem alguma coisa que eu possa fazer ou algum utilitário para reparo do banco ADS? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 02/12/2011 17:01:27

Alguem fez a Tuss (antiga Tiss, acho) para laboratorios analises clinicas ? Caso afirmativo, onde consigo o layout para tal. Desde já agradeço. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Alguem fez a Tuss (antiga Tiss, acho) para laboratorios analises clinicas ? Caso afirmativo, onde consigo o layout para tal. Desde já agradeço. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Boa tarde, Como posso unir um ou varios textos formatados com Format Get Tipo: Vtexto := Vtexto + Vmanual e assim tb: Vtexto := Vtexto + "------------------------"+vmanual Já olhei o Fget.prg inteiro e tentei com bloco, settext, copy, cut, etc e ele só me traz o primeiro texto. Ó Céus, ó vida............... AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Boa tarde, Como posso unir um ou varios textos formatados com Format Get Tipo: Vtexto := Vtexto + Vmanual e assim tb: Vtexto := Vtexto + "------------------------"+vmanual Já olhei o Fget.prg inteiro e tentei com bloco, settext, copy, cut, etc e ele só me traz o primeiro texto. Ó Céus, ó vida............... AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Dependo do programa, as vezes basta chama-lo por um arquivo bat ou talvez assim: -Execute o "gpedit.msc" -Abra "Configurações do Usuário" -"Modelos Administrativos" -"Componentes do Windows" -"Gerenciador de Anexos" lista de inclusão de tipos de arquivo de baixo risco Tente bye AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Com indice pela consulta + array AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Onde posso consultar comandos e funcoes do (x)harbour ? Sem querer achei um que me poupou trocentas linhas de programação. PS: Às vezes por desconhecimento, tentamos fazer as coisas no velho e tradicional comandos do clipper. Grato AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 11/11/2011 20:11:27

Onde posso consultar comandos e funcoes do (x)harbour ? Sem querer achei um que me poupou trocentas linhas de programação. PS: Às vezes por desconhecimento, tentamos fazer as coisas no velho e tradicional comandos do clipper. Grato AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 11/11/2011 20:11:27

Ola, utilizo a bastante tempo. Acho que não existe a config. de numero de prgs a compilar. Lembre-se de colocar o principal como primeiro. Acho que o erro que vc esta tendo é ref. a erro no arquivo de projeto. Apague-o e faça do principio novamente. Qtos prgs vc está colocando? O maximo que já coloquei foram 58. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Prn:Say(oPrn:nRow+01, 01, 'H12111100700320030'+alltrim(Vdesc)) (Preciso de um melhor destaque) id=code>id=code>experimente trocar para isso: Prn:Say(oPrn:nRow+01, 01, 'H13id=red>111100700320030'+alltrim(Vdesc)) (Preciso de um melhor destaque) id=code>id=code>PS: o H aí nao é somente usado para a densidade (Aquecimento) ? Eu uso em algumas aqui (Cash way) o H7 e outras H9 mas nunca precisou aumentar mais que isso e uso direto assim: if Len(Wind) > 0 for Conta := 1 to Len(Wind) oPrn:Say(oPrn:nRow+01,01,Chr(2)+"L") oPrn:Say(oPrn:nRow+01,01,"D11") oPrn:Say(oPrn:nRow+01,01,"H"+StrZero(lDens,2,0)) if (LporLan = "1") oPrn:Say(oPrn:nRow+01,01,"131000000960008"+LletiL+Wcodigo) oPrn:Say(oPrn:nRow+01,01,"121000001000085"+" - "+Wnome) oPrn:Say(oPrn:nRow+01,01,"121000000840008"+WnomeN) oPrn:Say(oPrn:nRow+01,01,"121000000760008") oPrn:Say(oPrn:nRow+01,01,"121000000720008"+Wind[Conta]) oPrn:Say(oPrn:nRow+01,01,"121000000600008") oPrn:Say(oPrn:nRow+01,01,"121000000480008"+Aveco[Conta]) oPrn:Say(oPrn:nRow+01,01,"1A0002000010027"+LletiL+Ltrim(Str(Val(Wcodigo),8,0))) else oPrn:Say(oPrn:nRow+01,01,"431000000090030"+LletiL+Wcodigo) oPrn:Say(oPrn:nRow+01,01,"421000000800028"+" - "+Wnome) oPrn:Say(oPrn:nRow+01,01,"421000000090043"+WnomeN) oPrn:Say(oPrn:nRow+01,01,"421000000090050") oPrn:Say(oPrn:nRow+01,01,"421000000090060"+Wind[Conta]) oPrn:Say(oPrn:nRow+01,01,"421000000090070") oPrn:Say(oPrn:nRow+01,01,"421000000090095"+Aveco[Conta]) oPrn:Say(oPrn:nRow+01,01,"4A0002000190128"+LletiL+Ltrim(Str(Val(Wcodigo),8,0))) endif oPrn:Say(oPrn:nRow+01,01,"Q0001") oPrn:Say(oPrn:nRow+01,01,"E") Next endif else //Zebra For Conta := 1 to Ttam if ! empty(Vqual[conta]) oPrn:Say(oPrn:nRow+01,00,"I8,A,001"+lEnter) oPrn:Say(oPrn:nRow+01,00,"Q240,019"+lEnter) oPrn:Say(oPrn:nRow+01,00,"q448"+lEnter) oPrn:Say(oPrn:nRow+01,00,"rN"+lEnter) oPrn:Say(oPrn:nRow+01,00,"S4"+lEnter) oPrn:Say(oPrn:nRow+01,00,"D"+StrZero(lDens,2,0)+lEnter) oPrn:Say(oPrn:nRow+01,00,"ZT"+lEnter) oPrn:Say(oPrn:nRow+01,00,"JF"+lEnter) oPrn:Say(oPrn:nRow+01,00,"O"+lEnter) oPrn:Say(oPrn:nRow+01,00,"R111,0"+lEnter) oPrn:Say(oPrn:nRow+01,00,"f100"+lEnter) oPrn:Say(oPrn:nRow+01,00,"N"+lEnter) if (LporLan = "1") oPrn:Say(oPrn:nRow+01,00,'A486,200,2,1,2,3,N,"'+LletiL+Wcodigo+'"'+lEnter) oPrn:Say(oPrn:nRow+01,00,'A234,195,2,1,1,2,N,"'+Wnome+'"'+lEnter) oPrn:Say(oPrn:nRow+01,00,'A482,154,2,1,1,2,N,"'+Capitular(WnomeN)+'"'+lEnter) oPrn:Say(oPrn:nRow+01,00,'A484,125,2,1,1,2,N,"'+Lower(Vqual[Conta])+'"'+lEnter) etc....... id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR