sábado, 2 de diciembre de 2017

Mejoras en Comprobante ComprobanteCFDI33.mrt tomando como ejemplo una versión impresa generada desde el portal del SAT.

Publicado en el Grupo de Whatsapp Distribuidores VIP de MyBusinessPOS el 2017-19-15. Por el Lic. Ramón Sosa Reyes
¿Eres Distribuidor y deseas unirte al Grupo? Consulta términos y condiciones aquí
2017-09-15 Primera publicación 2017-11-27 Segunda publicación Mejoras en Comprobante ComprobanteCFDI33.mrt tomando como ejemplo una versión impresa generada desde el portal del SAT. Pueden descargar el formato, ya con los cambios desde: https://www.dropbox.com/s/dg36jrpozp0dv80/ComprobanteCFDI33_ramsore.mrt?dl=0 1-Hacer un respaldo de c:\FacturaElectronica\ComprobanteCFDI33.mrt 2-Ejecutar el Diseñador c:\FacturaElectronica\MyCFD.EXE y click al botón Editar una factura en particular. 3-Reducir los TextBox actuales. 4-Crear un TextBox a un lado del actual. 5-Abrir el TextBox creado ir a Expresion. Copiar y pegar el texto abajo para cada Atributo. 6-Guardar y probar con vista previa. 7-Listo... Observaciones: 1-El tamaño del comprobante sube de 84KB a 94KB. 2-Aunque el ComprobanteCFDI33.mrt original proporcionado por MyBusinesspos cumple con las reglas del SAT, no faltará el contador o el cliente que mencione que le hacen falta las descripciones a las claves de cada atributo. (Sabemos que el arhivo XML es realmente el que importa). A un cliente le envié una factura sin las descripciones y acudí a explicarles los cambios, prácticamente las preguntas fueron, y ¿que significa I de Efecto de Comprobante? Ingreso, ¿que significa G03 de Uso CFDI? a ver espere déjeme buscar, etc. Prácticamente me tomó más tiempo buscar, por que tampoco me sabía todas las descripciones. Aprendí la lección. ¡No me vuelve a pasar!. 3-Se realizaron algunos cambios para que el formato no se distorsione cuando el texto sea muy largo, sobre todo se puede observar en las Descripciones de los productos. 4-En esta ocasión sí estoy proporcionando el formato para descarga como ejemplo, es el que utilicé el día de hoy para generar mi factura desde cfdimobile, por lo que también pude comprobar que basta con subir el .mrt en la opción Operación/Subir formato de factura (CFDI 3.3). 5-Se agradecería, que , así como está la opción Editar formato de factura, existiera la opción Editar formato de factura (CFDI 3.3) para validar o realizar cambios al .mrt desde el portal de cfdimobile. Espero les sirva... saludos... Efecto de Comprobante {Switch(Comprobante.tipoDeComprobante.Equals("I"),"Ingreso", Comprobante.tipoDeComprobante.Equals("E"),"Egreso", Comprobante.tipoDeComprobante.Equals("T"),"Traslado", Comprobante.tipoDeComprobante.Equals("N"),"Nómina", Comprobante.tipoDeComprobante.Equals("P"),"Pago")} Régimen fiscal {Switch(Emisor.RegimenFiscal.Equals("601"),"General de Ley Personas Morales", Emisor.RegimenFiscal.Equals("603"),"Personas Morales con Fines no Lucrativos", Emisor.RegimenFiscal.Equals("605"),"Sueldos y Salarios e Ingresos Asimilados a Salarios", Emisor.RegimenFiscal.Equals("606"),"Arrendamiento", Emisor.RegimenFiscal.Equals("607"),"Régimen de Enajenación o Adquisición de Bienes", Emisor.RegimenFiscal.Equals("608"),"Demás ingresos", Emisor.RegimenFiscal.Equals("609"),"Consolidación", Emisor.RegimenFiscal.Equals("610"),"Residentes en el Extranjero sin Establecimiento Permanente en México", Emisor.RegimenFiscal.Equals("611"),"Ingresos por Dividendos", Emisor.RegimenFiscal.Equals("612"),"Personas Físicas con Actividades Empresariales y Profesionales", Emisor.RegimenFiscal.Equals("614"),"Ingresos por intereses", Emisor.RegimenFiscal.Equals("615"),"Régimen de los ingresos por obtención de premios", Emisor.RegimenFiscal.Equals("616"),"Sin obligaciones fiscales", Emisor.RegimenFiscal.Equals("620"),"Sociedades Cooperativas de Producción que optan por diferir sus ingresos", Emisor.RegimenFiscal.Equals("621"),"Incorporación Fiscal", Emisor.RegimenFiscal.Equals("622"),"Actividades Agrícolas, Ganaderas, Silvícolas y Pesqueras", Emisor.RegimenFiscal.Equals("623"),"Opcional para Grupos de Sociedades", Emisor.RegimenFiscal.Equals("624"),"Coordinados", Emisor.RegimenFiscal.Equals("628"),"Hidrocarburos", Emisor.RegimenFiscal.Equals("629"),"De los Regímenes Fiscales Preferentes y de las Empresas Multinacionales", Emisor.RegimenFiscal.Equals("630"),"Enajenación de acciones en bolsa de valores")} Uso CFDI {Switch(Receptor.UsoCFDI.Equals("D01"),"Honorarios médicos, dentales y gastos hospitalarios.", Receptor.UsoCFDI.Equals("D02"),"Gastos médicos por incapacidad o discapacidad", Receptor.UsoCFDI.Equals("D03"),"Gastos funerales.", Receptor.UsoCFDI.Equals("D04"),"Donativos.", Receptor.UsoCFDI.Equals("D05"),"Intereses reales efectivamente pagados por créditos hipotecarios (casa habitación).", Receptor.UsoCFDI.Equals("D06"),"Aportaciones voluntarias al SAR.", Receptor.UsoCFDI.Equals("D07"),"Primas por seguros de gastos médicos.", Receptor.UsoCFDI.Equals("D08"),"Gastos de transportación escolar obligatoria.", Receptor.UsoCFDI.Equals("D09"),"Depósitos en cuentas para el ahorro, primas que tengan como base planes de pensiones.", Receptor.UsoCFDI.Equals("D10"),"Pagos por servicios educativos (colegiaturas)", Receptor.UsoCFDI.Equals("G01"),"Adquisición de mercancias", Receptor.UsoCFDI.Equals("G02"),"Devoluciones, descuentos o bonificaciones", Receptor.UsoCFDI.Equals("G03"),"Gastos en general", Receptor.UsoCFDI.Equals("I01"),"Construcciones", Receptor.UsoCFDI.Equals("I02"),"Mobilario y equipo de oficina por inversiones", Receptor.UsoCFDI.Equals("I03"),"Equipo de transporte", Receptor.UsoCFDI.Equals("I04"),"Equipo de computo y accesorios", Receptor.UsoCFDI.Equals("I05"),"Dados, troqueles, moldes, matrices y herramental", Receptor.UsoCFDI.Equals("I06"),"Comunicaciones telefónicas", Receptor.UsoCFDI.Equals("I07"),"Comunicaciones satelitales", Receptor.UsoCFDI.Equals("I08"),"Otra maquinaria y equipo", Receptor.UsoCFDI.Equals("P01"),"Por definir")} Moneda {Switch(Comprobante.Moneda.Equals("MXN"),"Peso mexicano", Comprobante.Moneda.Equals("USD"),"Dolar estadounidense")} Forma de pago {Switch(Comprobante.FormaPago.Equals("01"),"Efectivo", Comprobante.FormaPago.Equals("02"),"Cheque nominativo", Comprobante.FormaPago.Equals("03"),"Transferencia electrónica de fondos", Comprobante.FormaPago.Equals("04"),"Tarjeta de crédito", Comprobante.FormaPago.Equals("05"),"Monedero electrónico", Comprobante.FormaPago.Equals("06"),"Dinero electrónico", Comprobante.FormaPago.Equals("08"),"Vales de despensa", Comprobante.FormaPago.Equals("28"),"Tarjeta de débito", Comprobante.FormaPago.Equals("29"),"Tarjeta de servicios", Comprobante.FormaPago.Equals("30"),"Aplicación de anticipos", Comprobante.FormaPago.Equals("99"),"Por definir")} Método de pago {Switch(Comprobante.MetodoPago.Equals("PUE"),"Pago en una sola exhibición", Comprobante.MetodoPago.Equals("PPD"),"Pago en parcialidades o diferido")}

