edutraini

September 19, 2022

15 minutos atrás, kapiaba disse:

Edu, teste agora com esta RESOLUCAO que eu uso no WORKSHOP.exe.

EDU, SE VC. NAO TIVER ESTA RESOLUCAO, VEJA A QUE SE APROXIMA MAIS, PLS.


// C:\FWH..\SAMPLES\CAMRESO.PRG
	/*
Kapi boa tarde
	Primeiramente vai curinthians
	eu achei isso aqui nas minhas rotinas
	ele muda a resolucao do programa e quando sai volta ao normal do windows
*/
	// http://forums.fivetechsupport.com/viewtopic.php?f=6&t=9865&start=15
// By Marcelo Gomes e Yuri Marcelino
 
#include 'fivewin.ch'
#Include "dll.ch"
#Include "Struct.ch"
 
FUNCTION MAIN_reso()
 
   LOCAL nResoAncho := GetSysMetrics(0)
	   IF nResoAncho > 800
 
      // EDU, SE VC. NAO TIVER ESTA RESOLUCAO, VEJA A QUE SE APROXIMA MAIS, PLS.
      CamReso ( 1280, 768 ) 
 
      MSGINFO('HECHO. AQUI PUEDES INICIAR TU PROGRAMA ELABORADO PARA 1280 X 768')
 
   ELSEIF nResoAncho <= 800 .AND. ISWINXP()
 
      CamReso ( 800, 600 )
                                               
   ENDIF
 
RETURN NIL
 
FUNCTION CamReso(nAncho, nAlto)
 
   Local DM_PELSWIDTH  := nHex("80000")
   Local DM_PELSHEIGHT := nHex("100000")
   Local oDevMode
   Local lPosible
   Local cBuffer
   Local lCamReso := .f.
 
   DEFAULT nAncho := GetSysMetrics(0), ;
           nAlto  := GetSysMetrics(1)
 
   STRUCT oDevMode
      MEMBER cDevName  AS STRING LEN 32
      MEMBER nSpecVer  AS WORD
      MEMBER nDrvVer   AS WORD
      MEMBER nSize     AS WORD
      MEMBER nDrvExtra AS WORD
      MEMBER nFields   AS DWORD
      MEMBER nOrientat AS WORD
      MEMBER nPaperSiz AS WORD
      MEMBER nPaperLen AS WORD
      MEMBER nPaperWid AS WORD
      MEMBER nScale    AS WORD
      MEMBER nCopies   AS WORD
      MEMBER nDefSrc   AS WORD
      MEMBER nPrnQlty  AS WORD
      MEMBER nColor    AS WORD
      MEMBER nDuplex   AS WORD
      MEMBER nYResolut AS WORD
      MEMBER nTTOpt    AS WORD
      MEMBER nCollate  AS WORD
      MEMBER cFormName AS STRING LEN 32
      MEMBER nUnusePad AS WORD
      MEMBER nBitsPPel AS DWORD
      MEMBER nPelWidth AS DWORD
      MEMBER nPelHeigh AS DWORD
      MEMBER nDisFlags AS DWORD
      MEMBER nDisFreq  AS DWORD
   ENDSTRUCT
 
   cBuffer  := oDevMode:cBuffer
   lPosible := EnumDisplaySettings(0, 0, @cBuffer)
 
   IF lPosible
 
      oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT )
      oDevMode:nPelWidth := nAncho
      oDevMode:nPelHeigh := nAlto
      cBuffer:=oDevMode:cBuffer
 
      TRY
	         ChangeDisplaySettings(@cBuffer, 4)
	         lCamReso := .T.
	      CATCH
	         MsgAlert("Modo no soportado", "Error" )
	      END
	   ELSE
	      MsgAlert("Modo no soportado", "Error" )
	   ENDIF
 
RETURN( lCamReso )
 
DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,;
iModeNum AS DWORD, ;
@lpDevMode AS LPSTR) AS BOOL PASCAL;
FROM "EnumDisplaySettingsA" LIB "User32.dll"
 
DLL32 STATIC FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,;
dwFlags AS DWORD) AS DWORD PASCAL;
FROM "ChangeDisplaySettingsA" LIB "User32.dll"
 
DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,;
dwReserved AS DWORD) AS DWORD PASCAL;
LIB "user32.dll"
	DLL32 STATIC FUNCTION BlockInput( lTrava AS BOOL ) AS BOOL LIB "User32.DLL"
	// FIN / END

Regards, saludos.

vou testar

ja te falo

September 19, 2022

13 minutos atrás, kapiaba disse:

Bom dia Edu, testou em WINDOWS 10?

Obg. abs.

Regards, saludos.

funciona perfeitamente

September 19, 2022

September 19, 2022

Bom dia, Pessoal

Gostaria de uma opiniao de vcs que usam sql em Nuvens

Em um determinado programa assim que o usuario entra devo carregar todos as tabelas que serão usados dentro daquela rotina ou devo carregar a tabela conforme for sendo solicitado

Não sei se isso muda alguma coisa em relação ao sql

Obrigado

September 16, 2022

Kapi boa tarde

Primeiramente vai curinthians

eu achei isso aqui nas minhas rotinas

ele muda a resolucao do programa e quando sai volta ao normal do windows

// http://forums.fivetechsupport.com/viewtopic.php?f=6&t=9865&start=15
// By Marcelo Gomes e Yuri Marcelino

#include 'fivewin.ch'
#Include "dll.ch"
#Include "Struct.ch"

FUNCTION MAIN_reso()

LOCAL nResoAncho := GetSysMetrics(0)

IF nResoAncho > 800

CamReso ( 1024, 768 )

* MSGINFO('HECHO. AQUI PUEDES INICIAR TU PROGRAMA ELABORADO PARA 1024 X 768')

ELSEIF nResoAncho <= 800 .AND. ISWINXP()

CamReso ( 800, 600 )

ENDIF

RETURN NIL

FUNCTION CamReso(nAncho, nAlto)

Local DM_PELSWIDTH := nHex("80000")
Local DM_PELSHEIGHT := nHex("100000")
Local oDevMode
Local lPosible
Local cBuffer
Local lCamReso := .f.

DEFAULT nAncho := GetSysMetrics(0), ;
nAlto := GetSysMetrics(1)

STRUCT oDevMode
MEMBER cDevName AS STRING LEN 32
MEMBER nSpecVer AS WORD
MEMBER nDrvVer AS WORD
MEMBER nSize AS WORD
MEMBER nDrvExtra AS WORD
MEMBER nFields AS DWORD
MEMBER nOrientat AS WORD
MEMBER nPaperSiz AS WORD
MEMBER nPaperLen AS WORD
MEMBER nPaperWid AS WORD
MEMBER nScale AS WORD
MEMBER nCopies AS WORD
MEMBER nDefSrc AS WORD
MEMBER nPrnQlty AS WORD
MEMBER nColor AS WORD
MEMBER nDuplex AS WORD
MEMBER nYResolut AS WORD
MEMBER nTTOpt AS WORD
MEMBER nCollate AS WORD
MEMBER cFormName AS STRING LEN 32
MEMBER nUnusePad AS WORD
MEMBER nBitsPPel AS DWORD
MEMBER nPelWidth AS DWORD
MEMBER nPelHeigh AS DWORD
MEMBER nDisFlags AS DWORD
MEMBER nDisFreq AS DWORD
ENDSTRUCT

cBuffer := oDevMode:cBuffer
lPosible := EnumDisplaySettings(0, 0, @cBuffer)

IF lPosible

oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT )
oDevMode:nPelWidth := nAncho
oDevMode:nPelHeigh := nAlto
cBuffer:=oDevMode:cBuffer

TRY
ChangeDisplaySettings(@cBuffer, 4)
lCamReso := .T.
CATCH
MsgAlert("Modo no soportado", "Error" )
END
else
MsgAlert("Modo no soportado", "Error" )
endif

return lCamReso

DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,;
iModeNum AS DWORD, ;
@lpDevMode AS LPSTR) AS BOOL PASCAL;
FROM "EnumDisplaySettingsA" LIB "User32.dll"

DLL32 STATIC FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,;
dwFlags AS DWORD) AS DWORD PASCAL;
FROM "ChangeDisplaySettingsA" LIB "User32.dll"

DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,;
dwReserved AS DWORD) AS DWORD PASCAL;
LIB "user32.dll"

DLL32 STATIC FUNCTION BlockInput( lTrava AS BOOL ) AS BOOL LIB "User32.DLL"

