FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

unrecoverable error 9015 hb_vmdo()

Post a reply

Re: unrecoverable error 9015 hb_vmdo()

Postby Edman » Wed Oct 13, 2021 4:58 pm

ver stat func fteclei
Edman
 
Posts: 20
Joined: Wed Oct 06, 2021 8:19 pm
Top

Re: unrecoverable error 9015 hb_vmdo()

Postby karinha » Wed Oct 13, 2021 5:12 pm

Edman wrote:ver stat func fteclei


Você não precisa usa comandos do xHarbour do Inkey.ch o fivewin tem seus próprios comandos.

DECLARE TODAS AS VARIÁVEIS, DE PREFERÊNCIA A LOCAL.

Code: Select all  Expand view


CADPLAN.prg(56) Warning W0001  Ambiguous reference: 'NTTINIC'
CADPLAN.prg(57) Warning W0001  Ambiguous reference: 'NTT'
CADPLAN.prg(58) Warning W0001  Ambiguous reference: 'I'
CADPLAN.prg(74) Warning W0001  Ambiguous reference: 'V_ESCOLHA'
CADPLAN.prg(81) Warning W0001  Ambiguous reference: 'NRPOS'
CADPLAN.prg(85) Warning W0001  Ambiguous reference: 'PROCUTOQUE'
CADPLAN.prg(86) Warning W0001  Ambiguous reference: 'VTIPOFORESC'
CADPLAN.prg(87) Warning W0001  Ambiguous reference: 'VTIPOSECESC'
CADPLAN.prg(97) Warning W0001  Ambiguous reference: 'LDECEND'
CADPLAN.prg(103) Warning W0001  Ambiguous reference: 'A_CSTATE'
CADPLAN.prg(104) Warning W0001  Ambiguous reference: 'A_CSTATE'
CADPLAN.prg(107) Warning W0001  Ambiguous reference: ''
CADPLAN.prg(110) Warning W0001  Ambiguous reference: 'COR_PRET'
CADPLAN.prg(110) Warning W0001  Ambiguous reference: 'COR_CINZ_'
CADPLAN.prg(110) Warning W0001  Ambiguous reference: 'ODLGPLAN'
CADPLAN.prg(116) Warning W0001  Ambiguous reference: 'COR_PRET'
CADPLAN.prg(116) Warning W0001  Ambiguous reference: 'COR_CINZ_'
CADPLAN.prg(140) Warning W0001  Ambiguous reference: 'OCOMBORDEM'
CADPLAN.prg(140) Warning W0001  Ambiguous reference: 'OLSTBPLAN'
CADPLAN.prg(140) Warning W0001  Ambiguous reference: 'COR_AZULE'
CADPLAN.prg(140) Warning W0001  Ambiguous reference: 'COR_AZULFF'
CADPLAN.prg(140) Warning W0001  Ambiguous reference: 'OCOMBORDEM'
CADPLAN.prg(150) Warning W0001  Ambiguous reference: 'COR_VERMT'
CADPLAN.prg(150) Warning W0001  Ambiguous reference: 'COR_CINZ_'
CADPLAN.prg(150) Warning W0001  Ambiguous reference: 'OFNTBOLD'
CADPLAN.prg(150) Warning W0001  Ambiguous reference: 'OSTEMFILT'
CADPLAN.prg(181) Warning W0001  Ambiguous reference: 'OFNTPRINC'
CADPLAN.prg(195) Warning W0001  Ambiguous reference: 'COR_AMAR'
CADPLAN.prg(227) Warning W0001  Ambiguous reference: 'L_TESTANDO'
CADPLAN.prg(236) Warning W0001  Ambiguous reference: 'V_OPERAD'
CADPLAN.prg(251) Warning W0001  Ambiguous reference: 'OWNDPRINC'
CADPLAN.prg(251) Warning W0001  Ambiguous reference: 'CFILTROTELA'
CADPLAN.prg(251) Warning W0001  Ambiguous reference: 'OSTEMFILT'
CADPLAN.prg(253) Warning W0001  Ambiguous reference: 'A_CSTATE'
CADPLAN.prg(302) Warning W0001  Ambiguous reference: 'N_ESCOLHA'
CADPLAN.prg(306) Warning W0001  Ambiguous reference: 'LDESCEND'
CADPLAN.prg(383) Warning W0001  Ambiguous reference: 'NRIDPLAN'
CADPLAN.prg(387) Warning W0001  Ambiguous reference: 'V_OPERAD'
CADPLAN.prg(426) Warning W0001  Ambiguous reference: 'CNOMEPROD'
CADPLAN.prg(434) Warning W0001  Ambiguous reference: 'OBTREPPROC'
CADPLAN.prg(477) Warning W0001  Ambiguous reference: 'OBTPRIMEIRO'
CADPLAN.prg(478) Warning W0001  Ambiguous reference: 'OBTANTERIOR'
CADPLAN.prg(479) Warning W0001  Ambiguous reference: 'OBTSEGUINTE'
CADPLAN.prg(480) Warning W0001  Ambiguous reference: 'OBTULTIMO'
CADPLAN.prg(525) Warning W0001  Ambiguous reference: 'CFILTROTELA'
// AQUI VOCE PODE USAR COMANDO DO FIVEWIN, MELHOR DO QUE DO INKEY.CH
CADPLAN.prg(585) Warning W0001  Ambiguous reference: 'K_ALT_V'
REM
CADPLAN.prg(587) Warning W0001  Ambiguous reference: 'OBTMOSTRAP'
CADPLAN.prg(591) Warning W0001  Ambiguous reference: 'K_ALT_F'
CADPLAN.prg(593) Warning W0001  Ambiguous reference: 'OBTFILTRA'
CADPLAN.prg(597) Warning W0001  Ambiguous reference: 'K_INS'
CADPLAN.prg(597) Warning W0001  Ambiguous reference: 'K_ALT_I'
CADPLAN.prg(597) Warning W0001  Ambiguous reference: 'V_OPERAD'
CADPLAN.prg(600) Warning W0001  Ambiguous reference: 'K_INS'
CADPLAN.prg(600) Warning W0001  Ambiguous reference: 'K_ALT_I'
CADPLAN.prg(600) Warning W0001  Ambiguous reference: 'V_OPERAD'
CADPLAN.prg(602) Warning W0001  Ambiguous reference: 'OBTINCLUI'
CADPLAN.prg(606) Warning W0001  Ambiguous reference: 'K_ALT_E'
CADPLAN.prg(606) Warning W0001  Ambiguous reference: 'K_DEL'
CADPLAN.prg(606) Warning W0001  Ambiguous reference: 'V_OPERAD'
CADPLAN.prg(609) Warning W0001  Ambiguous reference: 'K_ALT_E'
CADPLAN.prg(609) Warning W0001  Ambiguous reference: 'K_DEL'
CADPLAN.prg(609) Warning W0001  Ambiguous reference: 'V_OPERAD'
CADPLAN.prg(611) Warning W0001  Ambiguous reference: 'OBTEXCLUI'
CADPLAN.prg(612) Warning W0001  Ambiguous reference: 'OBTEXCLUI'
CADPLAN.prg(615) Warning W0001  Ambiguous reference: 'K_ALT_R'
CADPLAN.prg(615) Warning W0001  Ambiguous reference: 'V_OPERAD'
CADPLAN.prg(618) Warning W0001  Ambiguous reference: 'K_ALT_R'
CADPLAN.prg(618) Warning W0001  Ambiguous reference: 'V_OPERAD'
CADPLAN.prg(620) Warning W0001  Ambiguous reference: 'OBTREVISA'
CADPLAN.prg(634) Warning W0001  Ambiguous reference: 'OLSTBPLA'
CADPLAN.prg(647) Warning W0001  Ambiguous reference: 'CFILTROTELA'
CADPLAN.prg(695) Warning W0001  Ambiguous reference: 'ULTIMAPOS'
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7824
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: unrecoverable error 9015 hb_vmdo()

