WORKSHOP

Alain da Silva · 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)

kapiaba · May 24, 2016

Mostre: NFUNCAO.PRG na Linha 48.

Alain da Silva · 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

kapiaba · 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?

Alain da Silva · 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

kapiaba · 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)

Alain da Silva · May 24, 2016

Kapiaba, será que estou carregando certo o arquivo RES na compilação.

segue o resource

USUARIO DIALOG 33, 52, 325, 125
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "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
}

kapiaba · 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

}

kapiaba · 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

kapiaba · 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>

Alain da Silva · May 24, 2016

Agora foi, eu compilei de outra forma e consegui incorporar o res.

obrigado

Sign In

WORKSHOP

Recommended Posts

Alain da Silva

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

Alain da Silva

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

Alain da Silva

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

Alain da Silva

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

Alain da Silva

Link to comment

Share on other sites

Join the conversation

Browse

Activity