Alain da Silva Posted May 24, 2016 Report Share Posted May 24, 2016 Bom dia, estou atualizando o five e estou tentando acertar os erros. Não sei se estou adicionando certo o Arquivo "RES" na compilação. esso erro acontece na execução da função Stack Calls=========== Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 539 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 277 ) Called from: .\prg\NFUNCAO.PRG => SUPERVISOR( 48 ) WFATURA.RMK #Borland make sample, (c) SysCtrl 2003-2016 HBDIR=\NOVO\XHARBOUR BCDIR=\NOVO\BCC582 FWDIR=\NOVO\FIVE14 #cambiar estos path a sus necesidades #LOS ARCHIVOS .CH PERSONALES COPIARLOS A INCLUDE DE FWH .path.OBJ = .\obj .path.PRG = .\prg .path.CH = $(FWDIR)\include;$(HBDIR)\include .path.C = .\prg .path.rc = .\res #Archivos PRG.s que se compilan! PRG = \ WFATURA.PRG \ TRCALC.PRG \ NFUNCAO.PRG \ ENTRADA.PRG \ REORG2.PRG \ w32olex.PRG \ funcoes_envio.PRG \ funcoes_NFE.PRG \ FastRepH.PRG \ FastRepC.PRG \ VENDA.PRG \ #Archivos de c++ que se compilan! c = \ PROJECT : wfatura.exe wfatura.exe : $(PRG:.PRG=.OBJ) $(c:.C=.OBJ) .\res\WFATURA.res wfatura.exe : $(PRG:.PRG=.OBJ) $(c:.C=.OBJ) .\res\WFATURA2.res echo off echo $(BCDIR)\lib\c0w32.obj + > b32.bc echo obj\WFATURA.OBJ \ obj\TRCALC.OBJ \ obj\NFUNCAO.OBJ \ obj\ENTRADA.OBJ \ obj\REORG2.OBJ \ obj\W32OLEX.OBJ \ obj\FUNCOES_ENVIO.OBJ \ obj\FUNCOES_NFE.oBJ \ obj\FASTREPH.OBJ \ obj\FASTREPC.OBJ \ obj\VENDA.OBJ, + >> b32.bc echo wfatura.exe, + >> b32.bc echo wfatura.map, + >> b32.bc rem librerias de terceros rem echo C:\dolphin\TDOLPHIN\LIB\dolphinx.LIB + >> b32.bc rem echo C:\dolphin\tdolphin\LIB\mysql\omf\libmysql.LIB + >> b32.bc REM echo C:\fwh\LIB\ttaskpanel.LIB + >> b32.bc REM echo C:\fwh\LIB\pdfing.LIB + >> b32.bc echo $(FWDIR)\lib\FiveHx.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc echo $(HBDIR)\lib\rtl.lib + >> b32.bc echo $(HBDIR)\lib\vm.lib + >> b32.bc echo $(HBDIR)\lib\gtgui.lib + >> b32.bc echo $(HBDIR)\lib\lang.lib + >> b32.bc echo $(HBDIR)\lib\macro.lib + >> b32.bc echo $(HBDIR)\lib\rdd.lib + >> b32.bc echo $(HBDIR)\lib\dbfntx.lib + >> b32.bc echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc echo $(HBDIR)\lib\dbffpt.lib + >> b32.bc echo $(HBDIR)\lib\hbsix.lib + >> b32.bc echo $(HBDIR)\lib\debug.lib + >> b32.bc echo $(HBDIR)\lib\common.lib + >> b32.bc echo $(HBDIR)\lib\pp.lib + >> b32.bc echo $(HBDIR)\lib\codepage.lib + >> b32.bc echo $(HBDIR)\lib\ct.lib + >> b32.bc echo $(HBDIR)\lib\pcrepos.lib + >> b32.bc echo $(HBDIR)\lib\zlib.lib + >> b32.bc echo $(HBDIR)\lib\hbzip.lib + >> b32.bc echo $(HBDIR)\lib\libmisc.lib + >> b32.bc echo $(HBDIR)\lib\tip.lib + >> b32.bc echo $(HBDIR)\lib\png.lib + >> b32.bc rem echo c:\XHB1006\lib\pdfing.lib + >> b32.bc rem echo C:\XHB1006\LIB\HBZIP.LIB + >> b32.bc rem echo C:\XHB1006\LIB\ZLIB.LIB + >> b32.bc rem quitar el comentario en estas 2 lineas si se usa Advantage RDD REM echo $(HBDIR)\lib\rddads.lib + >> b32.bc REM echo $(HBDIR)\lib\Ace32.lib + >> b32.bc REM echo $(FWDIR)\lib\dolphinx.lib + >> b32.bc REM echo $(FWDIR)\lib\libmysql.lib + >> b32.bc echo $(BCDIR)\lib\cw32.lib + >> b32.bc echo $(BCDIR)\lib\import32.lib + >> b32.bc echo $(BCDIR)\lib\uuid.lib + >> b32.bc echo $(BCDIR)\lib\ws2_32.lib + >> b32.bc echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc echo $(BCDIR)\lib\psdk\rasapi32.lib + >> b32.bc echo $(BCDIR)\lib\psdk\psapi.lib + >> b32.bc echo $(BCDIR)\lib\psdk\wininet.lib + >> b32.bc echo $(BCDIR)\lib\psdk\shell32.lib + >> b32.bc echo $(BCDIR)\lib\psdk\gdiplus.lib, >> b32.bc IF EXIST WFATURA.res echo WFATURA.res >> b32.bc IF EXIST WFATURA2.res echo WFATURA2.res >> b32.bc $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc del b32.bc .PRG.OBJ: $(HBDIR)\bin\harbour $< /N /m /es2 /gc1 /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include #$(HBDIR)\bin\harbour $< /L /N /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include $(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oobj\$& obj\$&.c .C.OBJ: echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp2 echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp2 $(BCDIR)\bin\bcc32 -oobj\$& @tmp2 $&.c del tmp2 WFATURA.res : WFATURA.res $(BCDIR)\bin\brc32.exe -r wfatura.res WFATURA2.res : WFATURA2.res $(BCDIR)\bin\brc32.exe -r wfatura2.res FUNCTION SUPERVISOR(LSENHA) SAIDLG:=.F. CRAZ=SPACE(100) DEFINE FONT oFNC NAME "Arial" SIZE 0, -12 BOLD DEFINE FONT oGetFnt NAME "Arial" SIZE 0, -13 DEFINE DIALOG tlSENHA RESOURCE "USUARIO" TITLE "Senha do Supervisor/Usuário" tlSENHA : LHELPICON := .F. // Tira a ? da janela REDEFINE bitmap img1 ID 101 RESOURCE "SENHA" OF tlSENHA REDEFINE GET OGLOF VAR CRAZ ID 103 PICTURE "@!" OF tlsenha REDEFINE BTNBMP oBtn ID 102 OF tlsenha ACTION (VERIFICA(CRAZ),XSETFOCUS(OGLOF)); TOOLTIP "Login na Conta" PROMPT "Confirma" LEFT FONT OFNC REDEFINE BTNBMP oBtn ID 104 OF tlsenha ACTION (saidlg:=.t.,LSENHA:=2,TLSENHA:END()); TOOLTIP "Login na Conta" PROMPT "Cancelar" LEFT FONT OFNC ACTIVATE DIALOG tlSENHA CENTER VALID SAIDLG RETURN(LSENHA) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 24, 2016 Report Share Posted May 24, 2016 Mostre: NFUNCAO.PRG na Linha 48. Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 24, 2016 Author Report Share Posted May 24, 2016 Nfunção é um PRG que tenho várias funções entre elas a função: supervisor(lsenha) ACTIVATE DIALOG tlSENHA CENTER VALID SAIDLG /// linha do erro Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 24, 2016 Report Share Posted May 24, 2016 ô rapaz, mostre o código completo onde fica a linha 48. -> SUPERVISOR( 48 ) Não tem mais nada no ERROR.LOG? A descrição do erro? Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 24, 2016 Author Report Share Posted May 24, 2016 FUNCTION SUPERVISOR(LSENHA) SAIDLG:=.F. CRAZ=SPACE(100) DEFINE FONT oFNC NAME "Arial" SIZE 0, -12 BOLD DEFINE FONT oGetFnt NAME "Arial" SIZE 0, -13 DEFINE DIALOG tlSENHA RESOURCE "USUARIO" TITLE "Senha do Supervisor/Usuário" tlSENHA : LHELPICON := .F. // Tira a ? da janela REDEFINE bitmap img1 ID 101 RESOURCE "SENHA" OF tlSENHA REDEFINE GET OGLOF VAR CRAZ ID 103 PICTURE "@!" OF tlsenha REDEFINE BTNBMP oBtn ID 102 OF tlsenha ACTION (VERIFICA(CRAZ),XSETFOCUS(OGLOF)); TOOLTIP "Login na Conta" PROMPT "Confirma" LEFT FONT OFNC REDEFINE BTNBMP oBtn ID 104 OF tlsenha ACTION (saidlg:=.t.,LSENHA:=2,TLSENHA:END()); TOOLTIP "Login na Conta" PROMPT "Cancelar" LEFT FONT OFNC ACTIVATE DIALOG tlSENHA CENTER VALID SAIDLG //// AQUI É O ERRO!!! RETURN(LSENHA) ja tinha postado. Nesse modelo de compilação, inclusive que vc me passou, não achei como colocar o erro.log o programa esta acima. WFATURA.RMK Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 24, 2016 Report Share Posted May 24, 2016 STATIC SAIDLG :=.F. FUNCTION SUPERVISOR(LSENHA) LOCAL oBtn, oBtn2, Craz, oGlof, Img1, oFnc, oGetFnt CRAZ := SPACE(100) DEFINE FONT oFNC NAME "Arial" SIZE 0, -12 BOLD DEFINE FONT oGetFnt NAME "Arial" SIZE 0, -13 DEFINE DIALOG oDlgSenha RESOURCE "USUARIO" TITLE "Senha do Supervisor/Usuário" oDlgSenha:LHELPICON := .F. // Tira a ? da janela REDEFINE BITMAP Img1 ID 101 RESOURCE "SENHA" OF oDlgSenha ADJUST REDEFINE GET OGLOF VAR CRAZ ID 103 PICTURE "@!" OF oDlgSenha UPDATE REDEFINE BUTTONBMP oBtn ID 102 OF oDlgSenha ; ACTION ( ( VERIFICA(CRAZ) ), XSETFOCUS(OGLOF) ) oBtn:cToolTip := "Login na Conta" /* ; TOOLTIP "Login na Conta" PROMPT "Confirma" LEFT FONT OFNC */ // DEPOIS LIGUE PARA VER SE QUEBRA REDEFINE BUTTONBMP oBtn2 ID 104 OF oDlgSenha ; ACTION ( saidlg := .t., LSENHA := 2, oDlgSenha:END() ) oBtn2:cToolTip := "Saida do Login" /* TOOLTIP "Login na Conta" PROMPT "Cancelar" LEFT FONT OFNC */ ACTIVATE DIALOG oDlgSenha CENTERED ; VALID( SAIDLG ) oFnc:End() oGetFnt:End() RETURN(LSENHA) Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 24, 2016 Author Report Share Posted May 24, 2016 Kapiaba, será que estou carregando certo o arquivo RES na compilação. segue o resource USUARIO DIALOG 33, 52, 325, 125STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENUCAPTION "Gerenciar arquivos"FONT 8, "MS Sans Serif"LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL{ CONTROL "", 101, "TBitMap", WS_CHILD | WS_VISIBLE, 0, 0, 325, 63 EDITTEXT 103, 94, 70, 187, 15, ES_PASSWORD | WS_BORDER | WS_TABSTOP PUSHBUTTON "Confirma", 102, 172, 95, 50, 14 LTEXT "Senha:", -1, 52, 76, 28, 8 PUSHBUTTON "Cancelar", 104, 231, 94, 50, 14} Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 24, 2016 Report Share Posted May 24, 2016 O recurso está correto, só faltou a identação. Mas não está sendo incorporado pelo compilador. USUARIO DIALOG 174, 76, 325, 125 STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU CAPTION "Gerenciar arquivos" FONT 8, "MS Sans Serif" { EDITTEXT 103, 94, 70, 187, 15, ES_PASSWORD | WS_BORDER | WS_TABSTOP PUSHBUTTON "Confirma", 102, 172, 95, 50, 14 PUSHBUTTON "Cancelar", 104, 231, 94, 50, 14 CONTROL "TBitMap", 101, "TBitMap", WS_CHILD | WS_VISIBLE, 0, 0, 325, 63 LTEXT "Senha:", -1, 52, 76, 28, 8 } Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 24, 2016 Report Share Posted May 24, 2016 O erro pode estar aqui, copie os .RES Para a sub pasta .RES do projeto. IF EXIST .\res\WFATURA.res echo .\res\WFATURA.res >> b32.bc IF EXIST .\res\WFATURA2.res echo .\res\WFATURA2.res >> b32.bc $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc del b32.bc Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 24, 2016 Report Share Posted May 24, 2016 Cada qual no seu lugar como no exemplo abaixo do CODEBAR.PRG Na pasta Principal, só ficam o .BAT e o .RMK mais nada. C:\CodeBar>dir *. O volume na unidade C é Disco Local O Número de Série do Volume é Pasta de C:\CodeBar 24/05/2016 12:15 <DIR> . 24/05/2016 12:15 <DIR> .. 11/03/2016 12:25 <DIR> DOC 11/03/2016 12:25 <DIR> obj 11/03/2016 13:25 <DIR> prg 11/03/2016 12:25 <DIR> res 0 arquivo(s) 0 bytes 6 pasta(s) 90.411.147.264 bytes disponíveis C:\CodeBar> Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 24, 2016 Author Report Share Posted May 24, 2016 Agora foi, eu compilei de outra forma e consegui incorporar o res. obrigado kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.