Postby karinha » Wed Oct 13, 2021 5:16 pm

Veja o meu Include que eu uso: exemplo: PLENO.CH ou AMBIENTY.CH em todos os Módulos, chamo assim: #Include "Ambienty.Ch"

Code: Select all  Expand view

#Include "Fivewin.Ch"
#Include "AnimaBmp.Ch"  // Anima Uma BitMap Na Dialog
#Include "dbinfo.ch"
#Include "Dll.ch"
#Include "dtpicker.ch"
#Include "Directry.ch"
#Include "DSay.Ch"      //->Cores nos Get's
#include "fileio.ch"
#Include "GIF.Ch"
#Include "Image.ch"
#Include "Mail.Ch"      //-> Cabecalho dos Emails
#Include "Ord.Ch"       //-> Para Utilizar SCOPES, é Necessário o Arquivo Ord.Ch
#Include "Report.Ch"    //-> Classe Para Reportes
#Include "SSay.Ch"      //-> SAY Transparente, Classe: SSAY.PRG
#Include "URLLink.ch"   //-> Usando URL direto no dialogo.
#Include "xbrowse.ch"

#Define CLR_LGRAY      nRGB( 230, 230, 230 )
#Define CLR_LGREEN     nRGB( 190, 215, 190 )
#Define CLR_VERMELHO   nRGB( 255, 000, 000 ) //-> Vermelho Para a Letra
#Define CLR_AMARELO    nRgb( 255, 255, 000 ) //-> Amarelo Para o Fundo
#Define CLR_BOMBOM     nRGB( 000, 000, 000 ) //-> Marrom BomBom
#Define CLR_MARROM     nRGB( 135, 206, 250 ) //-> LightSkyBlue
#Define CLR_MENTA      nRGB( 221, 255, 238 ) //-> Cor de Menta
#Define CLR_HMENTA     nRGB( 000, 128, 000 ) //-> Cor de Menta Light uiiii
#Define CLR_SOFTYELLOW nRGB( 255, 251, 225 )
#Define nBackColorA    nRGB( 255, 255, 000 ) //-> Yellow - Amarelo/Amarijo
#Define COLOR_BTNFACE  15
#Define CLR_WINDOW     nRGB( 130, 130, 130 ) //-> 16 // COR DO WINDOWS DEFINIDA 16 BITS
#Define CLR_PINK       nRGB( 255, 128, 128)
#Define CLR_NBLUE      nRGB( 128, 128, 192)

