Paulo1361303230

Obrigado! Se possível vou tentar até através de sinal de fumaça. rsrsrs José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Lailton, bom dia (Ou boa tarde e boa noite) conforme o caso. Há uns dois anos atrás ou mais, voce forneceu para mim uma rotina para utilização de FTP. (lFtp.lib) Apliquei em meu sistema essa rotina e vem funcionando muito bem, portanto não gostaria de modificar para outros meios. O único porem, é que quando ocorre uma falha no FTP é enviada a seguinte mensagem "ERRO AO CONECTAR AO FTP", portanto é necessário utilizar a tecla para retornar ao sistema e reconectar. Seria possível de voce eliminar essa mensagem? Fico no aguardo do seu contato Obrigado Paulo Essa mensagem foi enviada para alguns e-mails do Lailton porem todos foram devolvidos. Espero que através deste tópico obtenha alguma resposta do mesmo. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - Paulo on 10/10/2012 13:38:30 Editado por - Paulo on 10/10/2012 13:39:16 Editado por - Paulo on 10/10/2012 13:40:20

Lailton, bom dia (Ou boa tarde e boa noite) conforme o caso. Há uns dois anos atrás ou mais, voce forneceu para mim uma rotina para utilização de FTP. (lFtp.lib) Apliquei em meu sistema essa rotina e vem funcionando muito bem, portanto não gostaria de modificar para outros meios. O único porem, é que quando ocorre uma falha no FTP é enviada a seguinte mensagem "ERRO AO CONECTAR AO FTP", portanto é necessário utilizar a tecla para retornar ao sistema e reconectar. Seria possível de voce eliminar essa mensagem? Fico no aguardo do seu contato Obrigado Paulo Essa mensagem foi enviada para alguns e-mails do Lailton porem todos foram devolvidos. Espero que através deste tópico obtenha alguma resposta do mesmo. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - Paulo on 10/10/2012 13:38:30 Editado por - Paulo on 10/10/2012 13:39:16 Editado por - Paulo on 10/10/2012 13:40:20

Saudações à todos Existe alguma forma de facilmente convertermos um determinado arquivo com extensão XML para DBF? Obrigado José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - Paulo on 27/09/2012 08:36:37

Saudações à todos Existe alguma forma de facilmente convertermos um determinado arquivo com extensão XML para DBF? Obrigado José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - Paulo on 27/09/2012 08:36:37

Obrigado João. Examinei todas as dicas, porem não obtive êxito. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Alguns dos colegas já desenvolveram algo específico para a Impressora não fiscal Bematech MP-2500TH USB utilizando a classe TDOSPRN? Não conseguí fazer a mesma funcionar até o momento. Obrigado. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Alguns dos colegas já desenvolveram algo específico para a Impressora não fiscal Bematech MP-2500TH USB utilizando a classe TDOSPRN? Não conseguí fazer a mesma funcionar até o momento. Obrigado. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Bom dia! Ainda tem como realizar a inscrição? Se houver essa possibilidade, aguardo instruções para pagamento inclusive da localidade e horário do evento. Mais uma vez estive muito tempo ausente devido a problemas de saude. Se não houver jeito, sem problemas. Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Antenor, bom dia ou (boa tarde, boa noite conforme o caso rsrsrsr) Agradeço-lhe pela atenção, realizei a modificação como voce sugeriu, porem ficou na mesma. Talvez eu esteja é querendo demais, pois a impressão está legível e visível e conforme a fonte que escolhí (1) talvez ela tenha os seus limites máximos. Obrigado! José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

