kapiaba

Desnecessário. Pode-se usar quantos arquivos .RES sejam necessários, respeitando o limite de 1.057.000 bytes por arquivo .RES. Além do mais, tem-se que enviar a .DLL para o cliente, o que não é preciso usando o .RES. É isso. Abs.

11: Invalid escape sequence:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22056

Veja se não é a mesma koisa que neste tópico. 
Abs.

Nada, se voce fizer assim:


   LOCAL oBtns := ARRAY(12), IDBotao, oFont    DEFINE FONT oFont   NAME "Ms Sans Serif" SIZE 0, -14 BOLD    //->Definicao dos Botoes do Programa    REDEFINE BUTTON oBtns[01] ID 1000 OF oDlg                                 ;             ACTION ( INICIACAD( oLbx, DeOndeVem := [INCLUSAO] ) )            ;             WHEN( .NOT. lEsModi )    oBtns[01]:cToolTip := OemToAnsi( "Incluir Novo Registro - Alt+N" )    REDEFINE BUTTON oBtns[02] ID 2000 OF oDlg                                 ;             ACTION ( CARREGACAD( oLbx, DeOndeVem := [ALTERACAO] ),           ;                                  lEsModi := .T. )                            ;              WHEN( .NOT. lEsModi )    oBtns[02]:cToolTip := OemToAnsi( "Altera‡Æo de Dados - Alt+A" )    REDEFINE BUTTON oBtns[03] ID 3000 OF oDlg                                 ;             ACTION ( IF( MsgYesNo( "Deseja Apagar Este Registro? "         + ;                          CRLF+CRLF, "Confirma? " ),                          ;                      IF( CAD->(Rlock()), CAD->( DbDelete() ),                ;                          CAD->(DbDelete())), .T. ), DbSkip(+1),              ;                           CARREGACAD( oLbx ), oLbx:Refresh() )                ;             WHEN( .NOT. lEsAlta .AND. .NOT. lEsModi )    oBtns[03]:cToolTip := OemToAnsi( "ExclusÆo de Registro - Alt+E" )    REDEFINE BUTTON oBtns[04] ID 4000 OF oDlg                                 ;             ACTION ( BUSCACAD(cTitle, cText, uVar, cBmpFile, cResName, oLbx));              WHEN( .NOT. lEsAlta .AND. .NOT. lEsModi )    oBtns[04]:cToolTip := OemToAnsi( "Pesquisar o Dado - Alt+P" )    REDEFINE BUTTON oBtns[05] ID 5000 OF oDlg                                 ;             ACTION ( DbGoTop(), CARREGACAD( oLbx ) )                             ;              WHEN( .NOT. lEsAlta .AND. .NOT. lEsModi )    oBtns[05]:cToolTip := OemToAnsi( "Inicio do Arquivo - Alt+I" )    REDEFINE BUTTON oBtns[06] ID 6000 OF oDlg                                 ;             ACTION ( IF( !BOF(), DbSkip(-1), DbGoTop() ), CARREGACAD( oLbx ) );             WHEN( .NOT. lEsAlta .AND. .NOT. lEsModi )    oBtns[06]:cToolTip := OemToAnsi( "Registro Anterior do Arquivo - Alt+T" )    REDEFINE BUTTON oBtns[07] ID 7000 OF oDlg                                 ;             ACTION ( IF( !EOF(), DbSkip(+1), Dbskip(-1) ), CARREGACAD( oLbx ) );             WHEN( .NOT. lEsAlta .AND. .NOT. lEsModi )    oBtns[07]:cToolTip := OemToAnsi( "Registro Seguinte do Arquivo - Alt+X" )    REDEFINE BUTTON oBtns[08] ID 8000 OF oDlg                                 ;             ACTION ( DbGoBottom(), CARREGACAD( oLbx ) )                      ;             WHEN( .NOT. lEsAlta .AND. .NOT. lEsModi )    oBtns[08]:cToolTip := OemToAnsi( "Final do Arquivo - Alt+F" )    REDEFINE BUTTON oBtns[09] ID 9000 OF oDlg                                 ;             ACTION ( IMPRIMECAD( oLbx ) )                                    ;             WHEN( .NOT. lEsAlta .AND. .NOT. lEsModi )    oBtns[09]:cToolTip := OemToAnsi( "Listagem do Arquivo - Imprimir - Alt+L" )    REDEFINE BUTTON oBtns[10] ID 10000 OF oDlg                                ;             ACTION ( lSalvar := .T., IF( .NOT. EMPTY( aGets[1] ),            ;                      SALVARCAD( oLbx ), CIERTO( "Registro em Branco " ) ) )  ;             WHEN( lEsAlta .OR. lEsModi )    oBtns[10]:cToolTip := OemToAnsi( "Gravar Dados no Arquivo - Alt+G" )    REDEFINE BUTTON oBtns[11] ID 11000 OF oDlg                                ;             ACTION ( INICIACAD( oLbx ), CARREGACAD( oLbx ), lSalvar := .F.,  ;                                                      lEsAlta := .F.,         ;                                                      lEsModi := .F. ) CANCEL    oBtns[11]:cToolTip := OemToAnsi( "Cancelar Opera‡Æo - Alt+C" )    REDEFINE BUTTON oBtns[12] ID 12000 OF oDlg                                ;             ACTION ( oDlg:End() ) CANCEL UPDATE    oBtns[12]:cToolTip := OemToAnsi( "Saida - Exit - Cancelar" )    //-> Liga as Fontes dos Botoes - Escolha Modelo    //-> SET FONT OF oBtns[01] TO oFont     //-> SET FONT OF oBtns[02] TO oFont     //-> SET FONT OF oBtns[03] TO oFont     //-> SET FONT OF oBtns[04] TO oFont     //-> SET FONT OF oBtns[05] TO oFont     //-> SET FONT OF oBtns[06] TO oFont     //-> SET FONT OF oBtns[07] TO oFont     //-> SET FONT OF oBtns[08] TO oFont     //-> SET FONT OF oBtns[09] TO oFont     //-> SET FONT OF oBtns[10] TO oFont     //-> SET FONT OF oBtns[11] TO oFont     //-> SET FONT OF oBtns[12] TO oFont    //-> Outra Forma Mais Rapida de Fazer    FOR IDBotao = 1 TO 12        SET FONT OF oBtns[IDBotao] TO oFont     NEXT    oFont:End()

