Edman wrote:ver stat func fteclei
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'
#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)" )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 49 guests