As duas últimas postagens, correspondem à dúvidas anteriores que já foram esclarecidas mediante ajustes para PPLA, agora prevalecendo a dúvida inicial deste tópico. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Geovane, bom dia! Essa parte de pular as etiquetas iniciais conseguí resolver, o problema maior é que de uma etiqueta para outra, ocorrem diferenças de décimos de mm, ou seja, as etiquetas não ficam uniformes. Consultando o Gilmer, ele disse-me que devo desenvolver na própria linguagem da impressora que seria PPLA. Por hora obrigado! José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Prezados colegas! Conseguí desenvolver a função para emissão de etiquetas específicas para bijouterias, cujas dimensões é de 23x11mm para cada coluna da etiqueta. Sendo que na coluna da esquerda vai a descrição do produto e o código de barras correspondente e na coluna da direita vai o preço de venda do produto destacado. O único inconveniente, é que a descrição do produto está precisando de um melhor realce pois algumas letras ficam semi-apagadas. Alguem poderia informar qual seria o procedimento para um melhor realce? Onde será que errei? O que poderá estar faltando? Segue o fonte; ****************************************** function bij23x(oLbx) ****************************************** Local oDlg if MsgNoYes("Iniciar a emissão das etiquetas?","Produtos") oPrn := TdosPrn():New("LPT1") do while .not. eof() oPrn:SetCoors(00,00) oPrn:Say(oPrn:nRow+01, 01, chr(2)+'L') oPrn:Say(oPrn:nRow+01, 01, 'H12'+chr(13)) oPrn:Say(oPrn:nRow+01, 01, 'D11'+chr(13)) // tamanho do pixel Vcodi:= str(codprod,7) wde1 :=len(alltrim(descric)) wdesc:=subs(descric,1,21)+repli('>',21-wde1) Vdesc:=wdesc Vvalo:='R$ '+alltrim(str(valvend,12,2)) oPrn:Say(oPrn:nRow+01, 01, 'H12111100700320030'+alltrim(Vdesc)) (Preciso de um melhor destaque) oPrn:Say(oPrn:nRow , 01, 'H12121100200220150'+alltrim(Vvalo)) oPrn:Say(oPrn:nRow+01, 01, '1A3202000010027'+Vcodi) oPrn:Say(oPrn:nRow+01, 01, 'Q0001') oPrn:Say(oPrn:nRow+01, 01, 'Q') oPrn:Say(oPrn:nRow+01, 01, 'E') skip enddo oPrn:End(.F., .F.) go top endif Return NIL Por hora obrigado! Editado por - Paulo on 28/10/2011 18:43:36

Prezados colegas! Conseguí desenvolver a função para emissão de etiquetas específicas para bijouterias, cujas dimensões é de 23x11mm para cada coluna da etiqueta. Sendo que na coluna da esquerda vai a descrição do produto e o código de barras correspondente e na coluna da direita vai o preço de venda do produto destacado. O único inconveniente, é que a descrição do produto está precisando de um melhor realce pois algumas letras ficam semi-apagadas. Alguem poderia informar qual seria o procedimento para um melhor realce? Onde será que errei? O que poderá estar faltando? Segue o fonte; ****************************************** function bij23x(oLbx) ****************************************** Local oDlg if MsgNoYes("Iniciar a emissão das etiquetas?","Produtos") oPrn := TdosPrn():New("LPT1") do while .not. eof() oPrn:SetCoors(00,00) oPrn:Say(oPrn:nRow+01, 01, chr(2)+'L') oPrn:Say(oPrn:nRow+01, 01, 'H12'+chr(13)) oPrn:Say(oPrn:nRow+01, 01, 'D11'+chr(13)) // tamanho do pixel Vcodi:= str(codprod,7) wde1 :=len(alltrim(descric)) wdesc:=subs(descric,1,21)+repli('>',21-wde1) Vdesc:=wdesc Vvalo:='R$ '+alltrim(str(valvend,12,2)) oPrn:Say(oPrn:nRow+01, 01, 'H12111100700320030'+alltrim(Vdesc)) (Preciso de um melhor destaque) oPrn:Say(oPrn:nRow , 01, 'H12121100200220150'+alltrim(Vvalo)) oPrn:Say(oPrn:nRow+01, 01, '1A3202000010027'+Vcodi) oPrn:Say(oPrn:nRow+01, 01, 'Q0001') oPrn:Say(oPrn:nRow+01, 01, 'Q') oPrn:Say(oPrn:nRow+01, 01, 'E') skip enddo oPrn:End(.F., .F.) go top endif Return NIL Por hora obrigado! Editado por - Paulo on 28/10/2011 18:43:36

Saudações à todos! Sou um garoto de 57 anos de idade, moro na Cidade Santos/SP iniciei a progamação em FW no ano de 2003. Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com