Eu uso, é muito bom. Tem várias extensão que ajuda no dia a dia

Kapi,
Esse topico entrou em um LOOP eterno...um link volta pro outro...kkkk

Realmente era a DLL desatualizada, obrigado Kapiaba
 

Para quem usa banco dados via SQL, minha dica e gravar em uma tabela errorlog, que pode ser acessando remotamente. Ficou legal.

C:\FWH..\source\function>DIR ERRSYSW.PRG 03/06/2019  07:51            17.100 errsysw.prg Copie-o para a pasta de trabalho, onde fica o seu programa, e modifique-o a gosto. Super fácil. Cualcuer koisa GRITE, estou abalado com a derrota do cúrintia. kkkkkk

Meus Sentimentos!

Não conseguia ver quem era, tive que clicar no citar. Puts mano, perda terrível. Ele foi um lutador, brigou com a enfermidade até o fim, mas infelizmente ela venceu, porém se foi a vontade de DEUS, que ELE o acolha e conforte a dor da família.
 
[]s,

Que ele esteja com o nosso Senhor Jesus Cristo e que Deus dê forças a familia neste momento de perda.
Conversei muito com o Luiz nesses anos de luta e inclusive o visitei algumas vezes. 
Ajudou muito a nossa comunidade do Fivewin fazendo muitos aprender essa ferramenta fantástica.
Sem duvida foi uma grande perda.
 

Muito triste.
Ele vinha brigando a muito tempo com esta maldita doença que como disse o Luiz acima todos estamos sujeitos.
Que Deus de forças a família e ilumine o caminho dele.

Meus Sentimentos, que a família receba de Deus o conforto necessário para superar essa perda....
 

A data de hoje é um palíndromo. 02/02/2020 tem os mesmos números de frente pra trás e de trás pra frente. A próxima vez será em 101 anos. (12/12/2121) Depois só em 03/03/3030. Hoje também é o 33 dia do ano e faltam 333 dias para terminar o ano.

Obrigado a todos vou testar depois passo a solucao
 

vou tentar me expressar melhor.
Preco do produto sempre 3.50  R$
1- opcao 
     COMPRE 3 PAGUE 2         1 Produto 3,50 - 2 produto 3,49 3 , produto  0,01 centavo              3 produto por 7 r$

