Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rrene
@@ -1266,10 +1266,6 @@ Partial Class Compras_Compras
|
||||
TieneOC = False
|
||||
CveMoneda = -1
|
||||
|
||||
'[IPP] Eliminar 22Junio2018
|
||||
'If UsuarioActual.Empresa.UsaInventarios Then
|
||||
' TabAlmacen.Enabled = Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0
|
||||
'End If
|
||||
|
||||
ImgAnticiposPendientes.Attributes.Add("OnClick", "MuestraAnticipos();")
|
||||
'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide(200);")
|
||||
@@ -3955,6 +3951,15 @@ Partial Class Compras_Compras
|
||||
Dim EstatusCredito As Integer = 0
|
||||
Dim CveSubProyecto As Integer = 0
|
||||
'Credito Multiple
|
||||
If RBLPago.SelectedValue.ToEntero = 2 Then
|
||||
If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then
|
||||
If Not TxtRembolsoNumero.Text.Length > 0 Then
|
||||
Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If RBLPago.SelectedValue.ToEntero = 4 Then
|
||||
|
||||
Dim DifCreCompra As Decimal = 0
|
||||
@@ -12836,7 +12841,6 @@ Partial Class Compras_Compras
|
||||
Select Case RBLPago.SelectedValue
|
||||
Case "1" 'Credito
|
||||
PnlContado.Visible = False
|
||||
|
||||
If Not UsuarioActual.Empresa.UsaAC Then
|
||||
TxtNumeroReembolso.Text = ""
|
||||
tdNumeroReembolso.Visible = False
|
||||
@@ -12845,7 +12849,6 @@ Partial Class Compras_Compras
|
||||
romCreditosTabla.Visible = False
|
||||
Case "2" 'Contado
|
||||
PnlContado.Visible = True
|
||||
|
||||
TxtNumeroReembolso.Text = ""
|
||||
tdNumeroReembolso.Visible = False
|
||||
|
||||
@@ -12879,7 +12882,6 @@ Partial Class Compras_Compras
|
||||
Case "3" 'Reembolso/Comprobacion
|
||||
PnlContado.Visible = True
|
||||
|
||||
|
||||
''AGARRA VALORES DE SESSION PARA REEMBOLSO -- SI YA ESTA REGISTRADA LA COMPRA IGNORA DATOS DE REEMBOLSO
|
||||
If Not CveCompra > 0 Then
|
||||
If UsuarioActual.Sesion("Comp-NumeroReembolso") <> Nothing AndAlso UsuarioActual.Sesion("Comp-NumeroReembolso").ToString <> "" Then
|
||||
@@ -13007,26 +13009,61 @@ Partial Class Compras_Compras
|
||||
Case "1" ' Bancos
|
||||
PnlContadoBancos.Visible = True
|
||||
TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "2" ' F y E
|
||||
PnlContadoFyE.Visible = True
|
||||
CargaFuncionariosEmpleados()
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = True
|
||||
RfvTxtRembolsoModal.Enabled = True
|
||||
TxtRembolsoNumero.Text = ""
|
||||
TxtRembolsoModal.Text = ""
|
||||
Case "3" ' Creditos
|
||||
PnlContadoCreditos.Visible = True
|
||||
ChkCreditoMultiple.Visible = True
|
||||
CargaCreditos()
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "4" ' Deudores
|
||||
PnlContadoDeudores.Visible = True
|
||||
CargaDeudores()
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "5" ' ACREEDORES
|
||||
PnlContadoAcreedores.Visible = True
|
||||
ChkCreditoMultiple.Visible = True
|
||||
CargaAcreedores()
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "6" ' Caja Chica
|
||||
PnlContadoCajaChica.Visible = True
|
||||
TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = True
|
||||
RfvTxtRembolsoModal.Enabled = True
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
End Select
|
||||
|
||||
UpContado.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
|
||||
TxtRembolsoNumero.Text = TxtRembolsoModal.Text
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
|
||||
End Sub
|
||||
|
||||
Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
TrRembolsoCajaChica.Visible = False
|
||||
TrRembolsoPersonal.Visible = False
|
||||
@@ -14600,6 +14637,35 @@ Partial Class Compras_Compras
|
||||
Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
|
||||
RegistraScript("$('#DivCancelarCompra').modal('hide');")
|
||||
|
||||
|
||||
Dim ObjComprasComprobacion As New ClsCompras
|
||||
|
||||
|
||||
If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
Dim TienePagosConciliados As Boolean = False
|
||||
|
||||
If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then
|
||||
TienePagosConciliados = True
|
||||
Dim PagosConciliados As New StringBuilder
|
||||
|
||||
For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows
|
||||
PagosConciliados.AppendLine($"<a target='_blank' class='Texto' href=../Bancos/IE.aspx?CveIE={Drow("CveIE").ToString}>{Drow("Folio").ToString} </a> <br>")
|
||||
Next
|
||||
|
||||
|
||||
Alert($"La compra no se puede cancelar, tiene pagos conciliados: <br> {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
If TienePagosConciliados Then
|
||||
ObjComprasComprobacion.Dispose()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
ObjComprasComprobacion.Dispose()
|
||||
|
||||
Dim ObjAC As ClsContPAQi = Nothing
|
||||
If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
|
||||
ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
@@ -15135,12 +15201,7 @@ Partial Class Compras_Compras
|
||||
Dr("RetISRTC") = Dr("RetISR")
|
||||
Dr("TotalTC") = Dr("ImporteAjustadoDescuento")
|
||||
|
||||
'[IPP] - JAMEntregaAdelantado | AJUSTE DE CANITDAD POR RECIBIR EN BASE A SALDOS DE INV-COMPRAS
|
||||
'If UsuarioActual.CveUsuario = 100 Then
|
||||
'If Dr("CveTipoPS").ToString.ToEntero = 2 And UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
|
||||
' Dr("CantidadDisponible") = If(Dr("CantidadDisponible").ToString.ToDouble > Dr("CantidadPendienteVincular").ToString.ToDouble, Dr("CantidadPendienteVincular"), Dr("CantidadDisponible"))
|
||||
'End If
|
||||
'End If
|
||||
|
||||
Next
|
||||
|
||||
'DESCRIPCION DE OC CUANDO NO ES COMPRA REGISTRADA
|
||||
@@ -15172,7 +15233,7 @@ Partial Class Compras_Compras
|
||||
|
||||
'SI PUEDE RECIBIR POR OC Y COMPRA
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
|
||||
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
|
||||
Select Case DdlOCVinculaInv.SelectedValue.ToEntero
|
||||
Case 176
|
||||
DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1)")
|
||||
@@ -19412,7 +19473,7 @@ Partial Class Compras_Compras
|
||||
Case 237
|
||||
Select Case FleteImportacionOpcion
|
||||
Case 1
|
||||
If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
|
||||
If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
|
||||
ErrorTrans = True
|
||||
End If
|
||||
'''actualiza la compra para que no se surta en almacen. sino por el flete o importación
|
||||
|
||||
Reference in New Issue
Block a user