#Define TRUE  .T.
#Define FALSE .F.

#Define PAD_LEFT            0
#Define PAD_RIGHT           1
#Define PAD_CENTER          2

#Define SW_SHOWMAXIMIZED 3

// REM #Define WM_MOUSELEAVE 675  // EM MOUSEMO.PRG TROCA A COR DO BOTAO AO PASSAR O MOUSE
// REM #Define TME_LEAVE 2

#ifndef XPP
   #define  HKEY_CLASSES_ROOT       2147483648
   #define  HKEY_CURRENT_USER       2147483649
   #define  HKEY_LOCAL_MACHINE      2147483650
   #define  HKEY_USERS              2147483651
   #define  HKEY_PERFORMANCE_DATA   2147483652
   #define  HKEY_CURRENT_CONFIG     2147483653
   #define  HKEY_DYN_DATA           2147483654
#else
   #define  HKEY_CLASSES_ROOT       1
   #define  HKEY_CURRENT_USER       2
   #define  HKEY_LOCAL_MACHINE      3
   #define  HKEY_USERS              4
   #define  HKEY_PERFORMANCE_DATA   5
   #define  HKEY_CURRENT_CONFIG     6
   #define  HKEY_DYN_DATA           7
#endif

// PEGUEI DE TMAIL.PRG  FWH..\SOURCE\CLASSES
#define SUCCESS_SUCCESS                      0
#define MAPI_USER_ABORT                      1
#define MAPI_E_FAILURE                       2
#define MAPI_E_LOGIN_FAILURE                 3
#define MAPI_E_DISK_FULL                     4
#define MAPI_E_INSUFFICIENT_MEMORY           5
#define MAPI_E_ACCESS_DENIED                 6
#define MAPI_E_TOO_MANY_SESSIONS             8
#define MAPI_E_TOO_MANY_FILES                9
#define MAPI_E_TOO_MANY_RECIPIENTS          10
#define MAPI_E_ATTACHMENT_NOT_FOUND         11
#define MAPI_E_ATTACHMENT_OPEN_FAILURE      12
#define MAPI_E_ATTACHMENT_WRITE_FAILURE     13
#define MAPI_E_UNKNOWN_RECIPIENT            14
#define MAPI_E_BAD_RECIPTYPE                15
#define MAPI_E_NO_MESSAGES                  16
#define MAPI_E_INVALID_MESSAGE              17
#define MAPI_E_TEXT_TOO_LARGE               18
#define MAPI_E_INVALID_SESSION              19
#define MAPI_E_TYPE_NOT_SUPPORTED           20
#define MAPI_E_AMBIGUOUS_RECIPIENT          21
#define MAPI_E_MESSAGE_IN_USE               22
#define MAPI_E_NETWORK_FAILURE              23
#define MAPI_E_INVALID_EDITFIELDS           24
#define MAPI_E_INVALID_RECIPS               25
#define MAPI_E_NOT_SUPPORTED                26
// ESTA EM: \PIZZAS\VENDAS.CH Copiei em: 20/01/2021 - Covid-19
// Mensagens da Barra, Rel¢gio, Data, Status, Etc.
#define CLOCK_ON       OemToAnsi( "Ligar/Desligar o Rel¢gio da Barra de Mensagens." )
#define CLOCK_OFF      OemToAnsi( "Desligar/Ligar o Rel¢gio da Barra de Mensagens." )
#define DATE_ON        OemToAnsi( "Ligar/Desligar a Data da Barra de Mensagens." )
#define DATE_OFF       OemToAnsi( "Desligar/Ligar a Data da Barra de Mensagens." )
#define KEYB_ON        OemToAnsi( "Ligar/Desligar o Status do Teclado " + ;
                                  "da Barra de Mensagens." )
