Jump to content
Fivewin Brasil

Ladinilson

Membros
 View Profile  See their activity

  • Posts

    523

  • Joined

  • Last visited

  • Days Won

    9

 Content Type 

Posts posted by Ladinilson

  3. destacar dados em fast com cores diferentes conforme pontuação

    in Programação

    Posted

    16 minutos atrás, marcioe disse:

    Olá a Todos os amigos, boa noite

    Preciso destacar com cores diferentes a depender de uma condição ( da Coluna Acertos ) no caso

    Exemplo (fiz no paint, para ilustrar)  Se for acertos igual a :
    10 =  A linha Fica Vermelha 
    9  = Laranja
    8 = Rosa
    7 = etc...

    Essas cores posso Fixar, ou seja o usuário não precisa escolher, pode ficar fixo no Código.

    Este Relatório está em FastReport

    fast.png

     

    Agradeço a Todos ...

     

     

    Se vc conseguir, quero também rsrsrs
    Ja deu uma pesquisada nos sites do Delphi?
    Ele é um ótimo gerador mais falta umas coisas nele para ficar como o Kapi chama...The Best!

  5. qtd de semanas no mês

    in Programação

    Posted

    5 minutos atrás, Luiz Fernando disse:

    Ladinilson vlw obg pela dica, usei um loop aqui de 1 a 31 e deu certo. 

    
function DiaSemana( dData, nLen )

local aDias:={ 'Domingo','Segunda','Terça  ','Quarta ','Quinta ','Sexta  ', 'Sábado ' }
local cDiaSem

DEFAULT nLen:=7
      
cDiaSem:=substr( aDias[dow(dData)], 1, nLen )

return cDiaSem

    Kapiaba como deu certo com a dica do Ladinilson, acabei nem testando a sua, que com certeza tb iria dar certo, obg pelo retorno

    Abs

     

     

     

     

    Não fale isso que ele vai ficar chateado, mesmo porque o time dele perdeu ontem em casa kkkkk

  6. qtd de semanas no mês

    in Programação

    Posted

    1 hora atrás, Luiz Fernando disse:

    Pessoal estou precisando fazer uma rotina, aonde me retorna o numero de sexta-feira que tem naquele mês específico, e seus dias

    se alguém tiver alguma rotina para compartilhar

    obg

    Luiz Fernando 

    FUNCTION pSema(Dia,Tipo,Acento)
**--------------------------------------**
**  Retornar o dia da semana   *
**  Sintaxe : pSema(arg1,arg,arg3)
**            Arg1 = Data/Variavel
**            Arg2 = 1=dia simples, 0=dia completo (segunda.segunda-feira)
**            Arg3 = 1 remover acentos
**  Exemplo : @ 10,10 SAY pSema(date(),1,1)
**  Retorno : Terca-Feira
**--------------------------------------**
    a=DOW(dia)
    dia=""
    DO CASE
    CASE a = 1
        dia="Domingo"
    CASE a = 2
        dia=IF(Tipo==1,"Segunda","Segunda-Feira")
    CASE a = 3
        dia=IF(Tipo==1,"Terça","Terça-Feira")
    CASE a = 4
        dia=IF(Tipo==1,"Quarta","Quarta-Feira")
    CASE a = 5
        dia=IF(Tipo==1,"Quinta","Quinta-Feira")
    CASE a = 6
        dia=IF(Tipo==1,"Sexta","Sexta-Feira")
    CASE a = 7
        dia="Sabado"
    ENDCASE

    IF(Acento==1)
        dia:=TiraAcento(dia)
    ENDIF
