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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2025-05-16 10:51:13 -07:00
parent 57ea78dc4e b3659923f0
commit c6d9dbf0c7
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsContPAQi.vb
View File

@@ -776,18 +776,22 @@ Public Class ClsContPAQi
StrSQL.Clear()
StrSQL.Append(" BEGIN ")
StrSQL.Append(" Declare @Tmp INT = 0, @IdPersona INT, @IdDatoExtra INT, ")
StrSQL.Append(" @Codigo VARCHAR(10) = '', @CodigoCuenta VARCHAR(20), @CodigoExtra VARCHAR(20)= ''; ")
StrSQL.Append(" @Codigo VARCHAR(10) = '', @CodigoPersona VARCHAR(10) = '', @CodigoCuenta VARCHAR(20), @CodigoExtra VARCHAR(20)= ''; ")
StrSQL.Append(" SELECT @Tmp = MAX(Id) FROM Proveedores P WHERE P.RFC = @RFC; ")
StrSQL.Append(" IF ISNULL(@Tmp,0) <= 0 ")
StrSQL.Append(" BEGIN ")
StrSQL.Append(" SELECT @Codigo = MAX(CAST(Codigo AS INT)) FROM Proveedores WHERE CAST(Codigo AS INT) < 9999; ")
StrSQL.Append(" SET @Codigo = CONCAT(replicate(' ',6-Len((@Codigo + 1))),(@Codigo + 1)); ")
StrSQL.Append(" Select @CodigoCuenta = Codigo from Cuentas WHERE Id = @IdCuentaContable; ")
StrSQL.Append(" SET @IdProveedor = dbo.FNC_GetCounter ('Id_Proveedor'); ")
StrSQL.Append(" SELECT @CodigoPersona = MAX(CAST(Codigo AS INT)) FROM Personas WHERE CAST(Codigo AS INT) < 9999; ")
StrSQL.Append(" SET @CodigoPersona = CONCAT(replicate(' ',6-Len((@CodigoPersona + 1))),(@CodigoPersona + 1)); ")
StrSQL.Append(" INSERT INTO Proveedores (Id,RowVersion,Codigo,Nombre, RFC,CURP,TipoOperacion,IdCuenta,TimeStamp,TasaIVA15,TasaIVA10,TasaIVA0,TasaIVAExento,TasaIVAOtra1,TasaIVAOtra2,TasaOtra1,TasaOtra2,TasaAsumida,RetencionIVA,RetencionISR,TipoTercero,IdFiscal,NomExtranjero,Pais,Nacionalidad,IdConceptoIETU,TasaIVA16,TasaIVA11,CodigoPersona, CodigoCuenta,EsParaAbonoCta,CodigoCtaComplementaria,CodigoPrepoliza,IdSegNeg,ClaveBanco,Sucursal,CuentaClabe,Referencia) ")
StrSQL.Append(" VALUES (@IdProveedor,555555,@Codigo,@Nombre,@RFC,@CURP,85,@IdCuentaContable,'',0,0,0,0,0,0,0,0,7,0,0,4,'','','','Mexicana',1,1,0, @Codigo, @CodigoCuenta,0,'','',0,'','','',''); ")
StrSQL.Append(" VALUES (@IdProveedor,555555,@Codigo,@Nombre,@RFC,@CURP,85,@IdCuentaContable,'',0,0,0,0,0,0,0,0,7,0,0,4,'','','','Mexicana',1,1,0, @CodigoPersona, @CodigoCuenta,0,'','',0,'','','',''); ")
StrSQL.Append(" EXEC PA_UpdateId 'Id_Proveedor';")
StrSQL.Append(" ")
@@ -800,7 +804,7 @@ Public Class ClsContPAQi
StrSQL.Append(" SET @IdPersona = dbo.FNC_GetCounter ('Id_Persona'); ")
StrSQL.Append(" INSERT INTO Personas (Id,RowVersion,Codigo,Nombre,RFC,CURP,FechaRegistro,EsCliente,EsProveedor,EsEmpleado,EsAgente,EsPersona,EsBaja,Telefono1,Telefono2,Telefono3,Fax,eMail,PaginaWeb,IdDatoExtra,GenerarPolizaAuto,PosibilidadPago,SistOrig,CodigoAdminPAQ,EsResponsableGasto,CtaContableGasto,PagarDoctosAMismoRFC,GeneraContraCuentaDeudor,IdCategoria,IdSubCategoria) ")
StrSQL.Append(" VALUES (@IdPersona,555555, @Codigo,@Nombre,@RFC,@CURP,GETDATE(),0,1,0,0,0,0,'','','','','','',@IdDatoExtra,0,0,11,'',0,'',0,0,0,0); ")
StrSQL.Append(" VALUES (@IdPersona,555555, @CodigoPersona,@Nombre,@RFC,@CURP,GETDATE(),0,1,0,0,0,0,'','','','','','',@IdDatoExtra,0,0,11,'',0,'',0,0,0,0); ")
StrSQL.Append(" EXEC PA_UpdateId 'Id_Persona';")
StrSQL.Append(" ")

7
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -667,9 +667,7 @@ Partial Class RepContratosCalendario
resp = ObjFacturaCancelacion.CancelarFactura(0, CancelacionPagos:=CancelacionPagos, ValidarSAT:=False)
If resp.HuboError Then
TieneError = True
Else
RegistraScript("$('#ModalActualizar').modal('hide');")
Alert("Actualizado Correctamente.")
Alert("Se presento un error al Actualizar el contrato (Cancelación de factura).")
End If
End If
End If
@@ -679,8 +677,11 @@ Partial Class RepContratosCalendario
If TieneError Then
ObjContratos.RollBack()
Alert("Se presento un error al Actualizar el contrato.")
Else
ObjContratos.Commit()
RegistraScript("$('#ModalActualizar').modal('hide');")
Alert("Contrato Actualizado Correctamente.")
End If
ObjContratos.Dispose()
objGenerales.Dispose()