#define KEYB_OFF       OemToAnsi( "Desligar/Ligar o Status do Teclado " + ;
                                  "da Barra de Mensagens." )

// Mensagens da Barra, BotÆo do Mouse Para Destros e Canhotos.
#define MOUSE_ON       OemToAnsi( "Ligar o Mouse Para Destros(BotÆo "  + ;
                                  "Esquerdo do Mouse)-Default ‚ o "    + ;
                                  "BotÆo Esquerdo." )
#define MOUSE_OFF      OemToAnsi( "Ligar o Mouse Para Canhotos(BotÆo " + ;
                                  "Direito do Mouse)-Inverter o "      + ;
                                  "<Click> do Mouse." )

// Menu Para Ligar/Desligar a Barra de Mensagens do Menu Principal
#define MENU_CLOCK_ON  OemToAnsi( "Ligar/Desligar o Rel¢gio" )
#define MENU_CLOCK_OFF OemToAnsi( "Desligar/Ligar o Rel¢gio" )
#define MENU_DATE_ON   OemToAnsi( "Ligar/Desligar a Data" )
#define MENU_DATE_OFF  OemToAnsi( "Desligar/Ligar a Data" )
#define MENU_KEYB_ON   OemToAnsi( "Ligar/Desligar Teclado" )
#define MENU_KEYB_OFF  OemToAnsi( "Desligar/Ligar Teclado" )

// Menu Para Ligar/Desligar o Mouse BotÆo Para Destros ou Canhotos
#define MENU1_MOUSE_ON  OemToAnsi( "Ligar o Mouse(Destros) " )
#define MENU2_MOUSE_OFF OemToAnsi( "Ligar o Mouse(Canhotos)" )
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7824
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: unrecoverable error 9015 hb_vmdo()

Postby Edman » Wed Oct 13, 2021 6:08 pm

obrigado;

vou testar e depois dou retorno
Edman
 
Posts: 20
Joined: Wed Oct 06, 2021 8:19 pm
Top
Previous
Post a reply

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 71 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group