RETURN(dia)

    Tente por aqui, faça um loop de 1 a 31 para ver as sextas do mês.
    Abraços

  7. Função para remover path de expressão

    in Programação

    Posted

    20 minutos atrás, wanderso disse:

    Bom dia,

    Tenho a seguinte expressão "C:\ARQUIV~1\TESTE1\TESTE2\DECLARAÇÃO.DOCX"

    Tem alguma função que retorne somente o nome do arquivo que seria DECLARAÇÃO.DOCX? Ou tenho que fazer um laço e ler de trás pra frente até encontrar a primeira barra?

    Valeu!

     

     

    Procure (AT()) pela barra ("\") e guarde em uma variável a última vez que a encontrou e depois use uma função (SUBSTRING()) para "pegar" tudo depois dela.
    Abs

  8. PIX - QR CODE

    in Programação

    Posted

    13 horas atrás, PJINFO disse:

    Depois de quebrar a cabeça 
    Uma pequena contribuição
    FUNCAO PARA GERAR O CRC

    /*************************************/
    * Criado em 26/10/2022 - Paulo R.S.JR.
    * PJ Informática

    Func GERA_CRC(ctxt)
    local i,n,a:={}
    local polinomio:=0x1021
    local resultado:=0xFFFF

      for i=1 to len(ctxt) 
          resultado := nXor(hb_bitShift(asc(substr(ctxt,i,1)),8),resultado)
          for n=1 to 8
              resultado := hb_bitShift(resultado,1)
              if nand(resultado, 0x10000)<>0
                 resultado:=nXor(resultado,polinomio)
              end
              resultado:=nAnd(resultado,0xFFFF)
          next
      next   

    return(DecToHex(resultado))
     

    Como seria o cTxt por exemplo?

  9. FivEdit Instalação

    in Programação

    Posted

    4 minutos atrás, kapiaba disse:

    kkkkkk, é não!! kkkkkk o Ruço quando o criou, criou para várias linguagens de programação, "incrusive"  [x]Harbour for FiveWin the best. Amanhã, não vai passar nem agulha no "friozó".l kkkkkkkkkkkkkkkkkkkkkkkk VAI CORINTHIANS!!

     

    Abs.

    Boa entendi!

    Mas amanhã será a guerra dos queixudos...quem vencerá?!
    Cassio ou Pedro?
    kkkkkkkk

  10. FivEdit Instalação

    in Programação

    Posted

    8 minutos atrás, kapiaba disse:

    Listo. Pronto. Não Ladinilson, é uma .LIB e uma classe para você controlar.  parece que não sei... kkkkkkkkkkkk

    Calma que amanhã terás muitas emoções em Itaquera kkkk
    É que pesquisando e estudando ele, vi que TODOS os programadores usam e me pareceu um componente da linguagem.

  11. FivEdit Instalação

    in Programação

    Posted

    Desculpem aos que usam outros meios para criação de relatórios e impressões afins (TPrinter, TDOSPrn, etc), mas me estapeio todos os dias em não ter conhecido logo o FASTREPORT.

    Cara por exemplo, as etiquetas que basta vc criar uma e dizer número de colunas, espaço entre elas que ele faz TUDO SOZINHO, e também os problemas com várias impressoras então  que acabou, inclusive as etiquetadoras como ARGOZ e ZEBRA não tem mais o martírio de conhecer todos aqueles códigos para loucos.

    Você insere CAMPOS e VARIÁVEIS de maneira simles e ainda pode clicar e arrastar para dentro do formulário mano.

    Me desculpem de novo mas como fui perder tanto tempo em não conhecer esta ferramenta beeeem mais cedo.

    Mas me respondam, ela é um componente do DELPHI?


    Abs

  15. Programando em PPLA - Impressora Argox

    in Programação

    Posted

    Em 16/02/2022 at 14:44, rochinha disse:

     Amiguinhos,

    Veja também: CURL: Previsualizar etiquetas ZPL sem impressora Zebra

    Visualizador Online

    ZPL Editor

    Manual ZPL

     

     

    Amigo esta linguagem da Zebra poderia ser usada em uma ARGOZ OS- 2140 em PPLA ou emular para usá-la?
    O Visualizador On Line é muito bom para contruirmos a etiqueta e depois só usar como no exemplo abaixo que é ao meu ver beeeeem mais simples:
      

    FUNCTION ETIQUETA_ZEBRA(nPEDI, nVOLU)
LOCAL nQTDE:=[1]
PRIVATE TXTARQ, WLINHA, nTAMANHO, TXT:=[], xTXT:={}
PRIVATE AAA := CurDrive()+":\"+CurDir()+[\TEMP\ETI]+SUBSTR(TIME(),1,2)+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+[.PRN]
PRIVATE ARQTESTE
IF ( ARQTESTE := FCreate( AAA,0 ) ) == F_ERROR
   HWG_MSGINFO([Nao criou o arquivo]+CRLF+ALLTRIM(AAA))
   RETURN NIL
ELSE
   FCLOSE(ARQTESTE)
ENDIF
SAIR()
@ 01,00 SAY PADC([Imprimir etiquetas de envio - ZEBRA], 80 )
@ 11,00 SAY [No. Pedido: ] GET nPEDI PICT [999999]
@ 12,00 SAY [No Volumes: ] GET nVOLU PICT [999]
READ

IF LASTKEY() = 27
   SAIR()
   RETURN NIL
ENDIF

USE xMITI NEW SHARED
SET INDEX TO XMITNOTA
DBSEEK(nPEDI, .F.)

IF FOUND()
   cCODCLI:=CODCLI ; cRAZ:=RAZAO   ; cNNF:=NNFE    ; xOBSER1:=OBS1
   xOBSER2:=OBS2   ; xOBSER3:=OBS3 ; xOBSER4:=OBS4 ; xVLRNFe:=TOTNOTAS
   CLOSE DATA
   USE xCLIENTE SHARED NEW
   SET INDEX TO xRCLICOD
   DBSEEK( cCODCLI, .F.)
   IF FOUND()
      cENDERECO:=ENDENTREGA ; cBAIRRO:=BAIEN ; cCIDADE:=CIDADEEN ; cUF:=ESTAEN ; cCEP:=CEPEN
      SAIR()
   ELSE
      nOPT:=0
      ALERTNEW([Dados do cliente nao localizados])
      SAIR()
      RETURN NIL
   ENDIF
ELSE
   nOPT:=0
   ALERTNEW([Pedido nao localizado])
   SAIR()
   RETURN NIL
ENDIF

C:=1
DO WHILE  C <= nVOLU
   IF C = 1
      TXT := [^XA~TA000~JSN^LT0^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4~SD15^JUS^LRN^CI0^XZ]
      AADD( xTXT, TXT  )
   ENDIF
   TXT:=[^XA]
   AADD( xTXT,  TXT  )
   TXT:=[^PW831]
   AADD( xTXT,  TXT  )
   TXT:=[^LL0799]
   AADD( xTXT,  TXT  )
   TXT:=[^LS0]
   AADD( xTXT,  TXT  )
   TXT:=[^CF0,50]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,50^FDHospitalar Com Med Ltda^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^CF0,30]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,100^FDR  303^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,140^FDJardim America^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,180^FDCep: 99999-999 - GO - GO^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,220^FDTel: (64) 9999-9999 ^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,250^GB720,1,3^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^CF0,25]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,280^FDDestinatario:^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^CF0,30]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,330^FD]+ALLTRIM(cRAZ)     +[^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,370^FD]+ALLTRIM(cENDERECO)+[^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,410^FD]+ALLTRIM(cBAIRRO)  +[^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,450^FDCEP: ]+ALLTRIM(cCEP) +[  ]+ALLTRIM(cCIDADE)+[  ]+ALLTRIM(cUF) + [^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,510^GB720,1,3^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^CF0,35]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,540^FDNo. NFe: ]+STRZERO(cNNF,9) + [  Valor NFe: R$ ]+STR(xVLRNFe,12,2)+[^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO50,600^FDVolumes: ]+STRZERO(C,4)+[/]+STRZERO(nVOLU,4)+[   No. Pedido: ]+STRZERO(nPEDI,7)+[^FS]
   AADD( xTXT,  TXT  )

   TXT:=[^FO50,650^GB720,100,2^FS]
   AADD( xTXT,  TXT  )
   TXT:=[^FO60,690]
   AADD( xTXT,  TXT  )

   TXT:=[^FDPor favor atencao: CUIDADO MATERIAL FRAGIL^FS]
   AADD( xTXT,  TXT  )

   TXT:=[^PQ1,0,1,Y^XZ]
   AADD( xTXT,  TXT  )
   C++
