mirror of
https://github.com/KeymonSoft/Guna_Reparto_Imp.git
synced 2026-04-19 21:59:31 +00:00
VERSION 6.01.11
- Se agrego el mandaPendientes para los abonos. - Se agrego que solo se pueda hacer solo una vez FIN DIA y despues de eso se necesita una contraseña (FD + dia + hora)
This commit is contained in:
@@ -31,7 +31,7 @@ Sub Class_Globals
|
||||
Dim banderaabono As String
|
||||
Dim m_lat_al, m_lon_al As String
|
||||
Dim distance2 As Long
|
||||
|
||||
|
||||
Dim ListView1 As ListView
|
||||
Dim la_cuenta As Label
|
||||
Dim La_nombre As Label
|
||||
@@ -150,6 +150,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
s=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
s.Position=0
|
||||
c.Position=0
|
||||
p_transPagare2.Top = 0 : p_transPagare2.left = 0
|
||||
la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
|
||||
La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
|
||||
la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT")
|
||||
@@ -1961,10 +1962,6 @@ Sub JobDone(Job As HttpJob)
|
||||
Log(NOTA)
|
||||
p_transPagare2.Visible = True
|
||||
CrearQR(NOTA)
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
If resultado.Tag.As(String).IndexOf("pagareConfirmado_") > -1 Then
|
||||
ProgressDialogHide
|
||||
@@ -1982,6 +1979,12 @@ Sub JobDone(Job As HttpJob)
|
||||
ToastMessageShow("El pagare NO ha sido confirmado por el cliente!", True)
|
||||
End If
|
||||
End If
|
||||
If resultado.Tag.As(String).IndexOf("mandaAbonosPendientes_") > -1 Then
|
||||
Private NOTA As String= resultado.Tag
|
||||
NOTA = NOTA.SubString(NOTA.IndexOf("_")+1)
|
||||
Log("---> ABONO MANDADO: " & NOTA)
|
||||
Starter.skmt.ExecNonQuery($"update ABONOS set a_enviado = 1 where a_cliente = '${NOTA}'"$)
|
||||
End If
|
||||
End If
|
||||
Job.Release
|
||||
End If
|
||||
@@ -2046,6 +2049,7 @@ Private Sub cb_tipopago_SelectedIndexChanged (Index As Int)
|
||||
End Sub
|
||||
|
||||
Private Sub b_cxc_Click
|
||||
b_abono.Enabled = True
|
||||
tipo_abonox = "cxc"
|
||||
Folio = ""
|
||||
h = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
@@ -2225,57 +2229,53 @@ Sub CreateListItem(mostrar As String, mostrar1 As String, mostrar2 As String) As
|
||||
End Sub
|
||||
|
||||
Sub CheckBox1_CheckedChange(Checked As Boolean)
|
||||
|
||||
|
||||
If ChangingCheckboxesProgrammatically Then Return
|
||||
|
||||
If ChangingCheckboxesProgrammatically Then Return
|
||||
Dim chk As CheckBox = Sender
|
||||
If chk.Checked = False Then
|
||||
|
||||
et_abono.Text = ""
|
||||
End If
|
||||
|
||||
If Checked Then
|
||||
' Obtener directamente el label desde el Tag del checkbox
|
||||
Dim l_folio As Label = chk.Tag
|
||||
If Checked Then
|
||||
' Obtener directamente el label desde el Tag del checkbox
|
||||
Dim l_folio As Label = chk.Tag
|
||||
|
||||
Log("Folio seleccionado: " & l_folio.Text)
|
||||
Folio = l_folio.Text
|
||||
' Indicar que estamos cambiando checkboxes programáticamente
|
||||
ChangingCheckboxesProgrammatically = True
|
||||
Log("Folio seleccionado: " & l_folio.Text)
|
||||
Folio = l_folio.Text
|
||||
' Indicar que estamos cambiando checkboxes programáticamente
|
||||
ChangingCheckboxesProgrammatically = True
|
||||
|
||||
If tipo_abonox = "cxc" Then
|
||||
Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(a_abono),0) AS a_abono FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) AND a_ticket = ?", Array As String(Folio))
|
||||
Log(Folio)
|
||||
y.position = 0
|
||||
Dim u As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(SALDO_PENDIENTE),0) AS SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND NOTA = ?", Array As String(Folio))
|
||||
u.Position = 0
|
||||
If tipo_abonox = "cxc" Then
|
||||
Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(a_abono),0) AS a_abono FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) AND a_ticket = ?", Array As String(Folio))
|
||||
Log(Folio)
|
||||
y.position = 0
|
||||
Dim u As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(SALDO_PENDIENTE),0) AS SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND NOTA = ?", Array As String(Folio))
|
||||
u.Position = 0
|
||||
|
||||
et_abono.Text = u.GetDouble("SALDO_PENDIENTE") - y.GetDouble("a_abono")
|
||||
Else If tipo_abonox = "abono" Then
|
||||
Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(a_abono),0) AS a_abono FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) AND a_ticket = ?", Array As String(Folio))
|
||||
Log(Folio)
|
||||
y.position = 0
|
||||
c = Starter.skmt.ExecQuery($"select iFNULL(sum(PA_MONTO),0) AS SALDO_PENDIENTE from PAGARES where PA_CLIENTE = '${la_cuenta.Text}'"$)
|
||||
c.Position = 0
|
||||
et_abono.Text = u.GetDouble("SALDO_PENDIENTE") - y.GetDouble("a_abono")
|
||||
Else If tipo_abonox = "abono" Then
|
||||
Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(a_abono),0) AS a_abono FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) AND a_ticket = ?", Array As String(Folio))
|
||||
Log(Folio)
|
||||
y.position = 0
|
||||
c = Starter.skmt.ExecQuery($"select iFNULL(sum(PA_MONTO),0) AS SALDO_PENDIENTE from PAGARES where PA_CLIENTE = '${la_cuenta.Text}'"$)
|
||||
c.Position = 0
|
||||
|
||||
et_abono.Text = c.GetDouble("SALDO_PENDIENTE") - y.GetDouble("a_abono")
|
||||
End If
|
||||
|
||||
' Desmarcar todos los demás checkboxes
|
||||
For i = 0 To clv_abonos.Size - 1
|
||||
Dim p As Panel = clv_abonos.GetPanel(i)
|
||||
Dim panelCheckbox As CheckBox = GetCheckboxFromPanel(p)
|
||||
|
||||
If panelCheckbox <> Null And panelCheckbox <> chk Then
|
||||
panelCheckbox.Checked = False
|
||||
End If
|
||||
Next
|
||||
|
||||
' Restaurar flag
|
||||
ChangingCheckboxesProgrammatically = False
|
||||
et_abono.Text = c.GetDouble("SALDO_PENDIENTE") - y.GetDouble("a_abono")
|
||||
End If
|
||||
|
||||
|
||||
' Desmarcar todos los demás checkboxes
|
||||
For i = 0 To clv_abonos.Size - 1
|
||||
Dim p As Panel = clv_abonos.GetPanel(i)
|
||||
Dim panelCheckbox As CheckBox = GetCheckboxFromPanel(p)
|
||||
|
||||
If panelCheckbox <> Null And panelCheckbox <> chk Then
|
||||
panelCheckbox.Checked = False
|
||||
End If
|
||||
Next
|
||||
|
||||
' Restaurar flag
|
||||
ChangingCheckboxesProgrammatically = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub GetCheckboxFromPanel(p As Panel) As CheckBox
|
||||
@@ -2285,9 +2285,7 @@ Sub GetCheckboxFromPanel(p As Panel) As CheckBox
|
||||
End If
|
||||
Next
|
||||
Return Null
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_cancelar_Click
|
||||
et_abono.Text = ""
|
||||
@@ -2298,14 +2296,13 @@ End Sub
|
||||
Private Sub b_abono_Click
|
||||
' p_abono.Visible = False
|
||||
If et_abono.Text <> "" Then
|
||||
b_abono.Enabled = False
|
||||
' If almacen = 92 Then
|
||||
'
|
||||
' Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(a_abono),0) AS a_abono FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) AND a_ticket = ?", Array As String(Folio))
|
||||
' Log(Folio)
|
||||
' y.position = 0
|
||||
' Dim u As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(SALDO_PENDIENTE),0) AS SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND NOTA = ?", Array As String(Folio))
|
||||
' u.Position = 0
|
||||
'
|
||||
' If y.GetString("a_abono") > 0 Then
|
||||
' Log((u.GetString("SALDO_PENDIENTE") + y.GetString("a_abono")))
|
||||
' If et_abono.text > (u.GetString("SALDO_PENDIENTE") - y.GetString("a_abono")) Then
|
||||
@@ -2328,7 +2325,6 @@ Private Sub b_abono_Click
|
||||
' End If
|
||||
' End If
|
||||
' Else
|
||||
'
|
||||
' Log("entramos aqui")
|
||||
' If Folio <> "" Then
|
||||
' If et_abono.text >= u.GetString("SALDO_PENDIENTE") Then
|
||||
@@ -2362,31 +2358,31 @@ Private Sub b_abono_Click
|
||||
' If itemselect <> "SELECCIONA UNA OPCION" Then
|
||||
' If Folio <> "" Then
|
||||
'
|
||||
'' Dim k As Cursor = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
'' k.Position = 0
|
||||
'' Log(k.GetString("CUENTA"))
|
||||
'' Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ?", Array As String(k.GetString("CUENTA")))
|
||||
'' y.position = 0
|
||||
'' If y.RowCount = 0 Then
|
||||
'' Dim k As Cursor = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
'' k.Position = 0
|
||||
'' Log(k.GetString("CUENTA"))
|
||||
'' Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ?", Array As String(k.GetString("CUENTA")))
|
||||
'' y.position = 0
|
||||
'' If y.RowCount = 0 Then
|
||||
' Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
' Wait For Msgbox_Result (resultado As Int)
|
||||
' If resultado = DialogResponse.POSITIVE Then
|
||||
' imprime_abonopagare
|
||||
' End If
|
||||
'' Else If et_abono.Text > y.GetString("a_abono") Then
|
||||
'' Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
'' Wait For Msgbox_Result (resultado As Int)
|
||||
'' If resultado = DialogResponse.POSITIVE Then
|
||||
'' imprime_abonopagare
|
||||
'' End If
|
||||
'' Else If et_abono.Text = y.GetString("a_abono") Then
|
||||
'' p_abono.Visible = False
|
||||
'' et_abono.Text = ""
|
||||
'' Else If et_abono.Text < y.GetString("a_abono") Then
|
||||
'' p_abono.Visible = False
|
||||
'' MsgboxAsync("El pago no puede ser menor al monto capturado.","Atención")
|
||||
'' et_abono.Text = ""
|
||||
'' End If
|
||||
'' Else If et_abono.Text > y.GetString("a_abono") Then
|
||||
'' Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
'' Wait For Msgbox_Result (resultado As Int)
|
||||
'' If resultado = DialogResponse.POSITIVE Then
|
||||
'' imprime_abonopagare
|
||||
'' End If
|
||||
'' Else If et_abono.Text = y.GetString("a_abono") Then
|
||||
'' p_abono.Visible = False
|
||||
'' et_abono.Text = ""
|
||||
'' Else If et_abono.Text < y.GetString("a_abono") Then
|
||||
'' p_abono.Visible = False
|
||||
'' MsgboxAsync("El pago no puede ser menor al monto capturado.","Atención")
|
||||
'' et_abono.Text = ""
|
||||
'' End If
|
||||
' Else
|
||||
' MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
' End If
|
||||
@@ -2395,137 +2391,152 @@ Private Sub b_abono_Click
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(a_abono),0) AS a_abono FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) AND a_ticket = ?", Array As String(Folio))
|
||||
Log(Folio)
|
||||
y.position = 0
|
||||
Dim u As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(SALDO_PENDIENTE),0) AS SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND NOTA = ?", Array As String(Folio))
|
||||
u.Position = 0
|
||||
|
||||
If y.GetDouble("a_abono") > 0 Then
|
||||
|
||||
|
||||
If tipo_abonox = "cxc" Then
|
||||
|
||||
Log((u.GetDouble("SALDO_PENDIENTE") + y.GetDouble("a_abono")))
|
||||
If et_abono.text > (u.GetDouble("SALDO_PENDIENTE") - y.GetDouble("a_abono")) Then
|
||||
Dim y As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(a_abono),0) AS a_abono FROM ABONOS WHERE a_cliente IN (SELECT CUENTA FROM CUENTAA) AND a_ticket = ?", Array As String(Folio))
|
||||
Log(Folio)
|
||||
y.position = 0
|
||||
Dim u As Cursor = Starter.skmt.ExecQuery2("SELECT IFNULL(SUM(SALDO_PENDIENTE),0) AS SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND NOTA = ?", Array As String(Folio))
|
||||
u.Position = 0
|
||||
If y.GetDouble("a_abono") > 0 Then
|
||||
If tipo_abonox = "cxc" Then
|
||||
Log((u.GetDouble("SALDO_PENDIENTE") + y.GetDouble("a_abono")))
|
||||
If et_abono.text > (u.GetDouble("SALDO_PENDIENTE") - y.GetDouble("a_abono")) Then
|
||||
Log("aqui")
|
||||
MsgboxAsync("El monto a abonar no puede ser mayor que el monto del pagare seleccionado","Atención" )
|
||||
b_abono.Enabled = True
|
||||
Else
|
||||
If et_abono.Text <> "" And et_abono.Text > 0 Then
|
||||
If itemselect <> "SELECCIONA UNA OPCION" Then
|
||||
If Folio <> "" Then
|
||||
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
b_abono.Enabled = True
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
b_abono.Enabled = False
|
||||
imprime_abonopagare
|
||||
End If
|
||||
Else
|
||||
b_abono.Enabled = True
|
||||
MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
b_abono.Enabled = True
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un metodo de pago","Atención")
|
||||
b_abono.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else If tipo_abonox = "abono" Then
|
||||
If Folio <> "" Then
|
||||
c = Starter.skmt.ExecQuery($"select iFNULL(sum(PA_MONTO),0) AS SALDO_PENDIENTE from PAGARES where PA_CLIENTE = '${la_cuenta.Text}'"$)
|
||||
c.Position = 0
|
||||
' Log(c.GetString("SALDO_PENDIENTE") &" "& u.GetString("SALDO_PENDIENTE"))
|
||||
If et_abono.text > (c.GetDouble("SALDO_PENDIENTE") - y.GetDouble("a_abono")) Then
|
||||
Log("aqui")
|
||||
MsgboxAsync("El monto a abonar no puede ser mayor que el monto del pagare seleccionado","Atención" )
|
||||
b_abono.Enabled = True
|
||||
Else
|
||||
If et_abono.Text <> "" And et_abono.Text > 0 Then
|
||||
If itemselect <> "SELECCIONA UNA OPCION" Then
|
||||
If Folio <> "" Then
|
||||
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un metodo de pago","Atención")
|
||||
b_abono.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Else If tipo_abonox = "abono" Then
|
||||
|
||||
If Folio <> "" Then
|
||||
c = Starter.skmt.ExecQuery($"select iFNULL(sum(PA_MONTO),0) AS SALDO_PENDIENTE from PAGARES where PA_CLIENTE = '${la_cuenta.Text}'"$)
|
||||
c.Position = 0
|
||||
' Log(c.GetString("SALDO_PENDIENTE") &" "& u.GetString("SALDO_PENDIENTE"))
|
||||
If et_abono.text > (c.GetDouble("SALDO_PENDIENTE") - y.GetDouble("a_abono")) Then
|
||||
Log("aqui")
|
||||
MsgboxAsync("El monto a abonar no puede ser mayor que el monto del pagare seleccionado","Atención" )
|
||||
Else
|
||||
If et_abono.Text <> "" And et_abono.Text > 0 Then
|
||||
If itemselect <> "SELECCIONA UNA OPCION" Then
|
||||
|
||||
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un metodo de pago","Atención")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
b_abono.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
|
||||
Log("entramos aqui")
|
||||
If tipo_abonox = "cxc" Then
|
||||
If Folio <> "" Then
|
||||
If et_abono.text > u.GetDouble("SALDO_PENDIENTE") Then
|
||||
Log("aqui")
|
||||
MsgboxAsync("El monto a abonar no puede ser mayor que el monto del pagare seleccionado","Atención" )
|
||||
Else
|
||||
If et_abono.Text <> "" And et_abono.Text > 0 Then
|
||||
If itemselect <> "SELECCIONA UNA OPCION" Then
|
||||
|
||||
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un metodo de pago","Atención")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
End If
|
||||
Else If tipo_abonox = "abono" Then
|
||||
|
||||
'''checar
|
||||
|
||||
If Folio <> "" Then
|
||||
c = Starter.skmt.ExecQuery($"select iFNULL(sum(PA_MONTO),0) AS SALDO_PENDIENTE from PAGARES where PA_CLIENTE = '${la_cuenta.Text}'"$)
|
||||
c.Position = 0
|
||||
' Log(c.GetString("SALDO_PENDIENTE") &" "& u.GetString("SALDO_PENDIENTE"))
|
||||
If et_abono.text > c.GetDouble("SALDO_PENDIENTE") Then
|
||||
Log("aqui")
|
||||
MsgboxAsync("El monto a abonar no puede ser mayor que el monto del pagare seleccionado","Atención" )
|
||||
Else
|
||||
If et_abono.Text <> "" And et_abono.Text > 0 Then
|
||||
If itemselect <> "SELECCIONA UNA OPCION" Then
|
||||
|
||||
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un metodo de pago","Atención")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
Log("entramos aqui")
|
||||
If tipo_abonox = "cxc" Then
|
||||
If Folio <> "" Then
|
||||
If et_abono.text > u.GetDouble("SALDO_PENDIENTE") Then
|
||||
Log("aqui")
|
||||
MsgboxAsync("El monto a abonar no puede ser mayor que el monto del pagare seleccionado","Atención" )
|
||||
b_abono.Enabled = True
|
||||
Else
|
||||
If et_abono.Text <> "" And et_abono.Text > 0 Then
|
||||
If itemselect <> "SELECCIONA UNA OPCION" Then
|
||||
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un metodo de pago","Atención")
|
||||
b_abono.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
b_abono.Enabled = True
|
||||
End If
|
||||
Else If tipo_abonox = "abono" Then
|
||||
'''checar
|
||||
If Folio <> "" Then
|
||||
c = Starter.skmt.ExecQuery($"select iFNULL(sum(PA_MONTO),0) AS SALDO_PENDIENTE from PAGARES where PA_CLIENTE = '${la_cuenta.Text}'"$)
|
||||
c.Position = 0
|
||||
' Log(c.GetString("SALDO_PENDIENTE") &" "& u.GetString("SALDO_PENDIENTE"))
|
||||
If et_abono.text > c.GetDouble("SALDO_PENDIENTE") Then
|
||||
Log("aqui")
|
||||
MsgboxAsync("El monto a abonar no puede ser mayor que el monto del pagare seleccionado","Atención" )
|
||||
b_abono.Enabled = True
|
||||
Else
|
||||
If et_abono.Text <> "" And et_abono.Text > 0 Then
|
||||
If itemselect <> "SELECCIONA UNA OPCION" Then
|
||||
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un metodo de pago","Atención")
|
||||
b_abono.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Por favor selecciona un pagare para aplicar el pago","Atención")
|
||||
b_abono.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' End If
|
||||
End If
|
||||
ime.HideKeyboard
|
||||
End Sub
|
||||
|
||||
Sub mandaAbonosPendientes
|
||||
Log("--->>>> MANDAMOS ABONO MANDAPENDIENTES")
|
||||
almacen = 99999999
|
||||
Private ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null and a_tipoabono IS NULL"$)
|
||||
Log(ab.RowCount)
|
||||
If ab.RowCount > 0 Then
|
||||
For i=0 To ab.RowCount -1
|
||||
ab.Position = i
|
||||
Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
|
||||
ab1.Position = 0
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_abono_REP_GUNA_VN2"
|
||||
cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab.GetString("a_abono"), ab.GetString("a_fecha"), almacen, "REPARTO", Subs.traeRuta(Subs.traeCliente), "", ab.GetString("TIPO_PAGO"), ab.GetString("a_ticket"), ab.GetString("a_numpago"))
|
||||
reqManager.ExecuteCommand(cmd , $"mandaAbonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
ab1.Close
|
||||
Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
Next
|
||||
End If
|
||||
ab.Close
|
||||
End Sub
|
||||
|
||||
Sub imprime_abonopagare2
|
||||
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
@@ -2925,7 +2936,6 @@ Sub imprime_abonopagare
|
||||
If cont > 15 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
Log("asasdas")
|
||||
impresoraConectada = False
|
||||
Else
|
||||
' If logger Then Log("conectando 2")
|
||||
@@ -3138,10 +3148,7 @@ Sub imprime_abonopagare
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("-------------FIRMA------------" & CRLF)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
' Dim bmp As Bitmap
|
||||
'' bmp.InitializeResize(File.DirAssets, "logo-guna-18.jpg", 192, 192, True) 'ignore
|
||||
|
||||
@@ -3164,8 +3171,7 @@ Sub imprime_abonopagare
|
||||
Sleep(2000)
|
||||
Printer1.DisConnect
|
||||
ProgressDialogHide
|
||||
|
||||
|
||||
|
||||
If Subs.traeAlmacen = "92" Then
|
||||
|
||||
''mayoreo
|
||||
@@ -3190,7 +3196,6 @@ Sub imprime_abonopagare
|
||||
' Starter.skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
||||
' ToastMessageShow("Abono guardado", False)
|
||||
Else
|
||||
|
||||
h = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
h.Position = 0
|
||||
Log(h.GetString("CUENTA"))
|
||||
@@ -3452,8 +3457,8 @@ Sub imprime_abonopagare
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
' Buscamos abonos sin enviar para enviarlos.
|
||||
mandaAbonosPendientes
|
||||
End Sub
|
||||
|
||||
Sub imprime_pagare
|
||||
|
||||
Reference in New Issue
Block a user