Jump to content
Fivewin Brasil

Theotokos

Membros
  • Posts

    1,796
  • Joined

  • Last visited

  • Days Won

    31

Everything posted by Theotokos

  1. SetDate( nDay, nMonth, nYear ) SetTime( nHoras, nMinutos, nSegundos )
  2. Eu sempre utilizo nomes diferente pra cada fez que vai criar o arquivo pdf Para os PDF de pedidos de venda por exemplo: P_0002233.PDf (P_numero do pedido.PDF)
  3. só para registrar @Jmsilva :nClrTextDis --> Cor do Texto :nClrPaneDis --> Cor Fundo
  4. eu sempre coloco no parâmetro da função File() o caminho completo + nome do arquivo + extensão; se falta algo não funciona, não acha o arquivo mesmo TESTA AI O PARAMETROS QUE VC ESTA PASSANDO PARA A FUNÇÃO FILE() SE ESTA COMPLETA... cArquivo := "MeuArquivo" cExtensao := ".XML" cpatch := "C:\ARQ_XML\" ? cPath+cArquivo+cExtensao ? File( cPath+cArquivo+cExtensao)
  5. @joao vc poderia compartilhar o codigo ou parte deste para uso do envio da mensagem.... que eu possa testar... OBGDAO!!!
  6. BOM DIA!!! ESTOU PRECISANDO ENVIAR MENSAGEM DE VENCIMENTO PRESTAÇÃO PELO WHATSAPP. GOSTARIA DE SABER ALGUMAS PLATAFORMA QUE POSSO USAR, TENHA PREÇO BOM E SERVIÇO BOM... ALGUEM QUE USE PODE ME SUGERIR POR FAVOR?! OBGDAO
  7. Poderia por favor liberar o link novamente ou me enviar por favor.... Vcs tmb serviço de enviar por Whatsapp?
  8. vc precisa ver no manual ou consultar o fabricante, pois tem sim.... precisa configurar o Codigo de Barras onde o leitor seu programa vai indentificar se esta usando peso ou valor
  9. CONSGUI!!! rsrsrsrs #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" #include <stdio.h> faltando isso
  10. Como que insere essa parte no sistema, eu incluir simplesmente no fonte principal e não compila // typedef struct tagLASTINPUTINFO { // UINT cbSize; // DWORD dwTime; // } LASTINPUTINFO, *PLASTINPUTINFO; WINUSERAPI BOOL WINAPI GetLastInputInfo(PLASTINPUTINFO); typedef BOOL (WINAPI *GETLASTINPUTINFO_)(PLASTINPUTINFO); HB_FUNC( SYSIDLESECS ) { HINSTANCE handle= LoadLibrary("user32.dll"); if ( handle) { GETLASTINPUTINFO_ pFunc; pFunc = GetProcAddress( handle,"GetLastInputInfo" ); if (pFunc) { LASTINPUTINFO lpi; lpi.cbSize = sizeof(LASTINPUTINFO); if (!pFunc(&lpi)) { hb_retni(0); } else { hb_retnd( ( DOUBLE ) ( GetTickCount() - lpi.dwTime ) * 0.001 ); } } else { hb_retni(0); } } if (handle) { FreeLibrary( handle); } } #pragma ENDDUMP ***********************************************************************************************+
  11. Boa Tarde! Preciso de uma idéia.... O sistema tem controle de acesso por senha / usuário, porem tem uns benditos que esquecem sua senha aberta (gerente) ai funcionário espertinho faz proveito disto e acessa opções que não poderia... Aí o cliente esta me enchendo o saco, para que eu evite isso... mas não faço ideia o que pode ser feito... Tinha pensado em colocar um TIMER para que qdo ficasse o sistema sem uso por algum tempo (inativo) o sistema pedisse a senha novamente... mas parece que isso já foi tentado por alguem aqui no forum e não deu certo, por causo do consumo de memória algo assim... ALGUMA IDÉIA?
  12. Fala meu caro! Blz?! Dá uma olhada neste comando, não uso/usei mas faz isso ai... quer dize rbem parecido.... Exemplo em : switchtst.prg (na pasta do samples\fivewin) #include "fivewin.ch" function Main() local oWnd, oFont local lVar1, lVar2, lVar3 local oYn1, oYn2, oYn3, oSay1, oSay2, oSay3 lVar1 := lVar2 := lVar3 := .t. DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0,-18 BOLD DEFINE WINDOW oWnd COLOR CLR_GRAY,CLR_WHITE oWnd:SetFont( oFont ) // oWnd:nOpacity := 140 @ 98, 40 SAY oSay1 PROMPT If( lVar1, 'On', 'Off' ) SIZE 60,30 PIXEL OF oWnd UPDATE @ 100,207 SWITCH oYn1 VAR lVar1 PIXEL OF oWnd UPDATE ; COLOR CLR_GREEN, CLR_GRAY ; ON CHANGE oWnd:Update() @ 128, 40 SAY oSay2 PROMPT If( lVar2, 'On', 'Off' ) SIZE 60,30 PIXEL OF oWnd UPDATE @ 130,207 SWITCH oYn2 VAR lVar2 PIXEL OF oWnd UPDATE OVALSTYLE ; COLOR CLR_GREEN, CLR_GRAY ; THUMBSIZE 16 THUMBCOLOR CLR_BLUE ; ON CHANGE oWnd:Update() @ 158, 40 SAY oSay3 PROMPT If( lVar3, 'On', 'Off' ) SIZE 60,30 PIXEL OF oWnd UPDATE @ 160,207 SWITCH oYn3 VAR lVar3 PIXEL OF oWnd UPDATE RADIOSTYLE ; ON CHANGE oWnd:Update() ACTIVATE WINDOW oWnd RELEASE FONT oFont return nil
  13. VlW! Marca!!! Fiz Assim, não fica muito bonito, mas ajudou sim... pelo menos fica separado e o cliente visualiza melhor....
  14. nunca usei... se puder posta um exemplo por favor.... obgdao
  15. problema que preciso que seja campo COMBOBOX... então radiobuttons não daria certo e nem listbox... até mesmo porque não quero apenas separar as linhas, precisa separar por grupo A VISTA, A VISTA 20% (Grupo Dinheiro) Cartões.... (Grupo Cartao) etc;;;
  16. Boa Tarde!!! Tem como colocar um separator em comboBox? assim como fazemos em menu por exemplo Exemplor: A VISTA A VISTA 20% ----------------- A PRAZO 1x A PRAZO 2x A PRAZO 3X A PRAZO 4X ----------------- CARTAO DEBITO CARTAO CREDITO 1X CARTAO CREDITO 2X CARTAO CREDITO 3X CARTAO CREDITO 4X CARTAO CREDITO 5X ------------------ CHEQUE PRE DATADO
  17. entao com report funciona, não funciona com PRINT oPrn
  18. POrque o BOTAO EXCEL fica inativo ? como habilitar para poder exporta para Excel?
  19. vi em alguns link uma lib GOOGLE.LIB, alguem usa conhece. onde baixar? o link não esta mais disponivel
  20. Bom Dia! Como faço para baixar um arquivo do google drive pelo meu sistema??? Preciso criar uma rotina, que ao entrar no meu sistema, ele baixe esse arquivo para verificar .
  21. faz tempo que usei, nao sei como esta, ve se te ajuda etiqueta Argox.fr3
  22. qdo tenho que fazer While, eu tento diminuir o loop, iniciando a partir de um ponto do arquivo... exemplo... se preciso fazer um loop para pegar os dados de Data inicial e Data Final, posiciono o arquivo aberto na data inicial e faco até a data final....ao inves de percorrer o arquivo inteiro
×
×
  • Create New...