Jump to content
Fivewin Brasil

Paulo1361303230

Membros
 View Profile  See their activity

  • Posts

    557

  • Joined

  • Last visited

 Content Type 

Posts posted by Paulo1361303230

  2. Laiton - LAILTON - Lailton (Please)

    in Off - Topic

    Posted

    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

  3. Laiton - LAILTON - Lailton (Please)

    in Off - Topic

    Posted

    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

  10. ARGOX - Realçar a descrição do produto.

    in Programação

    Posted

    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

  12. ARGOX - Realçar a descrição do produto.

    in Programação

    Posted

    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

  13. ARGOX - Realçar a descrição do produto.

    in Programação

    Posted

    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

  14. ARGOX - Realçar a descrição do produto.

    in Programação

    Posted

    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

  16. Quebrando a cabeça com a tecla <Enter>

    in Programação

    Posted

    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

  17. Quebrando a cabeça com a tecla <Enter>

    in Programação

    Posted

    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

  18. Quebrando a cabeça com a tecla <Enter>

    in Programação

    Posted

    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

  19. Congresso - um Parabens antecipado

    in Programação

    Posted

    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

  21. Congresso - Uma decepção antecipada

    in Programação

    Posted

    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

  22. Congresso - Uma decepção antecipada

    in Programação

    Posted

    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

  23. Congresso - Uma decepção antecipada

    in Programação

    Posted

    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

  25. Congresso - Uma decepção antecipada

    in Programação

    Posted

    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

×
×
  • Create New...