cheveguerra/Mazapa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa.git synced 2026-04-19 21:59:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version: 5.05.20

Browse Source 
Esta version tiene el conteo de tickets y las letras de los productos ya son de color negro en lugar de grises.
This commit is contained in:
IsR0d
2025-05-26 10:45:04 -06:00
parent b180ded7db
commit 174bb9e2a9
12 changed files with 304 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/B4XMainPage.bas
View File

@@ -208,6 +208,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NOVENTA (NV_CLIENTE TEXT, NV_FECHA TEXT, NV_USER TEXT, NV_MOTIVO TEXT, NV_COMM TEXT, NV_LAT TEXT, NV_LON TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TICKET_TEL_CEDIS (TTC_TELEFONO TEXT, TTC_ID_ALMACEN TEXT, TTC_NUM_TICKET INTEGER, TTC_ID_CLIENTE TEXT, TTC_RUTA TEXT, TTC_FECHA TEXT, TTC_MONTO TEXT)")
Subs.agregaColumna("TICKET_TEL_CEDIS", "TTC_FOLIO", "TEXT")
Subs.agregaColumna("TICKET_TEL_CEDIS", "TTC_USUARIO", "TEXT")
Subs.agregaColumna("TICKET_TEL_CEDIS", "TTC_FOLIO_UNICO", "INTEGER")
Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
Subs.agregaColumna("PEDIDO", "PE_IMPRESO", "INT")
Subs.agregaColumna("PEDIDO_CLIENTE", "PC_IMPRESO", "INT")
@@ -887,7 +893,7 @@ End Sub
Sub i_engrane_Click
lv_server.Clear
ime.HideKeyboard
lv_server.AddSingleLine("http://keymon.lat:1781")
lv_server.AddSingleLine("Http://192.99.93.204:1781")
' lv_server.AddSingleLine("http://keymon.lat:1781")
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
' lv_server.AddSingleLine("http://40.123.36.38:1782")