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

Olá amigos João Bosco e Alessandro. Agradeço pela ajuda mais infelizmente não funcionou. A minha idéia era a seguinte; Criar uma espécie de teclado virtual com BUTTON(s) que poderia ser utilizado manualmente, e após digitar a senha com um simples finalizaria a Janela de Dialog. Tentei todas as formas conhecidas, inclusive a fornecida pelos amigos onde não obtive nenhum sucesso. Se não houver jeito, continuarei no get password. DEFINE DIALOG oDlg FROM 3,10 TO 19.5,49 TITLE "Permissões/Log - SENHA "+str(wtent,2)+'/3' // COLOR rgb(255,255,255),rgb(0,0,128) oDlg:bPainted := { | hDC | PalBmpDraw( hDC, 0, 0, oPapel:hBitMap,oPapel:hPalette,oDlg:nRight+2,oDlg:nBottom+2) } @01,08 sSay str(v_digi,2) COLOR rgb(128,000,000) font bfont wtime:=time() xtime:=subs(wtime,8,8) * @0,6 sSAY "Senha de Acesso, informe!" OF oDlg font brfont * @6.8,7.2 ssay oserie of odlg COLOR rgb(128,0,0) font brfont * @01,8 GET senha_get OF oDlg PASSWORD picture "999999" *********** @0.5,01 BUTTON "&7" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se7:=7,oDlg:End())) font botaog @0.5,06 BUTTON "&8" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se8:=8,oDlg:End())) font botaog @0.5,11 BUTTON "&9" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se9:=9,oDlg:End())) font botaog *********** @2.2,01 BUTTON "&4" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se4:=4,oDlg:End())) font botaog @2.2,06 BUTTON "&5" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se5:=5,oDlg:End())) font botaog @2.2,11 BUTTON "&6" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se6:=6,oDlg:End())) font botaog *********** @3.9,01 BUTTON "&1" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se1:=1,oDlg:End())) font botaog @3.9,06 BUTTON "&2" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se2:=2,oDlg:End())) font botaog @3.9,11 BUTTON "&3" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se3:=3,oDlg:End())) font botaog *********** @5.6,01 BUTTON "&0" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se0:=0,oDlg:End())) font botaog @5.6,11 BUTTON "&Ok" OF oDlg SIZE 20,20 ACTION (oDlg:End()) font botaog DEFAULT *********** * oLbx:bKeyDown:={|nKey| IIF(nKey=VK_ENTER,odlg:end(),)} Activate Dialog oDlg center Lembrando tambem, que o comando oLbx:bKeyDown funciona se estiver utilizando um ListBox aberto. Obrigado pela atenção Saudações José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Boa tarde a todos! Existe alguma simples forma ao teclar o sistema entender que quero sair de uma dialog entre outras opções? Ex. @3.9,01 BUTTON "&1" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se1:=1,oLbx)) font botaog @3.9,06 BUTTON "&2" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se2:=2,oLbx)) font botaog @3.9,11 BUTTON "&3" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se3:=3,oLbx)) font botaog *********** @5.6,01 BUTTON "&0" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se0:=0,oLbx)) font botaog @5.6,11 BUTTON "&Ok" OF oDlg SIZE 20,20 ACTION (oDlg:End()) font bfont *********** Activate Dialog oDlg center // on init senhaver(odlg) Onde encontra-se o BUTTON &Ok gostaria que ao teclar fechasse a janela. Obrigado José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Boa tarde a todos! Existe alguma simples forma ao teclar o sistema entender que quero sair de uma dialog entre outras opções? Ex. @3.9,01 BUTTON "&1" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se1:=1,oLbx)) font botaog @3.9,06 BUTTON "&2" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se2:=2,oLbx)) font botaog @3.9,11 BUTTON "&3" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se3:=3,oLbx)) font botaog *********** @5.6,01 BUTTON "&0" OF oDlg SIZE 20,20 ACTION (ordsenha(n_se0:=0,oLbx)) font botaog @5.6,11 BUTTON "&Ok" OF oDlg SIZE 20,20 ACTION (oDlg:End()) font bfont *********** Activate Dialog oDlg center // on init senhaver(odlg) Onde encontra-se o BUTTON &Ok gostaria que ao teclar fechasse a janela. Obrigado José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá amigos! Espero tambem comparecer ao próximo congresso em 2011, isso é, se ainda estiver vivo até lá! rsrsrsrs Independentemente de qualquer mal-entendido ou opinião quero expressar agradecimentos à todos pela atenção e pela organização do congresso tambem, pois sei que é uma tarefa difícil, preocupante, responsável e muito desgastante. Mas acredito que tudo isso será retornado em agradecimentos, comemorações e muito benefício à todos independente da presença. Não estarei presente pessoalmente mas acredito que neste dia minha presença estará em pensamento. Não sei se poderei acompanhar os próximos tópicos pós-congresso, porem assim que possível estarei por aqui para apreciar as fotos e as novidades pertinentes. Desde já agradeço à todos, e peço minhas sinceras desculpas se fui mal interpretado, pois não era minha intenção. Um grande abraço à todos e um FELIZ E PROVEITOSO CONGRESSO José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá! Concordo com o Rone, atencipadamente aprovo sua idéia pois infelizmente não estarei presente ao congressso por manter minha opinião. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Obrigações em dia? Será que eu estava em débito e não sabia? Desculpe-me, mas não devo nem obrigações, pois todas as minhas contas são pagas rigorosamente em dia. Se eu estava em atraso, minhas especiais desculpas pois não estava sabendo disto. Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Alexandre Agradeço-lhe pela compreensão e pelo apoio tambem, pois gostaria muito de participar, tanto que disponho-me a perder o valor da passagem que é muito mais que os juros, repetindo, só não acho justo realizar um pagamento à vista e ainda pagar juros pelo mesmo. Se eu optasse pelo parcelamento na época, ai sim, seria justo o pagamento de acréscimos caso ocorressem atrasos. Não quero com isso, desmerecer todo o trabalho e luta dos organizadores pois sei que não é uma tarefa fácil. Mas infelizmente não tinha como prever o futuro, e não estou atribuindo minha saude à uma mentira, pois não tenho necessidade alguma em mentir e ainda mais desejando o mau para sí próprio. rsrsrsrs Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Agradecimentos Da minha parte dou por encerrado, ficando com o prejuízo das passagens já adquiridas. Como não farei parte deste congresso, não farei parte tambem dos possíveis futuros congressos. (Decepção total) Pois é um fato interessante, nem participei do parcelamento e se participasse e ocorressem atrasos, aí sim seriam justos os juros, mais para pagamento a vista e ainda pagar juros, é lamentável. Desculpem-me pela franqueza. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - paulo on 29/10/2010 17:48:18

João (Kapiaba) Obrigado pela força e tambem pela compreensão. Aguardo um dia sua visita aqui em Santos, querendo, é só marcar. Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

HERGON Agradeço-lhe pela réplica, porem sou da opinião em não aceitar certas discrepâncias em relação à valores (Juros) Como eu não havia inscrito, na minha opinião deveria ser programados valores até a data limite e um valor maior após a data limite e não cobrar juros por algo que não foi adquirido. Se uma determinada loja promover um determinado produto de R$ 500,00 por R$ 300,00 até uma data limite é natural, porem e se eu resolver adquirir o produto após a data limite, tambem é natural que eu pague os R$ 500,00, porem jamais um juros pós promoção sendo que nem adquirí o produto. Porem, espero que tudo isto sirva para um futuro amadurecimento para os próximos congressos. E tambem não acho correto (minha opinião) antecipar por algo que nem sei se estaria vivo até lá. Abraços, que sabe até uma próxima oportunidade. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com