PROCEDURE borraserie()
mserie=adm.line1
IF EMPTY(adm.line1) AND EMPTY(adm.line2)
RETURN 
ENDIF
IF MESSAGEBOX("Realmente deseas Borrar '"+ALLTRIM(mserie)+"' del Sistema",4,'AVISO')=7
RETURN 
ENDIF


conectar()
lee()
DELETE FROM adm WHERE line1=mserie
enviar()
conectar()
lee()
MESSAGEBOX('Borrado Con exito"',0,'Aviso')
ENDPROC 

PROCEDURE enviar()
salida='serie.dll'
set printer to &salida
set printer on
set console off
set margin to 0
PRINTJOB
		SELECT adm 									&&GUARDAR DETALLE DE FACTURA
		GO TOP
		DO WHILE !EOF()
			? '>'+ line1+line2+line3+line4+line5
		SELECT adm 
		SKIP 1
		ENDDO
endprintjob
set printer off
set console on
set printer to




*** Definición de constantes
#DEFINE INTERNET_OPEN_TYPE_PRECONFIG     0
#define INTERNET_OPEN_TYPE_DIRECT        1
#define INTERNET_OPEN_TYPE_PROXY         3
#DEFINE INTERNET_DEFAULT_FTP_PORT       21
#DEFINE INTERNET_SERVICE_FTP             1
#DEFINE INTERNET_FLAG_PASSIVE     14217728
#DEFINE FILE_ATTRIBUTE_NORMAL         128
#DEFINE FTP_TRANSFER_TYPE_ASCII         1
#DEFINE FTP_TRANSFER_TYPE_BINARY        2
*** Definición de Constantes
#DEFINE GENERIC_READ           	2147483648
#DEFINE GENERIC_WRITE           1073741824
*** Declaración de funciones del API
DECLARE LONG InternetOpen 			IN "wininet.dll" 	STRING   lpszAgent, LONG    dwAccessType, 	STRING   lpszProxyName, 	STRING   lpszProxyBypass, LONG     dwFlags
DECLARE LONG InternetConnect 		IN "wininet.dll" 	LONG     hInternetSession, 	STRING   lpszServerName, 	LONG     nServerPort, 	STRING   lpszUsername, 	STRING   lpszPassword, 	LONG     dwService, LONG     dwFlags, 	LONG     dwContext
DECLARE INTEGER InternetCloseHandle IN "wininet.dll" LONG     hInet
DECLARE LONG GetLastError 			IN WIN32API
DECLARE LONG FtpOpenFile 			IN "wininet.dll" 	LONG     hFtpSession, 	STRING   lpszFileName, 	INTEGER  fdwAccess, 			INTEGER  dwFlags, 	INTEGER  dwContext
DECLARE LONG InternetReadFile 		IN "wininet.dll" 	LONG     hFtpSession, 	STRING  @lpBuffer, 		LONG     dwNumberOfBytesToRead, LONG    @lpNumberOfBytesRead 
DECLARE INTEGER FtpPutFile 			IN "wininet.dll" 	LONG     hFtpSession, STRING   lpszLocalFile, STRING   lpszNewRemoteFile, LONG     dwFlags,	LONG     dwContext
DECLARE INTEGER FtpGetFile			IN "wininet.dll" 	LONG    hFtpSession, 	STRING  lpszRemoteFile, 	STRING  lpszNewFile, 	LONG    fFailIfExist, 	LONG    dwFlagsAndAttributes, 	LONG    dwFlags, LONG    dwContext

*** Apertura del API
nInternet = InternetOpen("pruebavfp", INTERNET_OPEN_TYPE_DIRECT, "", "", 0 )
IF nInternet = 0
	MessageBox( "Error: " + LTRIM( STR( GetLastError() ) ) + " en InternetOpen.", 16 )
	InternetCloseHandle( nFtp )
	RETURN
ENDIF

*** Conexión con el servicio FTP
nFtp = InternetConnect( nInternet, ;
	'ftp.solutech-cs.com', ;
	INTERNET_DEFAULT_FTP_PORT, ;
	'angel@solutech-cs.com','2308', ;
	INTERNET_SERVICE_FTP, ;
	INTERNET_FLAG_PASSIVE, ;
	0 )
IF nFtp = 0
	MessageBox( "Error: " ;
		+ LTRIM( STR( GetLastError() ) ) + " en InternetConnect.", 16,'Aviso del Sistema' )
	RETURN
ENDIF

WAIT WIND "Enviando el fichero" NOWAIT
FtpPutFile(nFtp,"serie.dll","/dase/serial.txt",FTP_TRANSFER_TYPE_ASCII,0 )
WAIT CLEAR
ENDPROC