viernes, 18 de enero de 2019

ASPEL SAE MACRO QUE GENERA ENTIGUEDAD DE SALDOS EN EXCEL

DEBES TENER CONOCIMIENTOS DE BASES DE DATOS, ACCESO
ODBC 
debes descargar odbc firebird 32 bits, lo instalas
y luego te creas el acceso de odbc al archivo fdb de tu empresa
buscas el archivo casi siempre esta 
 , recuerda usuario 'sysdba', contraseña 'masterkey'

Este es el sql que te da la antiguedad de saldos

SELECT d.CVE_CLIE,(SELECT NOMBRE FROM CLIE01 WHERE CLAVE=d.CVE_CLIE) AS Cliente,SUM(d.Sl) AS SALDOFACT,SUM(d.a0) AS  AlCorrienteNoVencido,SUM(d.a30) AS Vencido_1y30Dias,SUM(d.M30) AS VencidoMasd30Dias,SUM(d.M60) AS VencidoMasd60Dias,SUM(d.M90) AS VencidoMasde90Dias FROM (SELECT c.CVE_CLIE,(SELECT NOMBRE FROM CLIE01 WHERE CLAVE=c.CVE_CLIE) as Cliente,c.REFER,c.FECHA_APLI,c.FECHA_VENC, Sl,IIF(c.FECHA_VENC>='2019-01-18',Sl,0) as a0,IIF(c.FECHA_VENC<'2019-01-18',IIF(c.FECHA_VENC>='2018-12-19',Sl,0),0) as a30,IIF(c.FECHA_VENC<'2018-12-19',IIF(c.FECHA_VENC>='2018-11-19',Sl,0),0) as M30,IIF(c.FECHA_VENC<'2018-11-19',IIF(c.FECHA_VENC>='2018-10-20',Sl,0),0) as M60,IIF(c.FECHA_VENC<'2018-10-20',Sl,0) as M90 FROM(SELECT CVE_CLIE, REFER, SUM(M) AS Sl FROM(SELECT CVE_CLIE,REFER,DOCTO,IIF(SIGNO>0,IMPORTE,-IMPORTE) AS M FROM CUEN_M01 UNION ALL SELECT CVE_CLIE,REFER,DOCTO,IIF(SIGNO>0,IMPORTE,-IMPORTE) AS M FROM CUEN_DET01)GROUP BY CVE_CLIE,REFER) AS s LEFT JOIN CUEN_M01 c ON c.CVE_CLIE=s.CVE_CLIE AND c.REFER=s.REFER WHERE A
BS(s.Sl) > 0.5 AND c.CVE_CLIE IS NOT NULL) as d GROUP BY d.CVE_CLIE

Se supones que eres programador de sql
tambien sabes usar archivos de firebird con flamerobin
si quieres usar excel debes crear odbc



Aspel SAE 7 R23 Centavos de Total Documento no coincide con Cantidad en Letras

Si en tu cuadro de Expresion Usabas esta funcion para escribir cantidad en letras:
cdtsDocumentos.IMPORTE_LETRAS_ESP_MULTIMONEDA + IF(cdtsDocumentos.NUM_MONED = 1, ' M.N.', ' ' + cdtsDocumentos.ABREVIATURA)


TE RECOMIENDO QUE LA CAMBIES POR ESTA:
EXPRESAR CANT. EN ESPAÑOL(cdtsDocumentos.TOTALDOCTO)+EXPRESAR CENTAVOS(cdtsDocumentos.TOTALDOCTO)+' M.N.'

Con esto solucionas problema de diferencias en total de documento y cantidad en letras en los centavos
saludos

martes, 15 de enero de 2019

INICIAL EXCEL EN UNA NUEVA INSTANCIA (EJ PARA HACER OTRAS COSAS MIENTRAS CORRES UN MACRO)

Copiado de https://excelgorilla.com/excel/general/open-multiple-instances-excel/

1. Alt + Click Abrir

Click Derecho en Icono de Excel, cuando salga el menu busca tu archivo o excel y presiona alt luego click 
izquierdo

2. Ejecutar con Run
Tecla Windows (Banderita al lado del Alt Izq)
+ R, y en cuadro ejecutar escribes Excel.exe /x

3. Use VBA
Codigo VBA Macro
Sub OpenNewExcelInstance()
 
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Workbooks.Add
xlApp.Visible = True
Set xlApp = Nothing
 
End Sub

4. Editar el registro (Registry) con regedit

  • Cierra todo excel
  • Abrir regedit.
  • Busca HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel\Options.
  • Agregar Valor DWord "DisableMergeInstance" agrega valor 1