Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("pntMediosDeCobro")
TabCobros.LoadLayout("tabMedioCobroEFE", "Efectivo")
TabCobros.LoadLayout("tabMedioCobroCHE", "Cheque")
TabCobros.LoadLayout("tabMedioCobroTAR", "Tarjeta")
TabCobros.LoadLayout("tabMedioCobroDEP", "Depósito")
TabCobros.LoadLayout("tabMedioCobroRET", "Retención")
Sleep(0)
'Ajusto tamaños de fuentes SIN importar el tamaño de fuente elegida por el Usuario...
lblFecha.TextSize = lblFecha.TextSize/Main.pSysFontScale
lblImporte.TextSize = lblImporte.TextSize/Main.pSysFontScale
lblConcepto.TextSize = lblConcepto.TextSize/Main.pSysFontScale
lblCambio.TextSize = lblCambio.TextSize/Main.pSysFontScale
edtImporte.TextSize = edtImporte.TextSize/Main.pSysFontScale
lblConta.TextSize = lblConta.TextSize/Main.pSysFontScale
'B4XComboBox1.TextSize = B4XComboBox1.TextSize/Main.pSysFontScale
edtCambio.TextSize = edtCambio.TextSize/Main.pSysFontScale
edtDetalle.TextSize = edtDetalle.TextSize/Main.pSysFontScale
lblCtaConta.TextSize = lblCtaConta.TextSize/Main.pSysFontScale
End Sub