ERROR BASE/1078
Publicado por jose marquez (21 intervenciones) el 05/12/2007 18:31:21
HOLA A TODOS:
ESTOY TRATANDO DE EMIGRAR CLIPPER + FW 24 A HARBOUR FWH 24 PERO ME SURGIO EL SIGUIENTE ERROR AL EJECUTAR QUE NO LE PUEDO ENCONTRAR:
ERROR BASE/1087 ARGUMENT ERROR: .AND. FROM ERRORSYS, LINA: 0.
HAEBER SI ALGUIEN ME LO PUEDE EXPLICAR SE LOAGRADECERIA INFINITAMENTE.
LES DEJO MI CODIGO FUENTE PARA QUE LO ANALICEN. DE ANTEMANO MIL GRACIAS.
Function avi601()
LOCAL oFont5
local oBtm5
local oBtm6
local oBmp6, oBmp, oBtnbmp
LOCAL oIcon3
local oBarra
local oDlg2
CNOMBRE:=space(30)
CCVECAN:=CIMPORTE:=0
FUERA:=.f.
set _3dlook on
//patres:="z:aviores"
// USE C:AVIOAVIORESmaepro ALIAS maepro
USE C:AVIOavioresmaepro ALIAS maepro
INDEX ON maepro->NOMBRE1 TO c:ALFA
set index to c:ALFA
close data
// USE C:AVIOAVIORESmaepro alias maepro shared new
USE C:AVIOavioresmaepro alias maepro shared new
set index to c:ALFA
VISA1()
close data
return nil
function VISA1()
DEFINE FONT oFont5 NAME "arial" SIZE 05,14 bold
DO WHILE .T.
// DEFINE ICON oIcon3 resource "fivewin"
// DEFINE BITMAP oBmp resource "pintura5"
DEFINE DIALOG oDlg2 RESOURCE "BRWALFA" OF oWnd
// oDlg2:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }
MsgInfo( "definio dialogo" )
oDlg2:bGotFocus = { || SndPlaySound("c:Windowsmediachimes.wav") }
// Odlg2:oIcon=oIcon3
// oDlg2:nClrText=nRGB(249,16,32)
MsgInfo( "antes del get" )
REDEFINE GET oGet VAR CNOMBRE PICTURE "@!" ID 101 OF oDlg2 COLOR "R+/BG+" font oFont5;
VALID (APUNTA(CNOMBRE),.t.)
//MsgInfo( "antes del listbox" )
REDEFINE LISTBOX oBrow fields transform(cvenva,"9/99-999"),TRANSFORM(VAL(CLAVECONSO),"9/99-999"),;
OemToansi(nombre1),asoc,pad_0607 alias "maepro" font oFont5;
ID 102 OF oDlg2 head "CLAVE","CVECON","NOMBRE DEL PRODUCTOR","ASOC","PADRON";
COLOR "R+/BG+"
//MsgInfo( "despues del listbox" )
oBrow:refresh()
oBrow:aJustify={2,2,0,2,2}
oBrow:nLinestyle=11
oBrow:nClrbackhead=nRGB(0,213,213)
oBrow:nClrforehead=nRGB(0,150,151)
oBrow:nClrforefocus=nRGB(249,216,32)
oBrow:nClrbackfocus=nRGB(249,29,83)
oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(0,213,213),rgb(0,150,151))}
//oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(230,230,230),rgb(190,215,190))}
// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (FUERA:=.T.,oDlg2:End())
// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (cancel)
//MsgInfo( "antes del boton" )
REDEFINE BTNBMP oBtnBmp ID 103 OF oDlg2 RESOURCE "Salida" ACTION (FUERA:=.T.,oDlg2:End())
oBtnBmp:nClrpane=nRGB(0,151,151)
//MsgInfo( "despues del boton" )
//oBtnBmp:nClrpane=nRGB(78,20,240)
// oBtnBmp:nClrtext=nRGB(18,190,71)
ACTIVATE DIALOG oDlg2 CENTER;
on init (sndPlaySound("c:windowsmedia otify.wav"),oGet:setfocus())
// If GetKeyState(VK_ESCAPE).or.fuera=.t.
// IF (FUERA=.T.).OR.CNOMBRE=SPACE(30)
// RETURN .F.
// ENDIF
//MsgInfo( "activo dialogo" )
RETURN
ENDDO
// set resources to
release font oFont5
oFont5:end()
RETURN NIL
FUNCTION APUNTA(CNOMBRE)
// MsgInfo( "antes de apuntar" )
MAEPRO->(DBSEEK(CNOMBRE,.t.))
//oGet:setfocus()
oBrow:upstable()
oBrow:refresh()
//MsgInfo( "despues de apuntas" )
RETURN(cnombre)
ESTOY TRATANDO DE EMIGRAR CLIPPER + FW 24 A HARBOUR FWH 24 PERO ME SURGIO EL SIGUIENTE ERROR AL EJECUTAR QUE NO LE PUEDO ENCONTRAR:
ERROR BASE/1087 ARGUMENT ERROR: .AND. FROM ERRORSYS, LINA: 0.
HAEBER SI ALGUIEN ME LO PUEDE EXPLICAR SE LOAGRADECERIA INFINITAMENTE.
LES DEJO MI CODIGO FUENTE PARA QUE LO ANALICEN. DE ANTEMANO MIL GRACIAS.
Function avi601()
LOCAL oFont5
local oBtm5
local oBtm6
local oBmp6, oBmp, oBtnbmp
LOCAL oIcon3
local oBarra
local oDlg2
CNOMBRE:=space(30)
CCVECAN:=CIMPORTE:=0
FUERA:=.f.
set _3dlook on
//patres:="z:aviores"
// USE C:AVIOAVIORESmaepro ALIAS maepro
USE C:AVIOavioresmaepro ALIAS maepro
INDEX ON maepro->NOMBRE1 TO c:ALFA
set index to c:ALFA
close data
// USE C:AVIOAVIORESmaepro alias maepro shared new
USE C:AVIOavioresmaepro alias maepro shared new
set index to c:ALFA
VISA1()
close data
return nil
function VISA1()
DEFINE FONT oFont5 NAME "arial" SIZE 05,14 bold
DO WHILE .T.
// DEFINE ICON oIcon3 resource "fivewin"
// DEFINE BITMAP oBmp resource "pintura5"
DEFINE DIALOG oDlg2 RESOURCE "BRWALFA" OF oWnd
// oDlg2:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }
MsgInfo( "definio dialogo" )
oDlg2:bGotFocus = { || SndPlaySound("c:Windowsmediachimes.wav") }
// Odlg2:oIcon=oIcon3
// oDlg2:nClrText=nRGB(249,16,32)
MsgInfo( "antes del get" )
REDEFINE GET oGet VAR CNOMBRE PICTURE "@!" ID 101 OF oDlg2 COLOR "R+/BG+" font oFont5;
VALID (APUNTA(CNOMBRE),.t.)
//MsgInfo( "antes del listbox" )
REDEFINE LISTBOX oBrow fields transform(cvenva,"9/99-999"),TRANSFORM(VAL(CLAVECONSO),"9/99-999"),;
OemToansi(nombre1),asoc,pad_0607 alias "maepro" font oFont5;
ID 102 OF oDlg2 head "CLAVE","CVECON","NOMBRE DEL PRODUCTOR","ASOC","PADRON";
COLOR "R+/BG+"
//MsgInfo( "despues del listbox" )
oBrow:refresh()
oBrow:aJustify={2,2,0,2,2}
oBrow:nLinestyle=11
oBrow:nClrbackhead=nRGB(0,213,213)
oBrow:nClrforehead=nRGB(0,150,151)
oBrow:nClrforefocus=nRGB(249,216,32)
oBrow:nClrbackfocus=nRGB(249,29,83)
oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(0,213,213),rgb(0,150,151))}
//oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(230,230,230),rgb(190,215,190))}
// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (FUERA:=.T.,oDlg2:End())
// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (cancel)
//MsgInfo( "antes del boton" )
REDEFINE BTNBMP oBtnBmp ID 103 OF oDlg2 RESOURCE "Salida" ACTION (FUERA:=.T.,oDlg2:End())
oBtnBmp:nClrpane=nRGB(0,151,151)
//MsgInfo( "despues del boton" )
//oBtnBmp:nClrpane=nRGB(78,20,240)
// oBtnBmp:nClrtext=nRGB(18,190,71)
ACTIVATE DIALOG oDlg2 CENTER;
on init (sndPlaySound("c:windowsmedia otify.wav"),oGet:setfocus())
// If GetKeyState(VK_ESCAPE).or.fuera=.t.
// IF (FUERA=.T.).OR.CNOMBRE=SPACE(30)
// RETURN .F.
// ENDIF
//MsgInfo( "activo dialogo" )
RETURN
ENDDO
// set resources to
release font oFont5
oFont5:end()
RETURN NIL
FUNCTION APUNTA(CNOMBRE)
// MsgInfo( "antes de apuntar" )
MAEPRO->(DBSEEK(CNOMBRE,.t.))
//oGet:setfocus()
oBrow:upstable()
oBrow:refresh()
//MsgInfo( "despues de apuntas" )
RETURN(cnombre)
Valora esta pregunta
0