ENDDO
A:=1
TXTARQ   := FOPEN( AAA, 2 )
nTAMANHO := LEN(xTXT)
DO WHILE A <= nTAMANHO
   WLINHA:= ALLTRIM(xTXT[A])+CHR(13)+CHR(10)
   FSEEK( TXTARQ, 0, 2 )
   FWRITE( TXTARQ, ALLTRIM(WLINHA), LEN(WLINHA))
   A++
ENDDO
FCLOSE(TXTARQ)
cArquivo:=alltrim(AAA)
Escolhe_impressora( cArquivo )  //Escolhe_impressora_VISUAL( cArquivo ) // teste visual em 01/10/2015
/*
cImpressora := GetDefaultPrinter()  // Pego a Impressora Padrão, como expliquei acima já deixo a Argox como padrão
PrintFileRaw(cImpressora, cArquivo, [Teste]) // Jogo o arquivo nela, ela pode estar LPT1, USB q vai embora...
*/
SAIR()
RETURN NIL

    Abraços

  20. Windows no navegador

    in Programação

    Posted

    11 horas atrás, oribeiro disse:

    Pessoal,

    Vejam esse site

    https://win11.blueedge.me

    Se o Windows for para a web os nossos problemas estarão resolvidos e poderemos continuar com o fivewin Windows e rodar num navegador.

    Desde o Windows Server já estamos com várias soluções além de umas versões pra cá, o windows disponibiliza o Terminal Service e ultimamente apareceram muitas inclusive uma bem interessante aqui neste forum mesmo mas continuo achando que o nosso "calcanhar de Aquiles" é em mobile (aplicativos) e essa, acho que não teremos nenhuma solução a não ser estudar outras linguagens ao meu ver.

    Umas das alternativas seria neste tópico...

     

  21. Teclas de Atalho (Alt+A)

    in Programação

    Posted

    Veja se ajuda... 

    // Para Usar Tecla ALT+Letra. By Ednaldo Rolim
