AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

GDiaz - Compras Prontos Pagos, Registro compra y notas de credito y registro de inventario

Browse Source
This commit is contained in:
rakcsle
2024-03-26 08:36:53 -07:00
parent b21d1b4348
commit a0720499c6
1 changed files with 22 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Compras/Compras.aspx.vb
View File

@@ -1596,6 +1596,8 @@ Partial Class Compras_Compras
DdlTipoComprobante.SelectedValueExist("DEV")
End If
End If
'SE OCUPAN AFUERA DEL POSTBACK ??
@@ -3381,7 +3383,13 @@ Partial Class Compras_Compras
ViewState("CveProveedor") = ObjProveedor.CveProveedor
ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
If ObjProveedor.CveTipoProveedor = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
If ObjProveedor.CveTipoProveedor = 2 Then
LblProveedor.Text = "Acreedor:"
Else
LblProveedor.Text = "Proveedor:"
End If
CveTipoConcepto = ObjProveedor.CveTipoProveedor
ViewState("NombreProveedor") = ObjProveedor.RazonSocial
@@ -19623,12 +19631,12 @@ Partial Class Compras_Compras
End Sub
Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click
If CveTipoConcepto = 1 Then
LblProveedor.Text = "Acreedor:"
CveTipoConcepto = 2
Else
If CveTipoConcepto = 2 Then
LblProveedor.Text = "Proveedor:"
CveTipoConcepto = 1
Else
LblProveedor.Text = "Acreedor:"
CveTipoConcepto = 2
End If
End Sub
@@ -20659,6 +20667,9 @@ Partial Class Compras_Compras
CompraRNC.NombreProveedor = DdlProveedor.SelectedItem.Text
CompraRNC.Fecha = TxtFecha.Text.ToDate
CompraRNC.CveMoneda = DdlMoneda.SelectedValue.ToEntero
CompraRNC.Serie = TxtSerie.Text
CompraRNC.Folio = TxtFolio.Text
Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
@@ -20690,6 +20701,8 @@ Partial Class Compras_Compras
CompraRNCProntoPAgo.NombreProveedor = DdlProveedor.SelectedItem.Text
CompraRNCProntoPAgo.Fecha = TxtFecha.Text.ToDate
CompraRNCProntoPAgo.CveMoneda = DdlMoneda.SelectedValue.ToEntero
CompraRNCProntoPAgo.Serie = $"{TxtSerie.Text}_P"
CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}_P"
CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, ImporteRNCProntoPago)
If Not CompraRNCProntoPAgo.AddCompraRNC(trasaccion) Then
@@ -22621,7 +22634,7 @@ Public Class ClsCompraManagerCompras
If Not AjustesValidacion() Then Return False
Dim respuesta As Boolean = True
Dim ObjCompras As New ClsCompras
Dim ObjCompras As New ClsCompras(transacccion)
Dim ObjConta As New ClsContabilidad(transacccion)
If Not AddPrepolizaCabecera(ObjConta) Then
@@ -22722,14 +22735,14 @@ Public Class ClsCompraManagerCompras
If ES_RNC Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Me.Total, Me.Total, 370, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then
CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
respuesta = False
End If
If respuesta Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 371, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 372, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
respuesta = False
End If