This commit is contained in:
2024-05-10 06:13:00 -07:00
19 changed files with 949 additions and 154 deletions

View File

@@ -1021,7 +1021,7 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
'Registra movimieno bancario
If gvr.DataKey("CveConceptoContable") = "30" AndAlso Importe <> 0 Then
If gvr.DataKey("CveConceptoContable") = "30" AndAlso (Importe <> 0 OrElse DdlPlantilla.SelectedValue = "53") Then
Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString
If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero)