No Me Interesa Tu Fuking Problem With Me

CODIGO DE VISUAL BASIC

TIPO DE PRENDA:

Privete sub_cmb_cmd_GRABAR_TIPO DE PRENDA_CLICK

Set rsAux = dbdata.Open.cordset (“CAT_TIPO DE PRENDA”,dbupentable)

RsAux.Addnew

If txt_cve_TIPOPRENDA “” then rsAux (“cve_TIPO PRENDA”)= txt_cve_sucursal

If txt_TIPO DE PRENDA “” then rsAux (“NOM_TIPO PRENDA”) = txt_sucursal

rsAux.ipade

call borra (Form1)

rsAux.Movelastexit sub

end sub

Privete sub form_load ()

Set dbdata = work paces (0).Opendata base (“ruta de acceso”)

Dbsql = “Select * form cat_TIPO DE PRENDA order by cve_tipo de prenda

Set rsAux =dbdata.openrecord set (dbsql)

If rsAux.openrecord count > 0 then

Do while.not rsAux.F_OF

Cbo_TIPO DE PRENDA.Additem rsAux (“NOM_TIPO DE PRENDA”)String

Cso_len rsAux (Nom_TIPO PRENDA)); “”) rsAux

(“CVE_TIPO PRENDA”)

rsAux.Movenext

loop

end if

end sub

Privete Sub KeyAscn press_Txt_cve_TIPO DEPRENDA

Key Ascii = asc (uase chr(keyAscii)))

If key Ascii = 8thenexit subIf key Ascii = 13 then

If key Ascii.Setfocus

End if

End sub

Privete Sub KeyAscn press_Txt_cve_TIPO DEPRENDA (0)

Key Ascii = asc (uase chr(keyAscii)))

If key Ascii = 8thenexitsub

If key Ascii.Setfocus

Txt_guardar_TIPO DE PRENDA Setfocus

End if

End sub

CODIGO PARA EL TIPO DE MARCA

Privete sub_cmb_cmd_GRABAR_MARCA_CLICK

Set rsAux = dbdata.Open.cordset(“CAT_MARCA”,dbupentable)

RsAux.Addnew

If txt_cve_MARCA “” then rsAux (“cve_MARCA”)= txt_cve_sucursal

If txt_MARCA “” then rsAux (“NOM_MARCA”) = txt_sucursal

rsAux.ipade

call borra(Form1)

rsAux.Movelast

exit sub

end sub

Privete sub form_load ()

Set dbdata = work paces (0).Opendata base (“MARCA”)

Dbsql = “Select * form cat_ MARCA order by cve_tipo de prenda

SetrsAux = dbdata.openrecord set (dbsql)

If rsAux.openrecord count > 0 then

Do while.not rsAux.F_OF

Cbo_ MARCA.Additem rsAux (“NOM_ MARCA”)String

Cso_len rsAux (Nom_ MARCA)); “ ”)...