Now 043 formato, ajustes eFacturas

This commit is contained in:
rakcsle
2025-02-20 15:41:43 -07:00
parent eb000772b5
commit 366ef5326b
6 changed files with 2495 additions and 343 deletions

View File

@@ -1395,7 +1395,9 @@ Partial Class PopUpVerFactura
If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
Dim imprmirNom043 As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119), True, False)
ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero, imprmirNom043:=imprmirNom043)
'ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
End If
End If