Theotokos

        SetDate( nDay, nMonth, nYear )
        SetTime( nHoras, nMinutos, nSegundos )
 

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)

só para registrar @Jmsilva

:nClrTextDis   --> Cor do Texto

:nClrPaneDis  --> Cor Fundo

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)

acho que tem que colocar: oGet:Hide()

@joao vc poderia compartilhar o codigo ou parte deste para uso do envio da mensagem.... que eu possa testar... OBGDAO!!!

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

Em 06/11/2019 at 08:19, evertonlb disse:

Atualização, antes tinha um estouro no vetor de consulta de saldo, agora a consulta ta bacana, verifica as respostas dos SMS, abre uma janela com os filtros de telefone e data na hora da consulta, e verifica se a Internet está ativa.. Acho que tudo o que precisam para ver a DisparoPro funcionando integrada, está ai.

https://www.4shared.com/s/fRO5Md409ea 

Att.

Everton

Poderia por favor liberar o link novamente ou me enviar por favor.... 

Vcs tmb serviço de enviar por Whatsapp?

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

CONSGUI!!! rsrsrsrs

#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"
#include <stdio.h>
 

faltando isso

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
***********************************************************************************************+
 

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?

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

2 horas atrás, Marca disse:

Theotokos
Monte o array do combo da maneira q. vc precisa e não tem q. mudar nada digo

aComboBox := { 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 }

VlW! Marca!!! Fiz Assim, não fica muito bonito, mas ajudou sim... pelo menos fica separado e o cliente visualiza melhor....

nunca usei...  se puder posta um exemplo por favor.... obgdao

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;;;

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

entao com report funciona, não funciona com PRINT oPrn

POrque o BOTAO EXCEL fica inativo ? como habilitar para poder exporta para Excel?

vi em alguns link uma lib GOOGLE.LIB, alguem usa conhece. onde baixar? o link não esta mais disponivel

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 .

Já tentou reinstalar o xDev?

2 horas atrás, kapiaba disse:

POUTZ, qual é o nome do executável do PELLESC.exe?

 

Obg. abs.

poide.exe

faz tempo que usei, nao sei como esta, ve se te ajuda

etiqueta Argox.fr3

Em 27/07/2022 at 09:00, waway disse:

Bom Dia Amigos, estou precisando encontrar uma solução para melhorar a velocidade dos loops nos dbf do meu sistema , alguem consegue me dar uma diga , alguma ferramenta que pode mehorar isso , eu ja uso indices temporarios, mas lopp ( do while em dbf com muitas informações em rede e extremamente lento) no servidor com hdd ssd gerar os loop de folha pagamento de 250 trabalhadores em 1 minuto , ja na rede isso demora 20 minutos.

Wanderson Medeiros 

skype: wanderson.medeiros5

e-mail: sintrampontal@gmail.com

WhatsApp : (34) 99953-1534

 

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