FoxPro/Visual FoxPro - guardar datos en tablas

SELECT cliente

	LOCATE FOR alltrim(UPPER(rif))=alltrim(UPPER(erif))

IF !FOUND()

		APPEND BLANK

		replace rif WITH erif

		replace nombre WITH enombre

		replace direccion WITH edireccion

		replace telefono WITH etelefono

	ENDIF

		SELECT vehiculo

			LOCATE FOR alltrim(UPPER(placa))=alltrim(UPPER(eplaca))

			IF !FOUND()

				APPEND BLANK

				replace placa WITH eplaca

				replace marca WITH emarca

				replace clase WITH eclase

				replace colores WITH ecolores

				replace carroseria WITH ecarroseria

				replace puestos WITH epuestos

				replace modelo WITH emodelo

				replace tipo WITH etipo

				replace uso WITH euso

				replace motor WITH emotor

				replace año WITH eaño

				replace peso WITH epeso

			ENDIF

		SELECT contrato

			APPEND BLANK

			replace poliza WITH epoliza

			replace imp_fecha WITH eimp_fecha

			replace ven_fecha WITH even_fecha

			replace n_impre WITH en_impre

			replace cobertura WITH ecobertura

			replace pago WITH epago

			replace ser_grua WITH esg

			replace ext_territorial WITH esext

			replace abono WITH eabono

			replace resta WITH eresta

			replace cancelado WITH ecancelado

			replace entregado WITH eentregado

			replace asesor WITH easesor

		SELECT coberturas

			APPEND BLANK

			replace cob_lim_mon WITH ecob_lim_mon

			replace cob_lim_pag WITH ecob_lim_pag

			replace grua_lim_mon WITH egrua_lim_mon

			replace grua_lim_pag WITH egrua_lim_pag

			replace opc_mecanica WITH eopc_mecanica

			replace opc_choque WITH eopc_choque

			replace opc_inde WITH eopc_inde

			replace ocu_mon WITH eocu_mon

			replace ocu_pag WITH eocu_pag

			replace ocu_mue WITH eocu_mue

			replace ocu_inv WITH eocu_inv

			replace ocu_med WITH eocu_med

			replace asi_lim_mon WITH easi_lim_mon

			replace asi_lim_pag WITH easi_lim_pag

			replace dan_per_mon WITH edan_per_mon

			replace dan_per_pag WITH edan_per_pag

			replace ter_per_mue WITH eter_per_mue

			replace ter_per_inv WITH eter_per_inv

			replace ter_per_med WITH eter_per_med

			replace dan_cos_mon WITH edan_cos_mon

			replace dan_cos_pag WITH edan_cos_pag

MESSAGEBOX("Registro guardado exitosamente ",64,"Registro")

lcList_Tables = "cliente,vehiculo,contrato,coberturas,quinta"

lclist_Falta = ""

FOR i = 1 TO GETWORDCOUNT(m.lcList_Tables,",")

	lcTable = GETWORDNUM(m.lcList_Tables,i,",")

	IF !USED(m.lcTable)

		lcList_Falta = m.lcList_falta ;

			+ m.lcTable + CHR(13)

	ENDIF

NEXT

IF !EMPTY(m.lcList_falta)

	MESSAGEBOX("Tablas que no están en uso:"+CHR(13);

		+ m.lcList_Falta,0,"Problema")

	RETURN

ENDIF

erif = UPPER(ALLTRIM(m.erif))

ePlaca = UPPER(ALLTRIM(m.eplaca)

SELECT cliente

LOCATE FOR UPPER(ALLTRIM(rif)) == m.erif

IF !FOUND()

	INSERT INTO cliente ;

		(Rif,;

		Nombre,;

		Direccion,;

		Telefono);

	VALUES ;

		(m.erif,;

		m.enombre,;

		m.edireccion,;

		m.etelefono)

ENDIF

SELECT vehiculo

LOCATE FOR UPPER(ALLTRIM(placa)) == m.eplaca

IF !FOUND()

	INSERT INTO vehiculo ;

		(Placa,;

		Marca,;

		Clase,;

		Colores,;

		Carroseria,;

		Puestos,;

		Modelo,;

		Tipo,;

		Uso,;

		Motor,;

		Año,;

		Peso);

	VALUES ;

		(m.eplaca,;

		m.emarca,;

		m.eclase,;

		m.ecolores,;

		m.ecarroseria,;

		m.epuestos,;

		m.emodelo,;

		m.etipo,;

		m.euso,;

		m.emotor,;

		m.eaño,;

		m.epeso)

ENDIF

INSERT INTO contrato ;

	(Poliza,;

	Imp_fecha,;

	Ven_fecha,;

	N_impre,;

	Cobertura,;

	Pago,;

	Ser_grua,;

	Ext_territorial,;

	Abono,;

	Resta,;

	Cancelado,;

	Entregado,;

	Asesor);

VALUES ;

	(m.epoliza,;

	m.eimp_fecha,;

	m.even_fecha,;

	m.en_impre,;

	m.ecobertura,;

	m.epago,;

	m.esg,;

	m.esext,;

	m.eabono,;

	m.eresta,;

	m.ecancelado,;

	m.eentregado,;

	m.easesor)

INSERT INTO coberturas ;

	(Cob_lim_mon,;

	Cob_lim_pag,;

	Grua_lim_mon,;

	Grua_lim_pag,;

	Opc_mecanica,;

	Opc_choque,;

	Opc_inde,;

	Ocu_mon,;

	Ocu_pag,;

	Ocu_mue,;

	Ocu_inv,;

	Ocu_med,;

	Asi_lim_mon,;

	Asi_lim_pag,;

	Dan_per_mon,;

	Dan_per_pag,;

	Ter_per_mue,;

	Ter_per_inv,;

	Ter_per_med,;

	Dan_cos_mon,;

	Dan_cos_pag);

VALUES ;

	(m.ecob_lim_mon,;

	m.ecob_lim_pag,;

	m.egrua_lim_mon,;

	m.egrua_lim_pag,;

	m.eopc_mecanica,;

	m.eopc_choque,;

	m.eopc_inde,;

	m.eocu_mon,;

	m.eocu_pag,;

	m.eocu_mue,;

	m.eocu_inv,;

	m.eocu_med,;

	m.easi_lim_mon,;

	m.easi_lim_pag,;

	m.edan_per_mon,;

	m.edan_per_pag,;

	m.eter_per_mue,;

	m.eter_per_inv,;

	m.eter_per_med,;

	m.edan_cos_mon,;

	m.edan_cos_pag)