Adolfo:
Proba con winexec:
WINEXEC(cPtch+"\recibe.bat",1)
No olvides la ruta completa al .bat, sino con WINEXEC(recibe.bat",1) sin la ruta no funciona.
Saludos,
Daniel Puente
Argentina
WITH OBJECT oBrow:aCols[ 2 ]
:nEditType := EDIT_GET
:bEditWhen := {|| &nro_usu5->Est_inf = "S" }
END
::vGet[ 01 ] := IIf( ASCAN({ "HARBOUR", "XHARBOUR" },cLinea)>0, IIf( cLinea == "HARBOUR", 1, 2 ), 1 )
REDEFINE SAY oBrw:oSeek PROMPT "" ID 10 OF oDlg COLOR CLR_MARCO1 UPDATE
oServer:Execute("insert into CATALOGO (ID_CUENTA,DESCRIP) VALUES ("+ClipValue2Sql(cCuenta)+","+ClipValue2Sql( cDescribe)+")")