2-opção 
     compre 3 unidade  preco igual a 3.333   x 3 = 10.00 (arrendondado abnt)  o quarto  produto = 3.50 r$
     compre 5 unidade  preco igual a 3.000   x 5 = 15.00 (arrendondado abnt)  o sexto ate o nono produto = 3.50 r$




NA VERDADE EU NAO SEI FAZER 
TO TENTANDO ACHAR QUEM TENHA FEITO...
 

Isso mesmo....
 

Function RtGravaPDV(lAppend,nOpcPDV,oDlgNota)
...
     MsgRun("Gerando Relarório","Relatório",{|| RelPDV2(lAppend,nOpcPDV) })

     oCodCli:SETFOCUS()
     OBTN2:OJUMP:=oCodCli
Return .t.
 
FUNCTION RelPDV2(lAppend,nOpcPDV)
Private oPrn
Private nFlag,nLinha,nPagina
*
PRINTERSETUP()
Printer oPrn DOC "Pedido de Venda" PREVIEW // modo grafico com preview
oPrn:SetLandScape()  // Impreesão tio Paisagem
....
 oPrn:EndPAGE()
EndPrint     
Return .T.

Olá,
Não precisa alterar a classe tget, veja o exemplo testget3.prg e veja as propriedades:
oGet:lDisColors := .f. // desativa a cor de desativado
oGet:nClrTextDis := CLR_WHITE // cor do texto quando estiver desativado o GET
oGet:nClrPaneDis := CLR_BLUE // cor do fundo quando estiver desativado o GET
Obs. isto é para as versões mais recentes do FiveWin
e-mail: gilmer@fivewin.com.br
msn: fivewinbrasil@hotmail.com

hummmmm entendi. ai então fica a parte de descobrir como colocar a tela no outro monitor.

Alessandro eu acho(não tenho certeza) que basta falar com um técnico de informática, e ele irá espetar um JUMP(er) na máquina, para se poder usar dois monitores, procede?

Algo +- assim:
 
https://www.americanas.com.br/busca/adaptador-dois-monitores

Então, você está tendo ESTOURO DE PILHA, por falta de memória RAM, ai, o ERRSYSW.PRG não pega talkey()?
Faça assim no ERRSYSW.PRG E verifique qual função, está ESTOURANDO A PILHA, causa provável, um WHILE... ENDO, sem o SysRefresh() ou é um WINDOWS de 64 bits com menos de 8 GBs de RAM. Isso não podyyyy talkey()???

   LOCAL oEmail, cMemoAtual, oGetMail    LOCAL nSpaceDisk, lsucesso := .F.    LOCAL oPrn, cError, nLin, nLinha    LOCAL cSeqErro, cAlias       cMemoAtual := Trans( Int( nExtMem() / ( 1024 * 1024 * 1024 ) + 1 ), "@E 999.99 GB Free" ) + ;       " -> EM WINDOWS DE 64 BITS, MINIMO: 8 GBs DE RAM." +CRLF+ ;       "   SE VOCE TEM MENOS DE 8 GBS, PROVIDENCIE NOVOS PENTES DE MEMORIA." +CRLF+ ;       "   SE O SEU WINDOWS FOR DE 64 BITS. WINDOWS DE 32 BITS, MINIMO: 4 GBS DE RAM."    // Preciso saber qual a memoria da maquina    cErrorLog += "   Memoria Disponivel:  " + cMemoAtual        + CRLF    cErrorLog += "   Sistema Operacional: " + OS() +" - "+ Iif( IsWin64()," (64 bits)", " (32 bits)" ) + CRLF

Mestre, estais usando o ERRSYSW.PRG da   versão 18.12? Ele está em: C:\FWH1812/SOURCE\FUNCTION.
NUNCA deveis utilizar uma versão # do ERRSYSW.PRG de outra versão. xekays porfa e retorne sim?
Podeis modificar à gosto o ERRSYSW.PRG, mas, sempre que atualizar a versão do FIVE, deveis atualizar o ERRSYSW.PRG da versão nova, inclusive, para enviar-te emails de erros do teu sistema(programa), simples e fácil de fazer, usando o RMAIL.PRG by Ricardo Marques, talkey()?? Dúvidas quanto ao RMAIL.PRG, nem me vistes, tá?   kkkkkkkkkkkkk
Abs.