Luiz Arruda (ICO)

Membros
  • Content count

    6,868
  • Joined

  • Last visited

About Luiz Arruda (ICO)

  • Rank
    Luiz Arruda
  • Birthday 09/04/1967

Profile Information

  • Gender
    Not Telling

Recent Profile Visitors

1,971 profile views
  1. Boa Tarde, nunca usei a xDev com Harbour, sempre usei xHarbour nos projetos. sinto não poder ajuda-lo.
  2. Bom dia, Não recordo direito mas creio que esta versão DEMO não vá funfar com o BCC0612, Tente trocar pela BCC55 ou Bcc56 após incorporar a PCREPOS.LIB, faça o mesmo com a msimg32.lib ela está na pasta c:\bcc56\lib\msimg32.lib Em seguida faça o mesmo com seus *. PRGs Abraços...
  3. Boa Tarde.. Temos não João, a gente usa de terceiros, de uma empresa especializada em folha pgto. até porque tem um setor juridico e financeiro a disposição e atentos para eventuais mudancas nas legislações e tabelas, mexer com folha é ralo, a gente tem que ficar atualizando o sistema direto sempre que tem alterações na legislação em tabelas e ou aliquotas do governo, por isso contratamos essa empresa a 12 anos(não vou por aqui pq usa Xbase mais é de concorrente) e é eses setores que disto pra gente, só precisamos atualizar o sistema que ela mesma avisa atraves de um canal, e com isso ocupamos o tempo com outros assuntos... e não é carol. Mas se alguém do forum tiver uma completa tb. me interessa, até porque será em uma liguagem que a gente conhece bem e confia. Valeu Obrigado..
  4. Bom Dia O rodapé ficou igual o da imagem abaixo ??? vc. selecionou o PRG na aba "projeto/modulos do projeto" ?? verifique também se o seu arquivo.prg de teste tem mesmo a extenção PRG, pq. tem editores que salvam como TXT ... inclua também estas libs ao projeto "c:\xharbour\lib\pcrepos.lib" e "c:\bcc56\psdk\msing32.lib" Verifique também se a versão do xHarbour é compativel com o seu FiveWin ... Abraços...
  5. Bom Dia ... Veja se ajuda... VEJA QUE SE TUDO ESTIVER CERTO VAI APARECER ASSIM NO RODAPÉ DEPOIS É SÓ SETAR EM PROJETO Abraços...
  6. Veja se eu entendi... eu tenho que saber o numero do cep para que mostre o nome da rua ?? é que não consegui usa-los, não está retornando nada, tudo em branco, tô mais perdido do que cão que cai de mudança... Obrigado
  7. Eu eu eu \o/
  8. Bom Dia.. Compilei seu código e deu tudo certo, exceto o StrTran e :Cargo de resto funcionou sem alterar os fonts do buttons.
  9. Jackson, a versão é 9.04 e por enquanto vou deixar como está, criando um registro vazio no inicio e excluindo ele ao sair da dialog, pq. se a classe do 9.04 é bugada não vai adiantar eu fazer de outra forma ... Abraços.. e Kapi, a intenção é esta mesma... só inclusão ... kapitche ? beijinho no ombro ...
  10. Assim eu consegui.. só que sempre cria um registro vazio na entrada da dialog, e é só um mesmo, olhando a gente até sabe onde tá criando mas se eu tirar tirar o oCli:append ou oCli:Blnak ali do inicio ou do Action para de funcionar geral... Tudo bem por enquanto, é só excluir o registro vazio ao fechar a janela que fica OK, mas ainda espero uma solução Obrigado a todos que ajudaram... DATABASE oCli oCli:SetBuffer( .T. ) oCli:Append() oCli:Blank() oCli:gotop() Define Dialog oDlg Resource "#1001" Redefine Get oGet[1] Var oCli:Comp ID 4007 Of oDlg Redefine Get oget[2] Var oCli:Data ID 4008 Of oDlg Redefine Get oGet[3] Var oCli:Loja ID 4009 Of oDlg Redefine Get oGet[4] Var oCli:Numero ID 4010 Of oDlg Redefine Get oGet[3] Var oCli:Garant ID 4011 Of oDlg Redefine Get oGet[4] Var oCli:Marca ID 4018 oF oDlg Redefine Get oGet[5] Var oCli:Valor ID 4014 Of oDlg Redefine Get oGet[6] Var oCli:obs ID 4012 Of oDlg Redefine Button obtn Prompt "Cadastrar" ID 4016 Action ; ( oCli:Save(),; oCli:SetBuffer(.t.),; oCli:Append(),; oCli:Blank(),; oDlg:refresh(),; odlg:Update())
  11. Isso já tinha tentando, tentei tb. oCli:gotop() mas não funfam no action do buttom
  12. será que tô falando javanês ??? EU JÁ CONSEGUI CADASTRAR,,, não sei como dar o loop para incluir um novo registro...
  13. Não.. bêbê... eu não quero mexer com variaveis, é por isso que quero DATABASE, quero digitar direto, do jeito que postei a pouco até grava, mas não dá o loop para um novo registro
  14. Assim Funciona, porém para uma unica entrada, mesmo se eu colocar isso no action, como dou um loop limpando os dados ?? DATABASE oCli oCli:Load() oCli:SetBuffer( .T. ) oCli:Append() oCli:Blank()
  15. Interessante... nem um das duas formas funcionou... .. e não tem desvio, não tem chamadas para lugar nem um o PRG é só isso ai mesmo. nada mais Procedure Entrada() Local oGet[8] Select 1 USE BDADOS ALIAS OCLI Exclusive New DATABASE oCli oCli:Load() oCli:SetBuffer( .T. ) Define Dialog oDlg Resource "#1001" Redefine Get oGet[1] Var oCli:Comp ID 4007 Of oDlg Redefine Get oget[2] Var oCli:Data ID 4008 Of oDlg Redefine Get oGet[3] Var oCli:Loja ID 4009 Of oDlg Redefine Get oGet[4] Var oCli:Numero ID 4010 Of oDlg Redefine Get oGet[3] Var oCli:Garant ID 4011 Of oDlg Redefine Get oGet[4] Var oCli:Marca ID 4018 oF oDlg Redefine Get oGet[5] Var oCli:Valor ID 4014 Of oDlg Redefine Get oGet[6] Var oCli:obs ID 4012 Of oDlg Redefine Button obtn Prompt "Cadastrar" ID 4016 Action (oCli:Save(),oCli:SetBuffer( .F. )) Activate Dialog oDlg Centered Return(.t.)