public sFriki(string nombre, int edad, eAficion aficion, eSexo sexo, eSexo sexoOpuesto, string foto)
{
Nombre = nombre;
Edad = edad;
Aficion = aficion;
Sexo = sexo;
SexoOpuesto = sexoOpuesto;
Foto = foto;
}
public sFriki(string nombre, int edad, eAficion aficionPrincipal, eSexo sexo, eSexo sexoOpuesto, string foto)
{
Nombre = nombre;
Edad = edad;
this.aficionPrincipal = aficionPrincipal;
Sexo = sexo;
this.sexoOpuesto = sexoOpuesto;
Foto = foto;
}
public sFriki(string nombre, int edad, eAficion aficion, eSexo sexo, eSexo sexoOpuesto, string foto)
{
this.Nombre = nombre;
this.Edad = edad;
this.AficionPrincipal = aficion;
this.Sexo = sexo;
this.SexoOpuesto = sexoOpuesto;
this.Foto = foto;
}
public sFriki(string nombre, int edad, eAficion aficion, eSexo sexo, eSexo sexoOpuesto, string foto)
{
this.nombre = nombre;
this.edad = edad;
this.aficion = aficion;
this.sexo = sexo;
this.sexoOpuesto = sexoOpuesto;
Foto = foto;
}
private void btnNuevo_Click(object sender, EventArgs e)
{
Form2 f2 = new Form2();
if (f2.ShowDialog() == DialogResult.OK)
{
eAficion af = eAficion.Fantasía;
eSexo s = eSexo.Mujer;
eSexo sOp = eSexo.Hombre;
if (f2.validateTbNombre.Valido && f2.validateTbEdad.Valido && f2.textBox1.Text.Length > 0 &&
Enum.TryParse(f2.cbAficciones.SelectedItem.ToString(), out af) &&
Enum.TryParse(f2.rbSexoH.Checked ? f2.rbSexoH.Text : f2.rbSexoM.Text, out s) &&
Enum.TryParse(f2.rbSexoOpH.Checked ? f2.rbSexoOpH.Text : f2.rbSexoOpM.Text, out sOp))
{
frikis.Add(new sFriki(f2.validateTbNombre.Texto, Int32.Parse(f2.validateTbEdad.Texto),
af, s, sOp, f2.textBox1.Text));
listBox1.Items.Add(f2.validateTbNombre.Texto);
}
}
}
public Alumno(string nombre, int legajo, eSexo sexo)
{
this._nombre = nombre;
this._legajo = legajo;
this._sexo = sexo;
}
public string Numero2Letra(string strNum,
long La = 0L,
long NumDecimales = 2L,
string sMonedas = "",
string sCentimos = "",
eSexo SexoMoneda = eSexo.Masculino,
eSexo SexoCentimos = eSexo.Masculino)
{
// '----------------------------------------------------------
//' Convierte el número strNum en letras (28/Feb/91)
//' Versión para Windows (25/Oct/96)
//' Variables estáticas (15/May/97)
//' Parche de "Esteve" <*****@*****.**> (20/May/97)
//' Revisión para decimales (10/Jul/97)
//' Permite indicar el sexo de la moneda (06/Ene/99)
//' y de los centimos... nunca se sabe...
//' Corregido fallo de los decimales cuando (13/Ene/99)
//' tienen ceros a la derecha.
//'
//' La moneda debe especificarse en singular, ya que la función
//' se encarga de convertirla en plural.
//' Se puede indicar el número de decimales a devolver
//' por defecto son dos.
//'-------------------------------------------------------------
long iHayDecimal; // 'Posición del signo decimal
string sEntero;
string sFraccion;
Single fFraccion;
string sNumero;
string sSexoCents;
eSexo SexoAntMoneda = 0;
eSexo SexoAntCentimos;
int num;
//'Esta variable fueron declarado por Diogenes Gil Para fines de Controlar
//'algunos defecto de la DLL
string strDecimal;
string strEntero;
dynamic com = null;
//' Para tener en cuenta el sexo de los céntimos (20/Jul/00)
//' m_Sexo2 se usa para indicar el plural de las monedas,
//' sSexoCents sustituirá a esa variable cuando se calculen los céntimos
if (SexoCentimos == eSexo.Femenino)
{
sSexoCents = "as";
}
else
{
sSexoCents = "os";
}
//'Dependiendo del "sexo" indicado, usar las terminaciones
if (SexoMoneda == eSexo.Femenino)
{
m_Sexo1 = "a";
m_Sexo2 = "as";
}
else
{
m_Sexo1 = "";
m_Sexo2 = "os";
}
//'por si se cambia en el trascurso el sexo de la moneda
if (SexoMoneda != SexoAntMoneda)
{
//////unidad[2] = ""; //No sabemos para que lo usan
SexoAntMoneda = SexoMoneda;
}
m_LenSexo1 = m_Sexo1.Length;
//'Si se especifica, se usarán
sMonedas = sMonedas.Trim(' ');
if (sMonedas.Length != 0)
{
sMonedas = " " + sMonedas + " ";
}
else
{
sMonedas = " ";
}
sCentimos = sCentimos.Trim(' ');
if (sCentimos.Trim(' ').Length != 0)
{
sCentimos = " " + sCentimos + " ";
}
else
{
sCentimos = " ";
}
//'Si no se especifica el ancho...
if (La != 0)
{
sNumero = string.Empty.PadRight(Convert.ToInt32(La), ' ');
}
else
{
sNumero = "";
}
//'Comprobar el signo decimal y devolver los adecuados a la config. regional
strNum = ConvDecimal(strNum, sDecimal, sDecimalNo);
//'Comprobar si tiene decimales
iHayDecimal = strNum.IndexOf(sDecimal); //iHayDecimal = instr(strNum, sDecimal);
if (iHayDecimal != -1)
{
sEntero = strNum.Substring(0, Convert.ToInt32(iHayDecimal));
//sEntero = Left$(strNum, iHayDecimal - 1)
sFraccion = strNum.Substring(Convert.ToInt32(iHayDecimal) + 1) + string.Empty.PadRight(Convert.ToInt32(NumDecimales), '0');
//sFraccion = Mid$(strNum, iHayDecimal +1) &String$(NumDecimales, "0")
//'obligar a que tenga dos cifras
//'
//'pero habría que redondear el resto...
//'por ejemplo:
//' .256 sería .26 y
//' .254 sería .25
//'Pero esto otro no se haría:
//'.25499 no pasaría a .255 y después a .26
//'
//'*sFraccion = Left$(sFraccion, NumDecimales + 1)
//'*fFraccion = Int((Val(sFraccion) / 100) * 10 + 0.5) * 10
//'*sFraccion = Left$(CStr(fFraccion), NumDecimales)
//'
//' NO hacer cálculos de redondeo ni nada de nada (08/Jul/00)
//'
//' De esta forma se dirá:
//' ,06 con seis
//' ,50 con cincuenta
//'
sFraccion = sFraccion.Substring(0, Convert.ToInt32(NumDecimales)); //sFraccion = Left$(sFraccion, NumDecimales)
//'
//'* En las fracciones los ceros a la derecha no tienen significado
//'----------------------------------------------------------------------
//' Pero si tenemos: 125.50 si que tiene significado, (08/Jul/00)
//' ya que tal y como está ahora, diría con 5 en lugar de cincuenta
//' Así que si se ponen NumDecimales mayor de 2,
//' hay que ser consecuentes con los resultados.
//'----------------------------------------------------------------------
//'*Do While Right$(sFraccion, 1) = "0"
//'* sFraccion = Left$(sFraccion, Len(sFraccion) - 1)
//'*Loop
//'
fFraccion = Convert.ToSingle(sFraccion);
//' Si no hay decimales... no agregar nada...
strDecimal = sFraccion; //'para pasar el numero de decimal
strEntero = strNum;
if (fFraccion < 1)
{
if (sMonedas.Trim(' ').Length != 0) //if Len(Trim$(sMoneda))
{
sMonedas = Pluralizar(sNumero, sMonedas);
}
strNum = (UnNumero(sEntero, m_Sexo1) + sMonedas).TrimStart(' '); //strNum = RTrim$(UnNumero(sEntero, m_Sexo1) & sMonedas)
if (La != 0)
{
sNumero = strNum.Substring(0, Convert.ToInt32(La)); //LSet sNumero = strNum
}
else
{
sNumero = strNum;
}
//'***********************************************************************
//'Complementar la el resultado de esta funcion
//'modificado por Diogenes Y Hector Para que el resultado sea mas eficiente
//'***********************************************************************
com = sNumero.IndexOf("con"); //com = InStr(1, sNumero, "CON")
if (Convert.ToDecimal(strEntero) >= 2) //If Val(strEntero) >= 2 Then
{
if (com > 0)
{
if (sNumero.Substring(com + 4, 2) == 1) //If Mid(sNumero, com + 4, 2) = 1 Then
{
return((sNumero.Trim() + " CENTAVO").ToUpper()); //Numero2Letra = UCase(sNumero & " CENTAVO")
}
else
{
return((sNumero.Trim() + " CENTAVOS").ToUpper()); //Numero2Letra = UCase(sNumero & " CENTAVOS")
}
}
else
{
return((sNumero.Trim() + " CON 00 CENTAVOS").ToUpper()); // Numero2Letra = UCase(sNumero & " CON 00 CENTAVOS")
}
}
else
{
com = sNumero.IndexOf("con"); //com = InStr(1, sNumero, "CON")
if (com != -1)
{
if (sNumero.Substring(com + 4, 2) == 1) //If Mid(sNumero, com + 4, 2) = 1 Then
{
return((sNumero + " CENTAVO").ToUpper()); // Numero2Letra = UCase(sNumero & " CENTAVO")
}
else
{
return((sNumero + " CENTAVOS").ToUpper()); //Numero2Letra = UCase(sNumero & " CENTAVOS")
}
}
else
{
return((sNumero + " CON 00 CENTAVOS").ToUpper()); // Numero2Letra = UCase(sNumero & " CON 00 CENTAVOS")
}
}
//'end declaraction de el proceso Diogenes Hector
//'Numero2Letra = sNumero ' esta variable le desvuelve la traducion a la function anteriormente
//exit function;
}
if (sMonedas.Trim(' ').Length != 0) //If Len(Trim$(sMoneda)) Then
{
sMonedas = Pluralizar(sEntero, sMonedas);
}
sEntero = UnNumero(sEntero, m_Sexo1);
if (sCentimos.Trim(' ').Length != 0) //If Len(Trim$(sCentimos)) Then
{
sCentimos = Pluralizar(sFraccion, sCentimos);
}
//' Para el sexo de los decimales
//' no se si esto puede cambiar, pero por si ocurre...
//'
//' Sustituimos el plural de las monedas, (20/Jul/00)
//' para adecuarla a los céntimos,
//' ya que en España, la moneda es femenino, pero los céntimos masculino.
m_Sexo2 = sSexoCents;
if (SexoCentimos == eSexo.Masculino) //If SexoCentimos = eSexo.Masculino Then
{
sFraccion = UnNumero(sFraccion, "");
}
else
{
sFraccion = UnNumero(sFraccion, "a");
}
//'
//'strNum = sEntero & sMoneda & " pesos con " & sFraccion & sCentimos
if (Convert.ToDecimal(strNum) >= 2) //If Val(strNum) >= 2 Then
{
strNum = sEntero + sMonedas.TrimEnd() + " CON " + string.Format(strDecimal, "00") + sCentimos; //strNum = sEntero & sMoneda & " CON " & Format(CLng(strDecimal), "00") & sCentimos
}
else
{
strNum = sEntero + sMonedas.TrimEnd() + " CON " + string.Format(strDecimal, "00") + sCentimos; //strNum = sEntero & sMoneda & " CON " & Format(CLng(strDecimal), "00") & sCentimos
}
if (La != 0) //If Lo Then
{
sNumero = strNum.TrimEnd(' ').Substring(0, Convert.ToInt32(La)); //LSet(sNumero, RTrim$(strNum))
}
else
{
sNumero = strNum.TrimEnd(' '); //sNumero = RTrim$(strNum)
}
//'***********************************************************************
//'Complementar el resultado de esta funcion
//'modificado por Diogenes Y Hector Para que el resultado sea mas eficiente
//'***********************************************************************
com = sNumero.IndexOf("CON"); //com = InStr(1, sNumero, "CON")
if (int.TryParse(strNum, out num)) //If Val(strNum) >= 2 Then
{
if (com != -1) //If com > 0 Then
{
if (sNumero.Substring(com + 4, 2) == 1) //If Mid(sNumero, com + 4, 2) = 1 Then
{
return((sNumero.Trim() + " CENTAVO").ToUpper()); //Numero2Letra = UCase(sNumero & " CENTAVO")
}
else
{
return((sNumero.Trim() + " CENTAVOS").ToUpper()); //Numero2Letra = UCase(sNumero & " CENTAVOS")
}
}
else
{
return((sNumero.Trim() + " CON 00 CENTAVOS").ToUpper()); //Numero2Letra = UCase(sNumero & " CON 00 CENTAVOS")
}
}
else
{
com = sNumero.IndexOf("CON"); //com = InStr(1, sNumero, "CON")
if (com != -1) //If com > 0 Then
{
if (sNumero.Substring(com + 4, 2) == "1") //If Mid(sNumero, com + 4, 2) = 1 Then
{
return((sNumero.Trim() + " CENTAVO").ToUpper()); //Numero2Letra = UCase(sNumero & " CENTAVO")
}
else
{
return((sNumero.Trim() + " CENTAVOS").ToUpper()); //Numero2Letra = UCase(sNumero & " CENTAVOS")
}
}
else
{
return((sNumero.Trim() + " CON 00 CENTAVOS").ToUpper()); //Numero2Letra = UCase(sNumero & " CON 00 CENTAVOS")
}
}
//'end declaction de el proceso de Diogenes Hector
//'Numero2Letra = sNumero ' esta variable le desvuelve la traducion a la function anteriormente
}
else
{
if (sMonedas.Trim(' ').Length != 0) //If Len(Trim$(sMoneda)) Then
{
sMonedas = Pluralizar(strNum, sMonedas); //sMoneda = Pluralizar(strNum, sMoneda)
}
strNum = (UnNumero(strNum, m_Sexo1) + sMonedas).TrimEnd(' '); //strNum = RTrim$(UnNumero(strNum, m_Sexo1) & sMoneda)
if (La != 0) //If Lo Then
{
sNumero = strNum.Substring(0, Convert.ToInt32(La)); //LSet(sNumero, strNum)
}
else
{
sNumero = strNum;
}
return(sNumero.ToUpper().Trim()); //Numero2Letra = sNumero
}
}
public static Pessoa CreatePessoa(
string nome,
string cpf,
string cnpj,
string razaoSocial,
string nomeFantasia,
decimal? limiteCredito,
string email,
DateTime? dataCadastro,
DateTime? ultimaAtualizacaoCadastro,
bool ativo,
int? vendedorId,
string ie,
eSexo? sexo,
string estadoCivil,
DateTime? dataNascimento,
string escolaridade,
string profissao,
string nacionalidade,
eTipoPesssoa? tipoPessoa,
bool compraPrazo,
bool subISS,
eObjetivoComercial? objetivoComercial,
bool retemImpostos,
ePessoa? fisicaJuridica,
decimal? percentualVista,
decimal? percentualPrazo
)
{
var pessoa = new Pessoa();
pessoa.Nome = nome;
pessoa.Cpf = cpf;
pessoa.Cnpj = cnpj;
pessoa.RazaoSocial = razaoSocial;
pessoa.NomeFantasia = nomeFantasia;
pessoa.LimiteCredito = limiteCredito;
pessoa.Email = email;
pessoa.DataCadastro = dataCadastro;
pessoa.UltimaAtualizacaoCadastro = ultimaAtualizacaoCadastro;
pessoa.Ativo = ativo;
pessoa.VendedorId = vendedorId;
pessoa.Ie = ie;
pessoa.Sexo = sexo;
pessoa.EstadoCivil = estadoCivil;
pessoa.DataNascimento = dataNascimento;
pessoa.Escolaridade = escolaridade;
pessoa.Profissao = profissao;
pessoa.Nacionalidade = nacionalidade;
pessoa.TipoPessoa = tipoPessoa;
pessoa.CompraPrazo = compraPrazo;
pessoa.SubISS = subISS;
pessoa.ObjetivoComercial = objetivoComercial;
pessoa.RetemImpostos = retemImpostos;
pessoa.FisicaJuridica = fisicaJuridica;
pessoa.PercentualVista = percentualVista;
pessoa.PercentualPrazo = percentualPrazo;
return pessoa;
}
