-- cambio de subproyecto

This commit is contained in:
2023-06-30 18:34:14 -07:00
parent 743713fee6
commit c8af52017d

View File

@@ -248,7 +248,7 @@ Partial Class Bancos_RepEgresosSinComprobante
Dim ImporteMN As Decimal = (ImporteSaldo * gr.DataKey("TipoCambio").ToDecimal - ImporteSaldo).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, gr.DataKey("Folio"), TxtConcepto.Text, -1,
CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
ImporteME:=gr.DataKey("Saldo").ToDecimal, Contabilizable:=EsContabilizable) Then
ImporteME:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
End If
@@ -256,7 +256,7 @@ Partial Class Bancos_RepEgresosSinComprobante
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, ImporteSaldo, ImporteSaldo, 211, gr.DataKey("Folio"), "Saldo de ExC por Sistema", -1,
CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, Contabilizable:=EsContabilizable) Then
CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
End If