bom dia amigos,
quando minimizo o form principal dar o seguinte erro:
SOMENTE NO MINIMIZAR
DAR O SEGUINTE ERRO:
Error Base/1132 Erro de limite: acesso de array
Called from GETITEMWIDTHMIN(409)
Called from EVENTS(1310)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(4282)
Called from MAIN(142)
MEU CODIGO é ESSE:
Function Main()
HB_SETCODEPAGE("PT")
request DBFCDX
RddSetDefault('DBFCDX')
SET INTERACTIVECLOSE OFF
set date british
set century on
set epoch to year(date())+30
set browsesync on
set deleted on
set multiple off warning
set tooltipballoon on
set navigation extended
SET CODEPAGE TO PORTUGUESE
SET LANGUAGE TO PORTUGUESE
DEFINE WINDOW FORM_PRINCIPAL ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 480 ;
TITLE SISTEMA ;
ICON 'SGHWIN.ICO' ;
MAIN ;
NOMAXIMIZE ;
FONT 'Arial' SIZE 14 ;
BACKCOLOR GRAY ;
ON INIT InicializaAmbiente();
ON RELEASE Nada()
DEFINE MAIN MENU
//
// Atendimento
POPUP '&Atendimento'
POPUP '&Pacientes'
ITEM 'Cadastro ' ACTION Nada() NAME Mn_Pagar ITEM 'Relatorios ' ACTION Nada() NAME Mn_Receber
END POPUP
SEPARATOR ITEM 'Agenda ' ACTION Nada() NAME Mn_Receber
SEPARATOR
ITEM '&Mapa Cirurgico ' ACTION Nada() NAME Mn_Clientes
SEPARATOR ITEM '&Relat¢rios ' ACTION Nada() NAME Mn_Fornecedores
SEPARATOR
ITEM '&Sair' ACTION Confirmar_Saida()
END POPUP
// Faturamento
POPUP '&Faturamento'
ITEM '&About' ACTION Nada()
END POPUP
// Laudos
POPUP '&Laudos'
ITEM '&Ecocardiograma' ACTION Nada()
ITEM '&Hemodinamica' ACTION Nada()
ITEM '&Teste Ergometrico' ACTION Nada()
SEPARATOR
ITEM '&Tomografia Computadorizada' ACTION Nada()
ITEM '&Raios X ' ACTION Nada() POPUP '&Ultrassonografia'
ITEM '&Cadastro ' ACTION LaudosUltrasson()
SEPARATOR
ITEM '&Relacao dos Laudos' ACTION Nada()
ITEM '&Etiqueta ' ACTION Nada()
ITEM '&Formulas ' ACTION FormulaUltrasson()
ITEM 'Co&pia Formulas ' ACTION Nada()
ITEM '&Imprimir Formulas ' ACTION Nada()
ITEM 'E&Xames ' ACTION Nada()
SEPARATOR ITEM '&Parametros ' ACTION Nada()
END POPUP SEPARATOR
ITEM '&Ressonancia Magnética' ACTION Nada()
END POPUP
// Estoque
POPUP '&Estoque'
ITEM '&Saidas' ACTION Nada()
ITEM '&Entradas' ACTION Nada()
SEPARATOR
ITEM '&Relat¢rios' ACTION Nada()
END POPUP
// Financeiro
POPUP '&Financeiro'
ITEM '&Contas a pagar ' ACTION Nada()
ITEM '&Contas a receber' ACTION Nada()
SEPARATOR
ITEM '&Relat¢rios ' ACTION Nada()
END POPUP
// Tabelas
POPUP '&Tabelas'
ITEM '&Convenios ' ACTION Nada()
ITEM '&Gerais ' ACTION Nada()
ITEM '&Procedimentos' ACTION Nada() END POPUP
// Util
POPUP '&Util'
ITEM '&Impressoras' ACTION Nada()
ITEM '&Parametros ' ACTION Nada()
END POPUP
// Sobre
POPUP 'So&bre'
ITEM '&Ajuda ' ACTION Nada()
ITEM '&Sistema ' ACTION Sobre_o_Sistema()
END POPUP
// SAIR
POPUP '&SAIR'
ITEM '&SAIR ' ACTION Confirmar_Saida()
END POPUP
END MENU
END WINDOW
FORM_PRINCIPAL.Label_Mensagens.Visible := .F.
CENTER WINDOW FORM_PRINCIPAL
ACTIVATE WINDOW FORM_PRINCIPAL
Return Nil