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

vistas...

Browse Source
This commit is contained in:
cvaldes1201
2024-05-20 09:53:42 -06:00
parent 0a184e3baf
commit 2a8817aa02
24 changed files with 704 additions and 1855 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
B4A/C_Nota.bas
View File

@@ -109,7 +109,7 @@ Sub B4XPage_Appear
DESC = c.GetString("DESCUENTO")
b_desc.Visible = False
End If
If Subs.pedidoGuardado Then borra.Enabled = False Else borra.Enabled = True
' If Subs.pedidoGuardado Then borra.Enabled = False Else borra.Enabled = True
End Sub
Sub GPS_LocationChanged (Location1 As Location)
@@ -129,10 +129,10 @@ Private Sub B4XPage_CloseRequest As ResumableSub
End Sub
Sub borra_Click
c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
If c.RowCount = 0 Then
' c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
' If c.RowCount = 0 Then
If folio <> "" Then
' If folio <> "" Then
result = Msgbox2("Seguro que desea borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then
c=Starter.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
@@ -148,18 +148,18 @@ Sub borra_Click
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPage_Appear
End If
Else
Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
End If
Else
MsgboxAsync("La venta fue enviada, no se puede eliminar","Atnción")
End If
' Else
' Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
' End If
' Else
' MsgboxAsync("La venta fue enviada, no se puede eliminar","Atnción")
' End If
End Sub
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
If c.RowCount = 0 Then
If Not(Subs.pedidoGuardado) Then
' c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
' If c.RowCount = 0 Then
' If Not(Subs.pedidoGuardado) Then
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then
c=Starter.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
@@ -195,12 +195,12 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End If
B4XPage_Appear
End If
Else
ToastMessageShow("El pedido ya fue guardado, no se puden borrar productos.", True)
End If
Else
MsgboxAsync("La venta fue enviada, no se puede eliminar","Atnción")
End If
' Else
' ToastMessageShow("El pedido ya fue guardado, no se puden borrar productos.", True)
' End If
' Else
' MsgboxAsync("La venta fue enviada, no se puede eliminar","Atnción")
' End If
End Sub
Sub b_desc_Click