Static Function Teste( nKey, nFlags )
	    local cKey:= CHR( nKey )
	    If  GetKeyState( VK_CONTROL ) .And. ;
        GetKeyState( VK_SHIFT )
	        MsgInfo( " CONTROL + SHIFT + " + cKey )
	        ElseIf GetKeyState( VK_CONTROL )
	        MsgInfo( " ALT + CONTROL + " + cKey )
	        ElseIf GetKeyState( VK_SHIFT )
	        MsgInfo( " ALT + SHIFT + " + cKey )
	        ElseIf GetKeyState( VK_MENU )                    // alt key
	        MsgInfo( " ALT + " + cKey )
	    EndIf
	    // By Ednaldo Rolim - The Best.
    cKey:= Upper( cKey )
	    IF  cKey == "I"            // Alt+I
	        MsgInfo( " INCLUIR" )
	        ELSEIF cKey == "A"    // Alt+A
	        MsgInfo( " ALTERAR" )
	        ELSEIF cKey == "E"    // Alt+E
	        MsgInfo( " EXCLUIR" )
	        ELSEIF cKey == "P"    // Alt+P
	        MsgInfo( " IMPRIMIR" )
	        ELSEIF cKey == "R"    // Alt+R
	        MsgInfo( OemToAnsi( " RELATàRIOS" ) )
	    ENDIF
	Return( nKey )

    Abraços

×
×
  • Create New...