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

-

Browse Source
This commit is contained in:
rrene
2021-05-21 08:16:18 -07:00
parent 6b6fa04910 ad5fe8c961
commit 2648ddccbe
84 changed files with 6759 additions and 4085 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
Compras/Compras.aspx.vb
View File

@@ -2118,6 +2118,10 @@ Partial Class Compras_Compras
TxtSerie.Enabled = True
End If
If LblMetodoPago.Text = "" Then
Alert("El xml no contiene la etiqueta 'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Visible = False
End If
End If
@@ -6516,7 +6520,7 @@ Partial Class Compras_Compras
If Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked) Then
'AF TipoAF 2 Es para las compras
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1")
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ")
If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
For Each Row2 As DataRow In DT.Rows
importeMovimiento = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Row2("ImporteSinImpuestos").ToString.ToDecimal, Row2("Total").ToString.ToDecimal)
@@ -12473,6 +12477,17 @@ Partial Class Compras_Compras
llenaDtsAF()
CargaGVsAF()
For Each Row As DataRow In TmpDT.Rows
If Row("CveActivoFijo").ToString.ToEntero = 0 Then
Row("TipoAF") = DBNull.Value
End If
Next
TmpDT.AcceptChanges()
End Sub
Protected Sub DivirInsumo(sender As Object, e As EventArgs)
Dim index2 As Integer = 0
@@ -12543,10 +12558,28 @@ Partial Class Compras_Compras
GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
Try
TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
TmpDT.AcceptChanges()
Catch ex As Exception
End Try
ElseIf HdnTipoAF.Value.ToEntero = 2 Then
GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
Try
TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
TmpDT.AcceptChanges()
Catch ex As Exception
End Try
End If
'COMENTADO IPP 15 JUNIO 2017
'RegistraScript(String.Format("EnterAFEditOK('{0}','{1}');", ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString, ObjAF.DtResultados.Rows(0)("Codigo").ToString))
@@ -12556,10 +12589,28 @@ Partial Class Compras_Compras
GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
Try
TmpDT.Rows(Index)("CveActivoFijo") = Nothing
TmpDT.AcceptChanges()
Catch ex As Exception
End Try
ElseIf HdnTipoAF.Value.ToEntero = 2 Then
GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
Try
TmpDT.Rows(Index)("CveActivoFijo") = Nothing
TmpDT.AcceptChanges()
Catch ex As Exception
End Try
End If
Alert("No se encontró un Activo Fijo con el código proporcionado.", TipoMensaje.MsgAdvertencia)