September 2, 2022

eu testei nao vai

September 2, 2022

Bom dia Kapi

Mando essa mensagem no rmail so queria saber se tem como diferenciar as fontes do texto

'Você está recebendo um boleto emitido por Aços Ltda.' uma fonte

'Vencimento: : '+DTOC(vDtVencim) outra fonte

Tipo negrito ou fonte maior

nMensagem1 = 'Olá, '+upper(vNomecli)+CRLF+CRLF+;
'Você está recebendo um boleto emitido por Aços Ltda.'+CRLF+;
'Seguem abaixo as informações do boleto:'+CRLF+;
'Nome: '+vNomecli+CRLF+;
'Nota Fiscal : '+STR(vNrodupl,7)+CRLF+;
'Vencimento: : '+DTOC(vDtVencim)+CRLF+;
'Valor: R$ : '+TRANS(vVlrDupl,"9,999,999.99")+CRLF+;
'Você pode realizar o pagamento em qualquer banco, na lotérica, nos canais digitais do seu banco (internet banking) ou app de pagamento.'+CRLF+;
'Em caso de dúvidas, é só entrar em contato, estamos a inteira disposição!'+CRLF+CRLF+;
'Atenciosamente,'+CRLF+;
'André Oliveira'+CRLF+;
'Aços Especiais Iguatemi Ltda '+CRLF+;
'Tel (11) 2954-3000 - DDR 2207-6778 '+CRLF+;
'A disposição para qualquer esclarecimento,'+CRLF+;
'Cordiais saudações,'+CRLF+CRLF

September 1, 2022

Boa tarde Pessoal

Sera que tem como mudar a fonte do texto que vai no email usando o rmail

Tipo sublinhado, fonte maior

Obrigado

August 30, 2022

Bom dia Pessoal

Hoje e uso o sumatra para ler documentos em Pdf

Uma duvida

Existe alguma forma de mandar um comando usando o sumatra para transformar um relatorio em txt para pdf

via linha de comando ou alguma outra ferramenta

Obrigado

August 23, 2022

Boa tarde, Pessoal

Meu cloud na localweb esta caindo toda hora, nao sei oque esta acontecendo nos serviços da localweb mas esta caindo todo dia

ALguem tem alguma susgestao de outro cloud

Obrigado

August 9, 2022

Boa tarde

Eu coloquei essa mensagem acima referente de emissao de nota serviço pelo App

mas se tiver outra solucao para a prefeitura da cidade Taboão da Serra-SP

eu agradeço

August 9, 2022

Boa pessoal

Alguem ja fez integração de Nota de Serviço com esse site

https://desenvolvedores.migrate.info/2014/03/como-integrar-invoicy-nfse/

Obrigado

July 25, 2022

O problema esta em algumas internet

Os clientes plugaram na internet do celular e conseguiram transmitir ou seja algum protocolo da internet fixa esta com problema

July 25, 2022

Bom dia Pessoal

Alguns clientes estao relatando esse erro na transmissao da nota eletronica

Sera que o problema é no sefaz ou na internet

5011 - Erro: Falha na conexão: Mensagem Erro do Windows=[Server was unable to process request. ---> The type initializer for 'Sefaz.NFe.Lib.Conf.Configuration' threw an exception. ---> A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server) ---> The network path was not found] (Causa provável: Causa provável da falha na conexão: Rede indisponível)

July 7, 2022

Entao esta ai o problema

Sqlexpress o resultado e diferente do mysql

July 7, 2022

boa tarde Junior

nao e campo memo e caracter

e tambem se fosse campo memo GROUP BY nao aceita esse tipo campo

July 7, 2022

Bom dia Junior

EU entendi oque vc me passou mas ai minha duvida é que se eu nao colocar o campo observacao no group by ele da essa mensagem no manager studio

Mensagem 8120, Nível 16, Estado 1, Linha 1
A coluna 'dpropro0.OBSERVACAO ' é inválida na lista de seleção porque não está contida em uma função de agregação nem na cláusula GROUP BY.

July 6, 2022

Boa tarde Pessoal

Obrigado pela ajuda

para usar o group vc precisa colocar todos os campos que estao na select senao ele nao funciona

Eu descobri se algum campo que esta na select tiver diferente dentro do grupo ele quebra exemplo

