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

- manejo de conceptos prepoliza

Browse Source
This commit is contained in:
rrene
2023-02-13 21:53:10 -07:00
parent f8177bff45
commit d0224f9462
1 changed files with 32 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
Compras/Compras.aspx.vb
View File

@@ -7143,13 +7143,14 @@ Partial Class Compras_Compras
'PROVISION de NC 'PROVISION de NC
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False) Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, DdlMoneda.SelectedValue.ToEntero, False, CveTipoConcepto)
'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConPreP.CveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then
IdCtaContable = CtaProveedorComplementaria IdCtaContable = CtaProveedorComplementaria
CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True) 'CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, ConPreP.CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Exit Select Exit Select
End If End If
@@ -7168,7 +7169,7 @@ Partial Class Compras_Compras
Dim CveMonedaNC As Integer = If(TipoCambioFactura = 1, 1, 2) Dim CveMonedaNC As Integer = If(TipoCambioFactura = 1, 1, 2)
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
CveCon = ObtConceptoContableProvisionCompra(Gvr.DataKey("CveTipoConcepto").ToEntero, "NC", CveMonedaNC, False) 'CveCon = ObtConceptoContableProvisionCompra(Gvr.DataKey("CveTipoConcepto").ToEntero, "NC", CveMonedaNC, False)
CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero
CompraActual.SerieFolio = Gvr.DataKey("SerieFolio") CompraActual.SerieFolio = Gvr.DataKey("SerieFolio")
@@ -7241,17 +7242,8 @@ Partial Class Compras_Compras
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
Case 21 'Anticipo Case 21 'Anticipo
If ArrAnticipos.Count > 0 Then If ArrAnticipos.Count > 0 Then
@@ -8677,14 +8669,7 @@ Partial Class Compras_Compras
CveIE = gvr.DataKey("CveIE").ToEntero CveIE = gvr.DataKey("CveIE").ToEntero
End Select End Select
PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal 'PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
If CveMonedaAnticipo > 1 Then
Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then
ErrorMovtosCxP = 1
End If
End If
Pago.CveIE = CveIE Pago.CveIE = CveIE
Pago.CveCompraAmortizacion = CveCompraNC Pago.CveCompraAmortizacion = CveCompraNC
@@ -20574,34 +20559,34 @@ Partial Class Compras_Compras
End Sub End Sub
Private Function ObtConceptoContableProvisionCompra(CveTipoConcepto As Integer, TipoDocto As String, CveMoneda As Integer, Optional EsComplementaria As Boolean = False) As Integer 'Private Function ObtConceptoContableProvisionCompra(CveTipoConcepto As Integer, TipoDocto As String, CveMoneda As Integer, Optional EsComplementaria As Boolean = False) As Integer
Dim Retorno As Integer = -1 ' Dim Retorno As Integer = -1
If CveTipoConcepto = 1 Then ''PROVEEDOR ' 'If CveTipoConcepto = 1 Then ''PROVEEDOR
If EsComplementaria Then ' If EsComplementaria Then
Retorno = If(TipoDocto = "Fac", 201, 234) ' Retorno = If(TipoDocto = "Fac", 201, 234)
Return Retorno ' Return Retorno
End If ' End If
If CveMoneda = 1 Then ' If CveMoneda = 1 Then
Retorno = If(TipoDocto = "Fac", 5, 18) ' Retorno = If(TipoDocto = "Fac", 5, 18)
Else ' Else
Retorno = If(TipoDocto = "Fac", 311, 341) ' Retorno = If(TipoDocto = "Fac", 311, 341)
End If ' End If
Else ''ACREEDOR ' Else ''ACREEDOR
If EsComplementaria Then ' If EsComplementaria Then
Retorno = If(TipoDocto = "Fac", -1, -1) ' Retorno = If(TipoDocto = "Fac", -1, -1)
Return Retorno ' Return Retorno
End If ' End If
If CveMoneda = 1 Then ' If CveMoneda = 1 Then
Retorno = If(TipoDocto = "Fac", 305, 323) ' Retorno = If(TipoDocto = "Fac", 305, 323)
Else ' Else
Retorno = If(TipoDocto = "Fac", 306, 309) ' Retorno = If(TipoDocto = "Fac", 306, 343)
End If ' End If
End If ' End If
Return Retorno ' Return Retorno
End Function 'End Function
End Class End Class