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

version final reparto intmex

Browse Source
This commit is contained in:
cvaldes1201
2024-05-29 10:59:51 -06:00
parent 530971af11
commit 89f2d228e0
9 changed files with 214 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
seleccion.bas
View File

@@ -474,12 +474,64 @@ Sub Subir_Click
Next
End If
r.Close
'PAGARES.
Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES")
If pa.RowCount > 0 Then
For pag = 0 To pa.RowCount - 1
pa.Position = pag
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_PAGARES_INTMEX2"
Dim fechaenvio() As String
fechaenvio = Regex.Split(" ",pa.GetString("PA_FECHA_PREV"))
' Log(fechaenvio(0))
Dim fechaenvio1() As String
fechaenvio1 = Regex.Split("/",fechaenvio(0))
Dim fechaano As String = fechaenvio1(2).SubString(2)
Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaano
' Log(fechareal)
Dim fechacap() As String
fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA"))
Dim fechacapano As String = fechacap(2).SubString(2)
Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"))
reqManager.ExecuteCommand(cmd , "ins_pagares")
Next
End If
pa.Close
'd.Position=0
'cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
'd.Close
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End Sub
'Private Sub ImageView1_LongClick
' 'PAGARES.
' Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES")
' If pa.RowCount > 0 Then
' For pag = 0 To pa.RowCount - 1
' pa.Position = pag
'' Dim cmd As DBCommand
'' cmd.Initialize
'' cmd.Name = "insert_reparto_PAGARES_INTMEX2"
' Dim fechaenvio() As String
' fechaenvio = Regex.Split(" ",pa.GetString("PA_FECHA_PREV"))
' Log(fechaenvio(0))
' Dim fechaenvio1() As String
' fechaenvio1 = Regex.Split("/",fechaenvio(0))
' Dim fechaaño As String = fechaenvio1(2).SubString(2)
' Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaaño
' Log(fechareal)
'
'' cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),pa.GetString("PA_CAPTURA"),pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),,pa.GetString("PA_USUARIO"))
'' reqManager.ExecuteCommand(cmd , "ins_pagares")
' Next
' End If
'End Sub
Sub cargar_Click
' img2.Visible =True
EJECUTANDO = 1
@@ -1045,6 +1097,7 @@ Sub e_ruta_EnterPressed
e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
Starter.skmt.ExecNonQuery("delete from PAGARES")
Starter.skmt.ExecNonQuery("delete from pedido")
Starter.skmt.ExecNonQuery("delete from noventa")
Starter.skmt.ExecNonQuery("delete from clie_act")
@@ -1202,4 +1255,5 @@ End Sub
Private Sub Panel1_Click
End Sub
End Sub