Moderador: Moderadores
MenuOption( "Movto" )
MenuDrop()
MenuOption( "Pedidos/Notas Fiscais" )
MenuDrop()
MenuOption( "Orçamentos/Pedidos", "P0600PED" )
MenuOption( "Emissor JPA", "PEMISSOR" )
MenuOption( "Nota Fiscal (Serviços)", "PNOT0010" )
MenuOption( "Consulta a Notas Fiscais", "PNOT0020" )
MenuOption( "Gera Pedido de Retirada", "PNOT0030" )
MenuOption( "Rel.Romaneio de NFs", "PNOT0050" )
MenuOption( "Manifesto Eletrônico", "PJPMDF" )
PROCEDURE PTESFORUM
LOCAL mCliente := Space(6), GetList := {}
IF .NOT. AbreArquivos( "jpcadas" )
RETURN
ENDIF
@ 5, 10 SAY "Cliente....." GET mCliente PICTURE "@K 99999" VALID JPCADAS1Class():Valida( @mCliente )
READ
CLOSE DATABASES
RETURN
Windows: Windows 7 6.1 SP1
Computer Name: JOSEJPA
Windows User: joseq
Logon Server: \JOSEJPA
User Domain: josejpa
Error BASE/1001 Undefined function: PTESFORUM
Called from DO(0)
Called from DOPRG(144)
Called from (b)RUNMODULE(111)
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
Error on 17/01/16 10:34:11
JPA: 2016.01.14.1410
Login JPA: JOSEQ
Alias:
Harbour: Harbour 3.4.0dev (0a127e0) (2016-01-15 01:54)
Compiler: Microsoft Visual C++ 16.0.40219 (32-bit)
GT: WVG
Folder: d:\CDROM\DADOS\SISTEMAS\
Windows: Windows 7 6.1 SP1
Computer Name: JOSEJPA
Windows User: joseq
Logon Server: \JOSEJPA
User Domain: josejpa
Error BASE/1001 Undefined function: PTESFORUM
Called from DO(0)
Called from DOPRG(144)
Called from (b)RUNMODULE(111)
SET KEY K_F9 TO Pesquisa
cVarName := Lower( ReadVar() )
...
CASE cVarName $ "mcliente" // .AND. m_Prog == "PTESFORUM"
JPCADAS1Class():GridSelection()
...
METHOD GridSelection() CLASS JPCADAS1Class
LOCAL nCont, nSelect := Select(), cOrdSetFocus, oTBrowse
IF Select( "jpclista" ) == 0
SELECT 0
AbreArquivos( "jpclista" )
WriteErrorLog( "Faltou abrir jpclista", 2 )
ENDIF
SELECT jpcadas
oTBrowse := { ;
{ "Nome", {|| jpcadas->cdNome } }, ;
{ "Apelido", {|| jpcadas->cdApelido } }, ;
{ "Código", {|| jpcadas->cdCodigo } }, ;
{ "UF", {|| jpcadas->cdUf } }, ;
{ "Cidade", {|| jpcadas->cdCidade } }, ;
{ "Ref.Mapa", {|| jpcadas->cdMapa } }, ;
{ "Endereço", {|| jpcadas->cdEndereco } }, ;
{ "Número", {|| jpcadas->cdNumero } }, ;
{ "Complemento", {|| jpcadas->cdCompl } }, ;
{ "Cnpj", {|| jpcadas->cdCnpj } } }
FOR nCont = 1 TO Len( oTBrowse )
AAdd( oTBrowse[ nCont ], {|| iif( ! Encontra( jpcadas->cdStatus, "jpclista", "numlan" ) .OR. Val( jpcadas->cdStatus ) < 2, { 1, 2 }, ;
iif( Trim( jpclista->csBloqueio ) == "0", { 3, 2 }, ;
iif( Trim( jpclista->csBloqueio ) == "1", { 4, 2 }, { 7, 2 } ) ) ) } )
NEXT
cOrdSetFocus := ordSetFocus()
ordSetFocus( "jpcadas2" )
FazBrowse( oTBrowse,, "1" )
IF LastKey() != K_ESC .AND. ! Eof()
KEYBOARD jpcadas->cdCodigo + Chr( K_ENTER )
ENDIF
ordSetFocus( cOrdSetFocus )
SELECT ( nSelect )
RETURN NIL
IF Select( "jpclista" ) == 0
SELECT 0
AbreArquivos( "jpclista" )
WriteErrorLog( "Faltou abrir jpclista", 2 )
ENDIF
nSelect := Select()
...
SELECT ( nSelect )
cOrdSetFocus := ordSetFocus()
ordSetFocus( "jpcadas2" )
...
ordSetFocus( cOrdSetFocus )
IF LastKey() != K_ESC .AND. ! Eof()
KEYBOARD jpcadas->cdCodigo + Chr( K_ENTER )
ENDIF
oTBrowse := { ;
{ "Nome", {|| jpcadas->cdNome } }, ;
{ "Apelido", {|| jpcadas->cdApelido } }, ;
{ "Código", {|| jpcadas->cdCodigo } }, ;
{ "UF", {|| jpcadas->cdUf } }, ;
{ "Cidade", {|| jpcadas->cdCidade } }, ;
{ "Ref.Mapa", {|| jpcadas->cdMapa } }, ;
{ "Endereço", {|| jpcadas->cdEndereco } }, ;
{ "Número", {|| jpcadas->cdNumero } }, ;
{ "Complemento", {|| jpcadas->cdCompl } }, ;
{ "Cnpj", {|| jpcadas->cdCnpj } } }
FOR nCont = 1 TO Len( oTBrowse )
AAdd( oTBrowse[ nCont ], {|| iif( ! Encontra( jpcadas->cdStatus, "jpclista", "numlan" ) .OR. Val( jpcadas->cdStatus ) < 2, { 1, 2 }, ;
iif( Trim( jpclista->csBloqueio ) == "0", { 3, 2 }, ;
iif( Trim( jpclista->csBloqueio ) == "1", { 4, 2 }, { 7, 2 } ) ) ) } )
NEXT
FazBrowse( oTBrowse,, "1" )
rro executando comando:-2147217900 [MySQL][ODBC 3.51 Driver][mysqld-5.6.25-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '%' ORDER BY ENDERECO' at line 1
--------------------------------------------------------------------------------
SELECT ENDERECO, CLASSI, NUMERO FROM ALUGUEL WHERE MID( CLASSI, 1, 2 ) IN ( 'AR', 'CR', 'SR' ) AND ENDERECO LIKE ''%' ORDER BY ENDERECO;
Called from ADOCLASS:EXECUTE(218)
Called from CONSULTAALUGUELCLASS:NAVEGAALUGUEL(423)
Called from CONSULTAALUGUELCLASS:CONSULTA01(105)
Called from VHLAL01(49)
Called from DO(0)
Called from BOXMENU(519)
Called from MAINMENU(368)
Called from MAIN(161)
Harbour 3.4.0dev (0a127e0) (2016-01-15 01:54)
Copyright (c) 1999-2016, https://github.com/vszakats/harbour-core/
Compiling 'VHLAL01.prg'...
VHLAL01.prg(646) Warning W0032 Variable 'CPALAVRA' is assigned but not used in function 'MYSQLENDERECOLIKE(642)'
No code generated.
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 24 visitantes