HISTORIA
Hace Seis Mil A�os se Inici� En El Valle Del Nilo (Nahr-An-Nil) Una Civilizaci�n Que, En Tenaz Lucha Por Dominar Las Crecientes Del R�o, Desarroll� Un Estado Centralizado. El Imperio Egipcio Construy� Las Pir�mides, Elabor� Una Cultura Que Fue El Origen De La Llamada "Civilizaci�n Occidental", Consigui� Mantener Razonablemente Alimentada A Una Poblaci�n Numeros�sima Para El Reducido Territorio Aprovechable Y Fue Un Activo Centro De Relaciones Econ�micas, Diplom�ticas Y Culturales. En El �ltimo Milenio Antes De Cristo, La Decadencia De Esa Brillante Civilizaci�n Hizo Que, Primero, El Pa�s Tuviese Faraones Extranjeros (Dinast�as Libias Y Sudanesas) Y Luego Fuese Directamente Sometido, Como Parte De Otros Imperios (Asirios, Persas, Griegos Y Romanos).
Durante La Dominaci�n Grecorromana, Alejandr�a (Al-Iskandariyah) Fue Uno De Los Centros Culturales De Mayor Influencia En El Mundo Cl�sico Y Su Famosa Biblioteca -La Mayor Del Mundo, Hasta Su Incendio En La �poca De C�sar- Reun�a A Los M�s Destacados Fil�sofos, Cient�ficos Y Literatos De La �poca. En El A�o 642 De Nuestro Tiempo, Cuando Los �rabes Conquistaron El Pa�s, Poco Quedaba De Ese Esplendor Y, Al Igual Que Otros Pueblos, Los Egipcios Adoptaron La Religi�n Musulmana Y La Lengua �rabe.
Tres Siglos Despu�s, Bajo El Gobierno De Los Califas Fat�midas La Nueva Capital, El Cairo (Al-Qahirah), Se Convirti� En Uno De Los M�s Brillantes Centros Intelectuales Del Mundo Isl�mico, Atrayendo Hacia Su Universidad Sabios Y Estudiantes De Todas Partes, En Particular De Todos Los Rincones Del Africa Musulmana.
Entre Los Siglos X Y XV Se Benefici� De Su Situaci�n Geogr�fica Y Se Convirti� En El Centro Del Comercio Entre Asia Y El �rea Mediterr�nea, Incluyendo En �sta A Venecianos Y Genoveses. No Fue Obst�culo Para Este Activo Intercambio La Presencia De Los Cruzados Europeos En Palestina, Entre Los Siglos XI Y XIII, Y El Estado De Guerra Casi Constante.
Una Vez Expulsados Los Cruzados, La Nueva Potencia Emergente En El Mundo Isl�mico, El Sultanato De Los Turcos Otomanos, A Principios Del Siglo XVI Conquist� A Egipto. Coincidentemente, La Apertura De La Ruta Naval Europa-Lejano Oriente Por El Cabo De Buena Esperanza Termin� Con El Monopolio Que Egipto Ten�a Gracias A Su Dominio Del Mar Rojo E Inici� Un Per�odo De Decadencia Econ�mica.
Hasta El Siglo XIX El Dominio Turco Fue Poco M�s Que Nominal. El Poder Efectivo Estaba En Manos De Los Jefes Mamelucos. En 1805 Asumi� El Poder Mohamed Al�, Un Jefe Militar Alban�s, Que Elimin� A Los Jefes Mamelucos Por Medios Dr�sticos Y Estableci� Un R�gimen Centralizado. Reorganiz� El Ej�rcito Y Cre� El Monopolio Estatal Del Comercio Exterior De La Ca�a De Az�car Y Del Algod�n. Egipto Ampli� Su Autonom�a Con Respecto Al Sult�n De Estambul Y Se Establecieron Las Bases De Una Econom�a Moderna.
Durante La Administraci�n De Los Sucesores De Mohamed Al� Aument� La Dependencia Con Relaci�n A Europa. El Deterioro Econ�mico Lleg� A Tal Punto Que En 1874 Para Pagar Deudas Se Tuvieron Que Vender A Gran Breta�a Todas Las Acciones Del Canal De Suez (Canal De As-Sways), Constru�do En Sociedad Con Los Franceses Entre 1860 Y 1870.
La Situaci�n Continu� Deterior�ndose, Los Pr�stamos Se Sucedieron Y, En 1879, Las Potencias Impusieron La Creaci�n De Una Caja De La Deuda P�blica, Dirigida Por Un Ministro Egipcio, Uno Franc�s Y Otro Ingl�s, Que Asumi� La Administraci�n De Las Finanzas Del Pa�s.
Tal Grado De Injerencia Despert� Una Viva Reacci�n Nacionalista, Apoyada En El Ej�rcito, Que Ese Mismo A�o Derroc� Al Jedive (T�tulo De Los Sucesores De M. Al�) Ismail Y Oblig� A Su Hijo Tawfiq A Expulsar A Los Ministros Extranjeros Y Nombrar Un Gabinete Nacionalista. La Respuesta Imperialista Demor� Poco: En 1882 Una Flota Anglofrancesa Desembarc� Tropas Inglesas En Alejandr�a Y Ocup� Militarmente El Pa�s.
La Ocupaci�n, "Legalizada" En 1914, Al Declararse Formalmente El Protectorado, Se Mantuvo Hasta 1922, Cuando Una Delegaci�n Egipcia Negoci� En Londres La Independencia. Pero �sta Se Obtuvo En Tales Condiciones Que En La Pr�ctica Significaba La Continuaci�n Del Protectorado.
Durante La Segunda Guerra Mundial, Egipto Fue Usado Nuevamente Como Base Militar Brit�nica. El Sentimiento Anticolonialista Estaba En Su Apogeo Cuando En 1948 Fue Creado En Palestina El Estado De Israel.
Egipto Y Otras Naciones �rabes Emprendieron La Guerra Contra El Nuevo Estado. Como Consecuencia De Su Derrota Se Produjeron Grandes Manifestaciones Populares Contra La Monarqu�a. En Un Clima De Corrupci�n A Nivel Gubernamental, Dentro Del Ej�rcito Egipcio Se Constituy� El Grupo Nacionalista Denominado Oficiales Libres, Liderado Por El General Mohamed Naguib Y El Coronel Gamal Abdel Nasser.
El 23 De Julio Del1952 El Grupo Derroc� Al Rey Faruk Y Proclam� La Rep�blica En Junio De 1953. Tres A�os M�s Tarde Nasser Se Convirti� En El Presidente Del Pa�s.
El Nuevo R�gimen Se Proclam� Nacionalista, Socialista E Interesado En Beneficiar A Los Fellahin, Los Campesinos Pobres Del Pa�s. Se Inici� Una Reforma Agraria Que Limit� El Poder De Los Grandes Propietarios Agr�colas.
En Su Programa De Reformas El Gobierno Dio Prioridad A La Construcci�n De La Represa De Assu�n (Aswan), Una De Las Mayores Del Mundo. Fue Realizada Con Ayuda T�cnica Y Financiera De La Uni�n Sovi�tica, Tras La Negativa De Las Potencias Occidentales. Presentada Como La Clave Para La Industrializaci�n Y El "Desarrollo" Del Pa�s, A La Postre La Represa Fue Reconocida Como Causa De Serios Trastornos Ambientales.
En 1955 Egipto Particip� De La Conferencia De Bandung (Indonesia), Como Uno De Sus Organizadores. De All� Surgi� El Movimiento Neutralista Afroasi�tico, Precursor De Los No Alineados. Veintinueve Pa�ses Afroasi�ticos Condenaron El Colonialismo, La Discriminaci�n Racial Y El Armamento At�mico.
En Octubre De 1956, Tras La Nacionalizaci�n Del Canal De Suez, Tropas Francesas, Inglesas E Israel�es Invadieron Egipto. El Gobierno Reparti� Armas Al Pueblo. A Nivel Diplom�tico, La Intervenci�n De La ONU Y El Rechazo Simult�neo De Sovi�ticos Y Norteamericanos Obligaron A Francia, Inglaterra E Israel A Retirarse. Finalmente El Canal Pas� A La Soberan�a De Egipto.
El 1� De Febrero De 1958 Se Anunci� Oficialmente La Uni�n De Egipto Y Siria Con El Nombre De Rep�blica Arabe Unida (RAU). Se Mantuvo Hasta Setiembre De 1961, Cuando Siria Resolvi� Separarse. Egipto Sigui� Llam�ndose Rep�blica Arabe Unida.
Despu�s De La Reelecci�n De Nasser En 1965, La Pol�tica Egipcia Dio Prioridad Al Conflicto Con Israel. Pero Su Intento De Un Estrangulamiento Econ�mico A Trav�s De Un Bloqueo Del Golfo De Acaba Fracas� Durante El Conflicto �rabe-Israel� (La "Guerra De Los Seis D�as") De Junio De 1967. Este Culmin� En Una Nueva Derrota De Los Pa�ses �rabes (Egipto, Jordania, L�bano Y Siria) Y La Ocupaci�n Por Parte De Israel De La Pen�nsula De Sina�, La Franja De Gaza, Cisjordania Y El Gol�n Sirio. El Costo De La Guerra Agrav� Los Problemas Econ�micos De Egipto; S�lo La Ayuda Sovi�tica Impidi� Que Se Llegara A Un Colapso Definitivo.
Gamal Abdel Nasser Falleci� En 1970. Lo Sucedi� El Vicepresidente Anuar El Sadat, Apoyado Por El Sector Derechista Del Partido Socialista Arabe Fundado Por Nasser. Sadat Puso En Pr�ctica La Denominada Infitah, Una Pol�tica De Apertura Con Relaci�n A Occidente Y De Desnacionalizaci�n De La Econom�a Egipcia. Adem�s, El Nuevo Gobierno Rompi� Relaciones Con La Uni�n Sovi�tica Y Comenz� A Recibir Ayuda Econ�mica Y Militar De Los Estados Unidos.
En 1973 Las Tropas Egipcias Cruzaron El Canal De Suez Para Iniciar La Cuarta Guerra �rabe-Israel�. La Breve Guerra Sirvi� De Marco A La Decisi�n De La OPEP De Elevar Sustancialmente El Precio Del Petr�leo, Pero No Produjo La Deseada Retirada De Israel De Los Territorios Ocupados.
Paralelamente Empeoraron Las Condiciones De Vida De Los Trabajadores Egipcios Con Aumentos Considerables Del Costo De Vida Y Del Desempleo. Grandes Manifestaciones Antigubernamentales Se Produjeron En 1976 Y 1977. Los Campesinos Se Rebelaron Contra La Reprivatizaci�n De Las Tierras Nacionalizadas En 1952. Los Partidos Isl�micos Comenzaron A Conspirar Abiertamente Contra Sadat, Acusado De Facilitar Una Nueva Dominaci�n Extranjera.
Sadat Viaj� A Jerusal�n En Noviembre De 1977, Provocando Una Reacci�n De Protesta En Todo El Mundo �rabe. El Proceso De Acercamiento A Israel Culmin� En Marzo De 1979, Con La Firma De Los Llamados Acuerdos De Camp David, Por Medio De Los Cuales Estados Unidos Patrocin� La Devoluci�n Del Sina� A Egipto. A Partir De Ese Momento, Egipto Se Convirti� En El Principal Beneficiario De La Ayuda Militar Norteamericana, Destinada A Transformar El Pa�s En Su Aliado Principal En La Regi�n Tras El Derrocamiento Del Sha Reza Pahlevi En Ir�n En 1979.
En Octubre De 1981 Sadat Fue Herido Mortalmente En Un Atentado De Militares Contrarios A La Infitah Y A La Represi�n Gubernamental De Los Movimientos Isl�micos Fundamentalistas. El 14 De Octubre El Vicepresidente Hosni Mubarak, Quien Sali� Ileso Del Atentado, Asumi� La Presidencia.
Mubarak, Para Neutralizar El Fuerte Descontento Popular Por La Represi�n, La Corrupci�n Y La Pobreza, Inici� Una Investigaci�n Del Origen De Las Riquezas De Los Familiares De Anuar Sadat. Al Mismo Tiempo Ampli� Las Facilidades Para Las Empresas Extranjeras.
Para Egipto 1984 Fue Un A�o De "Apertura" Interna Y De Moderados �xitos En La Pol�tica Exterior. Se Logr� Superar Las Consecuencias Diplom�ticas M�s Negativas Que Los Acuerdos De Camp David Hab�an Provocado En Sus Relaciones Con El Mundo �rabe, Al Definir Que Toda Soluci�n Justa De La Crisis Del Oriente Medio Ser�a Alcanzada Solamente A Trav�s De La Restauraci�n De Los Derechos Del Pueblo Palestino. Asimismo La Solidaridad �rabe Ser�a "El �nico Camino Para Reconquistar Todos Los Derechos Usurpados".
Desde Comienzos De 1985 La Crisis Econ�mica Se Agrav� En Virtud De La Acentuada Ca�da De Los Ingresos Provenientes De Los Cuatro Pilares De La Econom�a: Petr�leo, Las Remesas De Los Emigrantes, El Canal De Suez Y El Turismo. Los Fundamentalistas Isl�micos Ganaron Terreno A Medida Que Ca�a La Popularidad Del Gobierno.
La Participaci�n De Capital Extranjero En La Econom�a Del Pa�s Registr� Un Crecimiento Notorio Entre 1980 Y 1986. De Parte De Estados Unidos El Gobierno Recib�a Anualmente Casi Tres Mil Millones De D�lares, De Los Cuales 1.300 Millones A T�tulo De Ayuda Militar. El FMI Concedi�, En Octubre De 1986 Un Pr�stamo De 1.500 Millones De D�lares.
La Deuda Externa Pas� De 2.400 Millones De D�lares En 1970 A 35.000 Millones En 1986; La Deuda Estrictamente Militar Aument� Siete Veces. Los Gastos Militares Y Las P�rdidas De Guerra Perjudicaban El Desenvolvimiento De La Econom�a.
Las Elecciones Parlamentarias Previstas Para 1989 Fueron Adelantadas Dos A�os Y En Abril De 1987 Se Eligi� La Decimonovena Legislatura De La Historia Parlamentaria De 64 A�os. El Partido Democr�tico Nacional (NDP) Obtuvo El Primer Lugar En Los Comicios, Con El 75% De Los Votos.
En Setiembre De 1989, En La Asamblea De Las Naciones Unidas Mubarak Propuso Un Di�logo Israel�-Palestino, Sin Condiciones Previas. Y En Octubre Del Mismo A�o Se Reanudaron Las Relaciones Con Libia.
Durante Los A�os 80, El Deterioro En Las Condiciones Sociales Llev� A La Emigraci�n Masiva De Hombres En Edad De Trabajo Hacia Los Pa�ses Lim�trofes M�s Ricos. Este Proceso Implic� Un Cambio De Roles. Las Mujeres Debieron Asumir Responsabilidades De Cabeza De Familia Para Las Que No Hab�an Sido Preparadas, Lo Que Gener� Un Conflicto De Funciones Y Una Tensi�n Entre Madre E Hijos. El Precio De La Mejora De La Posici�n Econ�mica Fue La P�rdida De La Cohesi�n Familiar.
En Agosto De1990, Ante La Invasi�n De Tropas Iraqu�es En Kuwait, Egipto Encabez� El Grupo De Pa�ses �rabes Que Condenaron La Acci�n, Y Envi� Tropas Al Golfo. Al Comenzar La Ofensiva Por Tierra, En Enero De 1991, Estados Unidos Anunci� La Condonaci�n De La Deuda Militar Egipcia, Por Un Valor De Siete Mil Millones De D�lares.
Pero La Alineaci�n Con Occidente No Cont� Con El Apoyo De La Mayor�a De La Poblaci�n. En Febrero De 1991, Se Realiz� En El Cairo Una Movilizaci�n Popular Que Reclam� Una Soluci�n Pac�fica Al Conflicto.
La Reprobaci�n De La Guerra Contra Irak Se Dio, A Pesar De Que Su Presidente Saddam Hussein Hab�a Expulsado A Casi Dos Millones De Trabajadores Emigrantes De Irak Y De Kuwait Durantes Los Dos A�os Anteriores, E Intent� Reclutar Egipcios A La Fuerza Para Su Ej�rcito.
En Mayo De 1991, El FMI Aprob� La Concesi�n A Egipto De Un Pr�stamo Stand By De 372 Millones De D�lares, Condicionado A La Realizaci�n De Un "Ajuste Estructural" De La Econom�a. El Cairo Se Comprometi� A Privatizar Las Empresas Del Estado, Eliminar Controles De La Producci�n E Inversi�n, As� Como A Reducir El D�ficit Fiscal Del 21% Al 6.5% Del PIB. Para Lograr Este Objetivo El Gobierno Decidi� Cortar Subsidios De Los Alimentos Y Otrosp' Productos Esenciales. A La Vez Redujo El Programa De Asistencia Para Los Pobres.
El 15 De Mayo De 1991, El Canciller Y Viceprimer Ministro Esmat Abdel Meguid Fue Nombrado Nuevo Secretario General De La Liga Arabe. Con Este Nombramiento, Que Sigui� Al Retorno De La Sede De La Liga Arabe Desde T�nez A El Cairo El A�o Anterior, Egipto Logr� Recuperar Un Papel Pol�tico Protag�nico En El Mundo �rabe.
Desde 1991 Se Intensificaron Los Ataques Violentos De Los Movimientos Isl�micos Fundamentalistas Que Persiguen La Conversi�n De Egipto En Un Estado Teocr�tico. El Mismo A�o, El Estado De Emergencia Vigente Desde Hace Diez A�os Fue Ampliado Y Prorrogado Por Otros Tres.
La Cr�nica Crisis Socioecon�mica Se Agrav�, Cuando El 12 De Octubre De 1992 Un Terremoto Dej� Un Saldo De 350 Muertos Y Aprox. 4.000 Heridos. La Incapacidad De Las Autoridades De Socorrer Eficazmente A Los Damnificados Provoc� Protestas De La Poblaci�n.
Entre Febrero De 1992 Y Agosto De 1993 Los Ataques Causaron, Seg�n Estad�sticas Oficiales, 175 V�ctimas. El Estado, A Su Vez, Arrest� A Miles De Simpatizantes E Integrantes De Los Grupos Durante Violentas Redadas En Varias Ciudades, Especialmente Durante El Mes De Marzo De 1993. En Base A La Ley Antiterrorista Del A�o Anterior, En Junio Y Julio De 1993 Quince Personas Fueron Ejecutadas.
La Violencia De Movimientos Fundamentalistas Isl�micos Se Intensific� Y El Gobierno Promulg� Una Ley Antiterrorista Y Porrog� Por Tres A�os M�s El Estado De Emergencia Vigente Desde Hac�a 10 A�os. Seg�n Estad�sticas Oficiales, Entre Febrero De 1992 Y Agosto De 1993, Dicha Violencia Caus� 175 V�ctimas. Miles De Simpatizantes De Estos Grupos Islamistas Fueron Arrestados Y En Junio Y Julio De 1993, 15 Personas Fueron Ejecutadas.
El Gobierno Prosigui� Su Pol�tica De Liberalizaci�n De La Econom�a, Facilitando Las Operaciones De Los Bancos Extranjeros. En Marzo De 1993, El FMI Apoy� La Condonaci�n De 3.000 Millones De D�lares De Deuda Externa Para Respaldar Un Plan De Privatizaciones. En Octubre, Tras Ser Reelecto En Un Plebiscito, Mubarak Prosigui� Su Pol�tica De "Mano Dura" Con Los Islamistas. Sin Embargo, Los Atentados Contra Turistas Extranjeros Se Multiplicaron En 1994.
En Abril, Asociaciones De Abogados Protestaron Por La Muerte Sospechosa En Locales Policiales De Un Defensor De Militantes Islamistas. Tras Una Semana De Manifestaciones, El Movimiento Culmin� Con Un Paro General , Que Puso De Manifiesto La Influencia De Los Fundamentalistas En Las Asociaciones De Abogados. En Octubre, El N�mero De Muertos Desde Marzo De 1992, Cuando Se Inici� La Rebeli�n De Los Fundamentalistas Contra Mubarak, Se Elev� A 460.
En Mayo, El Presidente Cre� Un Comit� Encargado De Organizar El Di�logo Pol�tico Entre El Gobierno Y La Oposici�n, Pero Excluy� Del Mismo A Los Comunistas, A Los "Hermanos Musulmanes" Y A Grupos Representativos De La Minor�a Copta. Simult�neamente, Las Relaciones Con El FMI Se Volvieron M�s Dif�ciles, Por La Supuesta Lentitud Del Gobierno En Implementar La Proyectada Apertura De La Econom�a.
En El Plano Internacional, Egipto Recuper� El Protagonismo En Las Negociaciones Por La Paz En Medio Oriente Y En Los Intercambios Pol�ticos Entre Pa�ses �rabes. Una Prueba De Esto Fue El Encuentro Realizado En Alejandr�a En Diciembre, En El Que Participaron Dirigentes De Egipto, Arabia Saudita Y Siria. En Febrero De 1995, El Cairo Fue Sede De Una Cumbre Con Los L�deres Egipcio, Jordano, Israel� Y Palestino.
A Lo Largo De 1995, Mubarak No Pudo Encontrar Una Soluci�n Al Enfrentamiento Con Los Fundamentalistas Isl�micos. En Enero, El Ministro Del Interior Al-Alfi Concurri� A Un Encuentro De Ministros Del Interior De Los Pa�ses �rabes Para Tratar La Coordinaci�n De La Lucha Contra Los Movimientos Islamistas Que Recurren A La Violencia.
En Noviembre, El Oficialista Partido Democr�tico Nacional Gan� Las Elecciones Parlamentarias, En Las Que Participaron Todos Los Partidos Reconocidos Por El Gobierno. Los Comicios, Realizados En Un Clima De Violencia, Otorgaron 416 De Las 444 En Juego Al Oficialismo Y Dieron Lugar A Numerosas Denuncias Por Fraude. En Enero De 1996, Mubarak Nombr� Primer Ministro A Kamal Al-Ganzouri En Reemplazo De Atef Sedki.
PAGINA PRINCIPAL
Alta de Articulos
Private Sub CmdOpcion_Click(Index As Integer)
Dim strQry As String
Dim wRes As Integer
Select Case Index
Case 0 'Aceptar
wRes = MsgBox("�Desea Guardar los Datos?", vbQuestion + vbYesNo, "Asociado DIA")
If wRes = 6 Then 'Si
Select Case Opcion
Case 0 'Agregar
If txt_noarticulo > 0 Then
'Guarda Datos
strQry = "Insert Into TblArticulos (ArtCd, ArtNb, ArtDs, ArtQtEx, ArtPcC, ArtPcV )"
strQry = strQry + "Values ( " + txt_noarticulo + ", '" + txt_nomarticulo + "','" + txt_descripcion + "'," + txt_QtEx + "," + txt_pcc + "," + txt_pcv + " ) "
dbDIA.Execute [strQry]
frmArticulos.DataArticulo.Refresh
Unload Me
Else
MsgBox "Favor de Verificar la Clave del Art�culo", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 1 'Modificar
strQry = "Update TblArticulos Set "
strQry = strQry + "ArtNb = '" + txt_nomarticulo + "', "
strQry = strQry + "ArtDs = '" + txt_descripcion + "', "
strQry = strQry + "ArtQtEx = " + txt_QtEx + ", "
strQry = strQry + "ArtPcC = " + txt_pcc + ", "
strQry = strQry + "ArtPcV = " + txt_pcv + " "
strQry = strQry + "Where ArtCd = " + txt_noarticulo
dbDIA.Execute strQry
Unload Me
End Select
End If
Case 1 'Salir
Unload Me
End Select
End Sub
Private Sub Form_Load()
Dim strQry As String
Dim strDatos As Recordset
If Opcion = 0 Then 'Alta
txt_noarticulo.Enabled = True
Me.Caption = "Alta de Art�culo"
Else
'Modificar
txt_noarticulo.Text = Clave
txt_noarticulo.Enabled = False
strQry = "Select ArtNb, ArtDs, ArtQtEx, ArtPcC, ArtPcV From TblArticulos Where ArtCd = " + Str(Clave)
Set strDatos = dbDIA.OpenRecordset(strQry, dbOpenSnapshot)
If strDatos.RecordCount > 0 Then
txt_nomarticulo = strDatos!ArtNb
txt_descripcion = strDatos!ArtDs
txt_QtEx = strDatos!ArtQtEx
txt_pcc = strDatos!ArtPcC
txt_pcv = strDatos!ArtPcV
End If
strDatos.Close
Me.Caption = "Edici�n de Art�culo"
End If
End Sub
Private Sub txt_descripcion_KeyPress(KeyAscii As Integer)
a = "abcdefghijklmn�opqrstuvwxyz ABCDEFGHIJKLMN�OPQRSTUVWXYZ"
If InStr(a, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub txt_noarticulo_LostFocus()
Dim strQry As String
Dim strVerifica As Recordset
If Not IsNumeric(txt_noarticulo.Text) Then
MsgBox "Favor de Proporcionar la Clave del Art�culo", vbInformation + vbOKOnly, "Asociado DIA"
txt_noarticulo.Text = "0"
txt_noarticulo.SetFocus
Else
If txt_noarticulo.Text >= 0 Then
strQry = "Select ArtCd From TblArticulos Where ArtCd = " + txt_noarticulo
Set strVerifica = dbDIA.OpenRecordset(strQry, dbOpenSnapshot)
If strVerifica.RecordCount > 0 Then
MsgBox "Ya Existe Ese Registro", vbInformation + vbOKOnly, "Asociado DIA"
txt_noarticulo.Text = "0"
txt_noarticulo.SetFocus
End If
strVerifica.Close
Else
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
txt_noarticulo.Text = "0"
txt_noarticulo.SetFocus
End If
End If
End Sub
Private Sub txt_nomarticulo_KeyPress(KeyAscii As Integer)
a = "abcdefghijklmn�opqrstuvwxyz ABCDEFGHIJKLMN�OPQRSTUVWXYZ"
If InStr(a, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub txt_pcc_LostFocus()
If Not IsNumeric(txt_pcc.Text) Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
txt_pcc.Text = "0"
Else
If txt_pcc.Text < 0 Or txt_pcc.Text > txt_pcv.Text Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
txt_pcc.Text = "0"
End If
End If
End Sub
Private Sub txt_pcv_LostFocus()
If Not IsNumeric(txt_pcv.Text) Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
txt_pcv.Text = "0"
Else
If txt_pcv.Text < 0 And txt_pcv.Text < txt_pcc.Text Then
MsgBox "Verificar el Precio Venta", vbInformation + vbOKOnly, "Asociado DIA"
txt_pcc.Text = "0"
End If
End If
End Sub
Private Sub txt_QtEx_LostFocus()
If Not IsNumeric(txt_QtEx.Text) Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
txt_QtEx.Text = "0"
Else
If txt_QtEx.Text < 0 Then
MsgBox "Verificar la Cantidad en Existencia", vbInformation + vbOKOnly, "Asociado DIA"
txt_QtEx.Text = "0"
End If
End If
End Sub
Alta Proveedores
Private Sub CmdOpcion_Click(Index As Integer)
Dim strQry As String
Dim wRes As Integer
Select Case Index
Case 0 'Aceptar
wRes = MsgBox("�Desea Guardar los Datos?", vbQuestion + vbYesNo, "Asociado DIA")
If wRes = 6 Then 'Si
Select Case Opcion
Case 0 'Agregar
If txt_noproveedor > 0 Then
'Guarda Datos
strQry = "Insert Into TblProveedores (ProvCd, ProvNb, ProvDir, ProvTel, ProvRFC, ProvEmail) "
strQry = strQry + "Values ( " + txt_noproveedor + ", '" + txt_nomprove + "','" + txt_direccion + "','" + txt_tel + "','" + txt_RFC + "','" + txt_email + "')"
dbDIA.Execute strQry
frmProveedores.DataProveedor.Refresh
Unload Me
Else
MsgBox "Favor de Verificar la Clave del Proveedor", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 1 'Modificar
strQry = "Update TblProveedores Set "
strQry = strQry + "ProvNb = '" + txt_nomprove + "', "
strQry = strQry + "ProvDir = '" + txt_direccion + "', "
strQry = strQry + "ProvTel = '" + txt_tel + "', "
strQry = strQry + "ProvEmail = '" + txt_email + "', "
strQry = strQry + "ProvRFC = '" + txt_RFC + "' "
strQry = strQry + "Where ProvCd = " + txt_noproveedor
dbDIA.Execute strQry
Unload Me
End Select
End If
Case 1 'Salir
Unload Me
End Select
End Sub
Private Sub Form_Load()
Dim strQry As String
Dim strDatos As Recordset
If Opcion = 0 Then 'Alta
txt_noproveedor.Enabled = True
Me.Caption = "Alta de Proveedor"
Else
'Modificar
txt_noproveedor.Text = Clave
txt_noproveedor.Enabled = False
strQry = "Select ProvNb, ProvDir, ProvTel, ProvRFC, ProvEmail From TblProveedores Where ProvCd = " + Str(Clave)
Set strDatos = dbDIA.OpenRecordset(strQry, dbOpenSnapshot)
If strDatos.RecordCount > 0 Then
txt_nomprove = strDatos!ProvNb
txt_direccion = strDatos!ProvDir
txt_tel = strDatos!ProvTel
txt_email = strDatos!ProvEmail
txt_RFC = strDatos!ProvRFC
End If
strDatos.Close
Me.Caption = "Edici�n de Proveedor"
End If
End Sub
Private Sub txt_nomprove_KeyPress(KeyAscii As Integer)
a = "abcdefghijklmn�opqrstuvwxyz ABCDEFGHIJKLMN�OPQRSTUVWXYZ"
If InStr(a, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub txt_noproveedor_LostFocus()
Dim strQry As String
Dim strVerifica As Recordset
If Not IsNumeric(txt_noproveedor.Text) Then
MsgBox "Favor de Proporcionar la Clave del Proveedor", vbInformation + vbOKOnly, "Asociado DIA"
txt_noproveedor.Text = "0"
txt_noproveedor.SetFocus
Else
If txt_noproveedor.Text >= 0 Then
strQry = "Select ProvCd From TblProveedores Where ProvCd = " + txt_noproveedor
Set strVerifica = dbDIA.OpenRecordset(strQry, dbOpenSnapshot)
If strVerifica.RecordCount > 0 Then
MsgBox "Ya Existe Ese Registro", vbInformation + vbOKOnly, "Asociado DIA"
txt_noproveedor.Text = "0"
txt_noproveedor.SetFocus
End If
strVerifica.Close
Else
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
txt_noproveedor.Text = "0"
txt_noproveedor.SetFocus
End If
End If
End Sub
Private Sub txt_tel_KeyPress(KeyAscii As Integer)
a = "0123456789- "
If InStr(a, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Venta de los articulos (se suma la cantidad de articulos)
Private Sub CmdOpcion_Click(Index As Integer)
Dim strQry As String
Dim wRes As Integer
Dim snpObtMov As Recordset
Select Case Index
Case 0 'Aceptar
wRes = MsgBox("�Desea Guardar los Datos?", vbQuestion + vbYesNo, "Asociado DIA")
If wRes = 6 Then 'Si
If Movimiento <= 0 Then
'Guarda Datos del Encabezado
strQry = "Insert Into TblMovEntE (MovEntFh, ProvCd, MovEntSt) "
strQry = strQry + "Values ( Now() , " + frmComprasProveedores.TxtProveedor + ",0 )"
dbDIA.Execute strQry
strQry = "Select MovEntCd From TblMovEntE Where MovEntSt = 0"
Set snpObtMov = dbDIA.OpenRecordset(strQry, dbOpenSnapshot)
If snpObtMov.RecordCount > 0 Then
Movimiento = snpObtMov!MovEntCd
End If
snpObtMov.Close
End If
Select Case Opcion
Case 0 'Agregar
If txt_noarticulo > 0 And txt_cantidad > 0 Then
'Guarda Datos
strQry = "Insert Into TblMovEntD (MovEntCd, ArtCd, MovEntQt) "
strQry = strQry + "Values ( " + Str(Movimiento) + ", " + txt_noarticulo + "," + txt_cantidad + ")"
dbDIA.Execute strQry
frmComprasProveedores.DataComprasProveedor.Refresh
Unload Me
Else
MsgBox "Favor de Verificar los Datos", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 1 'Modificar
If txt_cantidad > 0 Then
strQry = "Update TblMovEntD Set "
strQry = strQry + "MovEntQt = " + txt_cantidad + " "
strQry = strQry + "Where MovEntCd = " + Str(Movimiento) + " and "
strQry = strQry + "ArtCd = " + txt_noarticulo
dbDIA.Execute strQry
frmComprasProveedores.DataComprasProveedor.Refresh
Unload Me
Else
MsgBox "Favor de Verificar los Datos", vbInformation + vbOKOnly, "Asociado DIA"
End If
End Select
End If
Case 1 'Salir
Unload Me
End Select
End Sub
Private Sub Form_Load()
Me.Caption = frmComprasProveedores.TxtNombre.Text
If Opcion = 0 Then 'Alta
txt_noarticulo.Enabled = True
txt_noarticulo.Text = 0
txt_cantidad.Text = 0
Else
'Modificar
txt_noarticulo.Text = Clave
txt_noarticulo.Enabled = False
txt_nomarticulo.Text = frmComprasProveedores.DataComprasProveedor.Recordset!Nombre
txt_cantidad.Text = frmComprasProveedores.DataComprasProveedor.Recordset!Cantidad
End If
End Sub
Private Sub txt_cantidad_LostFocus()
If Not IsNumeric(txt_cantidad.Text) Then
MsgBox "Favor de Proporcionar la Cantidad", vbInformation + vbOKOnly, "Asociado DIA"
txt_cantidad.Text = "0"
txt_cantidad.SetFocus
Else
If txt_cantidad.Text < 0 Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
txt_cantidad.Text = "0"
txt_cantidad.SetFocus
End If
End If
End Sub
Private Sub txt_noarticulo_LostFocus()
Dim strQry As String
Dim snpVerifica As Recordset
If Not IsNumeric(txt_noarticulo.Text) Then
MsgBox "Favor de Proporcionar el Art�culo", vbInformation + vbOKOnly, "Asociado DIA"
txt_noarticulo.Text = "0"
txt_nomarticulo.Text = ""
txt_noarticulo.SetFocus
Else
If txt_noarticulo.Text > 0 Then
strQry = "Select ArtCd, ArtNb From TblArticulos Where ArtCd = " + txt_noarticulo
Set snpVerifica = dbDIA.OpenRecordset(strQry, dbOpenSnapshot)
If snpVerifica.RecordCount = 0 Then
MsgBox "No existe ese art�culo", vbInformation + vbOKOnly, "Asociado DIA"
txt_noarticulo.Text = "0"
txt_nomarticulo.Text = ""
txt_noarticulo.SetFocus
Else
txt_nomarticulo.Text = IIf(IsNull(snpVerifica!ArtNb), "", snpVerifica!ArtNb)
snpVerifica.Close
strQry = "Select ArtCd From TblMovEntE, TblMovEntD Where TblMovEntE.MovEntCd = TblMovEntD.MovEntCd And ArtCd = " + txt_noarticulo + " And TblMovEntE.MovEntSt = 0 "
Set snpVerifica = dbDIA.OpenRecordset(strQry, dbOpenSnapshot)
If snpVerifica.RecordCount > 0 Then
MsgBox "Ya Existe Ese Registro", vbInformation + vbOKOnly, "Asociado DIA"
txt_noarticulo.Text = "0"
txt_nomarticulo.Text = ""
txt_noarticulo.SetFocus
End If
End If
snpVerifica.Close
Else
If txt_noarticulo < 0 Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
txt_noarticulo.Text = "0"
txt_nomarticulo.Text = ""
txt_noarticulo.SetFocus
End If
End If
End If
End Sub
Administrador de Articulos
Dim strSQL As String
Private Sub CmdOpcion_Click(Index As Integer)
Dim wRes As Integer
Dim strQry As String
Select Case Index
Case 0 'Agregar
Clave = 0
Opcion = 0
altaarticulos.Show Modal
Case 1 'Modificar
If DataArticulo.Recordset.RecordCount > 0 Then
Clave = DataArticulo.Recordset!ArtCd
Opcion = 1
altaarticulos.Show Modal
Else
MsgBox "No hay Datos", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 2 'Eliminar
If DataArticulo.Recordset.RecordCount > 0 Then
wRes = MsgBox("Desea Eliminar el Registro Seleccionado", vbQuestion + vbYesNo, "Asociado DIA")
If wRes = 6 Then
strQry = "Delete * From TblArticulos Where ArtCd = " + Str(DataArticulo.Recordset!ArtCd)
dbDIA.Execute strQry
DataArticulo.Refresh
End If
Else
MsgBox "No hay Datos", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 3 'Salir
Unload Me
End Select
End Sub
Private Sub Form_Load()
strSQL = "Select ArtCd, ArtNb, ArtQtEx From TblArticulos Order by ArtCd"
DataArticulo.DatabaseName = App.Path + "\dbDIA.mdb"
DataArticulo.RecordSource = strSQL
DataArticulo.Refresh
End Sub
Private Sub TxtArticulo_LostFocus()
If Trim(TxtArticulo.Text) = "" Then
TxtArticulo.Text = "0"
End If
If Not IsNumeric(TxtArticulo.Text) Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
Else
If TxtArticulo.Text >= 0 Then
strSQL = "Select ArtCd, ArtNb, ArtQtEx From TblArticulos Where ArtCd >= " + TxtArticulo.Text + " Order by ArtCd"
DataArticulo.RecordSource = strSQL
DataArticulo.Refresh
Else
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
End If
End If
End Sub
Entrada de articulo
Private Sub CmdOpcion_Click(Index As Integer)
Dim wRes As Integer
Dim strQry As String
Select Case Index
Case 0 'Agregar
If TxtProveedor.Text > 0 Then
TxtProveedor.Enabled = False
Clave = 0
Opcion = 0
comprasproveedor.Show Modal
Else
MsgBox "Favor de Proporcionar el Proveedor", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 1 'Modificar
If DataComprasProveedor.Recordset.RecordCount > 0 Then
Clave = DataComprasProveedor.Recordset!Clave
Opcion = 1
comprasproveedor.Show Modal
Else
MsgBox "No hay Datos", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 2 'Eliminar
If DataComprasProveedor.Recordset.RecordCount > 0 Then
wRes = MsgBox("Desea Eliminar el Registro Seleccionado", vbQuestion + vbYesNo, "Asociado DIA")
If wRes = 6 Then
strQry = "Delete * From TblMovEntD Where MovEntCd = " + Str(Movimiento) + " and ArtCd = " + Str(DataComprasProveedor.Recordset!Clave)
dbDIA.Execute strQry
DataComprasProveedor.Refresh
End If
Else
MsgBox "No hay Datos", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 3 'Registrar
If DataComprasProveedor.Recordset.RecordCount > 0 Then
wRes = MsgBox("Desea Guardar los Datos", vbQuestion + vbYesNo, "Asociado DIA")
If wRes = 6 Then
DataComprasProveedor.Recordset.MoveFirst
Do While Not DataComprasProveedor.Recordset.EOF
strQry = "Update TblArticulos Set "
strQry = strQry + "ArtQtEx = ArtQtEx + " + Str(DataComprasProveedor.Recordset!Cantidad)
strQry = strQry + " Where ArtCd = " + Str(DataComprasProveedor.Recordset!Clave)
dbDIA.Execute strQry
If Not DataComprasProveedor.Recordset.EOF Then
DataComprasProveedor.Recordset.MoveNext
Else
Exit Do
End If
Loop
strQry = "Update TblMovEntE Set MovEntSt = 1 Where MovEntCd = " + Str(Movimiento)
dbDIA.Execute strQry
Unload Me
End If
Else
MsgBox "Favor de Proporcionar los Datos", vbInformation + vbOKOnly, "Asociado DIA"
End If
Case 4 'Salir
If DataComprasProveedor.Recordset.RecordCount > 0 Then
wRes = MsgBox("Desea Guardar los Datos", vbQuestion + vbYesNo, "Asociado DIA")
If wRes = 6 Then
DataComprasProveedor.Recordset.MoveFirst
Do While Not DataComprasProveedor.Recordset.EOF
strQry = "Update TblArticulos Set "
strQry = strQry + "ArtQtEx = ArtQtEx + " + Str(DataComprasProveedor.Recordset!Cantidad)
strQry = strQry + " Where ArtCd = " + Str(DataComprasProveedor.Recordset!Clave)
dbDIA.Execute strQry
If Not DataComprasProveedor.Recordset.EOF Then
DataComprasProveedor.Recordset.MoveNext
Else
Exit Do
End If
Loop
strQry = "Update TblMovEntE Set MovEntSt = 1 Where MovEntCd = " + Str(Movimiento)
Else
strQry = "Delete * From TblMovEntE Where MovEntCd = " + Str(Movimiento)
End If
dbDIA.Execute strQry
Else
strQry = "Delete * From TblMovEntE Where MovEntSt = 0"
dbDIA.Execute strQry
End If
Unload Me
End Select
End Sub
Private Sub Form_Load()
TxtProveedor.Text = 0
TxtNombre.Text = ""
Movimiento = 0
strSQL = "Select TblMovEntD.ArtCd as Clave, ArtNb as Nombre, MovEntQt as Cantidad From TblMovEntE, TblMovEntD, TblArticulos Where TblMovEntE.MovEntCd = TblMovEntD.MovEntCd And TblMovEntD.ArtCd = TblArticulos.ArtCd And TblMovEntE.ProvCd = 0 And TblMovEntE.MovEntSt = 0 Order by TblMovEntD.ArtCd"
DataComprasProveedor.DatabaseName = App.Path + "\dbDIA.mdb"
DataComprasProveedor.RecordSource = strSQL
DataComprasProveedor.Refresh
End Sub
Private Sub TxtFactura_LostFocus()
If Not IsNumeric(TxtFactura.Text) Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
TxtFactura.Text = 0
TxtFactura.SetFocus
Else
If TxtFactura.Text < 0 Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
TxtFactura.Text = 0
TxtFactura.SetFocus
End If
End If
End Sub
Private Sub TxtProveedor_LostFocus()
Dim strQry As String
Dim snpVerifica As Recordset
If Not IsNumeric(TxtProveedor.Text) Then
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
strSQL = "Select TblMovEntD.ArtCd as Clave, ArtNb as Nombre, MovEntQt as Cantidad From TblMovEntE, TblMovEntD, TblArticulos Where TblMovEntE.MovEntCd = TblMovEntD.MovEntCd And TblMovEntD.ArtCd = TblArticulos.ArtCd And TblMovEntE.ProvCd = 0 And TblMovEntE.MovEntSt = 0 Order by TblMovEntD.ArtCd"
DataComprasProveedor.RecordSource = strSQL
DataComprasProveedor.Refresh
TxtProveedor.Text = 0
TxtNombre.Text = ""
TxtProveedor.SetFocus
Else
If TxtProveedor.Text > 0 Then
strQry = "Select ProvCd, ProvNb From TblProveedores Where ProvCd = " + TxtProveedor.Text
Set snpVerifica = dbDIA.OpenRecordset(strQry, dbOpenSnapshot)
If snpVerifica.RecordCount = 0 Then
MsgBox "No Existe el Proveedor", vbInformation + vbOKOnly, "Asociado DIA"
TxtProveedor.Text = 0
TxtNombre.Text = ""
TxtProveedor.SetFocus
Else
TxtNombre.Text = IIf(IsNull(snpVerifica!ProvNb), "", snpVerifica!ProvNb)
strSQL = "Select TblMovEntD.ArtCd as Clave, ArtNb as Nombre, MovEntQt as Cantidad From TblMovEntE, TblMovEntD, TblArticulos Where TblMovEntE.MovEntCd = TblMovEntD.MovEntCd And TblMovEntD.ArtCd = TblArticulos.ArtCd And TblMovEntE.ProvCd = " + TxtProveedor.Text + " And TblMovEntE.MovEntSt = 0 Order by TblMovEntD.ArtCd"
DataComprasProveedor.RecordSource = strSQL
DataComprasProveedor.Refresh
End If
snpVerifica.Close
Else
If TxtProveedor.Text < 0 Then
TxtProveedor.Text = 0
TxtNombre.Text = ""
TxtProveedor.SetFocus
MsgBox "Favor de Verificar el Dato", vbInformation + vbOKOnly, "Asociado DIA"
strSQL = "Select TblMovEntD.ArtCd as Clave, ArtNb as Nombre, MovEntQt as Cantidad From TblMovEntE, TblMovEntD, TblArticulos Where TblMovEntE.MovEntCd = TblMovEntD.MovEntCd And TblMovEntD.ArtCd = TblArticulos.ArtCd And TblMovEntE.ProvCd = 0 And TblMovEntE.MovEntSt = 0 Order by TblMovEntD.ArtCd"
DataComprasProveedor.RecordSource = strSQL
DataComprasProveedor.Refresh
End If
End If
End If
End Sub