StrSql := 'select Left(CG.cuenta, ' + edtDigito.Text + ') As CNivel, CG.Cuenta, P.Descripcion , ' +
'Sum (p01) As m01, ' +
'Sum (p02) As m02, ' +
'Sum (p03) As m03, ' +
'Sum (p04) As m04, ' +
'Sum (p05) As m05, ' +
'Sum (p06) As m06, ' +
'Sum (p07) As m07, ' +
'Sum (p08) As m08, ' +
'Sum (p09) As m09, ' +
'Sum (p10) As m10, ' +
'Sum (p11) As m11, ' +
'Sum (p12) As m12, ' +
'From tblCuentaGasto CG ' +
'Left Join tblPlanContable P on CG.Empresa = P.Empresa and CG.Periodo = P.Periodo and CG.Cuenta = P.Cuenta ' +
' where CG.Empresa = ' + QuotedStr(dmGlobal.g_CodigoEmpresa) + ' and CG.Periodo = ' + QuotedStr(Copy(dmGlobal.g_Periodo,1,4)) + ' and ' +
'(p01 + p02 + p03 + p04 + p05 + p06 + p07 + p08 + p09 + p10 + p11 + p12)<> 0 ' +
' group by Left(CG.CUENTA, ' + edtDigito.Text + '), CG.Cuenta, P.Descripcion'