cheveguerra/SoporteKeymonsoft
1
0
Fork 0
mirror of https://github.com/KeymonSoft/SoporteKeymonsoft.git synced 2026-04-17 20:56:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.08.11

Browse Source 
- Se agrego que cuando se revisa venta de Kellogg's, traiga el estatus del arqueo y de la liquidación.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-08-15 18:43:25 -06:00
parent 7822b5e2e9
commit f390c2d6d6
4 changed files with 167 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Subs.bas
View File

@@ -67,7 +67,30 @@ Sub dameCita(citas As List) As String
citas.Add("El dinero es veraz, si un hombre habla de su honor, hazle pagar en efectivo.")
citas.Add("Cuando la tentación se cruce en tu camino, aprovéchala, puede que no vuelva a presentarse.")
citas.Add("La libertad empieza cuando uno manda a la gente a freír espárragos.")
citas.Add("Cuando la tentación se cruce en tu camino, aprovéchala, puede que no vuelva a presentarse.")
citas.Add($"Cuando la tentación se cruce en tu camino, aprovéchala, puede que no vuelva a presentarse."$)
citas.Add($"Existen dos palabras que abren todas las puertas: “jale” y “empuje”."$)
citas.Add($"Donde sobra ... no falta."$)
citas.Add($"Algunos matrimonios acaban bien ... otros duran toda la vida."$)
citas.Add($"El dinero no te da la felicidad ... sobre todo si es poco."$)
citas.Add($"En política: el que sabe, sabe ... y el que no, pues es jefe."$)
citas.Add($"Estamos como estamos ... porque somos como somos."$)
citas.Add($"Lo que está bien ... no puede estar mal."$)
citas.Add($"Un hombre exitoso es aquel que gana más dinero del que su mujer gasta."$)
citas.Add($"Una cosa es una cosa ... y otra cosa es otra cosa."$)
citas.Add($"Trabajar nunca mató a nadie ... pero para que nos arriesgamos!"$)
citas.Add($"Hay que trabajar ocho horas y dormir ocho horas ... ¡pero que no sean las mismas!"$)
citas.Add($"El que nace pobre y feo tiene posibilidades de que -al crecer- desarrolle ambas condiciones."$)
citas.Add($"La confusión está clarísima."$)
citas.Add($"Cuando un médico se equivoca ... lo mejor es echarle tierra al asunto."$)
citas.Add($"Si el que muere pasa a mejor vida ... ¿Por qué nadie quiere morirse?"$)
citas.Add($"¡Cuando el gallo canta en la madrugada, puede que llueva mucho, puede que llueva poco o puede que no llueva nada!"$)
citas.Add($"El que anda de buenas, no puede andar de malas."$)
citas.Add($"Si no llegó ... es porque no vino."$)
citas.Add($"Cuando hay ... hay; cuando no hay ... pues no hay."$)
citas.Add($"Agua que no corre ... es charco."$)
citas.Add($"Donde comen dos comen tres, y hasta cuatro ¡pero no llenan!"$)
citas.Add($"Si las cosas no han cambiado, es porque siguen igual."$)
citas.Add($"Si no recibes este mensaje ... es porque no te llegó."$)
End If
Private citaNum As Int = Rnd(1, citas.Size)
' Log(citas.Size & "|" & (citaNum-1))