viernes, 1 de diciembre de 2017

Solución al Problema de las Básculas en MyBusinesspos 2017

Publicado en el Grupo de Whatsapp Distribuidores VIP de MyBusinessPOS el 2017-11-23. Por el Lic. Ramón Sosa Reyes
¿Eres Distribuidor y deseas unirte al Grupo? Consulta términos y condiciones aquí
Ya lo había publicado previamente como:
 
¿Básculas, Lectores Seriales, Torretas, es decir Dispositivos COM funcionan 
en MyBusinessPOS 2017?

sin embargo me enteré que no todos lo vieron.
Por lo que lo presento nuevamente en versión resumida.


Abrir el Procedimiento LOGIN001

Sub Main()         
  
'Me.WindowState = 2          

End Sub


'Esto fue lo que le incluí, para Bascula, Lector y Torreta
    
Set Ambiente.Bascula = CreateObject( "MSCommLib.MSComm" )
    
Set Ambiente.Lector = CreateObject( "MSCommLib.MSComm" )
    
Set Torreta=CreateObject( "MSCommLib.MSComm" )

'Antes del 
Sub Main 

Sub Main()         
    
'Me.WindowState = 2          

End Sub


La versión de MyBusinessPOS 2017 que descargué es la versión 2017 
del 16 de Noviembre...

Bueno revisen a ver si les funciona...

Espero les sirva... Saludos...