campo observacao esta diferente ai ele nao consegue juntar

SELECT lote,, tipo, secao, SUM(estoqatual) as total, observacao FROM dpropro0 WHERE tipo = "51200" GROUP BY lote, tipo, secao, observacao ORDER BY LOTE, SEQ, TIPO, SECAO

001-001-01-01 | 001 | 52100 | redondo | 100.00 | AMARELO

001-001-01-01 | 002 | 52100 | redondo | 200.00 | VERDE

001-001-01-01 | 003 | 52100 | redondo | 150,00 | AZUL

se eu tirar o campo observacao da select ai funciona

nao sei se tem algum parametro dentro group que consiga colocar as chaves exemplo somente lote,tipo,secao

July 6, 2022

2 horas atrás, edutraini disse:

Gostaria de jogar no browse somente a soma do estoque de cada lote

July 6, 2022

Bom dia, Pessoal

Estou com uma dificuldade em um select usando o group

tenho uma tabela de produtos conforme exemplo abaixo

select lote,tipo,secao,bitola,acab,sum(estqatual) as estqatual,codipi,tributo,tratamento,local,compriment,comprimenf,local,bitola1,bitola2,cod_item_k FROM dpropro0
where
tipo = '52100' and COALESCE(dpropro0.SR_DELETED,' ') <> 'T'
GROUP BY
lote,tipo,secao,bitola,acab,estqatual,codipi,tributo,tratamento,local,compriment,comprimenf,local,bitola1,bitola2,cod_item_k
ORDER BY
tipo,secao,bitola

001-001-01-01 | 001 | 52100 | redondo | 100.00 |

001-001-01-01 | 002 | 52100 | redondo | 200.00 |

001-001-01-01 | 003 | 52100 | redondo | 150,00 |

Gostaria de jogar no browse somente a soma do estoque de cada lote

lote | tipo de aco | secao |estqatual

001-001-01-01 | 52100 | redondo | 450,00

mas o resultado ainda vem como

001-001-01-01 | 001 | 52100 | redondo | 100.00 |

001-001-01-01 | 002 | 52100 | redondo | 200.00 |

001-001-01-01 | 003 | 52100 | redondo | 150,00 |

talvez por causa de varios campos no group

Ai vem a pergunta estou usando o comando errado ou exite alguma outra forma

Agradeço muito

Edu

June 24, 2022

Em 22/06/2022 at 17:13, kapiaba disse:

Eduardo, venha para o meu GRUPO: FiveWin Brasil no facebook:

https://www.facebook.com/groups/112382682270253

Regards, saludos.

Ja to la

Abraço

June 22, 2022

Obrigado, Kapi

June 22, 2022

Bom dia Kapi

Estou tentando colocar a rotina de backup que vc passou aqui no forum e ta dando erro EXTERNAL HB_ZIPFILECR32, UNZIPOPEN ETC

Poderia dar uma dica de como arrumar isso

Obrigado e vai curinthians

June 8, 2022

Obrigado Marcelo

Resolvido

June 8, 2022

Boa tarde Pessoal

Tenho um tela feita com xbrowse e array aonde mostra as cotacoes que sao feitas diariamente

Um cliente me pediu para deixar on line ou seja cada vez que alguem fizer uma cotacao essa tela tem que atualizar

ou seja tenho que gerar um array novamente

Hoje eu fecho a tela de cotacao e abro de novo

Existe alguma forma de fazer isso automaticamente

Sign In

edutraini

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by edutraini

Verificar a Resolução de Tela via comando do FiveWin

Verificar a Resolução de Tela via comando do FiveWin

Verificar a Resolução de Tela via comando do FiveWin

Logica de Programacao em Sql

Verificar a Resolução de Tela via comando do FiveWin

fonte texto rmail

fonte texto rmail

fonte texto rmail

duvida sobre sumatra

Localweb esta pessimo

Integracao Invoicy for Dev

Integracao Invoicy for Dev

erro nota fiscal eletronica

erro nota fiscal eletronica

select com group by

select com group by

select com group by

select com group by

select com group by

select com group by

descompactacao pelo UNZIP

descompactacao pelo UNZIP

descompactacao pelo UNZIP

xbrowse com array

xbrowse com array

Browse

Activity