diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0de6f650c..5710ba58f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7143,13 +7143,14 @@ Partial Class Compras_Compras 'PROVISION de NC 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 - 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 Exit Select End If @@ -7168,7 +7169,7 @@ Partial Class Compras_Compras Dim CveMonedaNC As Integer = If(TipoCambioFactura = 1, 1, 2) 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.SerieFolio = Gvr.DataKey("SerieFolio") @@ -7241,17 +7242,8 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If - - - End If - - - - - - Case 21 'Anticipo If ArrAnticipos.Count > 0 Then @@ -8677,14 +8669,7 @@ Partial Class Compras_Compras CveIE = gvr.DataKey("CveIE").ToEntero End Select - 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 + 'PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal Pago.CveIE = CveIE Pago.CveCompraAmortizacion = CveCompraNC @@ -20574,34 +20559,34 @@ Partial Class Compras_Compras End Sub - Private Function ObtConceptoContableProvisionCompra(CveTipoConcepto As Integer, TipoDocto As String, CveMoneda As Integer, Optional EsComplementaria As Boolean = False) As Integer - Dim Retorno As Integer = -1 + 'Private Function ObtConceptoContableProvisionCompra(CveTipoConcepto As Integer, TipoDocto As String, CveMoneda As Integer, Optional EsComplementaria As Boolean = False) As Integer + ' Dim Retorno As Integer = -1 - If CveTipoConcepto = 1 Then ''PROVEEDOR - If EsComplementaria Then - Retorno = If(TipoDocto = "Fac", 201, 234) - Return Retorno - End If - If CveMoneda = 1 Then - Retorno = If(TipoDocto = "Fac", 5, 18) - Else - Retorno = If(TipoDocto = "Fac", 311, 341) - End If - Else ''ACREEDOR - If EsComplementaria Then - Retorno = If(TipoDocto = "Fac", -1, -1) - Return Retorno - End If - If CveMoneda = 1 Then - Retorno = If(TipoDocto = "Fac", 305, 323) - Else - Retorno = If(TipoDocto = "Fac", 306, 309) - End If - End If + ' 'If CveTipoConcepto = 1 Then ''PROVEEDOR + ' If EsComplementaria Then + ' Retorno = If(TipoDocto = "Fac", 201, 234) + ' Return Retorno + ' End If + ' If CveMoneda = 1 Then + ' Retorno = If(TipoDocto = "Fac", 5, 18) + ' Else + ' Retorno = If(TipoDocto = "Fac", 311, 341) + ' End If + ' Else ''ACREEDOR + ' If EsComplementaria Then + ' Retorno = If(TipoDocto = "Fac", -1, -1) + ' Return Retorno + ' End If + ' If CveMoneda = 1 Then + ' Retorno = If(TipoDocto = "Fac", 305, 323) + ' Else + ' Retorno = If(TipoDocto = "Fac", 306, 343) + ' End If + ' End If - Return Retorno + ' Return Retorno - End Function + 'End Function End Class